00001 module interface_surf_int_fluid_rg 00002 implicit none 00003 interface 00004 subroutine surf_int_fluid_rg(souf,surf,irf) 00005 real(8), pointer :: souf(:,:) 00006 real(8), intent(out) :: surf 00007 integer, intent(in) :: irf 00008 end subroutine surf_int_fluid_rg 00009 end interface 00010 end module interface_surf_int_fluid_rg