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