Conversion of standardized ReadMe file for
file /./ftp/cats/J/AZh/93/605 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-20 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/AZh/93/605 AGN long-term variability (Volvach+, 2016) *================================================================================ *Long-term variability of active galactic nuclei from the "Planck" catalog. * Volvach A.E., Kardashev N.S., Larionov M.G., Volvach L.N. * <Astron. Zh. 93, 605 (2016)> * =2016AZh....93..605V (SIMBAD/NED BibCode) * =2016ARep...60..621V C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table.dat' ! Flux densities and derived spectral indices for data from Metsahovi (M), the CrAO (C), and WMAP (W) integer*4 nr__ parameter (nr__=104) ! Number of records character*81 ar__ ! Full-size record integer*4 Seq ! Sequential number character*8 BName ! Source name B1950 (HHMM+DDd) character*9 JName ! Source name J2000 (HHMM+DDMM) character*14 Ident ! Identification character*1 n_Ident ! [*] Note on Ident (1) real*4 F36_8M ! (Jy) Metsahovi flux density at 36.8GHz real*4 F36_8C ! (Jy) CrAO flux density at 36.8GHz real*4 e_F36_8C ! (Jy) rms uncertainty on F36.8C real*4 F36_8W ! (Jy) ? Flux density at 36.8GHz interpolated from * the WMAP data real*4 e_F36_8W ! (Jy) ? Flux density at 36.8GHz integer*4 VarM_C ! (%) Metsahovi/CrAO variability index (2) real*4 VarW_C ! (%) ? WMAP/CrAO variability index (3) real*4 e_VarW_C ! (%) ? rms uncertainty on VarW/C *Note (1): * for sources promising for observations with the RADIOASTRON * ground-space and the future MILLIMETRON mission. *Note (2): The mean variability indices calculated from the Metsahovi and * CrAO flux densities is 45. *Note (3): The mean variability indices calculated from theWMAP and CrAO flux * densities is 55.7+/-4.3. C============================================================================= C Loading file 'table.dat' ! Flux densities and derived spectral indices for data * from Metsahovi (M), the CrAO (C), and WMAP (W) C Format for file interpretation 1 format( + I3,1X,A8,1X,A9,2X,A14,A1,1X,F5.2,1X,F5.2,1X,F4.2,1X,F4.1,1X, + F4.2,1X,I3,1X,F5.1,1X,F4.1) C Effective file loading open(unit=1,status='old',file= +'table.dat') write(6,*) '....Loading file: table.dat' do i__=1,104 read(1,'(A81)')ar__ read(ar__,1) + Seq,BName,JName,Ident,n_Ident,F36_8M,F36_8C,e_F36_8C,F36_8W, + e_F36_8W,VarM_C,VarW_C,e_VarW_C if(ar__(58:61) .EQ. '') F36_8W = rNULL__ if(ar__(63:66) .EQ. '') e_F36_8W = rNULL__ if(ar__(72:76) .EQ. '') VarW_C = rNULL__ if(ar__(78:81) .EQ. '') e_VarW_C = rNULL__ c ..............Just test output........... write(6,1) + Seq,BName,JName,Ident,n_Ident,F36_8M,F36_8C,e_F36_8C,F36_8W, + e_F36_8W,VarM_C,VarW_C,e_VarW_C c .......End.of.Just test output........... end do close(1) C============================================================================= stop end