如何实现Fortran 77中的Hollerith常量？实用场景解析

一、Hollerith常量的基本工作原理 #

Hollerith常量是Fortran早期版本（包括Fortran 77）里用于将字符串直接映射到数值存储单元的特殊语法，格式为nH<字符序列>：

• n是字符的精确数量，必须和后面的字符数完全匹配，否则会触发编译错误
• H是固定标记，用于区分普通数值常量和Hollerith常量
• 后续的字符序列会被直接按字节打包，赋值给整数、实数等数值类型变量

你给出的示例代码中，4HABCD就是一个包含4个字符的Hollerith常量，它会把字符A、B、C、D的字节数据直接写入整数变量I的内存空间。

二、字符串在整数变量中的存储方式 #

你的代码里INTEGER*4 I定义了一个4字节的整数变量，恰好和4HABCD的字符数量匹配：

1. 每个字符会被转换成对应平台的字符编码（通常是ASCII），比如A对应0x41，B对应0x42，C对应0x43，D对应0x44
2. 这些字节会按顺序填充到整数的4个字节存储位置中，具体的字节顺序（大端/小端）取决于编译器和运行平台：
   • 如果是大端字节序（多数传统Fortran编译器默认），整数I的十六进制值为0x41424344，十进制对应1094861636
   • 如果是小端字节序（x86平台常见），整数I的十六进制值为0x44434241，十进制对应1145258561
3. Fortran标准没有规定字节序，所以不同环境下打印I会得到不同的十进制结果，但字符的字节始终是按顺序存储在整数的内存中。

三、实用示例与适用场景 #

Hollerith常量是Fortran还未完善原生CHARACTER类型支持时的替代方案，常见使用场景包括：

• 格式语句中的字符串嵌入：早期Fortran的FORMAT语句常用Hollerith常量写入固定文本，比如：

  WRITE(*, 10) 123
  10 FORMAT(1X, I3, 6H WORLD!)
  

  执行后会输出 123 WORLD!
• 二进制数据交互：和硬件设备或二进制文件交互时，直接将字符数据打包成整数单元，方便按固定字节长度读写，比如存储设备标识、文件头信息
• 内存调试标记：给数值变量赋值Hollerith常量（比如4HTEST），调试时查看内存内容可以直接识别变量用途，无需额外注释
• 遗留代码兼容：大量Fortran 77遗留项目仍在使用Hollerith常量，维护这类代码时需要理解它的逻辑才能完成修改或重构

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