Conversion of standardized ReadMe file for
file /./ftp/cats/J/MNRAS/399/699 into FORTRAN code for loading all data files into arrays.
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-Apr-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. J/MNRAS/399/699 Parameters of atmospheres of white dwarfs (Mortlock+, 2009) *================================================================================ *Photometric constraints on white dwarfs and the identification of extreme *objects. * Mortlock D.J., Peiris H.V., Ivezic Z. * <Mon. Not. R. Astron. Soc., 399, 699-714 (2009)> * =2009MNRAS.399..699M (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! *Estimated H atmosphere model parameters of the 34 V07 candidate halo WDs, obtained using the informative prior defined in Eq. (9) integer*4 nr__ parameter (nr__=34) ! Number of records character*92 ar__ ! Full-size record character*19 SDSS (nr__) ! SDSS name (JHHMMSS.ss+DDMMSS+s) real*4 Te_H (nr__) ! (K) Effective temperature for H atmosphere real*4 e_Te_H (nr__) ! (K) rms uncertainty on Teff real*4 logg_H (nr__) ! ([cm/s2]) Surface gravity for H atmosphere real*4 e_logg_H (nr__) ! ([cm/s2]) rms uncertainty on logg real*4 M_H (nr__) ! (Msun) Mass for H atmosphere real*4 e_M_H (nr__) ! (Msun) rms uncertainty on Mass real*4 Age_H (nr__) ! (yr) Age for H atmosphere real*4 e_Age_H (nr__) ! (yr) rms uncertainty on Age integer*4 r_H (nr__) ! (pc) Distance for H atmosphere integer*4 e_r_H (nr__) ! (pc) rms uncertainty in r(H) integer*4 Vt_H (nr__) ! (km/s) Tangential velocity for H atmosphere integer*4 e_Vt_H (nr__) ! (km/s) rms uncertainty on Vtan c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! *Estimated He atmosphere model parameters of the 34 V07 candidate halo WDs, obtained using the informative prior defined in Eq. (9) integer*4 nr__1 parameter (nr__1=34) ! Number of records character*92 ar__1 ! Full-size record character*19 SDSS_1 (nr__1) ! SDSS name (JHHMMSS.ss+DDMMSS+s) real*4 Te_He (nr__1) ! (K) Effective temperature for He atmosphere real*4 e_Te_He (nr__1) ! (K) rms uncertainty on Teff real*4 logg_He (nr__1) ! ([cm/s2]) Surface gravity for He atmosphere real*4 e_logg_He (nr__1) ! ([cm/s2]) rms uncertainty on logg real*4 M_He (nr__1) ! (Msun) Mass for He atmosphere real*4 e_M_He (nr__1) ! (Msun) rms uncertainty on Mass real*4 Age_He (nr__1) ! (yr) Age for He atmosphere real*4 e_Age_He (nr__1) ! (yr) rms uncertainty on Age integer*4 r_He (nr__1) ! (pc) Distance for He atmosphere integer*4 e_r_He (nr__1) ! (pc) rms uncertainty in r(He) integer*4 Vt_He (nr__1) ! (km/s) Tangential velocity for He atmosphere integer*4 e_Vt_He (nr__1) ! (km/s) rms uncertainty on Vtan c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! Model selection quantities for the 34 V07 candidate halo WDs integer*4 nr__2 parameter (nr__2=34) ! Number of records character*104 ar__2 ! Full-size record character*19 SDSS_2 (nr__2) ! SDSS name (JHHMMSS.ss+DDMMSS+s) real*4 gb_H (nr__2) ! ([cm/s2]) Best-fit log g values estimated using the * uninformative g prior for H (1) real*4 gb_He (nr__2) ! ([cm/s2]) Best-fit log g values estimated using the * uninformative g prior for He (1) real*4 chi2_H (nr__2) ! Miminum chi^2^ value for H real*4 chi2_He (nr__2) ! Miminum chi^2^ value for He real*4 Ev_H (nr__2) ! Evidence value for H (2) real*4 Ev_He (nr__2) ! Evidence value for He (2) real*4 Pr_H (nr__2) ! Probability that the WD atmosphere is H character*33 Notes (nr__2) ! Indicates whether the model selection result * is driven by the data, the informative g * prior, or the 10:1 model prior *Note (1): UKIDSS data have been used where available *Note (2): Evidence is the integral over the Np model parameters. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table4.dat' ! *Estimated model parameters of the 17 V07 candidate halo WDs with spectroscopic fits presented by Eisenstein et al. (2006, Cat. J/ApJS/167/40) integer*4 nr__3 parameter (nr__3=20) ! Number of records character*48 ar__3 ! Full-size record character*19 SDSS_3 (nr__3) ! SDSS name (JHHMMSS.ss+DDMMSS+s) character*2 Type (nr__3) ! WD type real*4 logg (nr__3) ! ([cm/s2]) Surface gravity real*4 e_logg (nr__3) ! ([cm/s2]) rms uncertainty on logg integer*4 Teff (nr__3) ! (K) Effective temperature integer*4 e_Teff (nr__3) ! (K) rms uncertainty on Teff c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table5.dat' ! *Estimated H atmosphere model parameters of the 24 V07 candidate ultra-cool WDs, obtained using the informative prior defined in Eq. (9) integer*4 nr__4 parameter (nr__4=24) ! Number of records character*92 ar__4 ! Full-size record character*19 SDSS_4 (nr__4) ! SDSS name (JHHMMSS.ss+DDMMSS+s) real*4 Te_H_1 (nr__4) ! (K) Effective temperature for H atmosphere real*4 e_Te_H_1 (nr__4) ! (K) rms uncertainty on Teff real*4 logg_H_1 (nr__4) ! ([cm/s2]) Surface gravity for H atmosphere real*4 e_logg_H_1 (nr__4) ! ([cm/s2]) rms uncertainty on logg real*4 M_H_1 (nr__4) ! (Msun) Mass for H atmosphere real*4 e_M_H_1 (nr__4) ! (Msun) rms uncertainty on Mass real*4 Age_H_1 (nr__4) ! (yr) Age for H atmosphere real*4 e_Age_H_1 (nr__4) ! (yr) rms uncertainty on Age integer*4 r_H_1 (nr__4) ! (pc) Distance for H atmosphere integer*4 e_r_H_1 (nr__4) ! (pc) rms uncertainty in r(H) integer*4 Vt_H_1 (nr__4) ! (km/s) Tangential velocity for H atmosphere integer*4 e_Vt_H_1 (nr__4) ! (km/s) rms uncertainty on Vtan c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table6.dat' ! *Estimated He atmosphere model parameters of the 24 V07 candidate ultra-cool WDs, obtained using the informative prior defined in Eq. (9) integer*4 nr__5 parameter (nr__5=24) ! Number of records character*92 ar__5 ! Full-size record character*19 SDSS_5 (nr__5) ! SDSS name (JHHMMSS.ss+DDMMSS+s) real*4 Te_He_1 (nr__5) ! (K) Effective temperature for He atmosphere real*4 e_Te_He_1 (nr__5) ! (K) rms uncertainty on Teff real*4 logg_He_1 (nr__5) ! ([cm/s2]) Surface gravity for He atmosphere real*4 e_logg_He_1(nr__5) ! ([cm/s2]) rms uncertainty on logg real*4 M_He_1 (nr__5) ! (Msun) Mass for He atmosphere real*4 e_M_He_1 (nr__5) ! (Msun) rms uncertainty on Mass real*4 Age_He_1 (nr__5) ! (yr) Age for He atmosphere real*4 e_Age_He_1 (nr__5) ! (yr) rms uncertainty on Age integer*4 r_He_1 (nr__5) ! (pc) Distance for He atmosphere integer*4 e_r_He_1 (nr__5) ! (pc) rms uncertainty in r(He) integer*4 Vt_He_1 (nr__5) ! (km/s) Tangential velocity for He atmosphere integer*4 e_Vt_He_1 (nr__5) ! (km/s) rms uncertainty on Vtan c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table7.dat' ! Model selection quantities for the 24 V07 candidate ultra-cool WDs integer*4 nr__6 parameter (nr__6=24) ! Number of records character*104 ar__6 ! Full-size record character*19 SDSS_6 (nr__6) ! SDSS name (JHHMMSS.ss+DDMMSS+s) real*4 gb_H_1 (nr__6) ! ([cm/s2]) Best-fit log g values estimated using the * uninformative g prior for H (1) real*4 gb_He_1 (nr__6) ! ([cm/s2]) Best-fit log g values estimated using the * uninformative g prior for He (1) real*4 chi2_H_1 (nr__6) ! Miminum chi^2^ value for H real*4 chi2_He_1 (nr__6) ! Miminum chi^2^ value for He real*4 Ev_H_1 (nr__6) ! Evidence value for H (2) real*4 Ev_He_1 (nr__6) ! Evidence value for He (2) real*4 Pr_H_1 (nr__6) ! Probability that the WD atmosphere is H character*33 Notes_1 (nr__6) ! Indicates whether the model selection result * is driven by the data, the informative g * prior, or the 10:1 model prior *Note (1): UKIDSS data have been used where available *Note (2): Evidence is the integral over the Np model parameters. C============================================================================= C Loading file 'table1.dat' ! *Estimated H atmosphere model parameters of the * 34 V07 candidate halo WDs, obtained using the * informative prior defined in Eq. (9) C Format for file interpretation 1 format( + 5X,A19,1X,E7.3,1X,E7.3,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2,1X, + E8.3,1X,E8.3,1X,I3,1X,I2,1X,I3,1X,I2) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,34 read(1,'(A92)')ar__ read(ar__,1) + SDSS(i__),Te_H(i__),e_Te_H(i__),logg_H(i__),e_logg_H(i__), + M_H(i__),e_M_H(i__),Age_H(i__),e_Age_H(i__),r_H(i__), + e_r_H(i__),Vt_H(i__),e_Vt_H(i__) c ..............Just test output........... write(6,1) + SDSS(i__),Te_H(i__),e_Te_H(i__),logg_H(i__),e_logg_H(i__), + M_H(i__),e_M_H(i__),Age_H(i__),e_Age_H(i__),r_H(i__), + e_r_H(i__),Vt_H(i__),e_Vt_H(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table2.dat' ! *Estimated He atmosphere model parameters of the * 34 V07 candidate halo WDs, obtained using the * informative prior defined in Eq. (9) C Format for file interpretation 2 format( + 5X,A19,1X,E7.3,1X,E7.3,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2,1X, + E8.3,1X,E8.3,1X,I3,1X,I2,1X,I3,1X,I2) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,34 read(1,'(A92)')ar__1 read(ar__1,2) + SDSS_1(i__),Te_He(i__),e_Te_He(i__),logg_He(i__), + e_logg_He(i__),M_He(i__),e_M_He(i__),Age_He(i__), + e_Age_He(i__),r_He(i__),e_r_He(i__),Vt_He(i__),e_Vt_He(i__) c ..............Just test output........... write(6,2) + SDSS_1(i__),Te_He(i__),e_Te_He(i__),logg_He(i__), + e_logg_He(i__),M_He(i__),e_M_He(i__),Age_He(i__), + e_Age_He(i__),r_He(i__),e_r_He(i__),Vt_He(i__),e_Vt_He(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table3.dat' ! Model selection quantities for the 34 V07 * candidate halo WDs C Format for file interpretation 3 format( + 5X,A19,1X,F4.2,1X,F4.2,1X,F5.1,1X,F5.1,1X,E7.2,1X,E7.2,1X, + E7.4,1X,A33) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,34 read(1,'(A104)')ar__2 read(ar__2,3) + SDSS_2(i__),gb_H(i__),gb_He(i__),chi2_H(i__),chi2_He(i__), + Ev_H(i__),Ev_He(i__),Pr_H(i__),Notes(i__) c ..............Just test output........... write(6,3) + SDSS_2(i__),gb_H(i__),gb_He(i__),chi2_H(i__),chi2_He(i__), + Ev_H(i__),Ev_He(i__),Pr_H(i__),Notes(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table4.dat' ! *Estimated model parameters of the 17 V07 * candidate halo WDs with spectroscopic fits * presented by Eisenstein et al. * (2006, Cat. J/ApJS/167/40) C Format for file interpretation 4 format(5X,A19,1X,A2,1X,F4.2,1X,F4.2,1X,I5,1X,I4) C Effective file loading open(unit=1,status='old',file= +'table4.dat') write(6,*) '....Loading file: table4.dat' do i__=1,20 read(1,'(A48)')ar__3 read(ar__3,4) + SDSS_3(i__),Type(i__),logg(i__),e_logg(i__),Teff(i__), + e_Teff(i__) c ..............Just test output........... write(6,4) + SDSS_3(i__),Type(i__),logg(i__),e_logg(i__),Teff(i__), + e_Teff(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table5.dat' ! *Estimated H atmosphere model parameters of the * 24 V07 candidate ultra-cool WDs, obtained * using the informative prior defined in Eq. (9) C Format for file interpretation 5 format( + 5X,A19,1X,E7.3,1X,E7.3,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2,1X, + E8.3,1X,E8.3,1X,I3,1X,I2,1X,I3,1X,I2) C Effective file loading open(unit=1,status='old',file= +'table5.dat') write(6,*) '....Loading file: table5.dat' do i__=1,24 read(1,'(A92)')ar__4 read(ar__4,5) + SDSS_4(i__),Te_H_1(i__),e_Te_H_1(i__),logg_H_1(i__), + e_logg_H_1(i__),M_H_1(i__),e_M_H_1(i__),Age_H_1(i__), + e_Age_H_1(i__),r_H_1(i__),e_r_H_1(i__),Vt_H_1(i__), + e_Vt_H_1(i__) c ..............Just test output........... write(6,5) + SDSS_4(i__),Te_H_1(i__),e_Te_H_1(i__),logg_H_1(i__), + e_logg_H_1(i__),M_H_1(i__),e_M_H_1(i__),Age_H_1(i__), + e_Age_H_1(i__),r_H_1(i__),e_r_H_1(i__),Vt_H_1(i__), + e_Vt_H_1(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table6.dat' ! *Estimated He atmosphere model parameters of the * 24 V07 candidate ultra-cool WDs, obtained * using the informative prior defined in Eq. (9) C Format for file interpretation 6 format( + 5X,A19,1X,E7.3,1X,E7.3,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2,1X, + E8.3,1X,E8.3,1X,I3,1X,I2,1X,I3,1X,I2) C Effective file loading open(unit=1,status='old',file= +'table6.dat') write(6,*) '....Loading file: table6.dat' do i__=1,24 read(1,'(A92)')ar__5 read(ar__5,6) + SDSS_5(i__),Te_He_1(i__),e_Te_He_1(i__),logg_He_1(i__), + e_logg_He_1(i__),M_He_1(i__),e_M_He_1(i__),Age_He_1(i__), + e_Age_He_1(i__),r_He_1(i__),e_r_He_1(i__),Vt_He_1(i__), + e_Vt_He_1(i__) c ..............Just test output........... write(6,6) + SDSS_5(i__),Te_He_1(i__),e_Te_He_1(i__),logg_He_1(i__), + e_logg_He_1(i__),M_He_1(i__),e_M_He_1(i__),Age_He_1(i__), + e_Age_He_1(i__),r_He_1(i__),e_r_He_1(i__),Vt_He_1(i__), + e_Vt_He_1(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table7.dat' ! Model selection quantities for the 24 V07 * candidate ultra-cool WDs C Format for file interpretation 7 format( + 5X,A19,1X,F4.2,1X,F4.2,1X,F5.1,1X,F5.1,1X,E7.2,1X,E7.2,1X, + E7.4,1X,A33) C Effective file loading open(unit=1,status='old',file= +'table7.dat') write(6,*) '....Loading file: table7.dat' do i__=1,24 read(1,'(A104)')ar__6 read(ar__6,7) + SDSS_6(i__),gb_H_1(i__),gb_He_1(i__),chi2_H_1(i__), + chi2_He_1(i__),Ev_H_1(i__),Ev_He_1(i__),Pr_H_1(i__), + Notes_1(i__) c ..............Just test output........... write(6,7) + SDSS_6(i__),gb_H_1(i__),gb_He_1(i__),chi2_H_1(i__), + chi2_He_1(i__),Ev_H_1(i__),Ev_He_1(i__),Pr_H_1(i__), + Notes_1(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end