00001 module interface_plane_surf_int_fluid 00002 implicit none 00003 interface 00004 subroutine plane_surf_int_fluid(cline, ia, ib, souf, surf_int) 00005 character(len=2), intent(in) :: cline 00006 integer, intent(in) :: ia, ib 00007 real(8), pointer :: souf(:,:) 00008 real(8), intent(out) :: surf_int 00009 end subroutine plane_surf_int_fluid 00010 end interface 00011 end module interface_plane_surf_int_fluid