NAME:
     rdpricat
 PURPOSE: (one line)
     Read data from a private star catalog.
 DESCRIPTION:

     This procedure reads a semi-standard file containing a private format
     star catalog.

     The Version 1 format of the file is as follows:
        Line 1 - Id line, must be 'PRICAT v1'
        Line 2 - Number of magnitudes stored in file for each star.
                    You can also list the names for the magnitudes here.  They
                    aren't read but the documentation can be stored here.
        Line 3 to end -
           id name  h  m  s   sign  d  m  s   dra ddec epoch/equinox mag_1 mag_2 ... mag_n
           i3  a16 i2 i2 f6.3  a1  i2 i2 f5.2  d   d       f           f     f        f

        The RA and Dec must be in the epoch and equinox stated on the same line.
        The RA proper motion is in seconds of time per century (not including
        the cos(dec) factor.  The Dec proper motion is in seconds of arc
        per century.  If the epoch is listed as 2000.0 it is assumed to be
        in the J2000 coordinate system.  Any other epoch is treated as if
        it were in the B1950 system (regardless of epoch and equinox).
        Therefore, going to J2000 requires precession to B1950 then shifting
        to the J2000 system.

        Example -
       201 1989 Comp      12:22:34.455 +10:34:45.56 +0.0020 -0.0030 1950.0 14.567

     The values stored for the magnitudes are completely left up the the user.
     This program doesn't use it.

 CATEGORY:
     File I/O
 CALLING SEQUENCE:
     rdpricat,id,name,ra,dec,mags
 INPUTS:
     None.
 OPTIONAL INPUT PARAMETERS:
 KEYWORD INPUT PARAMETERS:
     EPOCH   - JD of epoch to correct for proper motion to.
                 Default = catalog epoch.
     FILE    - Name of star catalog file to read.
                 Default = 'private.cat'  in current directory.

     Only one of the following is allowed to be set.  If none are set,
        the coordinates will be returned in the equinox of the catalog.
     B1950   - Coordinates should be referred to equinox of B1950.
     J2000   - Coordinates should be referred to equinox of J2000.
     OFDATE  - Coordinates should be referred to equinox of date.
                 If selected, EPOCH must be provided.

 OUTPUTS:
	   id      - Identification number of the stars.
	   object  - Name of the stars.
	   ra      - Right Ascension in radians.
	   dec     - Declination in radians.
	   mags    - Stellar magnitude(s)

 KEYWORD OUTPUT PARAMETERS:
     DRA     - Proper motion in "/year for right ascension.
     DDEC    - Proper motion in "/year for declination.
     NMAGS   - number of magnitudes for each object.
     NPTS    - number of catalog entries.

 COMMON BLOCKS:
 SIDE EFFECTS:
 RESTRICTIONS:

   WARNING!!!! Do not put ANY tabs in the catalog file.  The program will
     very likely crash on that line.  v3.1.0 restriction?

 PROCEDURE:
 MODIFICATION HISTORY:
     93/03/31, Written by Marc W. Buie, Lowell Observatory
     93/09/30, MWB, fixed erroneous precession for OFDATE case.
  2000/11/08, MWB, removed use of obsolete ()