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