mirror of
https://github.com/LCPQ/quantum_package
synced 2024-06-19 19:52:15 +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
|