/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine/calc_shift_down2up.f90
Go to the documentation of this file.00001 subroutine calc_shift_down2up 00002 use def_metric, only : bvxu, bvyu, bvzu, bvxd, bvyd, bvzd 00003 use interface_index_vec_down2up 00004 implicit none 00005 call index_vec_down2up(bvxu,bvyu,bvzu,bvxd,bvyd,bvzd) 00006 end subroutine calc_shift_down2up
