/home/uryu/Cocal_svn_checkinout/Cocal/code/Module_mpatch/weight_midpoint_fluid_sphcoord_mpt.f90
Go to the documentation of this file.00001 ! weight for numerical integration using mid-point rule 00002 !______________________________________________ 00003 module weight_midpoint_fluid_sphcoord_mpt 00004 use phys_constant, only : long 00005 implicit none 00006 ! weight binary excision 00007 real(long), pointer :: hwrtpg_fc_(:,:,:,:) 00008 real(long), pointer :: hwtpg_fc_(:,:,:) 00009 end module weight_midpoint_fluid_sphcoord_mpt
