************************************************************************
*       Программа преобразования данных по замерам 11.10.91
*       в неформатном виде
************************************************************************
      INTEGER Q(20,20)
      INTEGER GOD,MEC,
     *DATA,CPOK                                                         00004250
      open(21, file='zamert',status='new',form='unformatted')
        I = 8
        P = 4
   45 READ(15,120, end = 777)GOD,MEC,DATA,CPOK
                do K = 1,I
        read(15,100) (Q(M,K), M = 1,P)
                end do
      write(21,ERR=777)GOD,MEC,DATA,CPOK,((Q(M,K),M=1,P),K=1,I)
        go to 45
  120 FORMAT(I4,I2,I2,I2)                                               00007810
  100   format(20i4)
  777   continue
        stop
        end