Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/fortran/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
Compiler construction 重新编译旧Fortran程序并获取此错误_Compiler Construction_Fortran_G77 - Fatal编程技术网
Fatal编程技术网

Compiler construction 重新编译旧Fortran程序并获取此错误

compiler-construction fortran

Compiler construction 重新编译旧Fortran程序并获取此错误,compiler-construction,fortran,g77,Compiler Construction,Fortran,G77,代码部分如下所示 DO i = 1 , no2 + 1 IF ( Isign.EQ.1 ) THEN Ans(i) = fft(i)*Ans(i)/no2 ELSEIF ( Isign.EQ.-1 ) THEN IF ( ABS(Ans(i)) .EQ. 0.0 ) & PAUSE ' deconvolving at responce zero in convlv' Ans(i) = fft(i)/Ans(i)/no2

代码部分如下所示

DO i = 1 , no2 + 1
   IF ( Isign.EQ.1 ) THEN
      Ans(i) = fft(i)*Ans(i)/no2
   ELSEIF ( Isign.EQ.-1 ) THEN
      IF ( ABS(Ans(i)) .EQ. 0.0 )
&           PAUSE ' deconvolving at responce zero in convlv'
      Ans(i) =  fft(i)/Ans(i)/no2
   ELSE
编译器给了我这个错误； 如果（ABS（i））.EQ。0.0) ^ （^）和（^）处表达式之间的类型不一致

有人能告诉我如何正确地写这行“本质函数”来解决这个错误吗？ 我是新的编程和任何帮助将是伟大的！我正在使用GNU G77编译器，如果
那重要吗？谢谢

我在第二个错误语句中看到的右括号比左括号多

IF ( ABS(i)).EQ. 0.0)
另外，Ans（i）和0.0的类型和种类是什么？我记得fortran在类型转换方面可能有点奇怪。

请声明。他们创造了一个不同的世界

将某物与十进制零进行比较是一种非常糟糕的做法。信息技术 将其与容忍错误的值进行比较几乎总是更好的 应该足够小）

如上所述，试着编写一个小的可编译示例
生成相同的错误并将其发布。

随着源代码更好地显示，我们现在可以看到括号是平衡的。答案可能是数组“Ans”的类型不是real，而是“0.0”类型。将常数更改为与“Ans”相同的类型。另外，浮点值的精确比较是有风险的。它也可能是相同类型、不同类型的吗？我记得我在子程序调用中遇到了很多问题。而且编译器将
Ans（I）
替换为
I
似乎有点奇怪。我们真的在看导致错误的代码段吗？编译器大概会给您一个错误行号。那一行是图中的第一行吗？它表面上和其中一个很相似。如果没有，请找到有错误的行并修复它。 
IF ( ABS(i)).EQ. 0.0)