Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/342/378 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-18
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/342/378 6 and 20cm flux densities of radio galaxies (Gurvits+ 1999)
*================================================================================
*The "angular size - redshift" relation for compact radio structures
*in quasars and radio galaxies
* Gurvits L.I., Kellermann K.I., Frey S.
* <Astron. Astrophys. 342, 378 (1999)>
* =1999A&A...342..378G (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! "VLBI angular size - z" for 330 sources
integer*4 nr__
parameter (nr__=330) ! Number of records
character*73 ar__ ! Full-size record
character*8 IAU (nr__) ! IAU name (based on 1950 position)
character*8 Name (nr__) ! Alternative name
real*4 z (nr__) ! Redshift
character*1 Type (nr__) ! [BGQ] Type of the optical counterpart (1)
real*4 S6cm (nr__) ! (Jy) Flux density at 6 cm from Gregory et al.
* (1996) unless otherwise stated.
character*1 n_S6cm (nr__) ! [q] Note on S6cm (2)
real*4 S20cm (nr__) ! (Jy) ? Flux density at 20 cm (or alternative) from
* White and Becker (1992) unless otherwise
* stated
character*1 n_S20cm (nr__) ! [f-y] Note on S20cm (2)
real*4 SI (nr__) ! Spectral index
character*1 l_theta (nr__) ! Symbol of an upper limit
real*4 theta (nr__) ! (mas) Angular size
character*1 Struc (nr__) ! [CJLS] Structure code (3)
character*4 r_z (nr__) ! Redshift reference in refs.dat file
character*4 r_S6cm (nr__) ! 6cm flux density reference in refs.dat file
character*4 r_S20cm (nr__) ! 20cm flux density reference in refs.dat file
character*4 r_VLBI (nr__) ! VLBI reference in refs.dat file
*Note (1): Q: quasar
* B: BL Lac object
* G: radio galaxy (including Seyfert galaxies of all types)
*Note (2): f: Spectral index calculated using S_11_=0.61Jy
* g: Spectral index calculated using S_11_=3.56Jy
* h: Spectral index calculated using S_75_=5.05Jy
* i: Spectral index calculated using S_11_=1.10Jy
* j: Spectral index calculated using S_11_=1.33Jy
* k: Spectral index calculated using S_11_=0.40Jy
* l: Spectral index calculated using S_11_=0.56Jy
* m: Spectral index calculated using S_11_=0.45Jy
* n: Spectral index calculated using S_75_=0.14Jy
* o: Spectral index calculated using S_11_=2.74Jy
* p: Spectral index calculated using S_11_=1.08Jy
* q: S_6_ and S_20_ values for the compact core component
* x: Spectral index calculated using S_11_=1.76Jy
* y: Spectral index calculated using S_11_=1.34Jy
*Note (3): Characteristic angular size (case C) or
* its upper limit (cases J, L, and S).
* Radio structure code:
* C: size between the core and the most distant 2%-component
* J: upper limit of {theta} along jet direction
* L: upper limit of {theta} along major axis of the beam
* S: upper limit of {theta} along minor axis of the beam
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'refs.dat' ! References
integer*4 nr__1
parameter (nr__1=86) ! Number of records
character*153 ar__1 ! Full-size record
character*4 Ref (nr__1) ! Reference code
character*19 BibCode (nr__1) ! BibCode
character*22 Aut (nr__1) ! Author's name
character*105 Comm (nr__1) ! Comments
C=============================================================================
C Loading file 'table1.dat' ! "VLBI angular size - z" for 330 sources
C Format for file interpretation
1 format(
+ A8,1X,A8,1X,F5.3,1X,A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,1X,A1,
+ F4.1,1X,A1,1X,A4,1X,A4,1X,A4,1X,A4)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,330
read(1,'(A73)')ar__
read(ar__,1)
+ IAU(i__),Name(i__),z(i__),Type(i__),S6cm(i__),n_S6cm(i__),
+ S20cm(i__),n_S20cm(i__),SI(i__),l_theta(i__),theta(i__),
+ Struc(i__),r_z(i__),r_S6cm(i__),r_S20cm(i__),r_VLBI(i__)
if(ar__(34:38) .EQ. '') S20cm(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ IAU(i__),Name(i__),z(i__),Type(i__),S6cm(i__),n_S6cm(i__),
+ S20cm(i__),n_S20cm(i__),SI(i__),l_theta(i__),theta(i__),
+ Struc(i__),r_z(i__),r_S6cm(i__),r_S20cm(i__),r_VLBI(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'refs.dat' ! References
C Format for file interpretation
2 format(A4,1X,A19,1X,A22,1X,A105)
C Effective file loading
open(unit=1,status='old',file=
+'refs.dat')
write(6,*) '....Loading file: refs.dat'
do i__=1,86
read(1,'(A153)')ar__1
read(ar__1,2)Ref(i__),BibCode(i__),Aut(i__),Comm(i__)
c ..............Just test output...........
write(6,2)Ref(i__),BibCode(i__),Aut(i__),Comm(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end