mirror of
https://gitlab.com/scemama/eplf
synced 2024-06-26 23:22:20 +02:00
19 lines
291 B
FortranFixed
19 lines
291 B
FortranFixed
|
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
|