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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助】帮忙看一段程序
61/1返回列表
查看: 897  |  回复: 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返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[教师之家] 某top大学教授说“能够在市场中兑现的能力才是真能力”无比同意！ +3 zju2000 2026-09-26 3/150 2026-09-27 16:26 by lala1008
[博后之家] 售SCI文章，我:8O.5.5.1O.54,科目全,可十急 +3 ViqFlLSxHDGt 2026-09-26 3/150 2026-09-27 10:42 by 4IW0sJvtEqX8
[找工作] 售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急 +3 ViqFlLSxHDGt 2026-09-26 3/150 2026-09-27 10:26 by 4IW0sJvtEqX8
[博后之家] 售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急 +3 ViqFlLSxHDGt 2026-09-26 3/150 2026-09-27 10:21 by 4IW0sJvtEqX8
[公派出国] 售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急 +3 ViqFlLSxHDGt 2026-09-26 3/150 2026-09-27 10:15 by 4IW0sJvtEqX8
[考博] 售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急 +3 ViqFlLSxHDGt 2026-09-26 3/150 2026-09-27 10:03 by 4IW0sJvtEqX8
[考博] 售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急 +3 oeyPlfmMUpOC 2026-09-26 3/150 2026-09-27 09:13 by 4IW0sJvtEqX8
[考博] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 +3 GxESXJmptOtQ 2026-09-25 4/200 2026-09-27 06:42 by XgCC8uTcwILl
[论文投稿] 售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急 +3 GxESXJmptOtQ 2026-09-25 4/200 2026-09-27 06:39 by XgCC8uTcwILl
[找工作] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +3 vQZoDrrm7mUF 2026-09-25 3/150 2026-09-27 06:08 by XgCC8uTcwILl
[公派出国] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +3 vQZoDrrm7mUF 2026-09-25 3/150 2026-09-27 06:05 by XgCC8uTcwILl
[考研] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +3 vQZoDrrm7mUF 2026-09-25 3/150 2026-09-27 05:56 by XgCC8uTcwILl
[论文投稿] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +4 vQZoDrrm7mUF 2026-09-25 4/200 2026-09-27 05:56 by XgCC8uTcwILl
[找工作] 售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急 +5 vQZoDrrm7mUF 2026-09-25 5/250 2026-09-27 05:53 by XgCC8uTcwILl
[博后之家] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +4 vQZoDrrm7mUF 2026-09-25 4/200 2026-09-27 05:50 by XgCC8uTcwILl
[公派出国] 售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急 +4 vQZoDrrm7mUF 2026-09-25 4/200 2026-09-27 05:44 by XgCC8uTcwILl
[考研] 售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急 +3 vQZoDrrm7mUF 2026-09-25 5/250 2026-09-27 05:44 by XgCC8uTcwILl
[论文投稿] 售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急 +3 vQZoDrrm7mUF 2026-09-25 6/300 2026-09-27 05:42 by XgCC8uTcwILl
[找工作] 售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急 +4 PGTSwSC3F6nQ 2026-09-24 5/250 2026-09-25 11:19 by yhq9807
[公派出国] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +4 PGTSwSC3F6nQ 2026-09-24 7/350 2026-09-25 11:18 by yhq9807
信息提示
关闭
请填处理意见
关闭