Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJS/156/35 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-20
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/ApJS/156/35 SEXSI catalog. II (Eckart+, 2005)
*================================================================================
*The serendipitous extragalactic X-ray source identification (SEXSI) program.
*II. Optical imaging.
* Eckart M.E., Laird E.S., Stern D., Mao P.H., Helfand D.J., Harrison F.A.
* <Astrophys. J. Suppl. Ser., 156, 35-45 (2005)>
* =2005ApJS..156...35E
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Optical follow-up source catalog
integer*4 nr__
parameter (nr__=1034) ! Number of records
character*116 ar__ ! Full-size record
C J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg (nr__) ! (deg) Right Ascension J2000
real*8 DEdeg (nr__) ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
character*16 CXOSEXSI (nr__) ! IAU-registered name (JHHMMSS.s+DDMMSS)
integer*4 RAh (nr__) ! (h) Hour of Right Ascension (J2000) (1)
integer*4 RAm (nr__) ! (min) Minute of Right Ascension (J2000) (1)
real*4 RAs (nr__) ! (s) Second of Right Ascension (J2000) (1)
character*1 DE_ (nr__) ! Sign of the Declination (J2000) (1)
integer*4 DEd (nr__) ! (deg) Degree of Declination (J2000) (1)
integer*4 DEm (nr__) ! (arcmin) Arcminute of Declination (J2000) (1)
real*4 DEs (nr__) ! (arcsec) Arcsecond of Declination (J2000) (1)
real*4 OAA (nr__) ! (arcmin) Off-axis angle
real*8 HFlux (nr__) ! (10-18W/m2) Unabsorbed hard band (2.0-10keV) flux
* in units of 10^-15^erg/cm^2^/s
real*4 HS_N (nr__) ! Signal-to-noise ratio of the hard detection
real*4 HR (nr__) ! Hardness ratio (2)
integer*4 l_HR (nr__) ! [0,1] Hardness ratio limit flag (3)
integer*4 Cl (nr__) ! [0,1] Cluster flag (4)
integer*4 OID (nr__) ! [0,6] Optical ID flag (5)
real*4 Rcmag (nr__) ! (mag) ? The Cousins R Magnitude
real*4 e_Rcmag (nr__) ! (mag) ? Error on Rcmag
real*4 Rclim (nr__) ! (mag) ? Limiting Rcmag of Image
integer*4 f_Rcmag (nr__) ! [0,1]? Flag on Rcmag (6)
real*4 oRA (nr__) ! (arcsec) ? Optical counterpart RA offset from X-ray RA
real*4 oDE (nr__) ! (arcsec) ? Optical counterpart DE offset from X-ray DE
real*4 dPos (nr__) ! (arcsec) ? Position difference of optical counterpart
* and X-ray source
real*4 Fx_Fo (nr__) ! ([-]) ? Log of the HFlux/RFlux ratio
real*4 Stell (nr__) ! ? SExtractor stellarity fraction (7)
*Note (1): X-ray positions are corrected for average X-ray to optical offset
* (to correct Chandra astrometry).
*Note (2): The hardness ratio is HR=(H-S)/(H+S), where H is the corrected counts
* in the 2.0-10keV band and S is the corrected counts in the 0.5-2.0keV
* band extracted at the position of the hard band detection.
*Note (3): The hardness ratio flag is defined as follows:
* 1 = hardness ratio is a lower limit,
* 0 = hardness ratio is solid (not a limit).
*Note (4): Cluster flag, defined as follows:
* 1 = source potentially falls within 1Mpc of known target cluster center;
* 0 = source does not fall within 1Mpc of target cluster center.
*Note (5): Optical ID flag, defined as follows:
* 6 = non-detection but near bright source (limiting mag will be incorrect)
* 5 = unclear which source is optical counterpart
* 4 = near bright source (magnitude affected)
* 3 = bright source - magnitude taken from Guide Star Catalog II
* 2 = upper limit
* 1 = optical identification
* 0 = no optical coverage
*Note (6): The flag on Rcmag has the following meaning:
* 1 = Rcmag>Rclim
* 0 = Rcmag<Rclim
*Note (7): SExtractor stellarity fraction range from 0.0 to 1.0:
* 0.0 = significantly extended source
* 1.0 = source consistent with perfectly stellar PSF
C=============================================================================
C Loading file 'table3.dat' ! Optical follow-up source catalog
C Format for file interpretation
1 format(
+ A16,1X,I2,1X,I2,1X,F5.2,1X,A1,I2,1X,I2,1X,F4.1,1X,F5.2,1X,
+ F8.2,1X,F5.2,1X,F5.2,1X,I1,1X,I1,1X,I1,1X,F5.2,1X,F4.2,1X,
+ F4.1,1X,I1,1X,F4.1,1X,F4.1,1X,F3.1,1X,F5.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,1034
read(1,'(A116)')ar__
read(ar__,1)
+ CXOSEXSI(i__),RAh(i__),RAm(i__),RAs(i__),DE_(i__),DEd(i__),
+ DEm(i__),DEs(i__),OAA(i__),HFlux(i__),HS_N(i__),HR(i__),
+ l_HR(i__),Cl(i__),OID(i__),Rcmag(i__),e_Rcmag(i__),Rclim(i__),
+ f_Rcmag(i__),oRA(i__),oDE(i__),dPos(i__),Fx_Fo(i__),Stell(i__)
if(ar__(75:79) .EQ. '') Rcmag(i__) = rNULL__
if(ar__(81:84) .EQ. '') e_Rcmag(i__) = rNULL__
if(ar__(86:89) .EQ. '') Rclim(i__) = rNULL__
if(ar__(91:91) .EQ. '') f_Rcmag(i__) = iNULL__
if(ar__(93:96) .EQ. '') oRA(i__) = rNULL__
if(ar__(98:101) .EQ. '') oDE(i__) = rNULL__
if(ar__(103:105) .EQ. '') dPos(i__) = rNULL__
if(ar__(107:111) .EQ. '') Fx_Fo(i__) = rNULL__
if(ar__(113:116) .EQ. '') Stell(i__) = rNULL__
RAdeg(i__) = rNULL__
DEdeg(i__) = rNULL__
c Derive coordinates RAdeg and DEdeg from input data
c (RAdeg and DEdeg are set to rNULL__ when unknown)
if(RAh(i__) .GT. -180) RAdeg(i__)=RAh(i__)*15.
if(RAm(i__) .GT. -180) RAdeg(i__)=RAdeg(i__)+RAm(i__)/4.
if(RAs(i__) .GT. -180) RAdeg(i__)=RAdeg(i__)+RAs(i__)/240.
if(DEd(i__) .GE. 0) DEdeg(i__)=DEd(i__)
if(DEm(i__) .GE. 0) DEdeg(i__)=DEdeg(i__)+DEm(i__)/60.
if(DEs(i__) .GE. 0) DEdeg(i__)=DEdeg(i__)+DEs(i__)/3600.
if(DE_(i__).EQ.'-'.AND.DEdeg(i__).GE.0) DEdeg(i__)=-DEdeg(i__)
c ..............Just test output...........
write(6,1)
+ CXOSEXSI(i__),RAh(i__),RAm(i__),RAs(i__),DE_(i__),DEd(i__),
+ DEm(i__),DEs(i__),OAA(i__),HFlux(i__),HS_N(i__),HR(i__),
+ l_HR(i__),Cl(i__),OID(i__),Rcmag(i__),e_Rcmag(i__),Rclim(i__),
+ f_Rcmag(i__),oRA(i__),oDE(i__),dPos(i__),Fx_Fo(i__),Stell(i__)
write(6,'(6H Pos: 2F8.4)') RAdeg(i__),DEdeg(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end