[转帖]关于公共块变量排序问题

风花雪月 · 发表于 2005-10-22 16:10

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？我要加入

x

最近，好几个人问到公共块出错的问题，都是出于一个原因，特在这里把老贴整理一下供大家参考。 问题： Compiling Fortran... D:\FRAME2D.FOR D:\FRAME2D.FOR(314) : Warning: Because of COMMON, the alignment of object is inconsistent with its type [ASA] COMMON /EM/LM(6),ND,ASA(6,6),RF(6),SA(6,6) --------------------------^ D:\FRAME2D.FOR(314) : Warning: Because of COMMON, the alignment of object is inconsistent with its type [RF] COMMON /EM/LM(6),ND,ASA(6,6),RF(6),SA(6,6) -----------------------------------^ 解答： 这是老Fortran的规则。看你的公共语句： COMMON /EM/LM(6),ND,ASA(6,6),RF(6),SA(6,6),SF(6),T(3,3) 根据程序的隐含规则，LM(6),ND一共是7个整型数，每个整型数4个字节，共28个字节，不是8字节的整倍数。紧跟着是双精度的ASA(6,6)，每个数是8个字节，可是ASA(1,1)不能从8字节整倍数位置开始存储，这就是the alignment of object is inconsistent with its type 的意思。 对于警告错误，可以忽略，一般不致于影响执行结果。如果要改的话，有几种办法： 1）在公共语句中，把双精度数放在前边，整形数跟在后边； 2）在ASA()前插一个整型变量（哪怕是没用的），用来占用4个字节，以使得后面的双精度数可以从8字节整数倍位置开始存储。 准则：作为好的编程习惯，建议在公共块中，把实型变量排在前边，把整型数据放在后边，就不会有对位不整的错误！ 仅供参考。 补充：（05.06.01） 公共块不是用堆栈实现的，是内存中的一段连续存储的数据。 按照Fortran的规定，当读取双精度数据时，总是假定前面的数据长度是双精度数字节长度（8个字节）的整数倍。 对于本例，ASA(1,1)从第29个字节开始存放8个字节；可是读取的时候，要从第33个字节（28不是8的倍数，32是28之后最小的8的倍数）开始读入8个字节，这就是定位（alignment）错误。 所以F90之后不提倡用公共块共享数据，而可用更为灵活的module来代替公共块共享数据。 公共块是过时的语言功能。

账号		自动登录	找回密码
密码			我要加入

[Fortran] [转帖]关于公共块变量排序问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。