Question

我正在编写一个Fortran程序来读取35个大小相似的文件（每个文件中有8列和8784行）并写入单个文件。我编写了以下代码，并在编译时＃34;无效或缺少重复计数＆＃34;错误正在出现。

Program Basic
implicit none
Character*20,dimension(35)::filename(/'1979.txt','1980.txt','1981.txt','1982.txt','1983.txt','1984.txt','1985.txt','1986.txt','1987.txt','1988.txt','1989.txt','1990.txt','1991.txt','1992.txt','1993.txt','1994.txt','1995.txt','1996.txt','1997.txt','1998.txt','1999.txt','2000.txt','2001.txt','2002.txt','2003.txt','2004.txt','2005.txt','2006.txt','2007.txt','2008.txt','2009.txt','2010.txt','2011.txt','2012.txt','2013.txt'/)

real,dimension(1:8784)::Db,Dp,WS
integer,dimension(1:8784)::a,b,c,d,SR
integer::i,file

do file=1,35
  open(7000,file=filename(file))
  open(7001,file='Final.txt')

do i=1,8784
 read(7000,*)a(i),b(i),c(i),d(i),Db(i),Dp(i),WS(i),SR(i)
 write(7001,*)a(i),b(i),c(i),d(i),Db(i),Dp(i),WS(i),SR(i)
   end do
  end do
end Program Basic

编译器（Silverfrost FTN95）的输出是

Runtime error from program:c:\users\aadhikari2\desktop\trial 1\freeformat1.exe
Run-time Error *** Error 62, Invalid or missing repeat count BASIC - in file freeformat1.f95 at line 19 [+0325]

Answer 1

申报行

Character*20,dimension(35)::filename(...

对于自由形式的Fortran，

太长了（请参阅Line truncated, Syntax error in argument list）。你必须分开这条线。

但是数组声明在语法上也不正确。您应该使用

中的=作业

Character*20,dimension(35) :: filename = (/'1979.txt','1980.txt','1981.txt', &
                      '1982.txt','1983.txt','1984.txt', &
                      '1985.txt','1986.txt','1987.txt', &
                      '1988.txt','1989.txt','1990.txt', &
                      '1991.txt','1992.txt','1993.txt', &
                      '1994.txt','1995.txt','1996.txt', &
                      '1997.txt','1998.txt','1999.txt', &
                      '2000.txt','2001.txt','2002.txt', &
                      '2003.txt','2004.txt','2005.txt', &
                      '2006.txt','2007.txt','2008.txt', &
                      '2009.txt','2010.txt','2011.txt', &
                      '2012.txt','2013.txt'/)

另外，请不要忘记close最后的文件。

Fortran中无效或缺少重复计数

1 个答案: