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_p, eplf_gamma
 enddo
end