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