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

24小时热门版块排行榜    

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

涂涂木

金虫 (正式写手)

[求助] 各位大侠帮我解个小困惑啊

我导师给我一个已经编辑好的程序，只要改变输入数据文件夹，和输出数据文件夹，程序自动会运算，现在出现一个问题是，当我新建一个数据输入文件夹后，在程序中对打开那个文件夹重命名后，为什么程序运算还是对之前的文件的数据进行运算啊，而不是对我重新编写的编写的文件夹里的内容进行计算啊
OPEN (IIN, FILE='shijie.DAT', STATUS='OLD') 数据文件夹的打开
OPEN(IOUT, FILE = 'shijie.OUT') 运算后的结果保存在这个文件夹里
现在我重新编写数据在另一个文件夹daxie，当我在运行程序中 改成
OPEN (IIN, FILE='daxie.DAT', STATUS='OLD')
数据保存为OPEN(IOUT, FILE = 'daxie.OUT')
为什么程序还是运算了'shijie.DAT'，不解啊，
我是菜鸟啊
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
向前看
1楼 2012-04-25 11:39:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

涂涂木

金虫 (正式写手)
引用回帖:
9楼: Originally posted by q1036210267 at 2012-04-25 17:22:35:
我觉得不大可能。截几个图，一起来讨论下。

PAUSE ' Start Data Input '
C            DATAINPUT
C
        OPEN (IIN, FILE='abc.DAT', STATUS='OLD')
        READ(IIN,*) NCOMP
        WRITE(*,*) NCOMP
        READ(IIN,*) TEMP
        WRITE(*,*) TEMP

        INLOOP: DO I = 1, NCOMP
          READ(IIN,*) NAMC(I)
          WRITE(*,*) NAMC(I)
          READ(IIN,*) NISO(I)
          WRITE(*,*) NISO(I)
          READ(IIN,*) PARS(:NPISO(NISO(I)),I)
          WRITE(*,*) PARS(:NPISO(NISO(I)),I)
              DO J = 1, NPISO(NISO(I)),2  !FOR DSL ISOTHERM
C              DO J = 1, NPISO(NISO(I)),3  !FOR LANGMUIR OR TOTH ISOTHERM
                CMAX(I)= CMAX(I) + PARS(J,I)
              ENDDO
        END DO INLOOP

        CLOSE (IIN)
        PAUSE ' Input ready'
        OPEN(IOUT, FILE = 'abc.OUT')
C         write statement subject title for 2 components
      WRITE(IOUT,208)
  208 FORMAT(3X,
     &       'PSII',8X,'TOTAL_Q',4X,'Q1',9X,'Q2',9X,'X1ADS',6X,'X2ADS',
     &       6X,'PTOT_(Pa)',2X,'P01_(Pa)',3X,'P02_(Pa)',3X,
C        &       6X,'TEMP_(K)',2X,'P01_(Pa)',3X,'P02_(Pa)',3X,
     &       'YGAS1',6X,'YGAS2',6X,'P1_(Pa)',4X,'P2_(Pa)',4X,
        &       'SELECT12',2X,'GAM11',6X,'GAM12',6X,'GAM21',6X,'GAM22',
     &       3X,'THETA1',4X,'THETA2',4X,'THETASUM')

以上就是打开数据文件，和计算结果保存的程序内容，如我之前所说，如果我新建文件，程序计算的还是之前的文件里的数据
赞一下 回复此楼
向前看
10楼2012-04-25 18:15:47
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 17 个回答

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

感谢参与，应助指数 +1
你要搞清楚文件与文件夹的区别，还有源代码与可执行程序的区别……
赞一下 回复此楼

» 本帖已获得的红花（最新10朵）

涂涂木
2楼2012-04-25 12:56:30
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

涂涂木

金虫 (正式写手)
送鲜花一朵
引用回帖:
2楼: Originally posted by snoopyzhao at 2012-04-25 12:56:30:
你要搞清楚文件与文件夹的区别，还有源代码与可执行程序的区别……

读入的数据是编写在一个文件中的，如果我新建一个文件，然后再程序中更改一下，不行的吗，那我怎么区分源代码，和可执行程序啊，你意思是让我重新新建一个可执行程序吗？
赞一下 回复此楼
向前看
3楼2012-04-25 13:48:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

q1036210267

木虫 (正式写手)

【答案】应助回帖

★
感谢参与，应助指数 +1
xzhdty: 金币+1, 谢谢参与 2012-05-02 06:45:58
看来楼主是 刚接触 程序不久，记得我刚学这个程序的时候，对此也是一头雾水，某个地方 稍稍变个数 就不知道什么意思了。
这里我有几点疑问，
1，你这里操作的是文件还是文件夹，如果是文件夹的话，最好把源程序考到你要操作的文件夹里。
2，你程序里OPEN 几个文件？是不是有
OPEN (IIN, FILE='shijie.DAT', STATUS='OLD')
赞一下 回复此楼
生活中坚持快乐的原则不改变，学习工作中踏实上进！`~`
4楼2012-04-25 14:07:37
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 17 个回答
普通表情 龙 兔 虎 猫
信息提示
关闭
请填处理意见
关闭