subroutine test_3 (A1, A2, A3, A4, N1, N2, N3, N4, N5)

    IMPLICIT NONE

    INTEGER, PARAMETER  ::  dp = kind(0.d0)
    INTEGER N1, N2, N3, N4, N5, I
    REAL (dp) A1(N1), A2(N2), A3(N3), A4(N4)


!f2py INTENT (IN)  N1, N2, N3, N4
!f2py INTENT (OUT) N5
!f2py INTENT (OUT) A1
!f2py INTENT (OUT) A2
!f2py INTENT (INOUT) A3
!f2py INTENT (INOUT) A4
!f2py depend(N1)    A1
!f2py depend(N2)    A2
!f2py depend(N3)    A3
!f2py depend(N4)    A4

    write (*,*) "-------------------------------------------------------------"
    DO I = 1, N1
        A1(I) = 2.0_dp * I
        write (*,*) " I = ", A1 (I)
    END DO
    write (*,*) "-------------------------------------------------------------"
    DO I = 1, N2
        A2(I) = 3.0_dp * I
        write (*,*) " I = ", A2 (I)
    END DO
    write (*,*) "-------------------------------------------------------------"
    DO I = 1, N3
        A3(I) = A3(I) + ( 1.0_dp * I ) **2
        write (*,*) " I = ", A3 (I)
    END DO
    write (*,*) "-------------------------------------------------------------"
    DO I = 1, N4
        A4(I) = A4(I) + ( 1.0_dp * I ) **3
        write (*,*) " I = ", A4 (I)
    END DO
    N5 = N1 + N2 +N3 + N4
end subroutine test_3