|
PROGRAM idl2ftn
INTEGER i, j
REAL data(5, 3)
OPEN(1, FILE="idl2ftn.dat", FORM="unformatted")
READ(1) data
DO 100 j = 1, 3
DO 100 i = 1, 5
PRINT *, data(i,j)
100 CONTINUE
END
PROGRAM ftn2idl
INTEGER i, j
REAL data(5, 3)
OPEN(1, FILE="ftn2idl.dat", FORM="unformatted")
DO 100 j = 1, 3
DO 100 i = 1, 5
data(i,j) = ((j - 1) * 5) + (i - 1)
print *, data(i,j)
100 CONTINUE
WRITE(1) data
END
PROGRAM console
INTEGER i, j
REAL data(5, 3)
READ(*) data
DO 100 j = 1, 3
DO 100 i = 1, 5
PRINT *, data(i,j)
100 CONTINUE
END
¤ Dauer der Verarbeitung: 0.1 Sekunden
(vorverarbeitet)
¤
|
Laden
Fehler beim Verzeichnis:
in der Quellcodebibliothek suchen
Die farbliche Syntaxdarstellung ist noch experimentell.
|
