Fortran Coder

查看: 14839|回复: 7
打印 上一主题 下一主题

[求助] COMMON代码对齐问题

[复制链接]

13

帖子

5

主题

0

精华

入门

F 币
73 元
贡献
41 点
跳转到指定楼层
楼主
发表于 2019-1-25 13:35:27 | 显示全部楼层 回帖奖励 |倒序浏览 |阅读模式
build project 时出现如下提醒
Warning: Padding of 4 bytes required before 'qfe2' in COMMON 'pinput' at (1); reorder elements or use -fno-align-commons [-Walign-commons]

这是什么意思呢?应该如何解决呢?
初学者     多谢各位帮助,多谢了

分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

13

帖子

5

主题

0

精华

入门

F 币
73 元
贡献
41 点
沙发
 楼主| 发表于 2019-1-25 17:33:58 | 显示全部楼层
您好,多谢了,我用的是老代码FORTRAN77,出现了这个warning,但是不影响程序运行,就是不知道这个是什么原因导致的,代码如下:
COMMON/PINPUT/ RI,RW,RO,RF,XL,AL,AR1,AR2,
     &        TFIN,FRHO,FCP,FMU,FK,FV,FA,PR,FMFR,FMFR2,PI,FU,FU2,FUO,
     &        RE,REO,FRICTION,WRHO,WCP,WK,WA,WNA,ALMDW,PTHERMW,
     &        CRA,ERAN,TM,PRHOS,PCPS,PKS,PRHOL,PCPL,PKL,PVL,PH,
     &        PAS,PNAS,ALMDPS,PTHERMPS,PAL,PNAL,ALMDPL,PTHERMPL,ALMDPSL,
     &               G,BT,SDL,TT0,RA,DT0,DT,TIME,TINI0,TINI,EPS,PTHERMP,ALMDP,
     &        XL1,RL1,XL2,RL2,AXL1,ARL1,AXL2,ARL2,PLOT1,PLOT2,     
     &        AXL1L,AXL1R,ARL1L,ARL1R,AXL2L,AXL2R,ARL2L,ARL2R,
     &        T1,T2,SUMF,SUMF0,SUMF1,TP,TTP,
     &        Q,QFS,QFL,QF,QW,QPS,QPL,QP,QFS2,QFL2,QF2,EQ,EW,TEQ,TEW,
     &        E1,E2,TQ,TQFS,TQFL,TQF,TQW,TQPS,TQPL,TQP,TQFS2,TQFL2,TQF2,
     &        EEQ,EEW,TEEQ,TEEW,EE1,EE2,
     &        DTTP,DSUMF,DTQ,DTQF,DTQW,DTQP,DTQF2,DEQ,DEW,DTEQ,DTEW,DE1,
     &        DE2,DEEQ,DEEW,DTEEQ,DTEEW,DEE1,DEE2,DTIME
     &        EXPA,TEXPA,EEWI,TEEWI,EEWO,TEEWO,EEX1,EEX2,FRICTIONO,FEI
     &        DEXPA,DTEXPA,DEEWI,DTEEWI,DEEWO,DTEEWO,DEEX1,DEEX2
     &        QFE,QFE2,TQFE,TQFE2,EEX3,EEX4,DEEX3,DEEX4
     &        I1,J1,I2,J2

13

帖子

5

主题

0

精华

入门

F 币
73 元
贡献
41 点
板凳
 楼主| 发表于 2019-1-26 09:40:52 | 显示全部楼层
fcode 发表于 2019-1-26 09:34
举个例子,如下代码
[mw_shl_code=fortran,true]real :: a , b , c
integer :: d , e , f

多谢多谢了,明白了一点儿,这个就是影响程序的运行效率,当时不影响程序的正确性吧?

还有我用Simply Fortran 编译器, 明明没有定义一个参数(写错了),但是程序运行过程中还是能够运行,并且没有提醒,这个怎么解决呢?

多谢多谢
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-5-5 05:28

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表