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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助】帮忙看一段程序
61/1返回列表
查看: 923  |  回复: 5
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

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
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2010-05-28 19:59:02
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)
★
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
赞一下(1人) 回复此楼
2楼2010-05-28 20:22:12
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

xiaowu787

木虫 (正式写手)
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
赞一下(1人) 回复此楼
3楼2010-05-28 20:40:22
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
余泽成(金币+1):辛苦了！ 2010-05-29 09:42:57
引用回帖:
Originally posted by xiaowu787 at 2010-05-28 20:40:22:
顺便问一下：
     $开头的是什么意思？
      *开头的是不是也是注释？

**********************************************************************
*                                                    ...

你要注意的是 $ 在第几列，通情况下，应该在第 6 列。在固定格式的 Fortran 源代码中，第 6 列上的任何字符都没有字符本身的含义，它在这个位置上只是一个续行符，即表示前一列没有写完，接着在下一行写的意思。因为固定格式的 Fortran 源代码一行最多72列，超过 72 列的部分会被编译器忽略。

顶格的 * 号也表示注释。

你最好找一本 Fortran 的书入一下门。很简单的一些规则。
赞一下(2人) 回复此楼
4楼2010-05-29 08:09:02
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

xiaowu787

木虫 (正式写手)
谢谢，已经在对着书学习
赞一下 回复此楼
5楼2010-05-29 09:54:05
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

oyljw

至尊木虫 (职业作家)

格物致知Professional
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
余泽成(金币+1):不好学学会了会更有意义！ 2010-08-18 20:10:08
本来还想学 可是 这么复杂啊 有点不想了
赞一下(2人) 回复此楼
独立之精神自由之思想
6楼2010-08-18 20:00:52
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 xiaowu787 的主题更新
61/1返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +3 BMTdnp4OJO9f 2026-11-06 4/200 2026-11-07 19:36 by Xc2FxHsHkBNc
[公派出国] 售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急 +3 BMTdnp4OJO9f 2026-11-06 4/200 2026-11-07 18:52 by Xc2FxHsHkBNc
[硕博家园] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +3 BMTdnp4OJO9f 2026-11-06 5/250 2026-11-07 17:45 by Xc2FxHsHkBNc
[硕博家园] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +4 2rKfVQg2jQww 2026-11-06 5/250 2026-11-07 17:23 by Xc2FxHsHkBNc
[教师之家] 售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急 +3 5sJFDKp2kwuI 2026-11-06 5/250 2026-11-07 17:01 by Xc2FxHsHkBNc
[教师之家] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 +4 5sJFDKp2kwuI 2026-11-06 6/300 2026-11-07 15:44 by Xc2FxHsHkBNc
[教师之家] 延安大学回应“副教授留绝笔信”：确已离世，正核实举报内容 +3 yexuqing 2026-11-04 5/250 2026-11-07 13:22 by 苏东坡二世
[考博] 售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急 +6 ELBZ6WwEaRj6 2026-11-05 8/400 2026-11-06 16:34 by 5sJFDKp2kwuI
[考研] 售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急 +5 ELBZ6WwEaRj6 2026-11-04 10/500 2026-11-06 16:23 by 5sJFDKp2kwuI
[公派出国] 售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急 +5 ttH3f1oA6ace 2026-11-04 10/500 2026-11-06 16:12 by 5sJFDKp2kwuI
[硕博家园] 售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急 +4 ttH3f1oA6ace 2026-11-04 11/550 2026-11-06 16:10 by 5sJFDKp2kwuI
[公派出国] 售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急 +6 ncTVBM6AOJHF 2026-11-04 15/750 2026-11-06 13:49 by BkA9Bi5cMhkD
[考博] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +7 ncTVBM6AOJHF 2026-11-04 17/850 2026-11-06 13:47 by BkA9Bi5cMhkD
[公派出国] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +8 ncTVBM6AOJHF 2026-11-04 12/600 2026-11-06 13:47 by BkA9Bi5cMhkD
[考研] 售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急 +5 ELBZ6WwEaRj6 2026-11-05 10/500 2026-11-06 12:32 by BkA9Bi5cMhkD
[考研] 售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急 +3 ELBZ6WwEaRj6 2026-11-04 10/500 2026-11-06 05:32 by qL1cU46YIdK0
[硕博家园] 售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急 +4 ncTVBM6AOJHF 2026-11-04 12/600 2026-11-06 04:47 by qL1cU46YIdK0
[考博] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +4 ttH3f1oA6ace 2026-11-04 7/350 2026-11-06 02:13 by qL1cU46YIdK0
[考博] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 +6 ncTVBM6AOJHF 2026-11-04 10/500 2026-11-06 01:51 by qL1cU46YIdK0
[教师之家] 售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急 +4 ncTVBM6AOJHF 2026-11-04 12/600 2026-11-05 11:10 by PYZmcHr5kSaq
信息提示
关闭
请填处理意见
关闭