SUBROUTINE CATALOG( ISTAR, NAME, RAM, DECM, PMRA, PMDEC, PAR, 
     $           RV, MAG, BV, SPECTRUM, ANGDIA )
C
C  CATALOG finds a star in the FK5 catalog.  Returns star name (NAME)
C       position ( RAM, DECM ) in fractional hours and degrees 
C       proper motion ( PMRA, PMDEC ) parallax (PAR), 
C       radial velocity ( RV), V magnitude (MAG)
C
C  written and tested, 7 Dec, 1986 David Mozurkewich
C   FK5 catalog added, 6 Mar, 1987
C
      IMPLICIT UNDEFINED (A-Z)
      SAVE
      INTEGER*4 ISTAR, IREC, LCAT, I, IERR, NAME(4), STARNO, SPECTRUM
      REAL*8 RAM, DECM
      REAL*4  PAR, RV, MAG, PMRA, PMDEC, RAD, ANGDIA, BV
      LOGICAL FIRST
      DATA FIRST / .TRUE. /
      DATA LCAT, RAD    / 53, 57.29577951D0 /
C-----------------------------------------------------------------------
      IF ( FIRST ) THEN
          OPEN ( UNIT = LCAT, FILE='X:\FK5.BIN', RECL=60,
     $           FORM='UNFORMATTED', ACCESS='DIRECT', STATUS='OLD',
     $           IOSTAT=IERR )
          IF ( IERR .NE. 0 ) THEN
              WRITE(0,*) ' ERROR', IERR, ' OPENING CATALOG FILE '
              WRITE(0,*) ' CATALOG DIES '
              STOP
          END IF
          FIRST = .FALSE.
       END IF
C
      IF ( (ISTAR .LE. 0) .OR. (ISTAR.GT.2001) ) THEN
          WRITE(0,*) ' Bad FK5 number ', ISTAR
          RAM  = 0.D0
          DECM = 0.D0
      ELSE
          READ( LCAT,REC=ISTAR)  STARNO, NAME(1), NAME(2),
     $      RAM, DECM, PMRA, PMDEC, PAR, RV, MAG, BV, SPECTRUM, ANGDIA
          IF ( STARNO .NE. ISTAR ) THEN
              WRITE(0,*) ' CATALOG is corrupt! '
              WRITE(0,*) ' Record ', ISTAR, ' contains star ', STARNO
              WRITE(0,*) ' CATALOG bombs '
              STOP
          END IF
      END IF
      RETURN
  200 CONTINUE
      WRITE(0,1021) I, IERR
      STOP
 1021 FORMAT ( ' fatal error while reading FK5.bin  catalog '/
     $  ' error number:', I5, ' record number:', I5/ ' too bad !')
      END