REAL, DIMENSION(-10:10, -10:10) :: coords CHAR(LEN=3), DIMENSION(1:12) :: months months(1) = "JAN" coords(-5,6) = coords(-4,5) + coords(-6,7) + 2.5
INTEGER, DIMENSION(1:50) :: fred DO I = 1, 50 fred(I) = 2*I END DO