FORTRAN Generation
(/./ftp/cats/III/235B)

Conversion of standardized ReadMe file for file /./ftp/cats/III/235B 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 2024-Mar-28
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. III/235B        Spectroscopically Identified White Dwarfs  (McCook+, 2008)
*================================================================================
*A Catalogue of Spectroscopically Identified White Dwarfs (Version May 2008)
*     McCook G.P., Sion E.M.
*    <Astrophys. J. Suppl. Ser. 121, 1 (1999)>
*    =1999ApJS..121....1M
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'catalog.dat'	! Data for the White Dwarfs

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

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

      character*1   New         ! [Nc] for a New star, c for corrected position
      character*10  WD          ! White Dwarf (WD) number (1)
      character*1   n_WD        ! [*] Name originally J-based (7)
      integer*4     RAh         ! (h) ?Hours RA, Equinox=B1950, Epoch=1950.0 (2)
      integer*4     RAm         ! (min) ?Minutes RA, Equinox=B1950, Epoch=1950.0 (2)
      integer*4     RAs         ! (s) [0/60]? Seconds RA (2)
      character*1   DE_         ! ?Declination sign (2)
      integer*4     DEd         ! (deg) ?Degrees Dec, Equinox=B1950, Epoch=1950.0 (2)
      real*4        DEm         ! (arcmin) ?Minutes Dec, Equinox=B1950, Epoch=1950.0 (2)
      character*9   SpType      ! Spectral type (definitions in the paper,
*                                    or in file "preface.tex").
      character*1   bNote       ! [*b?] 'b' if white dwarf is member of binary,
*                                       '*' indicates a note in file "notes.dat"
      character*2   r_SpType    ! Reference code for spectral type
      character*1   M1          ! [NACU] Modifications of spectral type (6)
      character*26  Names       ! Other names for this star, see table Names
      real*4        Vmag        ! (mag) ?V or other magnitude (see n_Vmag)
      character*1   u_Vmag      ! Uncertainty flag (:) on Vmag
      character*2   n_Vmag      ! [pgBv ] v = multichannel V, pg = photographic,
*                                          B = Johnson B
      real*4        B_V         ! (mag) ?B-V color in the UBV system
      character*1   u_B_V       ! Uncertainty flag (:) on B-V color
      character*3   col         ! Color class from Lowell or Luyten PM surveys
      real*4        U_B         ! (mag) ?U-B color in the UBV system
      character*1   u_U_B       ! Uncertainty flag (:) on U-B color
      character*2   r_Vmag      ! Wide band photometry reference code
      character*1   M2          ! [NACU] Modifications of UBV magnitudes (6)
      real*4        Vsphot      ! (mag) ?V mag from multichannel spectrophotometry
      real*4        v_g_r       ! (mag) ?g-r color from spectrophotometry
      character*1   u__g_r      ! Uncertainty flag (:) on g-r
      character*2   r_Vsphot    ! Multichannel spectrophotometry reference code
      character*1   M3          ! [NACU] Modifications of Vsphot (6)
      real*4        ymag        ! (mag) ?y mag from ubvy photoelectric observations
      real*4        b_y         ! (mag) ?b-y color from uvby
      character*1   u_b_y       ! Uncertainty flag (:) on b-y
      real*4        u_b_1       ! (mag) ?u-b color from uvby
      character*2   r_ymag      ! uvby photoelectric photometry reference code
      character*1   M4          ! [NACU] Modifications of uvby photometry (6)
      real*4        AbsMag      ! (mag) ?Absolute visual (or B) magnitude (3)
      character*1   f_AbsMag    ! [:B] uncertainty flag or B AbsMag (3)
      integer*4     Teff        ! (kK) ?Effective temperature
      character*2   n_AbsMag    ! Method of calculation of AbsMag (5)
      character*1   M5          ! [NACabc] Modification of AbsMag (6)
      character*1   l_pm        ! [~<] Limit flag on pm
      real*4        pm          ! (arcsec/yr) ?Total proper motion
      character*1   u_pm        ! [:!0123] Uncertainty flag (:) on pm,
*                                    problem on proper motion (!),
*                                    or Estimated proper motion (4)
      real*4        pmPA        ! (deg) ?Position angle of proper motion vector
      character*2   r_pm        ! Proper motion reference code
      character*1   M6          ! [NAC] New line, Additional or Corrected pm
      real*4        RadVel      ! (km/s) ?Radial velocity
      character*2   r_RadVel    ! Radial velocity reference
      character*1   M7          ! [NAC] Modification of RadVel (6)
      real*8        Plx         ! (arcsec) ?Trigonometric parallax
      real*4        e_Plx       ! (mas) ?Reported mean error of parallax
      character*2   r_Plx       ! Parallax reference code
      character*1   M8          ! [NACU] Modification of parallax (6)
      real*4        gmag        ! (mag) ?SDSS green magnitude
      character*1   u_gmag      ! [*:] questionable (*) or uncertain (:) SDSS
