Question

如何用fortran 在文本文件最后写入内容

Answer 1

1. 如果你的者芹文本文件每一行都是一样的长度。那么你可以试试用 “有格式文件直接读写方式” 打开文件。
   

2. 如果你的文本文件每一行长度不同。则有点难办。如果你用的 windows 下的 Compaq Visual Fortran ，Digital Visual Fortran ，Intel Visual Fortran 这系列的编译器。你可以在 Open 时指定 ACCESS = 'APPEND'  。则表示首拍毕打开文件后，直接在文件末端读写。但这样做的贺枯结果是：你的代码以后就只能在这些编译器上使用，如果换到其他编译器，则无法正常编译链接。

3. 如果每一行长度不同，你又想保持代码的兼容性。你可以把原文件全部读出来，写入新文件，然后在新文件里继续写入。最后删掉原文件。
   

Answer 2

WRITE(1111,"(D8.2,1x,D8.2,1x,D8.2,1xD8.2)") NODE_CORD(I,1),NODE_CORD(I,2),NODE_CORD(I,3),NODE_ALPHA(I)
其中，D8.2表示以8个字符宽度来输出指数类型浮点数，小数部分占2个字符宽度。1x表示指针向后移动一个空格烂顷配。
注意输出的必须是浮点数饥指，如果你前三个数是整乎没型数，你必须先将其转化为浮点数在输出。real(NODE_CORD(l,1)).