Search This Blog

Friday, June 29, 2007

Negative Index of Array Dimension

REAL, DIMENSION(-5:5) :: Z

DO i=-5,5
Z(i) = REAL(i)
WRITE(*,*) i, Z(i)
END DO

STOP
END

No comments:

Labels