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
Fortran 打开状态为“的语句”;旧的;创建新文件并挂起_Fortran_Fortran77 - Fatal编程技术网

Fortran 打开状态为“的语句”;旧的;创建新文件并挂起

Fortran 打开状态为“的语句”;旧的;创建新文件并挂起,fortran,fortran77,Fortran,Fortran77,在剖析一些旧FORTRAN 77代码时遇到文件处理问题。示例代码如下: WRITE(*,15) 15 FORMAT(' INPUT NAME OF DATA FILE TO BE USED AS INPUT ') READ(*,10)BDFILE 10 FORMAT(A10) OPEN(UNIT=2,ERR=999,FILE=BDFILE,STATUS='OLD',IOSTAT=IOS) REWIND 2 问题在于OPEN语句。尽管S

在剖析一些旧FORTRAN 77代码时遇到文件处理问题。示例代码如下:

      WRITE(*,15)
15    FORMAT(' INPUT NAME OF DATA FILE TO BE USED AS INPUT ')
      READ(*,10)BDFILE
10    FORMAT(A10)
      OPEN(UNIT=2,ERR=999,FILE=BDFILE,STATUS='OLD',IOSTAT=IOS)
      REWIND 2
问题在于OPEN语句。尽管STATUS='OLD',该语句正在生成一个新的空白文件,该文件将清除现有文件,然后它将挂起

这段代码在过去肯定是有效的,所以我有点搞不懂为什么现在它坏了。
我的猜测之一是我正在使用的编译器?我找不到任何古老的F77编译器,只有与现代遗留版本兼容的。我用FTN95编译了这篇文章。

欢迎光临,请带上。所有Fortran问题都使用tag。您使用哪种编译器?哪些选项?我们需要更多的代码,请参阅。我们还需要关于您的操作系统的更多信息。这基本上是挂起之前的所有代码。我认为这是一个编译器兼容性问题,因为我刚刚发现了一个20多年的老版本,它使程序变得可行。在堆栈溢出上发现了类似的情况,但从未解决,希望现在发现这种情况的人能够更好地了解如何修复它。如果是编译器兼容性问题,那么我重复一遍,我们需要您提供有关编译器版本和选项以及操作系统的详细信息。见和。真正的MWE本质上不是,它是一段可以编译和尝试的真正代码。编译器错误通常取决于微小的细节。请不要使用
unit=2
(和
倒带2
)使用单元号>10,因为系统可能会使用较小的数字()依赖于编译器!)对于其他任务(例如,在C术语中,stdin/stdout/stderr)欢迎,请使用。所有Fortran问题都使用tag。您使用哪种编译器?哪些选项?我们需要更多的代码,请参阅。我们还需要关于您的操作系统的更多信息。这基本上是挂起之前的所有代码。我认为这是一个编译器兼容性问题,因为我刚刚发现了一个20多年的老版本,它使程序变得可行。在堆栈溢出上发现了类似的情况,但从未解决,希望现在发现这种情况的人能够更好地了解如何修复它。如果是编译器兼容性问题,那么我重复一遍,我们需要您提供有关编译器版本和选项以及操作系统的详细信息。见和。真正的MWE本质上不是,它是一段可以编译和尝试的真正代码。编译器错误通常取决于微小的细节。请不要使用
unit=2
(和
倒带2
)使用单元号>10,因为系统可能会使用较小的数字()依赖于编译器!)对于其他任务(例如,在C术语中,stdin/stdout/stderr)