TABLE OF CONTENTS
ABINIT/radsmear [ Functions ]
NAME
radsmear
FUNCTION
COPYRIGHT
Copyright (C) 2012-2018 ABINIT group (ILuk) This file is distributed under the terms of the GNU General Public License, see ~abinit/COPYING or http://www.gnu.org/copyleft/gpl.txt . For the initials of contributors, see ~abinit/doc/developers/contributors.txt.
INPUTS
OUTPUT
PARENTS
CHILDREN
SOURCE
25 #if defined HAVE_CONFIG_H 26 #include "config.h" 27 #endif 28 29 #include "abi_common.h" 30 31 function radsmear(r, rsph, rsm) 32 33 use defs_basis 34 35 !This section has been created automatically by the script Abilint (TD). 36 !Do not modify the following lines by hand. 37 #undef ABI_FUNC 38 #define ABI_FUNC 'radsmear' 39 !End of the abilint section 40 41 implicit none 42 43 !Arguments ------------------------------------ 44 !scalars 45 real(dp) :: radsmear 46 real(dp), intent(in) :: r, rsph, rsm 47 48 !Local variables ------------------------------ 49 !scalars 50 real(dp) :: xx 51 52 !****************************************************************** 53 54 radsmear = zero 55 if (r < rsph - rsm - tol12) then 56 radsmear = one 57 else if (r < rsph - tol12) then 58 xx = (rsph - r) / rsm 59 radsmear = xx**2*(3+xx*(1+xx*(-6+3*xx))) 60 end if 61 62 end function radsmear