2009-05-14 17:48:27 +02:00
|
|
|
program debug
|
|
|
|
|
PROVIDE ao_prim_num_max
|
2009-06-15 11:33:16 +02:00
|
|
|
!read(*,*) eplf_gamma
|
|
|
|
|
!TOUCH eplf_gamma
|
2009-05-14 17:48:27 +02:00
|
|
|
call run()
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
subroutine run
|
|
|
|
|
implicit none
|
|
|
|
|
point(1) = 0.
|
|
|
|
|
point(2) = 0.
|
|
|
|
|
integer :: i
|
2011-02-11 09:11:15 +01:00
|
|
|
do i=-40,60
|
2010-06-04 15:24:54 +02:00
|
|
|
point(3) = real(i)/20.
|
2009-05-14 17:48:27 +02:00
|
|
|
TOUCH point
|
2010-06-11 13:17:33 +02:00
|
|
|
print *, point(3), eplf_value_p, eplf_up_up, eplf_up_dn
|
|
|
|
|
! print *, point(3), density_beta_value_p
|
2009-05-14 17:48:27 +02:00
|
|
|
enddo
|
|
|
|
|
end
|
