Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/842/42 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. J/ApJ/842/42 Improved reddenings for 59 Galactic Cepheids (Madore+, 2017) *================================================================================ *A method for improving Galactic Cepheid reddenings and distances. * Madore B.F., Freedman W.L., Moak S. * <Astrophys. J., 842, 42 (2017)> * =2017ApJ...842...42M C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Properties of 59 Galactic Cepheids integer*4 nr__ parameter (nr__=59) ! Number of records character*149 ar__ ! Full-size record character*9 Name ! Galactic Cepheid name real*8 log_P__F07 ! ([d]) [0.5/1.7] log Period (1) real*4 E_B_V__F07 ! (mag) [0.01/1] E(B-V) reddening (1) real*4 DM_o_F07 ! (mag) [6.9/13.4] Adopted distance modulus real*4 plx_F07 ! (mas) [0.2/4.2] Adopted parallax (1) real*4 e_plx_F07 ! (mas) [0.01/0.3] Uncertainty in plx-F07 (1) real*4 BMag_F07 ! (mag) [-5/-1.8] B band absolute magnitude (1) real*4 VMag_F07 ! (mag) [-6/-2.4] V band absolute magnitude (1) real*4 RMag_F07 ! (mag) [-6.6/-2.8] R band absolute magnitude (1) real*4 IMag_F07 ! (mag) [-7/-3.1] I band absolute magnitude (1) real*4 JMag_F07 ! (mag) [-7.6/-3.6] J band absolute magnitude (1) real*4 HMag_F07 ! (mag) [-8/-3.9] H band absolute magnitude (1) real*4 KMag_F07 ! (mag) [-8/-4] K band absolute magnitude (1) real*4 E_B_V ! (mag) [0.04/1.1] E(B-V) reddening, this work real*4 DM_o ! (mag) [6.6/13.4] Adopted distance modulus, this work real*4 plx ! (mas) [0.2/4.8] Adopted parallax, this work real*4 e_plx ! (mas) [0.01/8] Uncertainty in parallax, this work real*4 BMag ! (mag) [-5/-1.6] B band absolute magnitude, * updated in this work real*4 VMag ! (mag) [-6/-2.3] V band absolute magnitude, * updated in this work real*4 RMag ! (mag) [-6.4/-2.7] R band absolute magnitude, * updated in this work real*4 IMag ! (mag) [-6.7/-3.1] I band absolute magnitude, * updated in this work real*4 JMag ! (mag) [-7.3/-3.7] J band absolute magnitude, * updated in this work real*4 HMag ! (mag) [-7.7/-3.9] H band absolute magnitude, * updated in this work real*4 KMag ! (mag) [-7.8/-4.1] K band absolute magnitude, * updated in this work *Note (1): From Fouque+ 2007, J/A+A/476/73 C============================================================================= C Loading file 'table1.dat' ! Properties of 59 Galactic Cepheids C Format for file interpretation 1 format( + A9,1X,F8.6,1X,F5.3,1X,F6.3,1X,F4.2,1X,F4.2,1X,F5.2,1X,F5.2,1X, + F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.3,1X,F6.3,1X,F5.3, + 1X,F4.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X, + F5.2) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,59 read(1,'(A149)')ar__ read(ar__,1) + Name,log_P__F07,E_B_V__F07,DM_o_F07,plx_F07,e_plx_F07, + BMag_F07,VMag_F07,RMag_F07,IMag_F07,JMag_F07,HMag_F07, + KMag_F07,E_B_V,DM_o,plx,e_plx,BMag,VMag,RMag,IMag,JMag,HMag, + KMag c ..............Just test output........... write(6,1) + Name,log_P__F07,E_B_V__F07,DM_o_F07,plx_F07,e_plx_F07, + BMag_F07,VMag_F07,RMag_F07,IMag_F07,JMag_F07,HMag_F07, + KMag_F07,E_B_V,DM_o,plx,e_plx,BMag,VMag,RMag,IMag,JMag,HMag, + KMag c .......End.of.Just test output........... end do close(1) C============================================================================= stop end