Fortran IV中EQUIVALENCE语句的作用及应用场景咨询

你已经知道EQUIVALENCE是让多个变量共用同一块内存地址，类似C里的联合体（union），之所以要这么做，在当年的Fortran代码里主要有这些实际用处：

核心使用目的 #

• 提升代码可读性：比如你提供的示例里，数组VAR1可能是一个打包了多个物理量的集合，其中第一个元素对应温度值。用TEMP1指代VAR1(1)，比每次写数组索引更直观，看代码的人不用额外查注释就能明白变量含义。
• 节省内存空间：50年前的计算机内存资源极其紧张，动辄以KB为单位计算。让多个变量共用内存，能避免重复分配空间，对于大数组、多变量的场景，这是非常重要的优化手段。
• 适配已有内存布局：当时很多程序是基于固定内存结构编写的，EQUIVALENCE可以在不修改原有数组或内存块的前提下，给其中的部分位置起新名字，适配新的代码逻辑，不用大规模重构旧代码。
• 简化数组元素操作：频繁使用数组的某个固定元素时，用单独的变量名代替数组索引，能减少代码输入量，也降低写错索引的概率，比如示例里的TEMP2就比VAR1(2)写起来更顺手。

你的代码示例解析 #

这段Fortran代码：

DIMENSION VAR1(6)
      EQUIVALENCE (TEMP1,VAR1(1)),(TEMP2,VAR1(2))

本质是把数组VAR1的第1个元素和TEMP1绑定，第2个元素和TEMP2绑定——修改TEMP1的值，VAR1(1)会立刻同步变化，反之亦然。

转MATLAB时的注意事项 #

MATLAB没有直接对应EQUIVALENCE的语法，因为它是值传递语言。如果要模拟这种关联效果，可以用两种方式：

1. 直接赋值：TEMP1 = VAR1(1);，但这种方式是复制值，修改其中一个不会影响另一个，需要手动同步。
2. 用函数或类封装：如果需要保持实时同步，可以写一个简单的类，让TEMP1作为VAR1(1)的引用，不过这在MATLAB里属于进阶操作，一般如果只是代码转换，直接替换成数组索引或者单独赋值即可。

内容的提问来源于stack exchange，提问作者likeapancake