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
|
| ...previous | up (conts) | next... |