应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » Fortran 求助
51/1返回列表
查看: 715  |  回复: 5
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

dongjianzhi

铜虫 (小有名气)

[求助] Fortran 求助

iLengthPath = Len_Trim(cDataPath)
      if(iLengthPath.gt.260-13) goto 930
      cFileName = cDataPath(1:iLengthPath)//'\Options.in'
      open(35,file=cFileName, status='old',err=998)

请问在这个命令下，fortran所生成的文件在那个文件夹呢？

谢谢
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2012-09-24 22:23:40
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

dongjianzhi

铜虫 (小有名气)
引用回帖:
4楼: Originally posted by gongxd325 at 2012-09-25 15:42:27
你在哪个目录运行程序，就在哪个目录

是程序的文件夹?
木有输入和输出文件...
赞一下 回复此楼
5楼2012-09-25 17:25:09
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 6 个回答

自由神

木虫 (正式写手)

【答案】应助回帖

★ ★ ★ ★ ★
感谢参与，应助指数 +1
dongjianzhi: 金币+5 2012-09-25 14:37:44
xzhdty: 谢谢参与 2012-12-23 18:17:43
应该在你前面设置的位置去找吧，具体的我也不大清楚
赞一下 回复此楼
2楼2012-09-25 09:27:48
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

dongjianzhi

铜虫 (小有名气)
引用回帖:
2楼: Originally posted by 自由神 at 2012-09-25 09:27:48
应该在你前面设置的位置去找吧，具体的我也不大清楚

iCount = NARGS()
      if(iCount.gt.1) then
        i2=1
        call GETARG(i2, cDataPath, status)
      else
        cFileName = 'LEVEL_01.DIR'
        open(10,file=cFileName, status='old',err=901)
        read(10,101,err=904) cDataPath
        close (10)
      end if

我实在是没看见呢。。。
赞一下 回复此楼
3楼2012-09-25 14:37:32
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

gongxd325

至尊木虫 (文坛精英)

【答案】应助回帖

★ ★ ★
感谢参与，应助指数 +1
dongjianzhi: 金币+3 2012-09-25 17:25:19
你在哪个目录运行程序，就在哪个目录
赞一下 回复此楼
一个人做点好事并不难难的是一辈子做好事!!!
4楼2012-09-25 15:42:27
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 6 个回答
信息提示
关闭
请填处理意见
关闭