24小时热门版块排行榜

返回列表

xiaowu787

木虫 (正式写手)

应助: 1 (幼儿园)
金币: 1411.9
散金: 95
红花: 1
帖子: 550
在线: 430.1小时
虫号: 326816
注册: 2007-03-18
性别: GG

[交流] 【求助】帮忙看一段程序已有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

至尊木虫 (职业作家)

程序强帖: 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

由于 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

木虫 (正式写手)

应助: 1 (幼儿园)
金币: 1411.9
散金: 95
红花: 1
帖子: 550
在线: 430.1小时
虫号: 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

赞一下(1人)

回复此楼

3楼2010-05-28 20:40:22

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

程序强帖: 16
应助: 157 (高中生)
贵宾: 0.02
金币: 18844.7
红花: 29
帖子: 3803
在线: 1422.4小时
虫号: 183750
注册: 2006-02-13
专业: 污染生态化学

★ ★
小木虫(金币+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的回帖