1module residuo_mod 2interface 3 subroutine residuo(aa, bb, b) 4 implicit none 5 real(8), intent (in) :: aa(:,:), b(:) 6 real(8), intent (inout) :: bb(:) 7 end subroutine residuo 8end interface 9end module residuo_mod 10 11