| 查看: 1477 | 回复: 16 | ||
[求助]
各位大侠帮我解个小困惑啊
|
|
我导师给我一个已经编辑好的程序，只要改变输入数据文件夹，和输出数据文件夹，程序自动会运算，现在出现一个问题是，当我新建一个数据输入文件夹后，在程序中对打开那个文件夹重命名后，为什么程序运算还是对之前的文件的数据进行运算啊，而不是对我重新编写的编写的文件夹里的内容进行计算啊 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'，不解啊， 我是菜鸟啊 |
回复此楼» 猜你喜欢
0855求调剂材料
已经有12人回复
-
297分083200求助
已经有7人回复
-
070300化学学硕311分求调剂
已经有10人回复
-
专硕0854初试考材科基，求调剂
已经有8人回复
-
0857大类环境工程B区求调剂
已经有3人回复
-
0817化学工程与技术求调剂，一志愿中海洋319
已经有14人回复
-
0703化学调剂325分
已经有11人回复
-
286求调剂
已经有8人回复
-
求调剂
已经有5人回复
-
生物学308分求调剂（一志愿华东师大）
已经有4人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 关于涂料研究的困惑，求助各位大侠
已经有28人回复
- 小白一枚 请各位大侠帮帮忙吧~~
已经有10人回复
- 哪位大侠帮我解答两个问题？土壤——植物营养吸收方面的
已经有8人回复
- 各位大侠帮忙看看我的这个液晶小分子的DSC和TGA图，求解答。
已经有14人回复
- 求助。各位大侠帮我诊断下小小毛病很多啊。。。
已经有5人回复
- 各位大侠 请问有机农业前途何在？现在的我很迷茫，求开导。。
已经有25人回复
- 【求助】学数学的各位大侠们，帮个忙，一个简单的概率问题，我实在是。。不会
已经有6人回复
- 【求助】求助各位大侠帮我解下一个结构，我是超级菜鸟，非常感谢
已经有14人回复
- 【讨论】有几道题实在搞不懂，麻烦各位大侠帮忙解决下，会的人很简单。
已经有7人回复
- 各位大侠，帮助我一下吧
已经有4人回复
- 各位大侠帮帮忙吧
已经有11人回复
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
涂涂木2楼2012-04-25 12:56:30
3楼2012-04-25 13:48:27
q1036210267
木虫 (正式写手)
- 应助: 26 (小学生)
- 金币: 2182.2
- 散金: 806
- 红花: 4
- 帖子: 893
- 在线: 262.1小时
- 虫号: 1346635
- 注册: 2011-07-15
- 性别: GG
- 专业: 药物化学
4楼2012-04-25 14:07:37
5楼2012-04-25 14:13:42
6楼2012-04-25 14:14:44
q1036210267
木虫 (正式写手)
- 应助: 26 (小学生)
- 金币: 2182.2
- 散金: 806
- 红花: 4
- 帖子: 893
- 在线: 262.1小时
- 虫号: 1346635
- 注册: 2011-07-15
- 性别: GG
- 专业: 药物化学
7楼2012-04-25 14:27:49
8楼2012-04-25 15:58:04
q1036210267
木虫 (正式写手)
- 应助: 26 (小学生)
- 金币: 2182.2
- 散金: 806
- 红花: 4
- 帖子: 893
- 在线: 262.1小时
- 虫号: 1346635
- 注册: 2011-07-15
- 性别: GG
- 专业: 药物化学
9楼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
