Cocal: /home/uryu/Cocal_svn_checkinout/Cocal/code/EOS/Module_mpatch/def_peos_parameter

00001 module def_peos_parameter_mpt
00002   use phys_constant         !nnpeos, nmpt
00003   implicit none
00004   real(8) :: abc_(0:nnpeos,nmpt), abi_(0:nnpeos,nmpt), rhoi_(0:nnpeos,nmpt), 
00005             qi_(0:nnpeos,nmpt), hi_(0:nnpeos,nmpt)
00006   real(8) :: rhocgs_(0:nnpeos,nmpt), abccgs_(0:nnpeos,nmpt)
00007   
00008   real(8) :: def_peos_param_real_(0:20,nmpt)
00009   integer :: def_peos_param_int_(0:10,nmpt)
00010   
00011 !  real(8) :: rhoini_cgs_(nnmpt), rhoini_gcm1_(nnmpt), emdini_gcm1_(nnmpt)  !used in TOV solver
00012 !  integer :: nphase_(nnmpt)
00013 end module def_peos_parameter_mpt

/home/uryu/Cocal_svn_checkinout/Cocal/code/EOS/Module_mpatch/def_peos_parameter_mpt.f90