00001 module def_quantities_mpt 00002 use phys_constant, only : long 00003 implicit none 00004 real(long), pointer :: def_quantities_real_(:,:) 00005 ! 00006 end module def_quantities_mpt