*                                       photometry
      real*4        u_g         ! (mag) ?SDSS Color Index
      real*4        g_r         ! (mag) ?SDSS Color Index
      real*4        r_i         ! (mag) ?SDSS Color Index
      real*4        i_z         ! (mag) ?SDSS Color Index
      character*2   r_gmag      ! SDSS colors reference
      character*1   M9          ! [NAC] Modification of SDSS photometry (6)
*Note (1): Stars having identical catalog numbers, whether binary or not,
*    are distinguished by using the designations .1 and .2 in
*    bytes 9-10
*Note (2): The positions have quite various precisions; generally speaking
*    most of the older stars have 1950 coordinates accurate to the arcmin
*    from the references, while newer WDs have 2000 coordinates in the
*    reference which were precessed back to 1950 and rounded to a 0.1arcmin
*    accuracy. No correction has been made for proper motion.
*Note (3): For DO and DOZ white dwarfs, AbsMag is a directly derivable
*    effective temperature value. These are given in units of 10^3^ K
*    A ':' for uncertain AbsMag may appear also (WD 0736+053);
*    the 'B' indicates an absolute B magnitude.
*Note (4): In cases where only an estimated proper motion is reported in
*    the Lowell proper-motion surveys, the "pm" field is blank and a
*    corresponding code is given there in "Epm" field. These codes are
*    defined in Giclas et al. (1967, 1970) and are the following:
*    0: Stars of blue color whose motions are too small to definitely
*       verify on all plates.
*    1:        pm <= 0.1  arcsec/yr
*    2: 0.1 <= pm <  0.2  arcsec/yr
*    3: 0.2 <= pm <  0.26 arcsec/yr
*Note (5): The codes to indicate the method of calculation of
*    the absolute magnitude are:
*    1 = trigonometric parallax (>0.1arcsec)
*    2 = multichannel spectrophotometric colors
*    3 = uvby (Stroemgren) colors
*    4 = UBV photometry
*    5 = Teff value from Wesemael, Green and Liebert (1993PASP..105..761W),
*        Werner and Heber (1992, in "The Atmospheres of Early-Type stars",
*        ed. U. Heber & S. Jeffrey, Springer, p. 273) or
*        Napiwotzki and Schonberner (1991, in "White Dwarfs", ed.
*        G. Vauclair and E.M. Sion, NATO ASI Series, Series C, 336:
*        Dordrecht, Kluwer, p. 39)
*    6 = Liebert, Dahn and Monet (1988ApJ...332..891L)
*    7 = Bergeron, Ruiz and Leggett (1997ApJS..108..339B)
*    8 = Liebert et al., (1997, in "White Dwarfs", ed. J.Isern, M. Hernanz &
*        Garcia-Berro, Dordrecht: Kluwer, p. 85)
*    9 = Smith (1998, Ph.D Thesis, Florida Institute of Technology,
*        Melbourne, Fl.)
*Note (6): modifications since the publication:
*      N=New, A=Additional, C=Corrected, U=Updated
*      Lowercase letters indicate components in the case of degenerate
*      systems (1824+040)
*Note (7): Some recently published new white dwarfs were assigned a name
*    based on J2000 position. Such names were transformed into B1950-based
*    WD names by applying the appropriate precession.

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

C  Declarations for 'names.dat'	! Cross-identifications of White Dwarfs

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

      character*13  Name        ! Common name of the object
      character*10  WD_1        ! White Dwarf (WD) number

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

C  Declarations for 'notes.dat'	! Notes for stars flagged in "catalog.dat"

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

      character*10  WD_2        ! White Dwarf (WD) number
      character*266 Notes       ! Text of note for this star

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

C  Declarations for 'refs.dat'	! References mentioned in file "catalog.dat"

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

      character*2   RefCode     ! Reference  code
      character*19  BibCode     ! CDS/ADS/NED BibCode
      character*206 Text        ! Text of reference

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

C  Loading file 'catalog.dat'	! Data for the White Dwarfs

C  Format for file interpretation

    1 format(
     +  A1,A10,A1,I2,1X,I2,1X,I2,1X,A1,I2,1X,F4.1,1X,A9,A1,1X,A2,1X,
     +  A1,A26,F5.2,A1,A2,F6.3,A1,A3,F6.3,A1,1X,A2,1X,A1,F5.2,1X,F5.2,
     +  A1,1X,A2,1X,A1,F6.3,F6.3,A1,F6.3,1X,A2,1X,A1,1X,F5.2,A1,1X,I3,
     +  1X,A2,1X,A1,A1,F6.4,A1,1X,F5.1,1X,A2,1X,A1,F6.1,1X,A2,1X,A1,
     +  F7.4,F5.1,1X,A2,1X,A1,1X,F5.2,A1,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,
     +  1X,A2,1X,A1)

