mirror of
https://github.com/LCPQ/quantum_package
synced 2024-06-26 15:12:14 +02:00
16 lines
268 B
Fortran
16 lines
268 B
Fortran
|
program test_3d
|
||
|
|
implicit none
|
||
|
|
integer :: i,npt
|
||
|
|
double precision :: dx,domain,x_min,x,step_function_becke
|
||
|
|
domain = 5.d0
|
||
|
|
npt = 100
|
||
|
|
dx = domain/dble(npt)
|
||
|
|
x_min = -0.5d0 * domain
|
||
|
|
x = x_min
|
||
|
|
do i = 1, npt
|
||
|
|
write(33,*)x,step_function_becke(x)
|
||
|
|
x += dx
|
||
|
|
enddo
|
||
|
|
|
||
|
|
end
|