PROGRAM OUTPUT
IMPLICIT NONE
REAL(8)::A(10)
INTEGER(4)::I
A=1.
OPEN(8,FILE="OUT.TXT")!輸出文件
DO I=1,10
WRITE(8,*)A(I)!將數組元素壹個壹個輸出
ENDDO
END PROGRAM OUTPUT