C
C     TO READ HARVARD CATALOG "allorder.dek" (CMT.DAT here) and create 
C     its compressed (one line per earthquake) version (FPSH.DAT here)
C     First compiled June 20, 1991
C
      PARAMETER (NARI=80)
      PARAMETER (NARO=95)
      CHARACTER*80 LINE1, LINE2, LINE3, LINE4
      CHARACTER*1 BLANK/' '/
      CHARACTER*95 OUTSTRING
C
      WRITE (6, 1) 
c      OPEN (UNIT=7,DISP='KEEP',FILE= 'cyclop$dua3:CMT.DAT',
c      OPEN (UNIT=7,DISP='KEEP',FILE='T.DAT',
      OPEN (UNIT=7,DISP='KEEP', FILE='disk$user:[CATALOG]CMT.DAT',
     1 STATUS='OLD', FORM='FORMATTED', READONLY)
C      OPEN (UNIT=8,DISP='KEEP', FILE= '[.DATA]FPSH91.DAT',
c      OPEN (UNIT=8,DISP='KEEP', FILE= 'cyclop$dua3:TEMP.DAT',
      OPEN (UNIT=8,DISP='KEEP', FILE='disk$user:[CATALOG]FPSH.DAT',
     1 STATUS='NEW')
C
      NCOUNT = 0
c
c       FILE='[CATALOG]CMT.DAT
c
C B010190A  1/ 1/90  7:49:35.8 -21.61 -179.46 597.05.10.0FIJI ISLANDS REGION     
C PDE BW:14 22  45 MW: 0  0   0 DT=  10.1 1.0 -21.70 0.08 -179.78 0.08 627.1  5.2
C  DUR 1.9 EX 24  0.91 0.07 -0.32 0.13 -0.59 0.12 -0.73 0.12 -1.01 0.11 -0.23 0.11
C    1.59 62 128  -0.19  2  34  -1.40 28 303   1.49  29 17   84 215 73   92
c---------------------------------------------------------------------------------
C 12345678901234567890123456789012345678901234567890123456789012345678901234567890
C          1         2         3         4         5         6         7         8
c
c            [KAGAN.DATA]FPSH91.DAT
c
c  8323 90  1  1  7:49:35.8   10.1 -21.70 -179.78 627.1 24  1.49 62 128 28 303  29 17   84 215 73   92
c----------------------------------------------------------------------------------------------------
c      1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
c               1         2         3         4         5         6         7         8         9         0 
C
  100 READ (7, 1100, END=1000) LINE1
 1100 FORMAT (A80)
      DO 200 I = 1, NARO
  200 OUTSTRING (I:I) = BLANK
      OUTSTRING(2:3) = LINE1(16:17)
      OUTSTRING(5:6) = LINE1(10:11)
      OUTSTRING(8:9) = LINE1(13:14)
      OUTSTRING(11:20) = LINE1(19:28)
      READ (7, 1100) LINE2
      OUTSTRING(22:27) = LINE2(34:39)
      OUTSTRING(29:34) = LINE2(45:50)
      OUTSTRING(36:42) = LINE2(57:63)
      OUTSTRING(44:48) = LINE2(70:74)
      READ (7, 1100) LINE3
      OUTSTRING(50:51) = LINE3(13:14)
      READ (7, 1100) LINE4
      OUTSTRING(53:57) = LINE4(45:49)
      OUTSTRING(59:64) = LINE4(9:14)
      OUTSTRING(66:71) = LINE4(37:42)
      OUTSTRING(73:95) = LINE4(51:73)
C
      NCOUNT = NCOUNT + 1
      WRITE (8, 3100) NCOUNT, OUTSTRING
      IF (MOD(NCOUNT,25).EQ.1) WRITE (6, 3000) NCOUNT, OUTSTRING
C
      GO TO 100
 1000 CONTINUE
      WRITE (6, 2000) NCOUNT, OUTSTRING
      TYPE 1010
    1 FORMAT ('1')
 1010 FORMAT ('0 END OF FILE ON UNIT 7 ')
 2000 FORMAT ('0end ', I7, 1X, A95)
 3000 FORMAT ('     ', I7, 1X, A95)
 3100 FORMAT (I6, A95)
C
      WRITE (6, 1) 
      CLOSE (UNIT=7)
C      CLOSE (UNIT=8)
      STOP
      END