求指点：Fortran的equivalence语法转译成C++

[漠河的魔盒]

Fortran代码：

PARAMETER (NUM= 500000)
COMMON /   XXX   /  DR(NUM/2)
DOUBLE PRECISION DR
DIMENSION XR(NUM)
EQUIVALENCE (XR(1), DR(1))

C++

extern const int NUM= 500000;
namespace  XXX   
{
      static double DR[NUM/2];
      static double *XR[NUM];
}

请问：怎么实现DR与XR的等价

[漠河的魔盒]

需要做转译工作

[赵4老师]

没必要修改。VS支持编译Fortran，生成对应的obj，和C/CPP生成的obj链接生成exe即可。 或者通过临时文本文件互相调用： 不要做A语言代码修改为B语言代码的无用功。 也不要做用A语言代码直接调用B语言代码库这样复杂、这样容易出错的傻事。 只需让A、B语言代码的输入输出重定向到文本文件，或修改A、B语言代码让其通过文本文件输入输出。 即可很方便地让A、B两种语言之间协调工作。 比如： A将请求数据写到文件a.txt，写完后改名为aa.txt B发现aa.txt存在时，读取其内容，调用相应功能，将结果写到文件b.txt，写完后删除aa.txt，再将b.txt改名为bb.txt A发现bb.txt存在时，读取其内容，读完后删除bb.txt 以上A可以替换为任何一种开发语言或开发环境，B可以替换为任何一种与A不同的开发语言或开发环境。 除非A或B不支持判断文件是否存在、文件读写和文件更名。 但是谁又能举出不支持判断文件是否存在、文件读写和文件更名的开发语言或开发环境呢？ 可以将临时文件放在RamDisk上提高效率减少磨损磁盘。 数据的结构很复杂的话，文本文件的格式问题可参考json或xml 共享临时文本文件这种进程之间的通讯方法相比其它方法的优点有很多，下面仅列出我现在能想到的： ·进程之间松耦合 ·进程可在同一台机器上，也可跨机，跨操作系统，跨硬件平台，甚至跨国。 ·方便调试和监视，只需让第三方或人工查看该临时文本文件即可。 ·方便在线开关服务，只需删除或创建该临时文本文件即可。 ·方便实现分布式和负载均衡。 ·方便队列化提供服务，而且几乎不可能发生队列满的情况（除非硬盘空间满） ·…… “跨语言、跨机，跨操作系统，跨硬件平台，跨国，跨*.*的”苦海无边， 回头是“使用共享纯文本文件进行信息交流”的岸！

[漠河的魔盒]

@早打大打打核战争 XR和DR的大小不一致，同时之前没有注意到Fortran中DR是双精度的，XR是单精度的，涉及到位运算的问题
@赵4老师 要做转译的都是半吊子，所以那些领导定下了转译的任务，苦逼的程序猿面临着转译的工作。

[日立奔腾浪潮微软松下联想]

引用 5 楼 qq_24700911 的回复:

@早打大打打核战争 XR和DR的大小不一致，同时之前没有注意到Fortran中DR是双精度的，XR是单精度的，涉及到位运算的问题 @赵4老师 要做转译的都是半吊子，所以那些领导定下了转译的任务，苦逼的程序猿面临着转译的工作。

也可以：static float *XR = (float *)&DR; C中的指针就可以当作数组用。

[漠河的魔盒]

@早打大打打核战争 不用指针数组直接用指针?
另外我简易的测了一下
Program ffff
PARAMETER (NUMREL = 50)
COMMON / / DREALX(NUMREL/2)
DOUBLE PRECISION DREALX

DIMENSION XREALX(NUMREL)
EQUIVALENCE (XREALX(1), DREALX(1))

Do i = 1,NUMREL
VREALX(i) = 1;
Enddo
PAUSE
END
debug的结果是VREALX的值都是1，DREALX的值是7.812501848093234D-003
Fortran中可以使用EQUIVALENCE 语句实现等价声明，但是C++没有对应的语法，有没有其他的转译方式？

[赵4老师]

引用 2 楼 qq_24700911 的回复:

需要做转译工作

说需要做转译工作的人都是IT界的半瓶子醋。我觉得。

[日立奔腾浪潮微软松下联想]

static double *XR = (double *)&DR;

[日立奔腾浪潮微软松下联想]

这就是等价的： static double DR[NUM/2]; static float *XR = (float *)&DR; DR[0]和XR[0]是相同的地址。