00001 module interface_grgrad_vec_partial 00002 implicit none 00003 interface 00004 subroutine grgrad_vec_partial(fnx,fny,fnz,pdfnx,pdfny,pdfnz) 00005 real(8), pointer :: fnx(:,:,:), fny(:,:,:), fnz(:,:,:) 00006 real(8), pointer :: pdfnx(:,:,:,:), pdfny(:,:,:,:), pdfnz(:,:,:,:) 00007 end subroutine grgrad_vec_partial 00008 end interface 00009 end module interface_grgrad_vec_partial