我需要将一个维数较大的十进制数据，将第一列的前118个数放到一个一维数组中，我基础不太好，求大神指导
程序如下：program ex01
          integer  sz(605737,6),tim(5136),sat(118,5),tp(5136),dir(5136),speed(5136),rh(5136)

    open(1,file='f:\sj\2011.txt',form='unformatted')
    rewind(1)
    do j=1,6
    read(1,*) (sz(i,j),i=1,605737)
    enddo
    close(1)

    do i=1,118
    print*,sz(i,1)
    enddo

    end