eplf/src/test_1d.irp.f

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=0,40
  point(3) = real(i)/10.
  TOUCH point
  print *,  point(3), eplf_value_p, eplf_up_up, eplf_up_dn
 enddo
end