Warning: file_get_contents(/data/phpspider/zhask/data//catemap/7/elixir/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Fortran 错误:在(1)处的READ语句中应为变量_Fortran_Gfortran - Fatal编程技术网

Fortran 错误:在(1)处的READ语句中应为变量

Fortran 错误:在(1)处的READ语句中应为变量,fortran,gfortran,Fortran,Gfortran,我有一个fortran代码,比如: READ( INPUT, 1020 ) ( WK( A + I ), I = 1, NNZA ) 其中: INPUT = 55 (integer) WK= some data (real) A and NNZA = some data (integer) 1020 FORMAT( ( 1P, 4D16.8 ) ). 但当我尝试用gfortran-4.6编译它时,我收到一个错误: READ( INPUT, 1020 ) ( WK( A + I ), I =

我有一个fortran代码,比如:

READ( INPUT, 1020 ) ( WK( A + I ), I = 1, NNZA )
其中:

INPUT = 55 (integer)
WK= some data (real)
A and NNZA = some data (integer)
1020 FORMAT( ( 1P, 4D16.8 ) ).
但当我尝试用gfortran-4.6编译它时,我收到一个错误:

READ( INPUT, 1020 ) ( WK( A + I ), I = 1, NNZA )
                   1
Error: Expected variable in READ statement at (1)
有人对错误有什么建议吗?
谢谢

我认为您的错误在format语句中,如中所示

1020 FORMAT( ( 1P, 4D16.8 ) ).
这难道不应该吗

1020 FORMAT( ( 1P, 4D16.8 ) )

没有决赛。?如果我删除它,它会编译。

最好向我们展示声明。我正在尝试使用UNCMIN解算器解决更复杂的问题。基本上,我用SIF格式解码一个问题,然后调用一个例程USETUP,将数据转换为UNCMIN,这将解决这个问题。嗯,当我试图编译解算器时会出现错误。上面的行来自USETUP源。声明可以在以下代码中查看:我解决了这个问题。变量WK未声明,则错误如下:谢谢提示!与您的错误无关,但输入上的P编辑行为在我看来非常奇怪。请确保您阅读了文档并理解它的作用。