program eplf_hf

 PROVIDE ao_prim_num_max
 call write_grid_eplf()

 IRP_IF MPI
  integer :: ierr
  call MPI_FINALIZE(ierr)
 IRP_ENDIF
end