Conversion of standardized ReadMe file for
file /./ftp/cats/III/122/ 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-Mar-29 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. III/122 Interstellar 217-nm Band: Equivalent Widths (Friedemann+ 1987) *================================================================================ *The Interstellar 217-nm Band: A Third Catalogue of Equivalent Widths * Friedemann C., Roder U.K. * <Astron. Nachr. 308, 41 (1987)> * =1987AN....308...41F C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'data.dat' ! Equivalent width data integer*4 nr__ parameter (nr__=790) ! Number of records character*53 ar__ ! Full-size record character*9 ID (nr__) ! *HD or BD Identification real*4 E_B_V (nr__) ! (mag) E(B-V) Color excess real*4 alpha (nr__) ! *{alpha} parameter real*4 beta (nr__) ! *{beta} parameter real*4 gamma (nr__) ! *{gamma} parameter integer*4 W (nr__) ! (0.1nm) Equivalent width in Angstroms integer*4 S2200 (nr__) ! (10-3mag) *Standard deviation (Wesselius et al. 1982) integer*4 N (nr__) ! Number of separate observations (Ibid.) character*5 rem (nr__) ! *Remarks *Note on ID: * HD is right justified to byte 6. * BD zone appears in bytes 1-3. BD number is right justified to byte 9. *Note on alpha beta gamma: * Parameters as defined in Gurtler et al. (1982). * Actual values are in Friedemann and Roder (1987) derived from ANS data * compiled by Wesselius et al. (1982). * Each is given in units of microns to the power of 5/3. *Note on S2200: * Standard deviation in 0.001mag in the 2200 A band according to Wesselius et * al. (1982) *Note on rem: * 3 = common star with an entry in the catalog compiled by Dorschner et * al. (1984) * 4 = at least two stars are present within one arcminute of the pointing * position * 5 = ultraviolet results indicate variability * 50 = suspected variable * 6 = equivalent width W deviates two to three times the standard deviation * of the mean relation W ~ E(B-V) * 70 = possibly a deviating extinction law * 8 = lying in a cluster that probably affects the ultraviolet data * 9 = equivalent width W deviates at least three times the standard * deviation from the mean relation W ~ E(B-V) C============================================================================= C Loading file 'data.dat' ! Equivalent width data C Format for file interpretation 1 format( + A9,1X,F4.2,1X,F6.3,1X,F6.3,1X,F6.3,1X,I4,1X,I3,1X,I2,1X,A5) C Effective file loading open(unit=1,status='old',file= +'data.dat') write(6,*) '....Loading file: data.dat' do i__=1,790 read(1,'(A53)')ar__ read(ar__,1) + ID(i__),E_B_V(i__),alpha(i__),beta(i__),gamma(i__),W(i__), + S2200(i__),N(i__),rem(i__) c ..............Just test output........... write(6,1) + ID(i__),E_B_V(i__),alpha(i__),beta(i__),gamma(i__),W(i__), + S2200(i__),N(i__),rem(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end