Syntax 奇数Fortran指针语法

在我必须处理的一些Fortran 77代码中，有一些指针以一种非常奇怪的方式声明

 pointer  (iuu     , uu      ), (ivv     , vv      ),
 $        (it      , t       ), (iq      , q       ), (ips     , ps      ),
 $        (ittm    , ttm     ), (itqm    , tqm     ), (ipsm    , psm     ),

这里的括号是什么意思？有什么吗？

这是一种非标准类型的指针，它使用常规的

整数

变量来存储目标的内存地址，可能是另一个变量或过程。引入它们是因为程序员需要这种功能，而Fortran 77没有本机指针功能

代码中的括号是Cray指针的赋值语句：

指针（iptr，目标）[，…]

---

如果可能的话，您应该考虑将这些更改为标准FORTRAN指针，因为它们的使用受到较少的限制和假设，并且它们显然支持实现FORTRAN 90的所有编译器。用谷歌搜索奇怪的语法（神秘的括号）并没有什么好处，它是40年前政府编写的代码的一部分，我必须在几乎没有任何支持的情况下构建和使用，而且使用时也不需要更新它（@Matt:我很害怕……我想这是拥有如此悠久历史的语言的一个缺点。哦，如果它没有坏的话……！至少gfortran是一个免费的编译器，幸运的是它支持许多这些非标准/传统功能。顺便说一句，如果cray指针是在更新的fortran标准之前获取过程指针的唯一方法，那么rd（2003？2008？--不确定是哪个…）DEC/Compaq/HP Fortran扩展也支持这种指针样式（请参阅）。顺便说一句，最新的英特尔Fortran编译器版本仍然理解这种指针样式。它是一只睡狗，更不用说了。