00001 module interface_grgrad_vec_covariant
00002 implicit none
00003 interface
00004 subroutine grgrad_vec_covariant(index,fnx,fny,fnz,pdfnx,pdfny,pdfnz, &
00005 & cdfnx,cdfny,cdfnz)
00006 real(8), pointer :: fnx(:,:,:), fny(:,:,:), fnz(:,:,:)
00007 real(8), pointer :: pdfnx(:,:,:,:), pdfny(:,:,:,:), pdfnz(:,:,:,:)
00008 real(8), pointer :: cdfnx(:,:,:,:), cdfny(:,:,:,:), cdfnz(:,:,:,:)
00009 character(len=1) :: index
00010 end subroutine grgrad_vec_covariant
00011 end interface
00012 end module interface_grgrad_vec_covariant
