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