00001 module interface_interpo_gr2fl_surface
00002 implicit none
00003 interface
00004 subroutine interpo_gr2fl_surface(a,b)
00005 real(8), pointer :: a(:,:,:), b(:,:)
00006 end subroutine interpo_gr2fl_surface
00007 end interface
00008 end module interface_interpo_gr2fl_surface