原文吃光光.....
原來你要寫入，而不是讀取...
PROGRAM MAIN
IMPLICIT NONE
INTEGER :: I
REAL(KIND=8):: ARRAY(380)
OPEN(UNIT=10, FILE='test.bin')
DO I = 1,380,1
ARRAY(I)=I/1.D0
END DO
WRITE(10,*)ARRAY
STOP
END PROGRAM
寫個寫入數據的小範例，你參考一下
--
猫の会社賣場
http://class.ruten.com.tw/user/index00.php?c=&m=&o=&p=&s=auto_cat
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.127.181.230
※ 編輯: UDP 來自: 140.127.181.230 (08/14 16:09)