您所在位置：主题：[讨论]请教：write函数中的输出变量如何循环改变？？
wwpwwp
[专家分：0] 发布于 2010-12-30 12:52:00
[size=3]各位大侠：
我的程序中需用write函数输出结果，write(10,'(3x,F10.4)')b1(j)。其中b1是个数组，我的想法是能不能是数值b1也可以循环变化，比如b2、b3.....等？
我的程序：PROGRAM NONSPEC
IMPLICIT NONE
real::i,j
real,dimension(1:4)::b1,b2
CHARACTER(LEN=3),DIMENSION(1:2)::R,RR
b1=(/2.,3.,4.,5./)
b2=(/1.,2.,3.,4./)
R=(/'001','002'/)
RR=(/'b1','b2'/)
do i=1,2
open(10,file=R(i)//'.dat',status='replace')
do j=1,4
write(10,'(3x,F10.4)')RR(i)(j)
end do
end do
end
我想实现的目的是：通过循环将数组b1、b2中的内容写入新打开的文件001.dat和002.dat中。编译错误：D:\Fortran Program\12.f90(13) : Error: Syntax error, found ')' when expecting one of: :
write(10,'(3x,F10.4)')RR(i)(j)
-----------------------------------------^
Error executing df.exe.
我也知道错误就是write函数后边的输出变量不对，但是怎样才能实现我的目的呢？
因为我的程序中有许多名字相近的数组，均需要输出到新的文件中，所以我想通过循环来实现，请各位大侠赐教啊!
先谢谢了！！[/size]
我的程序中需用write函数输出结果，write(10,'(3x,F10.4)')b1(j)。其中b1是个数组，我的想法是能不能是数值b1也可以循环变化，比如b2、b3.....等？
我的程序：PROGRAM NONSPEC
IMPLICIT NONE
real::i,j
real,dimension(1:4)::b1,b2
CHARACTER(LEN=3),DIMENSION(1:2)::R,RR
b1=(/2.,3.,4.,5./)
b2=(/1.,2.,3.,4./)
R=(/'001','002'/)
RR=(/'b1','b2'/)
do i=1,2
open(10,file=R(i)//'.dat',status='replace')
do j=1,4
write(10,'(3x,F10.4)')RR(i)(j)
end do
end do
end
我想实现的目的是：通过循环将数组b1、b2中的内容写入新打开的文件001.dat和002.dat中。编译错误：D:\Fortran Program\12.f90(13) : Error: Syntax error, found ')' when expecting one of: :
write(10,'(3x,F10.4)')RR(i)(j)
-----------------------------------------^
Error executing df.exe.
我也知道错误就是write函数后边的输出变量不对，但是怎样才能实现我的目的呢？
因为我的程序中有许多名字相近的数组，均需要输出到新的文件中，所以我想通过循环来实现，请各位大侠赐教啊!
先谢谢了！！[/size]
