みなさん。ありがとうございました。
みなさんの意見を参考に、以下のようなプラグラムをつくり、解決できました。


OPEN(10.FILE='file.csv',STATUS='OLD')
DO 100 K=1,LEN+21,1
IF(K.LE.21) THEN
READ(10,*)
ELSE
READ(10,*) T,C
HAIRETSU(K-21)=C
END IF
100 CONTINUE
　　　 …
CLOSE(10)

LENというのは、数値データの個数です。
読み込むデータファイル「file.csv」は、
一列目が空白で、２列目に数値データファイルが入ってるので、
一列目にTというダミーの変数を用い、２列目のCの値を配列に格納するプログラムです。

ここでまた質問なのですが、このプログラムだと、1列目の空白をTという変数に読み込むという
無駄な操作をしていることになり、効率が悪いと思われます。
この操作をなくして、直接２列目の数値データだけを読み込ませる方法というのはあるのでしょうか？