subroutine test_2 (AA, BB, NN, MM)

    IMPLICIT NONE

    INTEGER, PARAMETER  ::  dp = kind(0.d0)
    INTEGER NN , MM     , I
    REAL (dp) AA(NN) , BB(MM)

!f2py INTENT (IN)  NN
!f2py INTENT (IN)  MM
!f2py INTENT (OUT) AA
!f2py INTENT (INOUT) BB
!f2py depend(NN)    AA
!f2py depend(MM)    BB

    write (*,*) "-------------------------------------------------------------"
    DO I = 1, NN
        AA(I) = 2.0_dp * I
        write (*,*) " I = ", AA (I)
    END DO
    write (*,*) "-------------------------------------------------------------"
    DO I = 1, MM
        BB(I) = BB(I) + ( 1.0_dp * I ) **2
        write (*,*) " I = ", BB (I)
    END DO

end subroutine test_2