mirror of
https://gitlab.com/scemama/eplf
synced 2024-06-19 19:52:16 +02:00
19 lines
291 B
Fortran
19 lines
291 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=- 60,40
|
|
point(3) = real(i)/10.
|
|
TOUCH point
|
|
print *, point(3), eplf_value, eplf_up_up, eplf_up_dn
|
|
enddo
|
|
end
|