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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 各位大侠帮我解个小困惑啊
北京石油化工学院2026年研究生招生接收调剂公告
171/2返回列表12下一页
查看: 1478  |  回复: 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的回帖

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的回帖

涂涂木

金虫 (正式写手)
引用回帖:
4楼: Originally posted by q1036210267 at 2012-04-25 14:07:37:
看来楼主是 刚接触 程序不久，记得我刚学这个程序的时候，对此也是一头雾水，某个地方 稍稍变个数 就不知道什么意思了。
这里我有几点疑问，
1，你这里操作的是文件还是文件夹，如果是文件夹的话，最好把源程序 ...

谢谢，我打开的是文件，源程序与文件是在同一个文件夹里的，
我程序里有2个open 文件，第一个是打开要计算的数据文件夹OPEN (IIN, FILE='shijie.DAT', STATUS='OLD')
计算完了之后结果保存在OPEN(IOUT, FILE = 'daxie.OUT')
我很疑惑的是，我新建一个输入数据的文件，然后在程序中打开文件，的语句与新建的文件名一样，为什么计算还是原先的文件的数据来计算啊，也就是我新建的文件根本没调用，我是个初学者啊
赞一下 回复此楼
向前看
5楼2012-04-25 14:13:42
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

涂涂木

金虫 (正式写手)
引用回帖:
4楼: Originally posted by q1036210267 at 2012-04-25 14:07:37:
看来楼主是 刚接触 程序不久，记得我刚学这个程序的时候，对此也是一头雾水，某个地方 稍稍变个数 就不知道什么意思了。
这里我有几点疑问，
1，你这里操作的是文件还是文件夹，如果是文件夹的话，最好把源程序 ...

是打开的是文件，写错了
赞一下 回复此楼
向前看
6楼2012-04-25 14:14:44
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

q1036210267

木虫 (正式写手)

【答案】应助回帖

假定你新建一个输入数据的文件 abc .DAT，则你把程序写成
OPEN (IIN, FILE='abc.DAT', STATUS='OLD')
OPEN(IOUT, FILE = 'daxie.OUT')

这样程序才读入你 abc.DAT 的数据。（这里你要注意的是 写入文件包含 文件名和扩展名，这两个要一致要和你新建的 文件一致）
赞一下 回复此楼
生活中坚持快乐的原则不改变，学习工作中踏实上进！`~`
7楼2012-04-25 14:27:49
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

涂涂木

金虫 (正式写手)
引用回帖:
7楼: Originally posted by q1036210267 at 2012-04-25 14:27:49:
假定你新建一个输入数据的文件 abc .DAT，则你把程序写成
OPEN (IIN, FILE='abc.DAT', STATUS='OLD')
OPEN(IOUT, FILE = 'daxie.OUT')

这样程序才读入你 abc.DAT 的数据。（这里你要注意的是 写入文件包含 文 ...

你好，我新建的文件名与程序编写是一致的，但是程序计算的还是之前的数据，即使我编写的输入数据的文件是错误的，明显的错误，程序还是没有读我重新编写的那个文件，而是对之前的那个文件的计算
赞一下 回复此楼
向前看
8楼2012-04-25 15:58:04
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

q1036210267

木虫 (正式写手)

【答案】应助回帖

引用回帖:
8楼: Originally posted by 涂涂木 at 2012-04-25 15:58:04:
你好，我新建的文件名与程序编写是一致的，但是程序计算的还是之前的数据，即使我编写的输入数据的文件是错误的，明显的错误，程序还是没有读我重新编写的那个文件，而是对之前的那个文件的计算

我觉得不大可能。截几个图，一起来讨论下。
赞一下 回复此楼
生活中坚持快乐的原则不改变，学习工作中踏实上进！`~`
9楼2012-04-25 17:22:35
已阅   回复此楼   关注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的回帖
相关版块跳转 我要订阅楼主 涂涂木 的主题更新
171/2返回列表12下一页
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿211生物学280分 求调剂 +5 李rien 2026-04-05 5/250 2026-04-06 10:30 by zhyzzh
[考研] 331求调剂 +8 于征yz 2026-04-05 8/400 2026-04-06 00:54 by fmesaito
[考研] 266分，一志愿电气工程，本科材料，求材料专业调剂 +8 哇呼哼呼哼 2026-04-02 9/450 2026-04-05 17:14 by lbsjt
[考研] 材料调剂 +11 一样YWY 2026-04-02 13/650 2026-04-04 23:10 by 无际的草原
[考研] 315求调剂 +13 小羊小羊_ 2026-04-02 14/700 2026-04-04 20:30 by 蓝云思雨
[考研] 359求调剂 +7 hhhhaaaa$ 2026-04-04 7/350 2026-04-04 18:49 by imissbao
[考研] 368求调剂 +5 今华习 2026-04-03 7/350 2026-04-04 18:47 by imissbao
[考研] 一志愿南昌大学324求调剂 +9 hanamiko 2026-03-30 9/450 2026-04-04 11:04 by 猪会飞
[考研] 282求调剂 +20 ycy1201 2026-04-01 22/1100 2026-04-04 00:42 by userper
[考研] 266求调剂 +18 阳阳哇塞 2026-04-01 18/900 2026-04-03 18:38 by zllcz
[考研] 321求调剂 +17 y-yh 2026-04-01 20/1000 2026-04-03 12:57 by y-yh
[考研] 一志愿大工学硕，求调剂 +4 yub0811 2026-04-02 4/200 2026-04-02 21:36 by 百灵童888
[考研] 08开头看过来！！！ +4 wwwwffffff 2026-03-31 6/300 2026-04-02 11:42 by 均值回归
[考研] 安全工程 285 求调剂 +3 Xinyu56 2026-04-01 4/200 2026-04-01 21:50 by 静静静静静静静�
[考研] 292求调剂 +17 木虫er12138 2026-04-01 17/850 2026-04-01 21:37 by 七度不信任
[考研] 379求调剂 +3 ?苦瓜不苦 2026-04-01 3/150 2026-04-01 20:09 by 暮云清寒
[考研] 353求调剂 +4 拉钩不许变 2026-04-01 4/200 2026-04-01 18:10 by 记事本2026
[考研] 材料与化工（0856）304求B区调剂 +8 邱gl 2026-03-30 16/800 2026-04-01 17:58 by 邱gl
[考研] 一志愿 南京航空航天大学 ，080500材料科学与工程学硕 +10 @taotao 2026-03-31 11/550 2026-04-01 09:43 by xiayizhi
[考研] 调剂申请 +8 张张张张zy 2026-03-31 9/450 2026-04-01 08:29 by zjbkx
信息提示
关闭
请填处理意见
关闭