00001 module def_bh_parameter_mpt 00002 use phys_constant, only : long 00003 implicit none 00004 real(long), pointer :: def_bh_param_real_(:,:) 00005 character(len=2), pointer :: def_bh_param_char2_(:,:) 00006 end module def_bh_parameter_mpt