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