Conversion of standardized ReadMe file for
file /./ftp/cats/J/AZh/72/12 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.5, on 2013-May-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__
ter (rNULL__=-1.e37) ! NULL real number
parameter (iNULL__=-2147483647) ! NULL int number
C=============================================================================
Cat. J/AZh/72/12 Spectroscopy of Sources from 87GB Catalog (Mingaliev+, 1995)
*================================================================================
*Spectroscopic Study of a Sample of Radio Sources from the 87GB Catalog
* Mingaliev M., Khabrakhmanov A.
* <Astron. Zh. 72, 12 (1995)>
* =1995AZh....72...12M
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table' ! Radio spectra of a sample of 112 sources
integer*4 nr__
parameter (nr__=112) ! Number of records
character*114 ar__ ! Full-size record
real*8 RA_ ! (deg) Right Ascension 1950
real*8 Dec ! (deg) Declination 1950
integer*4 RAh ! (h) Right ascension (1950) from 87GB
integer*4 RAm ! (min) Right ascension (1950) from 87GB
real*4 RAs ! (s) Right ascension (1950) from 87GB
character*1 DE_ ! Declination sign
integer*4 DEd ! (deg) Declination (1950) from 87GB
integer*4 DEm ! (arcmin) Declination (1950) from 87GB
integer*4 DEs ! (arcsec) Declination (1950) from 87GB
integer*4 RARh ! (h) ? Right ascension (1950) (RATAN-600)
integer*4 RARm ! (min) ? Right ascension (1950) (RATAN-600)
real*4 RARs ! (s) ? Right ascension (1950) (RATAN-600)
real*4 e_RARs ! (s) ? Uncertainty in Right ascension (1950)
integer*4 Flux2_7 ! (Jy) ? Flux density in the 2.7cm (11.1GHz)
character*1 l_e_Flux2_7 ! ? Limit symbol on relative uncertainty of
* flux densities in the 2.7cm
integer*4 e_Flux2_7 ! (Jy) Relative uncertainty of flux densities
* in the 2.7cm
character*1 l_Flux6_2 ! ? Limit symbol on flux density in the 6.2cm
integer*4 Flux6_2 ! (Jy) Flux density in the 6.2cm (4,8GHz)
integer*4 e_Flux6_2 ! (Jy) Relative uncertainty of flux densities
* in the 6.2cm
integer*4 Flux7_6 ! (Jy) ? Flux density in the 7.6cm (3.9GHz)
integer*4 e_Flux7_6 ! (Jy) ? Relative uncertainty of flux densities
* in the 7.6cm
integer*4 Flux31 ! (Jy) ? Flux density in the 31cm (970MHz)
character*1 l_e_Flux31 ! ? Limit symbol on relative uncertainty of
* flux densities in the 31cm
integer*4 e_Flux31 ! (Jy) ? Relative uncertainty of flux densities
* in the 31cm
integer*4 Flux82 ! (Jy) ? Flux density in the 82cm (370MHz)
integer*4 e_Flux82 ! (Jy) ? Relative uncertainty of flux densities
* in the 82cm
real*4 alpha1 ! ? Spectral index from 14P and 15P
real*4 alpha2 ! ? Spectral index from 14P and 15P
character*3 Rem ! * Remarks
*Note on Rem:
* # = The spectral indices were determined from flux densities at 7.6 and 31cm
* (in the absence of identification with the Texas survey)
* * = the source is from the Sternberg Astronomical Institute survey list
* ** = the source is identified with the adjacent lobe
* *** = the source signal was not distinguished because of interference from a
* nearby background source. The flux densities at 6.2 and 82cm from
* the Green Bank and Texas surveys.
* ref = a reference object
C=============================================================================
C Loading file 'table' ! Radio spectra of a sample of 112 sources
C Format for file interpretation
1 format(
+ I2,1X,I2,1X,F4.1,2X,A1,I1,1X,I2,1X,I2,2X,I2,1X,I2,1X,F5.2,2X,
+ F4.2,1X,I4,1X,A1,I3,1X,A1,I4,2X,I3,2X,I4,2X,I2,2X,I4,2X,A1,I3,
+ 1X,I5,1X,I3,1X,F5.2,2X,F5.2,1X,A3)
C Effective file loading
open(unit=1,file='table', status='old')
write(6,*) '....Loading file: table'
do i__=1,112
read(1,'(A114)')ar__
read(ar__,1)
+ RAh,RAm,RAs,DE_,DEd,DEm,DEs,RARh,RARm,RARs,e_RARs,Flux2_7,
+ l_e_Flux2_7,e_Flux2_7,l_Flux6_2,Flux6_2,e_Flux6_2,Flux7_6,
+ e_Flux7_6,Flux31,l_e_Flux31,e_Flux31,Flux82,e_Flux82,alpha1,
+ alpha2,Rem
if(ar__(23:24) .EQ. '') RARh = iNULL__
if(ar__(26:27) .EQ. '') RARm = iNULL__
if(ar__(29:33) .EQ. '') RARs = rNULL__
if(ar__(36:39) .EQ. '') e_RARs = rNULL__
if(ar__(41:44) .EQ. '') Flux2_7 = iNULL__
if(ar__(63:66) .EQ. '') Flux7_6 = iNULL__
if(ar__(69:70) .EQ. '') e_Flux7_6 = iNULL__
if(ar__(73:76) .EQ. '') Flux31 = iNULL__
if(ar__(80:82) .EQ. '') e_Flux31 = iNULL__
if(ar__(84:88) .EQ. '') Flux82 = iNULL__
if(ar__(90:92) .EQ. '') e_Flux82 = iNULL__
if(ar__(94:98) .EQ. '') alpha1 = rNULL__
if(ar__(101:105) .EQ. '') alpha2 = rNULL__
c Derive coordinates RA_ and Dec from input data
c (RA_ and Dec are set to rNULL_ when unknown)
RA_ = RAh
if(RAh .GE. 0) RA_=RAh*15.
if(RAm .GE. 0) RA_=RA_+RAm/4.
if(RAs .GE. 0) RA_=RA_+RAs/240.
Dec = DEd
if(DEm .GE. 0) Dec=Dec+DEm/60.
if(DEs .GE. 0) Dec=Dec+DEs/3600.
if(DE_.EQ.'-'.AND.Dec.GE.0) Dec=-Dec
c ..............Just test output...........
write(6,1)
+ RAh,RAm,RAs,DE_,DEd,DEm,DEs,RARh,RARm,RARs,e_RARs,Flux2_7,
+ l_e_Flux2_7,e_Flux2_7,l_Flux6_2,Flux6_2,e_Flux6_2,Flux7_6,
+ e_Flux7_6,Flux31,l_e_Flux31,e_Flux31,Flux82,e_Flux82,alpha1,
+ alpha2,Rem
write(6,'(6H Pos: 2F8.4)') RA_,Dec
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end