00001 subroutine coordinate_patch_kit_eqmbin 00002 use grid_parameter_binary_excision 00003 use grid_points_binary_excision 00004 use weight_midpoint_binary_excision 00005 implicit none 00006 ! call subroutines. the order is important. 00007 call read_parameter_binary_excision 00008 call binary_excision_points 00009 call weight_calc_midpoint_binary_excision 00010 end subroutine coordinate_patch_kit_eqmbin 00011