Fortran中的写入错误

我正在努力使用VisualStudio10中的Fortran编译器将一个输入文本文件读入一个新的文本文件。我的输入文件为gslib格式（附件）

---

无论是否存在错误，该程序始终会生成错误消息“测试文件中出错”。在执行第行close语句之后，它将接着执行第80行stop语句。在开发程序时，您可能会发现删除每个IO语句中的

err=80

测试更容易。然后，如果出现IO错误，程序将自动终止并生成有关程序的特定消息。如果您想让程序处理错误，这些

err=

分支很有用，但是通过这种实现，它隐藏了IO错误是什么，因为所有IO错误都会产生相同的消息。

无论是否有错误，这个程序总是会产生错误消息“测试文件中的错误”。在执行第行close语句之后，它将接着执行第80行stop语句。在开发程序时，您可能会发现删除每个IO语句中的

err=80

测试更容易。然后，如果出现IO错误，程序将自动终止并生成有关程序的特定消息。如果您想让您的程序处理错误，这些

err=

分支非常有用，但通过此实现，它将隐藏IO错误，因为所有IO错误都会产生相同的消息。

非常感谢您的帮助。如果需要，我可以上传数据文件。什么值有

测试
？标签
80
在哪里？你怎么了？你期望/得到什么结果？也许你的数据是假的。但说真的，请添加准确的错误消息，并将上面的代码转换为一个错误。这甚至可能包括产生问题的输入文件的简化版本（即使在简化状态下）。非常感谢。这是文件的链接：非常感谢您的帮助。如果需要，我可以上传数据文件。什么值有
测试
？标签
80
在哪里？你怎么了？你期望/得到什么结果？也许你的数据是假的。但说真的，请添加准确的错误消息，并将上面的代码转换为一个错误。这甚至可能包括产生问题的输入文件的简化版本（即使在简化状态下）。非常感谢。这是指向文件的链接：非常感谢：）文件输出文件中的一行（值4表示列数）。我的问题是无法打印其他行。我确实试过做循环，但它没有写。我想我可能写错了。再次感谢你，我为任何愚蠢的问题道歉。我正在处理其他人的代码，并且是编程新手。非常感谢：）文件输出文件中的一行（值4表示列数）。我的问题是无法打印其他行。我确实试过做循环，但它没有写。我想我可能写错了。再次感谢你，我为任何愚蠢的问题道歉。我正在编写别人的代码，我是编程新手。
program main  

! Unit numbers:  

      lisa = 4  
      lfke = 9  

! Writing input data to file Lisa  

      open(unit=lisa,file='fake.dat',status='OLD',err=80)  
      open(unit=lfke,file='dlfke',status='NEW', err=80)  
      read(lisa,*,err=80)  
      read(lisa,*,err=80) line  
      write(9,*) line    
      close(unit=lisa)  
      close(unit=lfke)           
      80   stop 'ERROR in test file!'  
      end