/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine/grgrad1g_midpoint.f90
Go to the documentation of this file.00001 subroutine grgrad1g_midpoint(fnc,grad1,irg,itg,ipg) 00002 use interface_grgrad_midpoint_type0 00003 implicit none 00004 ! 00005 real(8), pointer :: fnc(:,:,:) 00006 real(8) :: grad1(3), dfdx, dfdy, dfdz 00007 integer :: irg, itg, ipg 00008 ! 00009 call grgrad_midpoint_type0(fnc,dfdx,dfdy,dfdz,irg,itg,ipg) 00010 grad1(1) = dfdx 00011 grad1(2) = dfdy 00012 grad1(3) = dfdz 00013 ! 00014 end subroutine grgrad1g_midpoint
