Module APH_Module USE Numeric_Kinds_Module Implicit None Save ! APH Grid INTEGER :: nrho , ntheta , nchi, nsize, ndim INTEGER :: ind_rho_infty, ind_inrhomax REAL(dp) :: deltarho , deltachi REAL(dp) :: rho_infty REAL(dp),ALLOCATABLE :: rho_val(:) , theta_val(:) , chi_val(:) End Module APH_Module