Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/437/1135 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-10
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/437/1135 Near-IR astrometry of Southern ICRF quasars (Camargo+, 2005)
*================================================================================
*Near-infrared astrometry and photometry of Southern ICRF quasars.
* Camargo I.B., Daigne G., Ducourant C., Charlot P.
* <Astron. Astrophys. 437, 1135 (2005)>
* =2005A&A...437.1135C
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'position.dat' ! Positions, from Ma et al., Cat. <I/251>
integer*4 nr__
parameter (nr__=30) ! Number of records
character*65 ar__ ! Full-size record
C J2000.0 position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg ! (deg) Right Ascension J2000.0
real*8 DEdeg ! (deg) Declination J2000.0
C ---------------------------------- ! (position vector(s) in degrees)
character*8 IERS ! IERS designation
character*16 ICRF ! ICRF designation
integer*4 RAh ! (h) Right ascension (J2000.0)
integer*4 RAm ! (min) Right ascension (J2000.0)
real*8 RAs ! (s) Right ascension (J2000.0)
character*1 DE_ ! Declination sign (J2000.0)
integer*4 DEd ! (deg) Declination (J2000.0)
integer*4 DEm ! (arcmin) Declination (J2000.0)
real*8 DEs ! (arcsec) Declination (J2000.0)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Photometric data
integer*4 nr__1
parameter (nr__1=32) ! Number of records
character*115 ar__1 ! Full-size record
character*8 IERS_1 ! IERS designation
character*1 c ! [CDO] Defining/Candidate/Other category
* of source
character*1 l_z ! Limit flag on z
real*4 z ! ? Redshift (1)
character*1 n_z ! [*] *: Redshift from Cat. <VII/235>
real*4 S6cm ! (Jy) ? Flux density at 6cm, from literature
character*1 n_S6cm ! [*] *: 6cm flux density from Cat. <VII/235>
real*4 alphaR ! ? Radio spectral index (1)
character*6 Type ! Object type (1)
real*4 BMAG ! (mag) ? Absolute B magnitude, from Cat. <VII/235>
real*4 Bmag_1 ! (mag) ? B magnitude, from USNO-B1, Cat. <I/284>
real*4 Vmag ! (mag) ? V magnitude, from literature (1)
character*1 n_Vmag ! [*] *: Vmag from Cat. <VII/235>
real*4 Rmag ! (mag) ? R magnitude, from USNO-B1, Cat. <I/284>
character*3 IntId ! Internal identification
* (p: photometry mode, a: astrometry mode)
real*8 MJD ! (d) Modified Julian date of the observation
real*4 Jmag ! (mag) Observed J magnitude
real*4 Hmag ! (mag) Observed H magnitude
real*4 Ksmag ! (mag) Observed Ks magnitude
real*4 JFlux ! (mJy) Observed J-band flux
real*4 HFlux ! (mJy) Observed H-band flux
real*4 KsFlux ! (mJy) Observed Ks-band flux
real*4 Sp_Index ! Near-IR spectral index
real*4 e_Sp_Index ! rms uncertainty on Sp+Index
*Note (1): Data from Archinal et al. (1997, in Definition and Realization
* of the International Celestial Reference System by VLBI Astrometry of
* Extragalactic Objects, IERS Tech. Note 23, Paris: Obs. Paris, ed. C.
* Ma, & M. Feissel, III 11), or from Veron-Cetty & Veron, 2003, Cat.
* <VII/235>, if *
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! *Astrometric data
integer*4 nr__2
parameter (nr__2=32) ! Number of records
character*53 ar__2 ! Full-size record
character*8 IERS_2 ! IERS quasar identification
real*8 MJD_1 ! (d) Modified Julian Date of the observation
integer*4 ORA_ ! (mas) Offset in RAcosDE, in the sense
* near-IR minus ICRF (1)
integer*4 e_ORA_ ! (mas) Precision of the observed near-IR position,
* in RAcosDE (2)
integer*4 ODE ! (mas) Offset in declination, in the sense
* near-IR minus ICRF (1)
integer*4 e_ODE ! (mas) Precision of the observed near-IR position,
* in declination (2)
integer*4 dRA_ ! (mas) Standard deviations of the positional measurements
* in the J, H, and Ks filters in RAcosDE
integer*4 dDE ! (mas) Standard deviations of the positional measurements
* in the J, H, and Ks filters in declination
integer*4 eRA_ ! (mas) Mean of the standard deviation, in RAcosDE (3)
integer*4 eDE ! (mas) Mean of the standard deviation, in declination (3)
integer*4 N ! Number of reference (UCAC2) stars used in the
* astrometric analysis of the observations made
* in the photometry mode
*Note (1): Positional differences from the astrometric analysis of the
* observations made in the photometry mode, in the sense near-IR minus
* ICRF, in right ascension and declination, respectively.
*Note (2): Precisions of the observed near-IR positions of the ICRF quasars,
* as derived from the astrometric analysis of the observations made in
* the photometry mode. These precisions are the combined errors from
* each of the photometric filters
*Note (3): Mean of the standard deviation, as obtained from each of the
* photometric filters, of the differences observed minus calculated to
* the reference (UCAC2) stars in the photometry mode at the epoch of the
* observations.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! *Astrometric data, Results in the F filter
integer*4 nr__3
parameter (nr__3=16) ! Number of records
character*76 ar__3 ! Full-size record
character*8 IERS_3 ! IERS quasar identification
real*8 MJD_2 ! (d) Modified Julian Date of the observation
integer*4 ORA_S ! (mas) Offset in RAcosDE, in the sense
* near-IR minus ICRF (1)
integer*4 e_ORA_S ! (mas) Precision of the observed near-IR position,
* in RAcosDE (2)
integer*4 ODES ! (mas) Offset in declination, in the sense
* near-IR minus ICRF (1)
integer*4 e_ODES ! (mas) Precision of the observed near-IR position,
* in declination (2)
integer*4 NS ! Number of reference (UCAC2) stars used in the
* astrometric analysis of the single central image
integer*4 ORA_M ! (mas) Offset in RAcosDE, in the sense
* near-IR minus ICRF (3)
integer*4 e_ORA_M ! (mas) Precision of the observed near-IR position,
* in RAcosDE (4)
integer*4 ODEM ! (mas) Offset in declination, in the sense
* near-IR minus ICRF (3)
integer*4 e_ODEM ! (mas) Precision of the observed near-IR position,
* in declination (4)
integer*4 NM ! Number of reference (UCAC2) stars used in
* the astrometry mode
integer*4 cRA_ ! (mas) Internal precision as obtained from the positions
* of stars in overlapping regions, in RAcosDE
integer*4 cDE_ ! (mas) Internal precision as obtained from the positions
* of stars in overlapping regions, in declination
integer*4 RA_ ! (mas) rms of the differences observed minus calculated,
* in RAcosDE (5)
integer*4 DE ! (mas) rms of the differences observed minus calculated,
* in declination (5)
real*4 rRA ! Ratio between the values and the respective
* nominal for right ascension
real*4 rDE ! Ratio between the values and the respective
* nominal for declination
*Note (1): Positional differences from the astrometric analysis of the
* single central image, in the sense near- IR minus ICRF.
*Note (2): Precisions from the astrometric analysis of the single central
* image, of the observed near-IR positions of the ICRF quasars.
*Note (3): Positional differences from the reduction in astrometry mode,
* in the sense near-IR minus ICRF.
*Note (4): Precisions of the observed near-IR positions in the astrometry
* mode of the ICRF quasars.
*Note (5): rms of the differences observed minus calculated to the reference
* (UCAC2) stars in the astrometry mode at the epoch of the observations
C=============================================================================
C Loading file 'position.dat' ! Positions, from Ma et al., Cat. <I/251>
C Format for file interpretation
1 format(A8,6X,A16,3X,I2,1X,I2,1X,F9.6,2X,A1,I2,1X,I2,1X,F8.5)
C Effective file loading
open(unit=1,status='old',file=
+'position.dat')
write(6,*) '....Loading file: position.dat'
do i__=1,30
read(1,'(A65)')ar__
read(ar__,1)IERS,ICRF,RAh,RAm,RAs,DE_,DEd,DEm,DEs
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)IERS,ICRF,RAh,RAm,RAs,DE_,DEd,DEm,DEs
write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! Photometric data
C Format for file interpretation
2 format(
+ A8,1X,A1,1X,A1,F5.3,A1,F4.2,A1,F4.1,1X,A6,1X,F5.1,1X,F5.2,1X,
+ F4.1,A1,F4.1,1X,A3,1X,F8.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F4.2,1X,
+ F5.2,1X,F5.2,1X,F5.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,32
read(1,'(A115)')ar__1
read(ar__1,2)
+ IERS_1,c,l_z,z,n_z,S6cm,n_S6cm,alphaR,Type,BMAG,Bmag_1,Vmag,
+ n_Vmag,Rmag,IntId,MJD,Jmag,Hmag,Ksmag,JFlux,HFlux,KsFlux,
+ Sp_Index,e_Sp_Index
if(ar__1(13:17) .EQ. '') z = rNULL__
if(ar__1(19:22) .EQ. '') S6cm = rNULL__
if(ar__1(24:27) .EQ. '') alphaR = rNULL__
if(ar__1(36:40) .EQ. '') BMAG = rNULL__
if(ar__1(42:46) .EQ. '') Bmag_1 = rNULL__
if(ar__1(48:51) .EQ. '') Vmag = rNULL__
if(ar__1(53:56) .EQ. '') Rmag = rNULL__
c ..............Just test output...........
write(6,2)
+ IERS_1,c,l_z,z,n_z,S6cm,n_S6cm,alphaR,Type,BMAG,Bmag_1,Vmag,
+ n_Vmag,Rmag,IntId,MJD,Jmag,Hmag,Ksmag,JFlux,HFlux,KsFlux,
+ Sp_Index,e_Sp_Index
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! *Astrometric data
C Format for file interpretation
3 format(
+ A8,1X,F8.2,1X,I4,1X,I3,1X,I4,1X,I3,1X,I2,1X,I2,1X,I3,1X,I3,1X,
+ I2)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,32
read(1,'(A53)')ar__2
read(ar__2,3)
+ IERS_2,MJD_1,ORA_,e_ORA_,ODE,e_ODE,dRA_,dDE,eRA_,eDE,N
c ..............Just test output...........
write(6,3)
+ IERS_2,MJD_1,ORA_,e_ORA_,ODE,e_ODE,dRA_,dDE,eRA_,eDE,N
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! *Astrometric data, Results in the F filter
C Format for file interpretation
4 format(
+ A8,1X,F8.2,1X,I4,1X,I2,1X,I3,1X,I2,1X,I2,2X,I3,1X,I2,1X,I3,1X,
+ I2,1X,I3,1X,I2,1X,I2,1X,I2,1X,I2,1X,F4.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,16
read(1,'(A76)')ar__3
read(ar__3,4)
+ IERS_3,MJD_2,ORA_S,e_ORA_S,ODES,e_ODES,NS,ORA_M,e_ORA_M,ODEM,
+ e_ODEM,NM,cRA_,cDE_,RA_,DE,rRA,rDE
c ..............Just test output...........
write(6,4)
+ IERS_3,MJD_2,ORA_S,e_ORA_S,ODES,e_ODES,NS,ORA_M,e_ORA_M,ODEM,
+ e_ODEM,NM,cRA_,cDE_,RA_,DE,rRA,rDE
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end