| 查看: 720 | 回复: 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 |
回复此楼» 猜你喜欢
080500求调剂
已经有5人回复
-
269电子信息求调剂，可转专业
已经有5人回复
-
285求调剂
已经有15人回复
-
265求调剂
已经有8人回复
-
274求调剂求调剂
已经有5人回复
-
284求调剂
已经有4人回复
-
土木水利专硕276分求调剂
已经有4人回复
-
材料考研求调剂总分280
已经有9人回复
-
285求调剂
已经有6人回复
-
材料调剂
已经有9人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 求帮忙翻译一段摘要
已经有1人回复
- 需要大家帮忙，翻译一段实验过程
已经有1人回复
- 帮忙翻译下英译中，急求，谢谢了，可以翻译其中一段
已经有1人回复
- 帮忙看一段程序
已经有3人回复
- 帮忙看一段matlab 程序
已经有4人回复
- 帮忙看看一段日文的意思
已经有1人回复
- 求助大侠帮忙，有关matlab模拟数据
已经有29人回复
- 【求助】50金币求大家帮忙改一段程序
已经有13人回复
- 【求助】帮忙看一段程序
已经有9人回复
- 【求助】做活化时马弗炉升温过程中样品燃烧
已经有23人回复
- 【求助】Riccati传递矩阵法求解临界转速（有部分程序）
已经有5人回复
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
xiaowu787
木虫 (正式写手)
- 应助: 1 (幼儿园)
- 金币: 1406.9
- 散金: 95
- 红花: 1
- 帖子: 550
- 在线: 430.3小时
- 虫号: 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
- 专业: 污染生态化学
4楼2010-05-29 08:09:02
xiaowu787
木虫 (正式写手)
- 应助: 1 (幼儿园)
- 金币: 1406.9
- 散金: 95
- 红花: 1
- 帖子: 550
- 在线: 430.3小时
- 虫号: 326816
- 注册: 2007-03-18
- 性别: GG
5楼2010-05-29 09:54:05
oyljw
至尊木虫 (职业作家)
格物致知Professional
- 应助: 10 (幼儿园)
- 金币: 16606.1
- 散金: 120
- 红花: 27
- 帖子: 3191
- 在线: 1025.3小时
- 虫号: 482354
- 注册: 2007-12-22
- 性别: GG
- 专业: 理论和计算化学
6楼2010-08-18 20:00:52
