subroutine test_4 (A1, A2, A3, A4, A5, A6, N1, N2, N3, N4, K, N5, M5, N6, M6)

    IMPLICIT NONE

    INTEGER, PARAMETER  ::  dp = kind(0.d0)
    INTEGER N1, N2, N3, N4, K, I, J, N5, M5, N6, M6
    REAL (dp) A1(N1), A2(N2), A3(N3), A4(N4)
    REAL (dp) A5(N5, M5), A6(N6, M6)

!f2py INTENT (IN)  N1, N2, N3, N4, N5, M5, N6, M6
!f2py INTENT (OUT) K
!f2py INTENT (OUT) A1
!f2py INTENT (OUT) A2
!f2py INTENT (INOUT) A3
!f2py INTENT (INOUT) A4
!f2py INTENT (INOUT) A5
!f2py INTENT (OUT) A6

!f2py depend(N1)    A1
!f2py depend(N2)    A2
!f2py depend(N3)    A3
!f2py depend(N4)    A4
!f2py depend(N5, M5)    A5
!f2py depend(N6, M6)    A6

    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
    write (*,*) "-------------------------------------------------------------"
    DO I = 1, N5
        DO J = 1, M5
            A5(I, J) = A5(I, J) + ( 1.0_dp *( I + J) ) **2
            write (*,*) " I, J = ", A5 (I,J)
        END DO
    END DO
    write (*,*) "-------------------------------------------------------------"
    DO I = 1, N6
        DO J = 1, M6
            A6(I, J) = ( 1.0_dp *( I + J) ) **2
            write (*,*) " I, J = ", A6 (I,J)
        END DO
    END DO

    K = N1 + N2 +N3 + N4
end subroutine test_4