C  Effective file loading

      open(unit=1,status='old',file=
     +'catalog.dat')
      write(6,*) '....Loading file: catalog.dat'
      do i__=1,20602
        read(1,'(A240)')ar__
        read(ar__,1)
     +  New,WD,n_WD,RAh,RAm,RAs,DE_,DEd,DEm,SpType,bNote,r_SpType,M1,
     +  Names,Vmag,u_Vmag,n_Vmag,B_V,u_B_V,col,U_B,u_U_B,r_Vmag,M2,
     +  Vsphot,v_g_r,u__g_r,r_Vsphot,M3,ymag,b_y,u_b_y,u_b_1,r_ymag,
     +  M4,AbsMag,f_AbsMag,Teff,n_AbsMag,M5,l_pm,pm,u_pm,pmPA,r_pm,M6,
     +  RadVel,r_RadVel,M7,Plx,e_Plx,r_Plx,M8,gmag,u_gmag,u_g,g_r,r_i,
     +  i_z,r_gmag,M9
        if(ar__(13:14) .EQ. '') RAh = iNULL__
        if(ar__(16:17) .EQ. '') RAm = iNULL__
        if(ar__(19:20) .EQ. '') RAs = iNULL__
        if(ar__(23:24) .EQ. '') DEd = iNULL__
        if(ar__(26:29) .EQ. '') DEm = rNULL__
        if(ar__(72:76) .EQ. '') Vmag = rNULL__
        if(ar__(80:85) .EQ. '') B_V = rNULL__
        if(ar__(90:95) .EQ. '') U_B = rNULL__
        if(ar__(102:106) .EQ. '') Vsphot = rNULL__
        if(ar__(108:112) .EQ. '') v_g_r = rNULL__
        if(ar__(119:124) .EQ. '') ymag = rNULL__
        if(ar__(125:130) .EQ. '') b_y = rNULL__
        if(ar__(132:137) .EQ. '') u_b_1 = rNULL__
        if(ar__(144:148) .EQ. '') AbsMag = rNULL__
        if(ar__(151:153) .EQ. '') Teff = iNULL__
        if(ar__(160:165) .EQ. '') pm = rNULL__
        if(ar__(168:172) .EQ. '') pmPA = rNULL__
        if(ar__(178:183) .EQ. '') RadVel = rNULL__
        if(ar__(189:195) .EQ. '') Plx = rNULL__
        if(ar__(196:200) .EQ. '') e_Plx = rNULL__
        if(ar__(207:211) .EQ. '') gmag = rNULL__
        if(ar__(213:217) .EQ. '') u_g = rNULL__
        if(ar__(219:223) .EQ. '') g_r = rNULL__
        if(ar__(225:229) .EQ. '') r_i = rNULL__
        if(ar__(231:235) .EQ. '') i_z = rNULL__
        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(DEm .GE. 0) DEdeg=DEdeg+DEm/60.
        if(DE_.EQ.'-'.AND.DEdeg.GE.0) DEdeg=-DEdeg
c    ..............Just test output...........
        write(6,1)
     +  New,WD,n_WD,RAh,RAm,RAs,DE_,DEd,DEm,SpType,bNote,r_SpType,M1,
     +  Names,Vmag,u_Vmag,n_Vmag,B_V,u_B_V,col,U_B,u_U_B,r_Vmag,M2,
     +  Vsphot,v_g_r,u__g_r,r_Vsphot,M3,ymag,b_y,u_b_y,u_b_1,r_ymag,
     +  M4,AbsMag,f_AbsMag,Teff,n_AbsMag,M5,l_pm,pm,u_pm,pmPA,r_pm,M6,
     +  RadVel,r_RadVel,M7,Plx,e_Plx,r_Plx,M8,gmag,u_gmag,u_g,g_r,r_i,
     +  i_z,r_gmag,M9
        write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'names.dat'	! Cross-identifications of White Dwarfs

C  Format for file interpretation

    2 format(A13,3X,A10)

C  Effective file loading

      open(unit=1,status='old',file=
     +'names.dat')
      write(6,*) '....Loading file: names.dat'
      do i__=1,27033
        read(1,'(A26)')ar__1
        read(ar__1,2)Name,WD_1
c    ..............Just test output...........
        write(6,2)Name,WD_1
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'notes.dat'	! Notes for stars flagged in "catalog.dat"

C  Format for file interpretation

    3 format(3X,A10,2X,A266)

C  Effective file loading

      open(unit=1,status='old',file=
     +'notes.dat')
      write(6,*) '....Loading file: notes.dat'
      do i__=1,521
        read(1,'(A281)')ar__2
        read(ar__2,3)WD_2,Notes
c    ..............Just test output...........
        write(6,3)WD_2,Notes
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'refs.dat'	! References mentioned in file "catalog.dat"

C  Format for file interpretation

    4 format(A2,1X,A19,1X,A206)

C  Effective file loading

      open(unit=1,status='old',file=
     +'refs.dat')
      write(6,*) '....Loading file: refs.dat'
      do i__=1,632
        read(1,'(A229)')ar__3
        read(ar__3,4)RefCode,BibCode,Text
c    ..............Just test output...........
        write(6,4)RefCode,BibCode,Text
c    .......End.of.Just test output...........
      end do
      close(1)

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