PROGRAM DECRYPT
C
C   Decrypts the FK5.BIN file and translates it into a human-readable
C   file called FK5.HUM
C
C   written 5 December 1991 by Andreas Quirrenbach
C   modified 13-Feb-1992 DFB to write out everything to full precision
C
C     IMPLICIT UNDEFINED (A-Z)
      IMPLICIT NONE
      INTEGER*4 ISTAR, FKCAT, I, IERR, N, HUMCAT
      INTEGER *4 SPECTRUM
      REAL *8 RAM, DECM
      REAL *4 PAR, RV, BV, PMRA, PMDEC, ANGDIA, VMAG
      CHARACTER * 8 NAME
      DATA FKCAT, HUMCAT   / 2, 3 /
C.......................................................................
      OPEN ( UNIT = FKCAT, FILE='FK5.BIN', FORM='UNFORMATTED',
     $       ACCESS='DIRECT', STATUS='OLD', RECL =60, IOSTAT=IERR )
      IF ( IERR .NE. 0 ) THEN
          WRITE(6,*) ' CANNOT OPEN BINARY FK5 CATALOG'
          STOP
      END IF
      OPEN ( UNIT = HUMCAT, FILE='FK5_HUM.DAT', STATUS='UNKNOWN')
      DO 250 I = 1, 2000
              READ(FKCAT,REC=I)  ISTAR, NAME, RAM, DECM, PMRA, PMDEC,
     $              PAR, RV, VMAG, BV, SPECTRUM, ANGDIA
              IF ( ISTAR .EQ. 0     ) GO TO 250
              IF ( ISTAR .NE. I ) THEN
                  WRITE(6,*) ' FK5 CATALOG IS CORRUPT '
                  WRITE(6,*) ' STAR ', I, ' IS NUMBERED ', ISTAR
              END IF
c              WRITE(HUMCAT,1300) ISTAR, NAME, RAM, DECM, VMAG, BV
              WRITE(HUMCAT,1300) ISTAR, NAME, RAM, DECM, PMRA, PMDEC,
     $              PAR, RV, VMAG, BV, SPECTRUM, ANGDIA
  250 CONTINUE
  300 CONTINUE
      endfile(humcat)
      STOP
C***********************************************************************
c 1300 FORMAT ( I5, A10, 1X, 2F7.2, 2X, 2F7.2 )
 1300 FORMAT ( I5 ,' ''',A8,'''', 1X, F11.7,F11.6, 2F9.3, F8.4, F7.1,
     : F6.2,F6.2,' ''',A4,'''',F8.5)
      END