FORTRAN Generation
(/./ftp/cats/V/35)

Conversion of standardized ReadMe file for file /./ftp/cats/V/35 into FORTRAN code for reading data files line by line.

Note that special values are assigned to unknown or unspecified numbers (also called NULL numbers); when necessary, the coordinate components making up the right ascension and declination are converted into floating-point numbers representing these angles in degrees.



      program load_ReadMe
C=============================================================================
C  F77-compliant program generated by readme2f_1.81 (2015-09-23), on 2018-Sep-20
C=============================================================================
*  This code was generated from the ReadMe file documenting a catalogue
*  according to the "Standard for Documentation of Astronomical Catalogues"
*  currently in use by the Astronomical Data Centers (CDS, ADC, A&A)
*  (see full documentation at URL http://vizier.u-strasbg.fr/doc/catstd.htx)
*  Please report problems or questions to   
C=============================================================================

      implicit none
*  Unspecified or NULL values, generally corresponding to blank columns,
*  are assigned one of the following special values:
*     rNULL__    for unknown or NULL floating-point values
*     iNULL__    for unknown or NULL   integer      values
      real*4     rNULL__
      integer*4  iNULL__
      parameter  (rNULL__=--2147483648.)  	! NULL real number
      parameter  (iNULL__=(-2147483647-1))	! NULL int  number
      integer    idig			! testing NULL number

C=============================================================================
Cat. V/35                Catalogue of nearby stars, Revised version 2  (Gliese+ 1979)
*================================================================================
*Catalogue of nearby stars and nearby star data published 1969-78
*     Gliese W., Jahreiss H.
*    <Astron. Astrophys. Suppl. Ser. 38, 423 (1979)>
*   =1979A&AS...38..423G
*   =2015yCat.5035....0G
C=============================================================================

C  Internal variables

      integer*4 i__

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'main.dat'	! Stars of Edition 2

      integer*4 nr__
      parameter (nr__=1899)	! Number of records
      character*132 ar__   	! Full-size record

C  B1950 position composed of: RAh RAm RAs DE- DEd (Epoch=B1950)
      real*8        RAdeg       ! (deg) Right Ascension B1950, Epoch=B1950
      real*8        DEdeg       ! (deg)     Declination B1950, Epoch=B1950
C  ---------------------------------- ! (position vector(s) in degrees)

      real*4        Gl          ! [1/915] Star number (1)
      character*1   m_Gl        ! [ABCD] Multiplicity index
      character*1   f_Gl        ! [*] The asterisk indicates a star beyond 22pc.
      character*12  Name        ! Common name of the star
      integer*4     HD          ! ? Henry Draper (III/135) identification
      integer*4     RAh         ! (h) Right Ascension B1950 (hours), Ep=B1950
      integer*4     RAm         ! (min) Right Ascension B1950 (minutes), Ep=B1950
      integer*4     RAs         ! (s) Right Ascension B1950 (seconds), Ep=B1950
      character*1   DE_         ! Declination B1950 (sign), Ep=B1950
      integer*4     DEd         ! (deg) Declination B1950 (degrees), Ep=B1950
      integer*4     DEdm        ! (0.1arcmin) Declination B1950 (deci-minutes), Ep=B1950
      integer*4     pmRA        ! (0.1ms/yr) Proper motion along RA
      integer*4     pmDE        ! (mas/yr) Proper motion along Declination
      integer*4     RV          ! (km/s) ? Radial velocity
      character*1   q_RV        ! [A-E*] Quality of radial velocity, A=best (G2)
      character*1   Lw          ! [3-7C] Wilson's luminosity class (3)
      character*3   Sp          ! Spectral temperature class (3)
      character*1   LC          ! [1-9] MK luminosity classification (3)
      character*1   pec         ! [1-9] Spectral peculiarity (3)
      character*1   Sj          ! [J] for a joint spectral type (binary)
      character*1   Sr          ! [CEGHKLMOW] Origin of the spectral type (4)
      integer*4     Vmag        ! (cmag) ? V-band magnitude
      character*1   f_Vmag      ! [PJ*] Vmag is Photographic (P), Joint (J) or
*                                     reduced from non-standard system (*)
      integer*4     B_V         ! (cmag) ? (B-V) color
      character*1   f_B_V       ! [J] Joint color
      integer*4     U_B         ! (cmag) ? (U-B) color
      character*1   f_U_B       ! [J] Joint color
      integer*4     R_I         ! (cmag) ? (R-I) color
      character*1   f_R_I       ! [J] Joint color
      integer*4     pi_t        ! (mas) ? Trigonometric parallax {pi}_t_
      integer*4     e_pi_t      ! (mas) ? Probable error on pi.t
      integer*4     Mt          ! (dmag) ? Trigonometrically determined Absolute magnitude
      character*1   q_Mt        ! [B-FP] Quality pf Mt (G1)
      integer*4     pi_s        ! (mas) ? Spectroscopic parallax {pi}_s_
      character*1   f_pi_s      ! [U] Uncertain pi.s
      integer*4     pi_p        ! (mas) ? Photometric parallax {pi}_p_
      character*1   f_pi_p      ! [U] Uncertain pi.p
      integer*4     pi_r        ! (mas) ? Resulting parallax {pi}_r_
      integer*4     e_pi_r      ! (mas) ? Probable error on pi.r
      integer*4     Mres        ! (cmag) ? Resulting absolute magnitude M_res_
      character*1   f_Mres      ! [P] Photographic absolute magnitude
      character*1   q_Mres      ! [A-F] Quality of Mres (G1)
      integer*4     Uvel        ! (km/s) ? U-component of spatial velocity (6)
      integer*4     Vvel        ! (km/s) ? V-component of spatial velocity (6)
      integer*4     Wvel        ! (km/s) ? W-component of spatial velocity (6)
*Note (1): the numbers of the first edition have a ".0" fraction; new stars
*   are added in order of increasing RA
*Note (3): Spectral type components are:
* * Wilson's luminosity class, which is is coded as
*   3=g(giant) 4=sg(subgiant) 5=d(dwarf) 6=sd(subdwarf) 7=D(degenerate)
*   C=spectral class is a color estimate by Luyten or Giclas
* * the temperature class (no decimal point in the subclass, e.g. "M55"
*   should be understood as "M5.5")
* * the MK luminosity class is a number meaning
*   1=II(giant) 2=III(giant), 3=III-IV, 4=IV(subgiant), 5=IV-V, 6=IV,V 7=V,
*   8=V-VI, 8=VI(subdwarf)
* * the peculiarities are coded as 1=p(peculiar), 2=e(emission), 4=m(metallic),
*   5=s(sharp lines), 6=ss(very sharp lines), 7=ep(emission+peculiar),
*   8=n(nebulous lines), 9=wk(weak-line)
*Note (4): references of the spectral type:
*  C = Cape Observatory
*  E = Eggen (data for white dwarfs)
*  G = Giclas (Lowell Proper Motion survey)
*  H = Harvard (HD spectra)
*  K = Kuiper (many late-type stars)
*  L = Luyten (mostly color classes f, g, k, m given here as F, G, K, M with
*      a "C" preceding)
*  M = McCormick (mostly red dwarfs on Vyssotsky's program)
*  O = MK classifications on objective prism plates
*  W = Mount Wilson (mainly from the "General Catalog of Stellar Radial
*      Velocities, see III/21)
*Note (6): the components of the spatial velocity a positive toward
*  * the galactic center (U)
*  * the galactic rotation (V)
*  * the North galactic pole (W)

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'suppl.dat'	! Supplement of stars with distance <=22pc (table 1)

      integer*4 nr__1
      parameter (nr__1=333)	! Number of records
      character*130 ar__1  	! Full-size record

C  B1950 position composed of: RAh RAm RAs DE- DEd DEm (Epoch=B1950)
      real*8        RAdeg_1     ! (deg) Right Ascension B1950, Epoch=B1950
      real*8        DEdeg_1     ! (deg)     Declination B1950, Epoch=B1950
C  ---------------------------------- ! (position vector(s) in degrees)

      integer*4     GJ          ! [1001/1294] Star number
      character*2   m_GJ        ! [AB C-] Multiplicity index
      integer*4     RAh_1       ! (h) Right Ascension B1950 (hours), Ep=B1950
      integer*4     RAm_1       ! (min) Right Ascension B1950 (minutes), Ep=B1950
      integer*4     RAs_1       ! (s) Right Ascension B1950 (seconds), Ep=B1950
      character*1   DE__1       ! Declination B1950 (sign), Ep=B1950
      integer*4     DEd_1       ! (deg) Declination B1950 (degrees), Ep=B1950
      real*4        DEm         ! (arcmin) Declination B1950 (deci-minutes), Ep=B1950
      character*1   ch          ! [GR*] Chart origin (G4)
      real*4        pm          ! (arcsec/yr) ? Total proper motion
      integer*4     pmPA        ! (deg) [0/360]? Proper motion position angle
      integer*4     RV_1        ! (km/s) ? Radial velocity
      character*1   q_RV_1      ! [A-E*] Quality of radial velocity, A=best (G2)
      character*1   r_RV        ! [RGTW] Origin of the radial velocity (2)
      character*7   SpT         ! MK Spectral type
      real*4        Vmag_1      ! (mag) ? V-band magnitude
      character*2   n_Vmag      ! [: PJ*] Vmag is not in standard system (G5)
      real*4        B_V_1       ! (mag) ? (B-V) color
      character*2   f_B_V_1     ! [: *J] (B-V) flag (G5)
      real*4        U_B_1       ! (mag) ? (U-B) color
      character*1   f_U_B_1     ! [:*JC] (U-B) flag (G5)
      real*4        R_I_1       ! (mag) ? (R-I) color
      character*1   f_R_I_1     ! [:*J] (R-I) flag (G5)
      integer*4     pi_t_1      ! (mas) ? Trigonometric parallax {pi}_t_
      integer*4     e_pi_t_1    ! (mas) ? Probable error on pi.t
      character*8   r_pi_t      ! Reference(s) of parallaxes
      real*4        Mt_1        ! (mag) ? Absolute magnitude from trigo. parallax
      character*1   q_Mt_1      ! [A-FP] Quality of Mt, A=best (G1)
      integer*4     pi_s_1      ! (mas) ? Specroscopic or photometric parallax
      real*4        Ms          ! (mag) ? Absolute magnitude from pi.s
      character*1   u_Ms        ! Uncertainty flag on Ms
      character*3   r_Ms        ! ? Source of Ms (G3)
*Note (2): Origin of the radial velocity:
*   R = Rodgers & Eggen 1974PASP...86..742R
*   G = Greenstein & Trimble 1967ApJ...149..283G
*   T = Trimble & Greenstein 1972ApJ...177..441T
*   W = Wegner 1974MNRAS.166..271W

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'supplid.dat'	! Identifications of the supplement stars (table 1)

      integer*4 nr__2
      parameter (nr__2=333)	! Number of records
      character*116 ar__2  	! Full-size record

      integer*4     GJ_1        ! [1001/1294] Star number
      character*2   m_GJ_1      ! [AB C-] Multiplicity index
      integer*4     LHS         ! ? Identifier in LHS (Luyten 1979, see Cat. I/87)
      character*1   m_LHS       ! [A] Additional star in LHS
      integer*4     LTT         ! ? Identifier in Luyten's Two Tenths (Minneapolis)
      integer*4     LFT         ! ? Identifier in Luyten's Five Tenths (Minneapolis)
      character*8   G           ! Identifier in Giclas lists (I/79, I/112)
      integer*4     EgGr        ! ? Identifier in Eggen/Greenstein lists
      character*4   V_U         ! Identifier in Vyssotsky's or Upgren's lists
      character*10  DM          ! Durchmusterung identifier: BD({delta}>-22) or CD
      character*8   CPD         ! Cape Photographic Durchmusterung (I/108)
      integer*4     HD_1        ! ? Henry Draper Identifier (III/135)
      integer*4     GC          ! ? General Catalog (B.Boss, I/113)
      character*17  OName       ! Other identifications (comma-separated list)

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'suspect.dat'	! Stars suspected to be within 22pc (table 2)

      integer*4 nr__3
      parameter (nr__3=172)	! Number of records
      character*139 ar__3  	! Full-size record

C  B1950 position composed of: RAh RAm RAs DE- DEd DEm (Epoch=B1950)
      real*8        RAdeg_2     ! (deg) Right Ascension B1950, Epoch=B1950
      real*8        DEdeg_2     ! (deg)     Declination B1950, Epoch=B1950
C  ---------------------------------- ! (position vector(s) in degrees)

      integer*4     GJ_2        ! [2001/2159] Star number
      character*2   m_GJ_2      ! [AB C-] Multiplicity index
      integer*4     RAh_2       ! (h) Right Ascension B1950 (hours), Ep=B1950
      integer*4     RAm_2       ! (min) Right Ascension B1950 (minutes), Ep=B1950
      integer*4     RAs_2       ! (s) Right Ascension B1950 (seconds), Ep=B1950
      character*1   DE__2       ! Declination B1950 (sign), Ep=B1950
      integer*4     DEd_2       ! (deg) Declination B1950 (degrees), Ep=B1950
      real*4        DEm_1       ! (arcmin) Declination B1950 (deci-minutes), Ep=B1950
      character*1   ch_1        ! [EGRLS*] Chart origin (G4)
      character*1   l_pm        ! [<] Limit flag on proper motio n
      real*4        pm_1        ! (arcsec/yr) ? Total proper motion
      integer*4     pmPA_1      ! (deg) [0/360]? Proper motion position angle
      character*8   SpT_1       ! MK Spectral type
      real*4        Vmag_2      ! (mag) ? V-band magnitude
      character*2   n_Vmag_1    ! [: PJ*] Vmag is not in standard system (G5)
      real*4        B_V_2       ! (mag) ? (B-V) color
      character*2   f_B_V_2     ! [: *J] (B-V) flag (G5)
      real*4        U_B_2       ! (mag) ? (U-B) color
      character*1   f_U_B_2     ! [:*JC] (U-B) flag (G5)
      real*4        R_I_2       ! (mag) ? (R-I) color
      character*1   f_R_I_2     ! [:*J] (R-I) flag (G5)
      real*4        Ms_1        ! (mag) ? Absolute magnitude from pi.s
      character*1   u_Ms_1      ! [:P] uncertain Ms (:), or photographic (P)
      character*1   r_Ms_1      ! [EGSd*] Source of Ms: Eggen, Greenstein, or
*                                Stephenson; d if strar assumed to be a dwarf,
*                                and * refers to a note in the original paper
      real*4        m_M         ! (mag) ? Distance modulus
      character*1   u_m_M       ! Uncertainty flag on m-M
      character*32  Names       ! Comma-separated name(s) of the star

C=============================================================================

C  Loading file 'main.dat'	! Stars of Edition 2

C  Format for file interpretation

    1 format(
     +  F5.1,A1,A1,A12,I6,I2,I2,I2,A1,I2,1X,I3,1X,I5,I5,I4,1X,A1,A1,
     +  A3,A1,A1,A1,A1,1X,I4,A1,1X,I3,A1,I4,A1,1X,I3,A1,1X,I3,1X,I2,
     +  1X,I3,A1,1X,I3,A1,1X,I3,A1,1X,I3,1X,I2,1X,I4,A1,A1,I4,I4,I4)

C  Effective file loading

      open(unit=1,status='old',file=
     +'main.dat')
      write(6,*) '....Loading file: main.dat'
      do i__=1,1899
        read(1,'(A132)')ar__
        read(ar__,1)
     +  Gl,m_Gl,f_Gl,Name,HD,RAh,RAm,RAs,DE_,DEd,DEdm,pmRA,pmDE,RV,
     +  q_RV,Lw,Sp,LC,pec,Sj,Sr,Vmag,f_Vmag,B_V,f_B_V,U_B,f_U_B,R_I,
     +  f_R_I,pi_t,e_pi_t,Mt,q_Mt,pi_s,f_pi_s,pi_p,f_pi_p,pi_r,e_pi_r,
     +  Mres,f_Mres,q_Mres,Uvel,Vvel,Wvel
        if(ar__(20:25) .EQ. '') HD = iNULL__
        if(ar__(50:53) .EQ. '') RV = iNULL__
        if(ar__(65:68) .EQ. '') Vmag = iNULL__
        if(ar__(71:73) .EQ. '') B_V = iNULL__
        if(ar__(75:78) .EQ. '') U_B = iNULL__
        if(ar__(81:83) .EQ. '') R_I = iNULL__
        if(ar__(86:88) .EQ. '') pi_t = iNULL__
        if(ar__(90:91) .EQ. '') e_pi_t = iNULL__
        if(ar__(93:95) .EQ. '') Mt = iNULL__
        if(ar__(98:100) .EQ. '') pi_s = iNULL__
        if(ar__(103:105) .EQ. '') pi_p = iNULL__
        if(ar__(108:110) .EQ. '') pi_r = iNULL__
        if(ar__(112:113) .EQ. '') e_pi_r = iNULL__
        if(ar__(115:118) .EQ. '') Mres = iNULL__
        if(ar__(121:124) .EQ. '') Uvel = iNULL__
        if(ar__(125:128) .EQ. '') Vvel = iNULL__
        if(ar__(129:132) .EQ. '') Wvel = iNULL__
        RAdeg = rNULL__
        DEdeg = rNULL__
c  Derive coordinates RAdeg and DEdeg from input data
c  (RAdeg and DEdeg are set to rNULL__ when unknown)
        if(RAh .GT. -180) RAdeg=RAh*15.
        if(RAm .GT. -180) RAdeg=RAdeg+RAm/4.
        if(RAs .GT. -180) RAdeg=RAdeg+RAs/240.
        if(DEd .GE. 0) DEdeg=DEd
        if(DE_.EQ.'-'.AND.DEdeg.GE.0) DEdeg=-DEdeg
c    ..............Just test output...........
        write(6,1)
     +  Gl,m_Gl,f_Gl,Name,HD,RAh,RAm,RAs,DE_,DEd,DEdm,pmRA,pmDE,RV,
     +  q_RV,Lw,Sp,LC,pec,Sj,Sr,Vmag,f_Vmag,B_V,f_B_V,U_B,f_U_B,R_I,
     +  f_R_I,pi_t,e_pi_t,Mt,q_Mt,pi_s,f_pi_s,pi_p,f_pi_p,pi_r,e_pi_r,
     +  Mres,f_Mres,q_Mres,Uvel,Vvel,Wvel
        write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'suppl.dat'	! Supplement of stars with distance <=22pc (table 1)

C  Format for file interpretation

    2 format(
     +  2X,I4,A2,1X,I2,1X,I2,1X,I2,2X,A1,I2,1X,F4.1,2X,A1,2X,F4.2,1X,
     +  I3,2X,I4,1X,A1,A1,2X,A7,2X,F5.2,A2,1X,F5.2,A2,1X,F5.2,A1,2X,
     +  F5.2,A1,2X,I3,1X,I2,1X,A8,1X,F5.2,1X,A1,2X,I3,2X,F4.1,A1,A3)

C  Effective file loading

      open(unit=1,status='old',file=
     +'suppl.dat')
      write(6,*) '....Loading file: suppl.dat'
      do i__=1,333
        read(1,'(A130)')ar__1
        read(ar__1,2)
     +  GJ,m_GJ,RAh_1,RAm_1,RAs_1,DE__1,DEd_1,DEm,ch,pm,pmPA,RV_1,
     +  q_RV_1,r_RV,SpT,Vmag_1,n_Vmag,B_V_1,f_B_V_1,U_B_1,f_U_B_1,
     +  R_I_1,f_R_I_1,pi_t_1,e_pi_t_1,r_pi_t,Mt_1,q_Mt_1,pi_s_1,Ms,
     +  u_Ms,r_Ms
        if(ar__1(33:36) .EQ. '') pm = rNULL__
        if(ar__1(38:40) .EQ. '') pmPA = iNULL__
        if(ar__1(43:46) .EQ. '') RV_1 = iNULL__
        if(ar__1(61:65) .EQ. '') Vmag_1 = rNULL__
        if(ar__1(69:73) .EQ. '') B_V_1 = rNULL__
        if(ar__1(77:81) .EQ. '') U_B_1 = rNULL__
        if(ar__1(85:89) .EQ. '') R_I_1 = rNULL__
        if(ar__1(93:95) .EQ. '') pi_t_1 = iNULL__
        if(ar__1(97:98) .EQ. '') e_pi_t_1 = iNULL__
        if(ar__1(109:113) .EQ. '') Mt_1 = rNULL__
        if(ar__1(118:120) .EQ. '') pi_s_1 = iNULL__
        if(ar__1(123:126) .EQ. '') Ms = rNULL__
        RAdeg_1 = rNULL__
        DEdeg_1 = rNULL__
c  Derive coordinates RAdeg_1 and DEdeg_1 from input data
c  (RAdeg_1 and DEdeg_1 are set to rNULL__ when unknown)
        if(RAh_1 .GT. -180) RAdeg_1=RAh_1*15.
        if(RAm_1 .GT. -180) RAdeg_1=RAdeg_1+RAm_1/4.
        if(RAs_1 .GT. -180) RAdeg_1=RAdeg_1+RAs_1/240.
        if(DEd_1 .GE. 0) DEdeg_1=DEd_1
        if(DEm .GE. 0) DEdeg_1=DEdeg_1+DEm/60.
        if(DE__1.EQ.'-'.AND.DEdeg_1.GE.0) DEdeg_1=-DEdeg_1
c    ..............Just test output...........
        write(6,2)
     +  GJ,m_GJ,RAh_1,RAm_1,RAs_1,DE__1,DEd_1,DEm,ch,pm,pmPA,RV_1,
     +  q_RV_1,r_RV,SpT,Vmag_1,n_Vmag,B_V_1,f_B_V_1,U_B_1,f_U_B_1,
     +  R_I_1,f_R_I_1,pi_t_1,e_pi_t_1,r_pi_t,Mt_1,q_Mt_1,pi_s_1,Ms,
     +  u_Ms,r_Ms
        write(6,'(6H Pos: 2F8.4)') RAdeg_1,DEdeg_1
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'supplid.dat'	! Identifications of the supplement stars (table 1)

C  Format for file interpretation

    3 format(
     +  2X,I4,A2,3X,I4,A1,2X,I5,3X,I4,3X,A8,3X,I3,3X,A4,3X,A10,3X,A8,
     +  3X,I6,3X,I5,4X,A17)

C  Effective file loading

      open(unit=1,status='old',file=
     +'supplid.dat')
      write(6,*) '....Loading file: supplid.dat'
      do i__=1,333
        read(1,'(A116)')ar__2
        read(ar__2,3)
     +  GJ_1,m_GJ_1,LHS,m_LHS,LTT,LFT,G,EgGr,V_U,DM,CPD,HD_1,GC,OName
        if(ar__2(12:15) .EQ. '') LHS = iNULL__
        if(ar__2(19:23) .EQ. '') LTT = iNULL__
        if(ar__2(27:30) .EQ. '') LFT = iNULL__
        if(ar__2(45:47) .EQ. '') EgGr = iNULL__
        if(ar__2(82:87) .EQ. '') HD_1 = iNULL__
        if(ar__2(91:95) .EQ. '') GC = iNULL__
c    ..............Just test output...........
        write(6,3)
     +  GJ_1,m_GJ_1,LHS,m_LHS,LTT,LFT,G,EgGr,V_U,DM,CPD,HD_1,GC,OName
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'suspect.dat'	! Stars suspected to be within 22pc (table 2)

C  Format for file interpretation

    4 format(
     +  2X,I4,A2,1X,I2,1X,I2,1X,I2,2X,A1,I2,1X,F4.1,2X,A1,1X,A1,F4.2,
     +  1X,I3,10X,A8,2X,F5.2,A2,1X,F5.2,A2,1X,F5.2,A1,2X,F5.2,A1,2X,
     +  F4.1,A1,A1,2X,F4.1,A1,2X,A32)

C  Effective file loading

      open(unit=1,status='old',file=
     +'suspect.dat')
      write(6,*) '....Loading file: suspect.dat'
      do i__=1,172
        read(1,'(A139)')ar__3
        read(ar__3,4)
     +  GJ_2,m_GJ_2,RAh_2,RAm_2,RAs_2,DE__2,DEd_2,DEm_1,ch_1,l_pm,
     +  pm_1,pmPA_1,SpT_1,Vmag_2,n_Vmag_1,B_V_2,f_B_V_2,U_B_2,f_U_B_2,
     +  R_I_2,f_R_I_2,Ms_1,u_Ms_1,r_Ms_1,m_M,u_m_M,Names
        if(ar__3(33:36) .EQ. '') pm_1 = rNULL__
        if(ar__3(38:40) .EQ. '') pmPA_1 = iNULL__
        if(ar__3(61:65) .EQ. '') Vmag_2 = rNULL__
        if(ar__3(69:73) .EQ. '') B_V_2 = rNULL__
        if(ar__3(77:81) .EQ. '') U_B_2 = rNULL__
        if(ar__3(85:89) .EQ. '') R_I_2 = rNULL__
        if(ar__3(93:96) .EQ. '') Ms_1 = rNULL__
        if(ar__3(101:104) .EQ. '') m_M = rNULL__
        RAdeg_2 = rNULL__
        DEdeg_2 = rNULL__
c  Derive coordinates RAdeg_2 and DEdeg_2 from input data
c  (RAdeg_2 and DEdeg_2 are set to rNULL__ when unknown)
        if(RAh_2 .GT. -180) RAdeg_2=RAh_2*15.
        if(RAm_2 .GT. -180) RAdeg_2=RAdeg_2+RAm_2/4.
        if(RAs_2 .GT. -180) RAdeg_2=RAdeg_2+RAs_2/240.
        if(DEd_2 .GE. 0) DEdeg_2=DEd_2
        if(DEm_1 .GE. 0) DEdeg_2=DEdeg_2+DEm_1/60.
        if(DE__2.EQ.'-'.AND.DEdeg_2.GE.0) DEdeg_2=-DEdeg_2
c    ..............Just test output...........
        write(6,4)
     +  GJ_2,m_GJ_2,RAh_2,RAm_2,RAs_2,DE__2,DEd_2,DEm_1,ch_1,l_pm,
     +  pm_1,pmPA_1,SpT_1,Vmag_2,n_Vmag_1,B_V_2,f_B_V_2,U_B_2,f_U_B_2,
     +  R_I_2,f_R_I_2,Ms_1,u_Ms_1,r_Ms_1,m_M,u_m_M,Names
        write(6,'(6H Pos: 2F8.4)') RAdeg_2,DEdeg_2
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================
      stop
      end