Fortran Coder

标题: COMMON代码对齐问题 [打印本页]

作者: happyyang 时间: 2019-1-25 13:35
标题: COMMON代码对齐问题
build project 时出现如下提醒
Warning: Padding of 4 bytes required before 'qfe2' in COMMON 'pinput' at (1); reorder elements or use -fno-align-commons [-Walign-commons]

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

作者: li913 时间: 2019-1-25 17:07
1、如果你用的老代码，且确认代码无误，不管它；
2、如果自己写代码，common已经废弃了，改用module；
3、如果要改这个代码，你得给出代码；
4、可以试试在 qfe2 前面放一个4字节变量。

作者: happyyang 时间: 2019-1-25 17:33
您好，多谢了，我用的是老代码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

作者: fcode 时间: 2019-1-26 09:34
举个例子，如下代码

[Fortran] 纯文本查看 复制代码

real :: a , b , c

integer :: d , e , f

integer(2) :: x

common /namespace/ a , b , c , x , d , e , f

end

a b c d e f 都是4个字节的。而 X 是 2 个字节的。这就导致了内存里没有对齐，就像一条马路，因为一个井盖缺了一小块。
这样会导致运行效率不够高。（就像马路上有个井盖，大家经过的时候都要减个速）
于是编译器警告一下你。你可以在前面填充4个字节（Padding of 4 bytes），让它对齐。
也可以重新调换一下顺序（reorder elements ），让井盖到马路的尽头处（不太影响正常行车）
当然还可以用 -fno-align-commons 选项，让编译器不要管它。
COMMON是旧代码最恶心的语法之一，强烈建议新写代码不要使用它了。

作者: happyyang 时间: 2019-1-26 09:40

fcode 发表于 2019-1-26 09:34
举个例子，如下代码
[mw_shl_code=fortran,true]real :: a , b , c
integer :: d , e , f

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

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

多谢多谢

作者: fcode 时间: 2019-1-26 23:39
一般不会影响正确性。（但也不敢保证，毕竟编译器和编译器都有差别）

每个程序单元，都加上 Implicit None 就可以了。

作者: liudy02 时间: 2019-1-27 11:48

fcode 发表于 2019-1-26 23:39
一般不会影响正确性。（但也不敢保证，毕竟编译器和编译器都有差别）

每个程序单元，都加上 Implicit None ...

说到这个Implicit None
想起好多教科书和网上教程、讨论里边甚至每个function和subroutine里边都来一句
感觉矫枉过正了吧，只要主程序和每个module里写一句就够了吧……

作者: vvt 时间: 2019-1-28 09:24
module 里写 implicit none 对整个 module 有效（但对 SubModule 无效）

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)