00001 module def_quantities_bh_mpt 00002 use phys_constant, only : long 00003 implicit none 00004 ! -- BH quantities 00005 real(long), pointer :: def_quantities_bh_(:,:) 00006 ! 00007 end module def_quantities_bh_mpt