l****y
发帖数: 92 | 1 如果想在每一个循环中有一个文件（有数据写入）输出，请问用fortran如何实现？？？
谢谢 | s*r
发帖数: 2757 | 2 写在一个文件里?
【在 l****y 的大作中提到】
: 如果想在每一个循环中有一个文件（有数据写入）输出，请问用fortran如何实现？？？
: 谢谢
| l****y
发帖数: 92 | 3 不是，是每一次循环，就把计算结果写入一个文件，然后输出。
如果循环10次，就有10个文件输出，依此类推，
请问怎么解决
？？
【在 s*r 的大作中提到】
: 写在一个文件里?
| s*r
发帖数: 2757 | 4 文件名用char,要输出前修改char
【在 l****y 的大作中提到】
: 不是，是每一次循环，就把计算结果写入一个文件，然后输出。
: 如果循环10次，就有10个文件输出，依此类推，
: 请问怎么解决
:
: ？？
| l****y
发帖数: 92 | 5 是在循环程序内修改吗？
文件名用char，怎么修改啊？可以给个简单示范吗？本人接触fortran不久，谢谢
【在 s*r 的大作中提到】
: 文件名用char,要输出前修改char
| h***o
发帖数: 539 | 6 character*3 fname, lab
fname = 'out'
do 10 i = 1, 100
write(lab,'(i3.3)') i
open(unit=7, file=fname//lab, .....)
.....
....
write(7, *) ....
10 continue
output files are out001, out002, ...., out099, out100
【在 l****y 的大作中提到】
: 是在循环程序内修改吗？
: 文件名用char，怎么修改啊？可以给个简单示范吗？本人接触fortran不久，谢谢
| t*****o
发帖数: 74 | 7 高
但fname//lab
不是所有的FORTRAN都支持把？
【在 h***o 的大作中提到】
: character*3 fname, lab
: fname = 'out'
: do 10 i = 1, 100
: write(lab,'(i3.3)') i
: open(unit=7, file=fname//lab, .....)
: .....
: ....
: write(7, *) ....
: 10 continue
: output files are out001, out002, ...., out099, out100
| h***o
发帖数: 539 | 8 我家f77, g77和最挑剔的ifc都支持的呀
【在 t*****o 的大作中提到】
: 高
: 但fname//lab
: 不是所有的FORTRAN都支持把？
| l****y
发帖数: 92 | 9 我用ifc编译后可以生成执行文件（没有任何错误提示），可是执行后没有任何文件输出
，怎么解决啊？
【在 h***o 的大作中提到】
: 我家f77, g77和最挑剔的ifc都支持的呀
| h***o
发帖数: 539 | 10 debug吧
【在 l****y 的大作中提到】
: 我用ifc编译后可以生成执行文件（没有任何错误提示），可是执行后没有任何文件输出
: ，怎么解决啊？
| c*******n
发帖数: 1648 | 11 FILENAME = 'char01'
DO I = 1, 10
J = 10+II
WRITE(FILENAME(5:6),I2.2) I
OPEN(UNIT=J,FILE=FILENAME)
ENDDO
result:
char01
char02
....
【在 l****y 的大作中提到】
: 是在循环程序内修改吗？
: 文件名用char，怎么修改啊？可以给个简单示范吗？本人接触fortran不久，谢谢
|
|
