可以了。。。

open(UNIT=1, FILE = '*.txt', STATUS = 'replace', FORM='formatted')

if (lengthOfDouble >= 6) then
    do I = 1, 6
        WRITE (1, *) test(I)
    end do
end if

fortran的帮助文档写得太不清楚了。。。

使用文件直接访问方式写文件，可以写成文本文件么？

open(UNIT=1, FILE = '*.txt', STATUS = 'replace', FORM='formatted')

if (lengthOfDouble >= 6) then
    do I = 1, 6
        WRITE (1, REC=I) test(I)
    end do
end if

这样写入的文件就是乱码。