如何用可变长度字符串自动填充初始化Fortran字符数组？

阿华AIGC实验室

2026-5-1

解决Fortran固定长度字符数组的自动填充初始化问题

这个问题我之前也碰到过！Fortran的数组构造器对字符元素的长度一致性要求很严格，直接用不同长度的字符串初始化固定长度字符数组时，编译器会报错——因为它不会自动帮你补空格。不过确实有几种方法能实现自动填充，不用手动一个个加空格，尤其是处理长字符串的时候特别方便：

方法1：数组构造器中显式指定字符长度（推荐）

从Fortran 2003开始，支持在数组构造器里直接指定元素的字符长度，编译器会自动将每个字面量填充到指定长度（不足补空格，过长则截断）。这是最简洁的方案：

PROGRAM test
    character(len=5) :: s(3) = [character(len=5) :: "a", "bb", "c"]
    s(1) = "12345678"  ! 自动截断到5个字符
    print *, s
END PROGRAM test

编译运行后，数组的每个元素都会被自动调整为5个字符长度，完全符合你的需求。现在主流编译器（比如gfortran、Intel Fortran）都支持这个语法。

方法2：写一个辅助填充函数（兼容旧编译器）

如果你的编译器不支持Fortran 2003的语法，可以写一个简单的辅助函数，用来将任意长度的字符串填充到指定长度：

PROGRAM test
    implicit none
    character(len=5) :: s(3) = [pad_to_len("a",5), pad_to_len("bb",5), pad_to_len("c",5)]
    s(1) = "12345678"
    print *, s

contains
    function pad_to_len(s, target_len) result(padded_str)
        character(len=*), intent(in) :: s
        integer, intent(in) :: target_len
        character(len=target_len) :: padded_str
        
        padded_str = ""  ! 先初始化全空格
        ! 将原字符串复制到结果的前N位（N是原字符串长度和目标长度的较小值）
        padded_str(1:min(len_trim(s), target_len)) = trim(s)
    end function pad_to_len
END PROGRAM test

这个函数会先创建一个全空格的目标长度字符串，再把原字符串的有效内容（去掉末尾空格）复制进去，剩下的位置自动留空格。需要的时候直接调用就行，处理长字符串特别省心。

方法3：直接在构造器中拼接空格（临时应急）

如果只是偶尔用一次，不想写函数，也可以直接在数组构造器里用trim和repeat拼接空格：

PROGRAM test
    character(len=5) :: s(3) = [trim("a")//repeat(" ", max(0,5-len_trim("a"))), &
                                trim("bb")//repeat(" ", max(0,5-len_trim("bb"))), &
                                trim("c")//repeat(" ", max(0,5-len_trim("c")))]
    s(1) = "12345678"
    print *, s
END PROGRAM test

这种方式不需要额外函数，但写起来有点冗长，适合临时场景。