************************************************************************
*       Программа преобразования данных по замерам  10.10.91
************************************************************************
        dimension Qpi(4,8)  ! замер 8 - инградиентов на 4 пунктах
        integer*2 i, p, Qpi
        character*10 string
        open(10,status='old',file = 'tumzagc.dat')    ! исходный файл
        open(20,status='new',file = 'tumzagc.con')    ! результиру. файл

    1   continue
        read(10,200,end=7777,err=8888) string
        write(20,200) string
                do p = 1, 4
        read(10,100,end=7777,err=8888) (Qpi(p,i), i = 1,8)
                end do
                do p = 1, 8
        write(20,100) (Qpi(i,p), i = 1,4)
                end do

        go to 1   !  на начало
  100   format(10i4)
  200   format(a)
 8888   continue
        write(*,*) 'Ошибка при чтении файла !!!'
 7777   continue
        write(*,*) 'Программа закончила работу.'
        stop
        end