>>539 単にこれで良いのではないか？
OPEN(10.FILE='file.csv',STATUS='OLD')
DO 100 K=1,LEN+21,1
　　READ(10,*) 　HAIRETSU(K-21)
100 CONTINUE
CLOSE(10)