Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/343/446 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-19 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/343/446 VRI Cousins photometry of Am stars (Domingo+ 1999) *================================================================================ *Late A-type stars: new Stroemgren photometric calibrations of absolute *magnitudes from Hipparcos * Domingo A, Figueras F. * <Astron. Astrophys. 343, 446 (1999)> * =1999A&A...343..446D C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablea1.dat' ! V, (V-R) and (V-I) of 63 Am stars integer*4 nr__ parameter (nr__=63) ! Number of records character*63 ar__ ! Full-size record integer*4 HIP (nr__) ! Hipparcos (Cat. <I/239>) number character*10 HD_BD (nr__) ! HD (Cat. <III/135>) or BD (Cat. <I/122>) number real*4 Vmag (nr__) ! (mag) V magnitude real*4 e_Vmag (nr__) ! (mag) Standard error on V magnitude real*4 V_R (nr__) ! (mag) (V-R) colour index real*4 e_V_R (nr__) ! (mag) Standard error on V-R real*4 V_I (nr__) ! (mag) (V-I) colour index real*4 e_V_I (nr__) ! (mag) Standard error on V-I integer*4 o_Vmag (nr__) ! Number of observations character*1 Note (nr__) ! [D] 'D' if information about duplicity is * available (1) *Note (1): HIP 1286: Joint photometry, system identified as multiple in the * Hipparcos Input Catalogue (Turon et al., 1992, * Cat. <I/191>, hereafter HIC), * CCDM 00161+0807 theta=142, rho=6.0, Delta m=4.5 * HIP 2280: Joint photometry, system identified as multiple in HIC, * CCDM 00291+1119 theta=304, rho=4.0, Delta m=6.2 * HIP 63179: Joint photometry, system identified as multiple in HIC, * CCDM 12566+4333 theta=211, rho=6.9, Delta m=5.5 * HIP 64692: Joint photometry, system identified after publication of * HIC, CCDM 13555+4051 theta=21, rho=0.37, Delta m=3.6 (from * Hipparcos and Tycho Catalogues, ESA 1997, Cat. <I/239>; * hereafter HIP) * HIP 87641: Joint photometry, determined multiple by HIP, * CCDM 17541+4702 theta=162, rho=0.30, Delta m=2.04 * HIP 99159: Joint photometry, determined multiple by HIP, * CCDM 20079+4600 theta=5, rho=2.91, Delta m=3.61 * HIP 99211: Joint photometry, system identified as multiple in HIC, * CCDM 20085+4622 theta=43, rho=4.17, Delta m=3.03 (from HIP) * HIP 114501: Joint photometry, theta approx 180, rho approx 5, * Delta m approx 5 * theta: position angle relative to reference component, from North * to the East (units are degrees) * rho: separation between components (units are arcsec) * Delta m: difference of magnitudes between components (units are mag) C============================================================================= C Loading file 'tablea1.dat' ! V, (V-R) and (V-I) of 63 Am stars C Format for file interpretation 1 format( + I6,1X,A10,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X, + I1,1X,A1) C Effective file loading open(unit=1,status='old',file= +'tablea1.dat') write(6,*) '....Loading file: tablea1.dat' do i__=1,63 read(1,'(A63)')ar__ read(ar__,1) + HIP(i__),HD_BD(i__),Vmag(i__),e_Vmag(i__),V_R(i__),e_V_R(i__), + V_I(i__),e_V_I(i__),o_Vmag(i__),Note(i__) c ..............Just test output........... write(6,1) + HIP(i__),HD_BD(i__),Vmag(i__),e_Vmag(i__),V_R(i__),e_V_R(i__), + V_I(i__),e_V_I(i__),o_Vmag(i__),Note(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end