TABLE OF CONTENTS


ABINIT/radsmear [ Functions ]

[ Top ] [ 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