>>241
わかりやすい注釈までいれていただいて、ありがとうございます。
k = INDEX(buff, ',')
buff = buff(k + 1:)
LEN_TRIM(buff) == 0
など、文字列処理の強力さはさすがですね。

配列手続といい、文字列処理といい、
f90 の強力さに、あらためて惚れなおしました。