|
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)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|
