real :: a( n-1 ) , bread( 文件通道号 , * ) a(:) , b其中，a数组只定义，不使用。
read里只写3个变量就行了do i ＝ 1：n read（fid＊）a（i），b（i），c（i）end do
