Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/504/959 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-Apr-18 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/A+A/504/959 Amplitudes of single-mode Cepheids (Klagyivik+, 2009) *================================================================================ *Observational studies of Cepheid amplitudes. *I. Period-amplitude relationships for Galactic Cepheids and interrelation of *amplitudes. * Klagyivik P., Szabados L. * <Astron. Astrophys. 504, 959 (2009)> * =2009A&A...504..959K C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Parameters of the Cepheids integer*4 nr__ parameter (nr__=369) ! Number of records character*110 ar__ ! Full-size record C Position composed of: GLON GLAT character*10 Name ! Name of the Cepheid real*4 GLON ! (deg) Galactic longitude real*4 GLAT ! (deg) Galactic latitude real*4 Period ! (d) Pulsation period real*4 v_Vmag_ ! (mag) Mean apparent V magnitude real*4 AU ! (mag) ? Peak-to-peak amplitude in U band real*4 AB ! (mag) ? Peak-to-peak amplitude in B band real*4 AV ! (mag) ? Peak-to-peak amplitude in V band real*4 AR ! (mag) ? Peak-to-peak amplitude in Rc band real*4 AI ! (mag) ? Peak-to-peak amplitude in Ic Band real*4 ARV ! (km/s) ? Peak-to-peak amplitude of the radial * velocity variations (1) real*4 q ! (km/s/mag) ? Amplitude ratio (ARV/AB) real*4 m ! (um.mag) ? m parameter (2) real*4 e_m ! ? Error of m parameter real*4 k ! ? k parameter (3) real*4 e_k ! ? Error of k parameter real*4 v_Fe_H_ ! ([Sun]) ? Metallicity integer*4 bin ! [0/1] Binarity index: 0 = no known companion, * 1 = known binary or >1 known companions integer*4 mod ! [0/1]? Pulsation mode (0 = fundamental, * 1 = 1st overtone) *Note (1): corrected for the effect of orbital motion in the case of known * spectroscopic binaries *Note (2): Characteristic of the wavelength dependence of the photometric * UBVR amplitude: A({lambda}) = m (1/{lambda}) + const. * [m=(0.282+/-0.027)logP+0.440+/-0.027, {lambda} in {mu}m] *Note (3): Characteristic of the wavelength dependence of the photometric * UBVRI amplitude: A({lambda}) = m_k_ (1/{lambda})^k^ + const. * [k=(1.650+/-0.173)xlogP+0.606+/-0.172, {lambda} in {mu}m] C============================================================================= C Loading file 'table1.dat' ! Parameters of the Cepheids C Format for file interpretation 1 format( + A10,F6.2,1X,F6.2,1X,F6.3,1X,F5.2,1X,F5.3,1X,F5.3,1X,F5.3,1X, + F5.3,1X,F5.3,1X,F4.1,1X,F4.1,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3, + 1X,F5.2,1X,I1,1X,I1) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,369 read(1,'(A110)')ar__ read(ar__,1) + Name,GLON,GLAT,Period,v_Vmag_,AU,AB,AV,AR,AI,ARV,q,m,e_m,k, + e_k,v_Fe_H_,bin,mod if(ar__(38:42) .EQ. '') AU = rNULL__ if(ar__(44:48) .EQ. '') AB = rNULL__ if(ar__(50:54) .EQ. '') AV = rNULL__ if(ar__(56:60) .EQ. '') AR = rNULL__ if(ar__(62:66) .EQ. '') AI = rNULL__ if(ar__(68:71) .EQ. '') ARV = rNULL__ if(ar__(73:76) .EQ. '') q = rNULL__ if(ar__(78:82) .EQ. '') m = rNULL__ if(ar__(84:88) .EQ. '') e_m = rNULL__ if(ar__(90:94) .EQ. '') k = rNULL__ if(ar__(96:100) .EQ. '') e_k = rNULL__ if(ar__(102:106) .EQ. '') v_Fe_H_ = rNULL__ if(ar__(110:110) .EQ. '') mod = iNULL__ c ..............Just test output........... write(6,1) + Name,GLON,GLAT,Period,v_Vmag_,AU,AB,AV,AR,AI,ARV,q,m,e_m,k, + e_k,v_Fe_H_,bin,mod c .......End.of.Just test output........... end do close(1) C============================================================================= stop end