potential3ds.f90

来自「Ground state of the time-independent Gro」· F90 代码 · 共 17 行

real(kind(1.d0)) function potentialV0(x,y,z)
  !
  ! User supplied additional potential
  !
  ! This function takes on input the coordinates x,y,z and returns the value
  ! of the potential at this point *** exclusive of the harmonic trap ***
  !
  implicit none
  integer, parameter :: dp=kind(1.d0)
  
  real(dp), intent(in) :: x,y,z
  
  potentialV0 = 0.d0
  
  return
end function potentialV0