Conversion of standardized ReadMe file for
file /./ftp/cats/J/MNRAS/200/747 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 2026-Sep-09
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/MNRAS/200/747 5C12: survey near the North Galactic Pole (Benn+, 1982)
*================================================================================
*A deep radio/optical survey near the North Galactic Pole. I. The 5C12 catalogue.
* Benn C.R., Grueff G., Vigotti M., Wall J.V.
* <Mon. Not. R. Astron. Soc. 200, 747 (1982)>
* =1982MNRAS.200..747B
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for '5c12.dat' ! 5C12 Survey of Radio Sources (RA: 12.75h-13.2h;
DEC: 32.7{deg} - 38.3{deg})
integer*4 nr__
parameter (nr__=321) ! Number of records
character*116 ar__ ! Full-size record
C B1950 position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg ! (deg) Right Ascension B1950
real*8 DEdeg ! (deg) Declination B1950
C ---------------------------------- ! (position vector(s) in degrees)
character*4 v5C12 ! Name of source (1)
integer*4 RAh ! (h) Right Ascension (B1950) (hour) (2)
integer*4 RAm ! (min) Right Ascension (B1950) (min)
real*4 RAs ! (s) Right Ascension (B1950) (sec)
character*1 DE_ ! Declination sign (B1950) (2)
integer*4 DEd ! (deg) Declination (B1950) (deg)
integer*4 DEm ! (arcmin) Declination (B1950) (arcmin)
real*4 DEs ! (arcsec) Declination (B1950) (arcsec)
real*4 e_RAs ! (arcsec) RA positional uncertainty (3)
real*4 e_DEs ! (arcsec) Dec positional uncertainty (3)
character*1 l_S408 ! [ <] '<' if flux density is an upper limit (4)
integer*4 S408 ! (mJy) ? 408 MHz flux density (4)
integer*4 e_S408 ! (mJy) ? Error on 408 flux densit (4)y
real*4 att_408 ! ? Envelope attenuation at 408 MHz (4)
real*4 S1407 ! (mJy) ? Flux density at 1407 MHz (5)
real*4 e_S1407 ! (mJy) ? Error on 1407 flux density (5)
real*4 att_1407 ! ? Envelope attenuation at 1407 MHz (5)
character*1 l_Sp_Index ! [ <] Flagged if alpha is an upper limit (6)
real*4 Sp_Index ! ? Spectral index between 408 and 1407 MHz (6)
character*10 obslist ! List of observations (7)
character*12 struct ! Structural information on the source (8)
character*26 notes ! Notes on the source (9)
*Note (1): The serial number of the 5C12 source is given in this column. The
* sources in each survey are numbered in increasing order of right
* ascension. Occasionally two sources are grouped together in the
* lists, and given suffixes a, b; this is done either when there
* are two peaks of emission at 1407 MHz but only one at 408 MHz, or
* when there is an obvious association between the two sources. The
* IAU nomenclature has not been adopted because this position-based
* system would be ambiguous for some of the 5C sources which are
* very close together. The authors recommend that when it is
* necessary to refer to a source by its 5C name in a context in
* which its position is not obvious, the 5C name should be
* accompanied by the IAU name in parentheses, thus: 5C12.103
* (1256+328).
*Note (2): These columns give the B1950.0 right ascension and declination of
* the radio source. Positions measured at 1407 MHz are accurate to an
* extra decimal place in right ascension and declination (2 decimal
* places in RA and 1 in declination).
*Note (3): These columns give the positional uncertainty in right ascension
* and declination, in arcsec. If there is evidence for resolution
* of the source (see notes column below), the errors given here are
* underestimates.
*Note (4): These columns give flux density information at 408 MHz. The
* l_S408 column contains a '<' if the flux density is an upper
* limit. The flux density is given in the S408 column. The rms
* uncertainty in the 408 MHz flux density is given in the e_S408
* column, which includes contribution of 3 percent uncertainty in
* the envelope correction. The att_408 column gives the envelope
* attenuation factor at 408 MHz (multiply S by this factor to recover
* S' and hence the signal-to-noise ratio).
*Note (5): These columns give flux density information at 1407 MHz. The flux
* density is given in the S1407 column. The rms uncertainty in the
* 1407 MHz flux density is given in the e_S1407 column, and the
* att_1407 column gives the envelope attenuation factor at 1407
* MHz.
*Note (6): These columns give the spectral index flag and spectral index
* between 408 and 1407 MHz. The l_alpha column is marked with a
* '<' if alpha is an upper limit. Alpha is defined in the sense
* S {prop.to} {nu}^-{alpha}^. For sources undetected at the higher
* frequency in 5C12, 1415 MHz flux densities from Katgert et al.
* (1973A&A....23..171K) have been used.
*Note (7): This column gives a list of other detections. The following
* abbreviations are used:
*
* Survey MHz Limit Beam Reference
* (mJy)
* ---------------------------------------------------------------------------
* WKB 38 14000 45' Williams, Kenderdine, and Baldwin (1966)
* 4C 178 200 15'x8' Pilkington and Scott (1965) (Cat.<VIII/4>)
* A0 318 500 16' Veron and Veron (1979A&AS...36..331V)
* WK 408 70 3'x10' Windram and Kenderdine (1969MNRAS.146..265W)
* GV 408 200 3'x10' Grueff and Vigotti (1968ApL.....2..113G)
* B2.1 408 200 3'x10' Colla et al. (1970A&AS....1..281C)
* B2.3 408 250 3'x10' Colla et al. (1973A&AS...11..291C)
* W6 610 12 53"x92" Katgert (1978A&AS...31..409K)
* W 1415 7 23"x40" Katgert et al. (1973A&A....23..171K)
* OH 1420 160 10'x40' Dixon and Kraus (1968AJ.....73..381D)
* DA 1420 1000 36' Galt and Kennedy (1968AJ.....73..135G)
* K2 2700 2 4"x6" 5-km telescope
* K5 5000 2 2"x4" 5-km telescope
* GC 5000 49 3' Davis (1971AJ.....76..980D)
*Note (8): This column gives structural information on the source. The
* following abbreviations are used:
*
* dbl double
* p possibly resolved
* r information from ratio between 1407 MHz flux densities measured
* from low- and high-resolution maps
* u unresolved
* v information from visibility measured as a function of baseline
*
* Other codes in parentheses indicate the source of the information
* according to the abbreviation in the obslist column above.
* 4 = 408 MHz (5C12); 14 = 1407 MHz (5C12).
*Note (9): This column gives notes on the source. An asterisk indicates that
* further information on the source is given in the notes appended
* to the table in the original paper.
C=============================================================================
C Loading file '5c12.dat' ! 5C12 Survey of Radio Sources (RA: 12.75h-13.2h;
* DEC: 32.7{deg} - 38.3{deg})
C Format for file interpretation
1 format(
+ A4,I2,I2,F5.2,A1,I2,I2,F4.1,F4.1,1X,F4.1,A1,I4,1X,I4,1X,F3.2,
+ 1X,F5.1,1X,F4.1,1X,F3.2,A1,F4.1,1X,A10,1X,A12,1X,A26)
C Effective file loading
open(unit=1,status='old',file=
+'5c12.dat')
write(6,*) '....Loading file: 5c12.dat'
do i__=1,321
read(1,'(A116)')ar__
read(ar__,1)
+ v5C12,RAh,RAm,RAs,DE_,DEd,DEm,DEs,e_RAs,e_DEs,l_S408,S408,
+ e_S408,att_408,S1407,e_S1407,att_1407,l_Sp_Index,Sp_Index,
+ obslist,struct,notes
if(ar__(33:36) .EQ. '') S408 = iNULL__
if(ar__(38:41) .EQ. '') e_S408 = iNULL__
if(ar__(43:45) .EQ. '') att_408 = rNULL__
if(ar__(47:51) .EQ. '') S1407 = rNULL__
if(ar__(53:56) .EQ. '') e_S1407 = rNULL__
if(ar__(58:60) .EQ. '') att_1407 = rNULL__
if(ar__(62:65) .EQ. '') Sp_Index = rNULL__
RAdeg = rNULL__
DEdeg = rNULL__
c Derive coordinates RAdeg and DEdeg from input data
c (RAdeg and DEdeg are set to rNULL__ when unknown)
if(RAh .GT. -180) RAdeg=RAh*15.
if(RAm .GT. -180) RAdeg=RAdeg+RAm/4.
if(RAs .GT. -180) RAdeg=RAdeg+RAs/240.
if(DEd .GE. 0) DEdeg=DEd
if(DEm .GE. 0) DEdeg=DEdeg+DEm/60.
if(DEs .GE. 0) DEdeg=DEdeg+DEs/3600.
if(DE_.EQ.'-'.AND.DEdeg.GE.0) DEdeg=-DEdeg
c ..............Just test output...........
write(6,1)
+ v5C12,RAh,RAm,RAs,DE_,DEd,DEm,DEs,e_RAs,e_DEs,l_S408,S408,
+ e_S408,att_408,S1407,e_S1407,att_1407,l_Sp_Index,Sp_Index,
+ obslist,struct,notes
write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end