24小时热门版块排行榜    

查看: 523  |  回复: 2

a5200259494

金虫 (初入文坛)

[求助] Fortran 语言求助

C

      CHARACTER*80 MATERL

……

         IF ((NOEL.EQ.4866).OR.(NOEL.EQ.5396)) THEN

             STATEV(1)=PROPS(3)*1.002D0

         ENDIF

……

想把if 语句后面的条件多加几个数据,比如(NOEL.EQ.4866).OR.(NOEL.EQ.5396).OR.(NOEL.EQ.1234).OR.(NOEL.EQ.5421)  ……加一个还可以(2个OR,三个数字),但是多加了2个数据以上发现数据行太长,于是我就换行。试过直接回车 换;也试过在第一行后面和第二行开头加&,都不行。哪位高手好心人给指点指点,这样的换行应该怎么样写,还是.OR.语句不能加到三个以上?请举个例子,比如说我要写(NOEL.EQ.4866).OR.(NOEL.EQ.5396).OR.(NOEL.EQ.1234).OR.(NOEL.EQ.5421).OR.(NOEL.EQ.4846).OR.(NOEL.EQ.5346).OR.(NOEL.EQ.1244).OR.(NOEL.EQ.5441)……,中间应该怎么换?还是应该换种语句?非常感谢!!
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

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

seaharrier

铁杆木虫 (知名作家)

帝国空军中将

【答案】应助回帖

F77格式:在第六列加任意字符(*,%,&等)表示续行
F90格式:在行末加   &
Patienceisbitter,butitsfruitissweet.
2楼2011-12-07 00:10:10
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

a5200259494

金虫 (初入文坛)

引用回帖:
2楼: Originally posted by seaharrier at 2011-12-07 00:10:10:
F77格式:在第六列加任意字符(*,%,&等)表示续行
F90格式:在行末加   &

可不可以用“IF ((NOEL.EQ.4866).OR.(NOEL.EQ.5396).OR.(NOEL.EQ.1234).OR.(NOEL.EQ.5421).OR.(NOEL.EQ.4846).OR.(NOEL.EQ.5346).OR.(NOEL.EQ.1244).OR.(NOEL.EQ.5441)) THEN”举个例子?

试过用上一行&结尾,下一行用&开头,或是直接用( 数字 .EQ. 开头,都无效,非常感谢!!
3楼2011-12-07 10:07:41
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 a5200259494 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[公派出国] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +3 PYZmcHr5kSaq 2026-11-05 5/250 2026-11-05 21:27 by qL1cU46YIdK0
[考博] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +3 ELBZ6WwEaRj6 2026-11-05 3/150 2026-11-05 21:05 by qL1cU46YIdK0
[公派出国] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +4 ELBZ6WwEaRj6 2026-11-04 8/400 2026-11-05 20:54 by qL1cU46YIdK0
[公派出国] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +3 ELBZ6WwEaRj6 2026-11-04 8/400 2026-11-05 20:43 by qL1cU46YIdK0
[硕博家园] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +4 ELBZ6WwEaRj6 2026-11-04 7/350 2026-11-05 20:43 by qL1cU46YIdK0
[硕博家园] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +3 ELBZ6WwEaRj6 2026-11-04 9/450 2026-11-05 20:34 by qL1cU46YIdK0
[公派出国] 售SCI一区文章,我:8.O.551.O.5.4,科目全,可伽急 +4 ttH3f1oA6ace 2026-11-04 8/400 2026-11-05 20:23 by qL1cU46YIdK0
[硕博家园] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +4 hNpp4Y2CGvSC 2026-11-04 11/550 2026-11-05 20:21 by qL1cU46YIdK0
[考博] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +6 ncTVBM6AOJHF 2026-11-04 9/450 2026-11-05 20:10 by qL1cU46YIdK0
[考研] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +5 ncTVBM6AOJHF 2026-11-04 11/550 2026-11-05 20:10 by qL1cU46YIdK0
[考博] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +3 ttH3f1oA6ace 2026-11-04 6/300 2026-11-05 18:00 by My20PsvIExYO
[考博] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +3 kvewwGtKktqB 2026-11-04 8/400 2026-11-05 17:47 by My20PsvIExYO
[考博] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +5 ncTVBM6AOJHF 2026-11-04 14/700 2026-11-05 17:36 by My20PsvIExYO
[考研] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +5 ncTVBM6AOJHF 2026-11-04 10/500 2026-11-05 17:36 by My20PsvIExYO
[硕博家园] 售SCI一区文章,我:8.O.551.O.5.4,科目全,可伽急 +4 ncTVBM6AOJHF 2026-11-04 9/450 2026-11-05 17:26 by My20PsvIExYO
[公派出国] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 +6 ncTVBM6AOJHF 2026-11-04 19/950 2026-11-05 17:25 by My20PsvIExYO
[考研] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +4 ncTVBM6AOJHF 2026-11-04 13/650 2026-11-05 17:15 by My20PsvIExYO
[公派出国] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +5 ncTVBM6AOJHF 2026-11-04 9/450 2026-11-05 15:13 by My20PsvIExYO
[硕博家园] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +4 ncTVBM6AOJHF 2026-11-04 10/500 2026-11-05 10:39 by PYZmcHr5kSaq
[基金申请] 各位基础老师们,看完中央《从严治党》的决定后,对学术界更加有信心了吧 +5 iaeyuan 2026-11-01 5/250 2026-11-04 14:43 by jinchengzi
信息提示
请填处理意见