Fortran READ语句疑问：LREST作用、未初始化变量及循环问题

Hey there! As someone who's worked with Fortran for years, let's walk through each of your questions about this code snippet clearly—no jargon overload, promise.

1. READ语句中LREST的作用 #

你提到原以为这个位置应该是单元号，这很正常！在Fortran里，READ的第一个参数确实通常是外部文件单元号（整数，比如READ(10, ...)），但它也可以是内部文件（internal file）——也就是一个字符型变量、字符数组或者字符数组片段，用来在内存中模拟文件的读写操作，相当于一个内存缓冲区。

既然LREST是子例程的参数，而你在*.f文件里没找到它的定义，大概率它是一个字符型的内部文件（比如CHARACTER*(*)或者CHARACTER(LEN=...)类型的参数），被调用方传入后，这个READ就是从这个内存缓冲区里读取数据，而不是从磁盘文件读取。

2. ICHR未初始化，READ读取什么？IF分支会不会执行？ #

这里你可能误解了：ICHR虽然在子例程里定义时没赋值，但READ(LREST, END=350, ERR=350) ICHR这条语句就是给ICHR赋值的！它会从LREST（内部文件）的当前读取位置，读取16个字符（因为ICHR是16字符变量）到ICHR中，覆盖它的初始值（不管之前有没有）。

所以IF(ICHR .EQ. ICHKLNK)的判断是有意义的：只要从LREST里读取到的16字符和已赋值的ICHKLNK完全匹配，就会进入这个IF分支，并不是永远不会执行。

3. DO循环中的变量L未使用，这个READ做什么？ #

这个DO L = 1, 4循环里的READ(LREST, END=350, ERR=350)没有指定输出变量，它的作用是跳过输入内容。

如果LREST是内部文件，每次执行这个无变量的READ，会跳过当前位置之后的下一个“记录”（如果是带换行的文本），或者跳过对应长度的字符（如果是连续的字符缓冲区）。这里循环4次，就是要连续跳过4段内容，而L只是一个循环计数器，用来控制循环执行4次——这种“计数器仅用于控制循环次数，不在循环体内使用”的写法在Fortran里非常常见，完全合法。

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