Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/469/451 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 2026-Jun-08
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/469/451 Radio continuum spectra of GPS galaxies (Torniainen+, 2007)
*================================================================================
*Radio continuum spectra of gigahertz-peaked spectrum galaxies.
* Torniainen I., Tornikoski M., Lahteenmaki A., Aller M.F., Aller H.D.,
* Mingaliev M.G.
* <Astron. Astrophys. 469, 451 (2007)>
* =2007A&A...469..451T
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! The sample of galaxy-type GPS sources
integer*4 nr__
parameter (nr__=96) ! Number of records
character*58 ar__ ! Full-size record
character*8 Source (nr__) ! B1950 name of the source
real*4 z (nr__) ! ? Redshift
character*1 u_z (nr__) ! [?] Uncertainty flag for redshift
real*4 FpO (nr__) ! (GHz) Peak frequency in the observers frame
real*4 FpR (nr__) ! (GHz) ? Peak frequency in the rest frame
real*4 var (nr__) ! The greatest fractional variability index (1)
integer*4 o_var (nr__) ! Number of observations (2)
real*4 Fvar (nr__) ! (GHz) Center frequency (3)
real*4 alpha0 (nr__) ! ? Spectral index below the peak frequency (4)
real*4 alpha1 (nr__) ! ? Spectral index above the peak frequency (4)
character*3 Class (nr__) ! Classification proposed in this paper (5)
*Note (1): The greatest fractional variability index of the data bins
* for the source
*Note (2): Number of observations in the data bin with the greatest
* fractional variability index
*Note (3): Center frequency of the data bin with the greatest fractional
* variability index
*Note (4): Spectral index {alpha} defined so that Flux density
* S{prop.to}{nu}^{alpha}^
*Note (5): Classification of the radio continuum spectrum as follows:
* gps = genuine GPS source
* c = convex
* v = variable
* f = flat
* s = steep
* f/s = flat at lower and steep at higher frequencies
* n = possible GPS source but not enough data for classification
C=============================================================================
C Loading file 'table2.dat' ! The sample of galaxy-type GPS sources
C Format for file interpretation
1 format(
+ A8,1X,F5.3,A1,1X,F5.2,1X,F5.2,1X,F4.2,1X,I3,1X,F6.3,1X,F4.2,
+ 1X,F5.2,1X,A3)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,96
read(1,'(A58)')ar__
read(ar__,1)
+ Source(i__),z(i__),u_z(i__),FpO(i__),FpR(i__),var(i__),
+ o_var(i__),Fvar(i__),alpha0(i__),alpha1(i__),Class(i__)
if(ar__(10:14) .EQ. '') z(i__) = rNULL__
if(ar__(23:27) .EQ. '') FpR(i__) = rNULL__
if(ar__(45:48) .EQ. '') alpha0(i__) = rNULL__
if(ar__(50:54) .EQ. '') alpha1(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ Source(i__),z(i__),u_z(i__),FpO(i__),FpR(i__),var(i__),
+ o_var(i__),Fvar(i__),alpha0(i__),alpha1(i__),Class(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end