00001 subroutine allocate_def_quantities_ns_mpt 00002 use phys_constant, only : nmpt 00003 use def_quantities_ns_mpt 00004 use make_array_2d 00005 implicit none 00006 ! -- Other ns quantities 00007 call alloc_array2d(def_quantities_ns_ , 1, 10, 1, nmpt) 00008 ! 00009 end subroutine allocate_def_quantities_ns_mpt