mirror of
https://gitlab.com/scemama/eplf
synced 2024-06-01 02:45:31 +02:00
20 lines
336 B
Fortran
20 lines
336 B
Fortran
program debug
|
|
PROVIDE ao_prim_num_max
|
|
!read(*,*) eplf_gamma
|
|
!TOUCH eplf_gamma
|
|
call run()
|
|
end
|
|
|
|
subroutine run
|
|
implicit none
|
|
point(1) = 0.
|
|
point(2) = 0.
|
|
integer :: i
|
|
do i=-40,40
|
|
point(3) = real(i)/20.
|
|
TOUCH point
|
|
! print *, point(3), eplf_value_p, eplf_up_up, eplf_up_dn
|
|
print *, point(3), density_alpha_value_p
|
|
enddo
|
|
end
|