00001 subroutine coordinate_patch_kit_grav_noGreen 00002 use grid_parameter 00003 use coordinate_grav_r 00004 use coordinate_grav_phi 00005 use coordinate_grav_theta 00006 use coordinate_grav_extended 00007 use trigonometry_grav_theta 00008 use trigonometry_grav_phi 00009 implicit none 00010 ! call subroutines. the order is important. 00011 call read_parameter 00012 call grid_r 00013 call grid_theta 00014 call trig_grav_theta 00015 call grid_phi 00016 call allocate_trig_grav_mphi 00017 call trig_grav_phi 00018 call grid_extended 00019 end subroutine coordinate_patch_kit_grav_noGreen 00020
1.6.1