>>558
REAL*8 HAIRETSU(-20:LEN)
とかしとけば大丈夫!

…文字列読み込んだとたんにruntime errorになりそうだが