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(*,*) 就可以了

pasuka

我是处手 发表于 2014-4-30 10:07
除了这样,没有办法了吗?

1、从lz的发帖来看，我感觉不到lz有任何主动学习的欲望和想法，只是被动完成老板交代的任务；
2、如果1成立，那么多快好省地完成任务，按时发论文毕业且找到满意的工作才是最符合lz利益的
综上所述，我的建议就是彻底和fortran说88，投入matlab的怀抱，上手快，可以吃现成饭，网上参考资料也多，甚至可以说是信手拈来，最合适不过的敲门砖
若1不成立，那么请问lz花费多少精力在学习fortran和优化算法上面了呢？彭国伦的书看过了吗？本站的相关文章阅读了多少？优化算法的书又看了多少？文献又阅读了多少？
一分耕耘一分收获，读研做项目可以取巧，但是不能饭来张口，衣来伸手
以上是一家之言，仅供lz参考，人各有志，不能强求

我是处手

除了这样,没有办法了吗?

pasuka

我是处手 发表于 2014-4-30 09:56
我使用的是compaq visual fortran6.5编辑器,程序好像是八几年的,我导师给我的,需要我做分离机械结构参数优 ...

我的建议：
为发论文毕业的话，就别折腾这种F77的古董了，直接上matlab，使用现成工具箱的话，代码量不会超过300行
btw，这样的导师一来不负责任，二来长期脱离科研第一线，三则高估了现在学生的学习能力和学习欲望了

我是处手

我使用的是compaq visual fortran6.5编辑器,程序好像是八几年的,我导师给我的,需要我做分离机械结构参数优化,但是调不好

我是处手

这是约束非线性离散变量组合型优化设计方法,我下面代有优化数学模型,执行生成exe文件后,操作到

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

7001	format(3x,'data file name=****.***')
	read(*,7003)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)
	else
	open(1,file=chr2,access='direct',form='binary',recl=80)
	read(1,rec=1)n,m,eq,p,en,nn,mi,nv
	WRITE(*,1080)N,M,EQ,P,EN,NN,MI,NV
	endif
	close(1)

在窗口会出现:
   data file name=****.***
chr2
   a new file or an old one?(new/old)new
forrtl: severe (29): file not found, unit 1, file
Image              PC        Routine            Line        Source
M.exe              004193F9  Unknown               Unknown  Unknown
M.exe              0041922B  Unknown               Unknown  Unknown
M.exe              00418434  Unknown               Unknown  Unknown
M.exe              00418869  Unknown               Unknown  Unknown
M.exe              00413314  Unknown               Unknown  Unknown
M.exe              00401C7D  Unknown               Unknown  Unknown
M.exe              00444A29  Unknown               Unknown  Unknown
M.exe              00436E44  Unknown               Unknown  Unknown
kernel32.dll       7C816037  Unknown               Unknown  Unknown

Incrementally linked image--PC correlation disabled.
Press any key to continue
,就不能继续操作了,不知道怎么回事

楚香饭

请详细描述你遇到的问题，错误提示，现象。否则没人可以帮助你。

pasuka

我是处手 发表于 2014-4-30 00:22
我QQ:736223939,愿意帮助我的,加我好友,重谢

lz这么长又无任何注释的代码，就别指望有热心人会无偿替你帮忙了
建议去水木社区的数值计算版面，发帖有偿征人调试吧，那里牛人更多些

我是处手

我QQ:736223939,愿意帮助我的,加我好友,重谢

我是处手

7001  format(3x,'data file name=****.***')
从这里开始打不开open以后