forrtl: severe (29): file not found, unit 1, file 问题

fcode

楼上说得对。

如果你打算静下来检查问题的错误，这里可能有一些线索。

[Fortran] 纯文本查看 复制代码

 WRITE(*,1060)I1,I2,I3,I4,I5,I6
1060  FORMAT(8X,'I1',8X,'I2',8X,'I3',8X,'I4',8X,'I5',8X,'I6',/,6I10)
  write(*,7001)
7001  format(3x,'data file name=****.***')
  read(*,*)chr2 !// 此处修改为 *,*
7003  format(17x,a)
  write(*,7005)
7005  format(3x,'a new file or an old one?(new/old)',\)
  read(*,'(a3)')chr3
  if(chr3.eq.'new'.or.chr3.eq.'NEW') then
  open(1,file=chr2,status='new',access='direct',form='binary',
     1  recl=80)

几点建议：
1.除非万不得已，read 语句一律用 * ，而不要格式符控制。
2.你的错误在于找不到 1 号文件。
open(1,file=chr2 这里的 chr2 可能根本就没有值。因为 read 的格式是 7003  format(17x,a)

为什么要用 17x,a 来读取字符串呢？？不是很奇怪么？用 read(*,*) 就可以了

fcode

1.这里没有计算机专业的。据我所知，没有，大家都是非计算机专业。
2.你别介意，大家给你意见，是为让你提高。尽管有时候不太中听。
3.关于 attempt to access non-existent record, 的问题，请看本章常见错误：http://error.w.fcode.cn

fcode

看不到你的图片哦，亲，请以附件形式上传图片

fcode

哎呀，解决了就解决了。为什么要删除帖子呢？