00001 module grid_parameter_interpo 00002 use phys_constant, only : long 00003 implicit none 00004 integer :: nrg_itp, ntg_itp, npg_itp 00005 real(long) :: rgin_itp, rgmid_itp, rgout_itp, ratio_itp 00006 end module grid_parameter_interpo