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