Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/130/1880 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/AJ/130/1880 Cepheids with periods between 3 and 6 days (Andrievsky+, 2005) *================================================================================ *Phase-dependent variation of the fundamental parameters of cepheids. *III. Periods between 3 and 6 days. * Andrievsky S.M., Luck R.E., Kovtyukh V.V. * <Astron. J., 130, 1880-1889 (2005)> * =2005AJ....130.1880A C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablea1.dat' ! Abundances integer*4 nr__ parameter (nr__=2409) ! Number of records character*35 ar__ ! Full-size record character*9 Name (nr__) ! Cepheid name real*4 Phase (nr__) ! Phase real*4 Element (nr__) ! Element (1) real*4 logAbund (nr__) ! ([Sun]) ?=-9.99 Log of the Element/H abundance (2) real*4 e_logAbund (nr__) ! ([Sun]) Standard deviation in logAbund integer*4 o_logAbund (nr__) ! Number of lines in logAbund *Note (1): Where xx.y is the species in atomic number notation - for example * 26.0=Fe I and 26.1=Fe II. *Note (2): An abundance of -9.99 or 0 lines indicates no data. C============================================================================= C Loading file 'tablea1.dat' ! Abundances C Format for file interpretation 1 format(A9,1X,F5.3,1X,F4.1,1X,F5.2,1X,F4.2,1X,I3) C Effective file loading open(unit=1,status='old',file= +'tablea1.dat') write(6,*) '....Loading file: tablea1.dat' do i__=1,2409 read(1,'(A35)')ar__ read(ar__,1) + Name(i__),Phase(i__),Element(i__),logAbund(i__), + e_logAbund(i__),o_logAbund(i__) c ..............Just test output........... write(6,1) + Name(i__),Phase(i__),Element(i__),logAbund(i__), + e_logAbund(i__),o_logAbund(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end