| 查看: 839 | 回复: 5 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
xiaowu787木虫 (正式写手)
|
[交流]
【求助】帮忙看一段程序 已有3人参与
|
||
|
刚接触fortran,请大家帮忙看下，谢谢 1. c$$$是什么意思？c$$$C又是什么意思？它们的作用是什么？ 2. 这段程序说的什么意思呢 c$$$ if (ndebug.eq.1) then c$$$C open (65,file='fort.65',status='unknown',access='append') c$$$ write (65,*) 'In ffinpt' c$$$ call timer(65) c$$$ close (65) c$$$ end if open (4,file='ffield.reax',status='old') rewind (4) iline=0 read (4,'(a40)',end=990,err=990)qffield iline=iline+1 |
回复此楼» 猜你喜欢
今天系统多次维护，明天很可能放榜！
已经有9人回复
-
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有4人回复
-
哪位老哥知道今年的国自然具体哪一天放榜？
已经有11人回复
-
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有3人回复
-
欢迎发来filecode的Mz6后的代码验证其规律
已经有74人回复
-
岩土工程学报什么时候才能终审完呐
已经有4人回复
-
时间戳又变了8-15
已经有25人回复
-
2027广东省杰青
已经有6人回复
-
快农历七夕节了，轻松一下，男人悄悄话，女施主请不要进来。
已经有3人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 求帮忙翻译一段摘要
已经有1人回复
- 需要大家帮忙，翻译一段实验过程
已经有1人回复
- 帮忙翻译下英译中，急求，谢谢了，可以翻译其中一段
已经有1人回复
- 帮忙看一段程序
已经有3人回复
- 帮忙看一段matlab 程序
已经有4人回复
- 帮忙看看一段日文的意思
已经有1人回复
- 求助大侠帮忙，有关matlab模拟数据
已经有29人回复
- 【求助】50金币求大家帮忙改一段程序
已经有13人回复
- 【求助】帮忙看一段程序
已经有9人回复
- 【求助】做活化时马弗炉升温过程中样品燃烧
已经有23人回复
- 【求助】Riccati传递矩阵法求解临界转速（有部分程序）
已经有5人回复
xiaowu787
木虫 (正式写手)
- 应助: 1 (幼儿园)
- 金币: 1406.9
- 散金: 95
- 红花: 1
- 帖子: 550
- 在线: 430.4小时
- 虫号: 326816
- 注册: 2007-03-18
- 性别: GG
nono2009:建议下次通过“引用回复该帖”，以便别人收到你的message. 2010-05-29 14:11:19
|
顺便问一下： $开头的是什么意思？ *开头的是不是也是注释？ ********************************************************************** * * * Read in general force field parameters * * * ********************************************************************** if (abs(swa).gt.0.01) write (*,*) $'Warning: non-zero value for lower Taper-radius cutoff' swb=vpar(13) if (swb.lt.zero) stop $'Negative value for upper Taper-radius cutoff' if (swb.lt.5.0) write (*,*) $'Warning: very low value for upper Taper-radius cutoff:',swb |
3楼2010-05-28 20:40:22
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
★
xiaowu787(金币+10):谢谢！顺便再问一下 2010-05-28 20:40:57
resonant(金币+1):感谢参与应助。 2010-05-28 21:56:04
xiaowu787(金币+10):谢谢！顺便再问一下 2010-05-28 20:40:57
resonant(金币+1):感谢参与应助。 2010-05-28 21:56:04
|
由于 C 在第一列上，所以这一段以 C$$$ 开头的程序被注释掉了，也就是在程序中不起任何作用。 下面的代码很简单 open (4,file='ffield.reax',status='old') 在标识为 4 的 io 上打开一个已有的文件 ffield.reax rewind (4) 回卷到文件的起始位置 iline=0 iline 赋值为 0 read (4,'(a40)',end=990,err=990)qffield 从 4 这个 io 上读一个长度为 40 的字符吕 qffield iline=iline+1 iline 加 1 |
2楼2010-05-28 20:22:12
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
4楼2010-05-29 08:09:02
xiaowu787
木虫 (正式写手)
- 应助: 1 (幼儿园)
- 金币: 1406.9
- 散金: 95
- 红花: 1
- 帖子: 550
- 在线: 430.4小时
- 虫号: 326816
- 注册: 2007-03-18
- 性别: GG
5楼2010-05-29 09:54:05
25