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