subroutine test_1 (AA, NN)

    IMPLICIT NONE

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

!f2py INTENT (IN)  NN
!f2py INTENT (OUT) AA
!f2py depend(N)    AA

    write (*,*) "-------------------------------------------------------------"
    DO I = 1, NN
        AA(I) = 2.0_dp * I
        write (*,*) " I = ", AA (I)
    END DO

end subroutine test_1