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  modified          , 5 Feb, 1993 Christian Hummel
C
      IMPLICIT UNDEFINED (A-Z)
      SAVE
      INTEGER*4 ISTAR, IREC, LCAT, I, IERR, INAME(2), STARNO, SPECTRUM
      character name*8
      REAL*8 RAM, DECM
      REAL*4  PAR, RV, MAG, PMRA, PMDEC, ANGDIA, BV
      LOGICAL FIRST
      DATA FIRST / .TRUE. /
      DATA LCAT  / 53 /
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.2000) ) THEN
          WRITE(0,*) ' Bad FK5 number ', ISTAR
          RAM  = 0.D0
          DECM = 0.D0
          stop
      ELSE
          READ( LCAT,REC=ISTAR)  STARNO, INAME(1), INAME(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
          write(name,'(2a4)')iname(1),iname(2)
      END IF
      RETURN
      END