格式字符串错误消息的意外结束

Question

我收到此消息

Warning <100>: Unexpected end of format string in format string at <1>  
            write (iout,'(i5,4x,i4,6x,15(a25,1x)') i, ksum, temp (1:isum)  
                       1  

编译用Fortran90编写的代码（不是由我编写）时多次

。以下是带错误的代码示例：

if (isum > 0) then
          ksum = ksum + isum
          write (iout,'(i5,4x,i4,6x,15(a25,1x)') i, ksum, temp (1:isum)
          if (ksum == NSPECIES - NotPhotographed) go to 5
        endif

任何帮助将不胜感激。我假设1表示错误的位置，但我无法发现如何解决它。

Answer 1

从它的外观来看，你在' s之间缺少一个右括号。