program form
c======================================================
c Программа переформатирования бюллетеня Камчатки (сбитый формат)
c======================================================
           integer*4 in1,in2,in3,in4,in5,in6,in8,in9,in10,in12,in13,in14
           real      rr4,rr5,rr6,rr7,rr11,rr15,rr16
           character*14 fname
           character*8 date
           character*4 aaa
           character*3 aaa1,aaa2

        write (*,903)
903     format (1x,'Введите имя исходного файла: ')
        read (*,902) fname
902     format (a14)            
        open (unit=1,file=fname)
        write (*,904)
904     format (1x,'Введите имя выходного файла: ')
        read (*,902) fname        
        open (unit=2,file=fname)
        nin=0
        nout=0

1       continue
        read(1,*,end=2,err=23) date,in1,in2,rr4,rr6,rr7,in9,
     *                     rr11,rr15,aaa,aaa1,iii1,rrr1,aaa2,iii2,rrr2
      nin=nin+1
      
c900     format(a8,2i5,3x,f4.1,5x,f5.2,3x,f6.2,i7,
c     *         2f6.1,1x,a4,2(1x,a3,i3,f5.1))

c DATA    HOU MIN SEC     LAT   LONG   DEPTH KS  MB NAME_SID_PMIN_SEC_PID_SMINSEC_S
c 01.12.97  4  24 32.9   49.57  156.59    4010.34.1SKR   IP    24 52.8IS   25  7.3
c 01.12.97  4  24 32.9   49.57  156.59    4010.34.1PAU   EP    25  4.3ES   25 26.9
c 01.12.97  4  24 32.9   49.57  156.59    4010.34.1RUS   EP    25 20.6ES   25 55.1
c 01.12.97  4  24 32.9   49.57  156.59    4010.34.1GRL   IP    25 22.0ES   25 58.1
900     format(2x,a8,i3,i4,f5.1,3x,f5.2,f8.2,i6,
     *         f4.1,f3.1,a4,2x,a3,i5,f5.1,a3,i4,f5.1)
        write(2,900) date,in1,in2,rr4,rr6,rr7,in9,
     *                     rr11,rr15,aaa,aaa1,iii1,rrr1,aaa2,iii2,rrr2

c01.01.98',16,8,7.5,53.56,161.84,6,10.5,4.2,'KZY','EP',8,54.2,'ES',9,27.9
c01.01.98',16,8,7.5,53.56,161.84,6,10.5,4.2,'KBT','EP',8,52.0,'ES',9,25.0

806     nout=nout+1
          go to 1

2       continue
        print 210,nin,nout
210     format (/' Считано событий ',i6/' Записано событий ',i6/)
        close (unit=1)
        close (unit=2)
        stop  'Конец работы программы form'
23        write(2,900) date,in1,in2,rr4,rr6,rr7,in9,
     *                     rr11,rr15,aaa,aaa1,iii1,rrr1,aaa2,iii2,rrr2
        end