/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine_mpatch/allocate_grid_parameter_binary_excision_mpt.f90
Go to the documentation of this file.00001 subroutine allocate_grid_parameter_binary_excision_mpt 00002 use phys_constant, only : nmpt 00003 use grid_parameter_binary_excision_mpt 00004 use make_int_array_2d 00005 use make_array_2d 00006 implicit none 00007 ! 00008 call alloc_int_array2d(grid_param_bin_ex_int_ , 1, 10, 1, nmpt) 00009 call alloc_array2d(grid_param_bin_ex_real_ , 1, 10, 1, nmpt) 00010 ! 00011 end subroutine allocate_grid_parameter_binary_excision_mpt
