Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_AS/135/83 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-19
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+AS/135/83 JK'R magnitude of QSOs and around them (Marquez+, 1999)
*================================================================================
*Near infrared observations of quasars with extended ionized envelopes.
* Marquez I., Durret F., Petitjean P.
* <Astron. Astrophys. Suppl. Ser. 135, 83 (1999)>
* =1999A&AS..135...83M
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Magnitudes and positions for quasars and nearby
detected objets
integer*4 nr__
parameter (nr__=380) ! Number of records
character*127 ar__ ! Full-size record
C 1950 position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg ! (deg) Right Ascension 1950
real*8 DEdeg ! (deg) Declination 1950
C ---------------------------------- ! (position vector(s) in degrees)
character*15 QSO ! Quasar name
character*2 v_MDP99_ ! Identification of objects near QSO (1)
integer*4 RAh ! (h) Right ascension (1950)
integer*4 RAm ! (min) Right ascension (1950)
real*4 RAs ! (s) Right ascension (1950)
character*1 DE_ ! Declination sign (1950)
integer*4 DEd ! (deg) Declination (1950)
integer*4 DEm ! (arcmin) Declination (1950)
real*4 DEs ! (arcsec) Declination (1950)
real*4 DRA ! (arcsec) Offset in right ascension from QSO
real*4 DDE ! (arcsec) Offset in declination from QSO
real*4 Jmag ! (mag) ? J magnitude
real*4 K_mag ! (mag) ? K' magnitude
real*4 Rmag ! (mag) ? R magnitude from published optical photometry
character*1 n_Rmag ! [g] g: g magnitudes from reference 8.
integer*4 Ref ! ? Reference (2)
integer*4 No ! ? Number of the object in the reference Ref (2)
character*3 Type ! Type (3)
character*1 n_Type ! [c] c: Cosmic ray or noise event in reference 2.
real*4 z ! ? Redshift
character*35 Ident ! Identifications
*Note (1): For the QSO itself, no number.
* In Simbad: <[MDP99] A0401-350A N>, <[MDP99] PKS HHMM+DDd NN>,
* <[MDP99] 3C NNN.N NN>, <[MDP99] 3C NNN.N A>, <[MDP99] 4C DD.NN NN>,
* <[MDP99] 4C DD.NN A>, <[MDP99] Mrk 877 NN>, <[MDP99] Mrk 877 A>,
* <[MDP99] MC 1745+163 NN>
*Note (2): References and Simbad identifications as follows:
* 1 = Ellingson et al. (1991ApJ...378..476E)
* <[EGY91] PKS 0812+020 Mask340NN>, <[EGY91] 4C 11.50 NN>
* 2 = Ellingson et al. (1989AJ.....97.1539E)
* <[EYG89] NNN> (for PKS 0837-120)
* 3 = Ellingson et al. (1991ApJS...76..455E)
* <[EYG91] 3C 215 NNN>, <[EYG91] 3C 275.1 NNN>
* 4 = Yee et al. (1986ApJS...62..681Y)
* <[YGS86] 3C 281 NNN>, <[YGS86] 4C 11.50 NNN>, <[YGS86] 3C 334 NNN>
* 5 = Hintzen (1984ApJS...55..533H)
* <[H84b] 0903+169 NN> for 3C 215.0, <[H84b] 1618+177 NN> for 3C 334.0
* 6 = Green & Yee (1984ApJS...54..495G)
* <[GY84] 3C 281 NNA>, <[GY84] 3C 334 NNA>, <[GY84] PKS 1302-102 NNA>
* 7 = Ellingson et al. (1994AJ....107.1219E)
* <[EYB94] PKS 2251+11 N>
* 8 = Kirhakos et al. (1994PASP..106..646K)
* <[KSS94] J225410.4+113639 NN> (for 4C 11.72)
* 9 = Ellingson & Yee (1994ApJS...92...33E)
* <EY 3C 215 NNN>, <EY 3C 275.1 NNN>
* 10 = Robinson & Wampler (1972ApJ...171L..83R)
* <Gunn PKS 2251+11 N>
*Note (3): Types as follows:
* 2 = galaxy
* 3 = probable galaxy
* 4 = star
* QSO = quasar
C=============================================================================
C Loading file 'table2.dat' ! Magnitudes and positions for quasars and nearby
* detected objets
C Format for file interpretation
1 format(
+ A15,1X,A2,1X,I2,1X,I2,1X,F5.2,1X,A1,I2,1X,I2,1X,F4.1,1X,F6.1,
+ 1X,F5.1,2X,F4.1,1X,F4.1,1X,F5.2,A1,1X,I1,1X,I3,2X,A3,A1,F6.4,
+ 1X,A35)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,380
read(1,'(A127)')ar__
read(ar__,1)
+ QSO,v_MDP99_,RAh,RAm,RAs,DE_,DEd,DEm,DEs,DRA,DDE,Jmag,K_mag,
+ Rmag,n_Rmag,Ref,No,Type,n_Type,z,Ident
if(ar__(58:61) .EQ. '') Jmag = rNULL__
if(ar__(63:66) .EQ. '') K_mag = rNULL__
if(ar__(68:72) .EQ. '') Rmag = rNULL__
if(ar__(75:75) .EQ. '') Ref = iNULL__
if(ar__(77:79) .EQ. '') No = iNULL__
if(ar__(86:91) .EQ. '') z = 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)
+ QSO,v_MDP99_,RAh,RAm,RAs,DE_,DEd,DEm,DEs,DRA,DDE,Jmag,K_mag,
+ Rmag,n_Rmag,Ref,No,Type,n_Type,z,Ident
write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end