Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/449/425 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.
++++Only one proper motion (pm) found for: table1.dat
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+A/449/425 Optical identification of ROSAT-FSC sources (Mickaelian+, 2006)
*================================================================================
*Optical identification of ROSAT-FSC sources.
* Mickaelian A.M., Hovhannisyan L.R., Engels D., Hagen H.-J., Voges W.
* <Astron. Astrophys. 449, 425 (2006)>
* =2006A&A...449..425M
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! A catalog of Hamburg/ROSAT-FSC identifications
for {delta}>0, |b|>30 and X-ray counts>0.04ct/s:
3202 objects for 2696 ROSAT sources.
integer*4 nr__
parameter (nr__=3202) ! Number of records
character*344 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 v1RXS (nr__) ! ROSAT name (Cat. IX/29)
integer*4 ePos (nr__) ! (arcsec) ROSAT positional error
real*8 CR (nr__) ! (ct/s) ROSAT count rate
real*8 e_CR (nr__) ! (ct/s) ? ROSAT count rate error
real*4 HR1 (nr__) ! ? ROSAT hardness ratio 1 (0.1-0.4,0.5/2.0keV)
real*4 e_HR1 (nr__) ! ? ROSAT hardness ratio 1 error
real*4 HR2 (nr__) ! ? ROSAT hardness ratio 2 (0.5-0.9,0.9-2.0 keV)
real*4 e_HR2 (nr__) ! ? ROSAT hardness ratio 2 error
character*1 m_1RXS (nr__) ! [a-e] Optical counterpart component
integer*4 RAh (nr__) ! (h) DSS2 (red) right ascension (J2000)
integer*4 RAm (nr__) ! (min) DSS2 (red) right ascension (J2000)
real*4 RAs (nr__) ! (s) DSS2 (red) right ascension (J2000)
character*1 DE_ (nr__) ! Declination sign (J2000)
integer*4 DEd (nr__) ! (deg) DSS2 (red) declination (J2000)
integer*4 DEm (nr__) ! (arcmin) DSS2 (red) declination (J2000)
real*4 DEs (nr__) ! (arcsec) DSS2 (red) declination (J2000)
real*4 Opt_X (nr__) ! (arcsec) Distance between optical and X-ray positions
real*4 O_Xr (nr__) ! Relative distance optical/X-ray (Opt-X/ePos)
real*4 OmagM (nr__) ! (mag) ? MAPS O magnitude
real*4 v_O_E_M (nr__) ! (mag) ? MAPS O-E colour index
integer*4 pm (nr__) ! (mas/yr) ? USNO-B1.0 total proper motion
real*4 Omag (nr__) ! (mag) ? USNO-B1.0 O magnitude
* (mean of DSS1 blue and DSS2 blue)
real*4 Emag (nr__) ! (mag) ? USNO-B1.0 E magnitude
* (mean of DSS1 red and DSS2 red)
real*4 O_E (nr__) ! (mag) ? USNO-B1.0 O-E colour
* (mean of DSS1 O-E and DSS2 O-E)
real*4 Imag (nr__) ! (mag) ? USNO-B1.0 I magnitude (DSS2 IR)
real*4 Dmag (nr__) ! (mag) ? USNO-B1.0 magnitude difference between
* DSS2 and DSS1 (mean of blue and red)
character*13 Class (nr__) ! Classification of the objects (1)
character*19 Com (nr__) ! Comments on the objects (2)
character*17 OptType (nr__) ! Associations with known optical objects:
* types (3)
character*37 ONames (nr__) ! Optical associations: names of the objects
real*4 OdistO (nr__) ! (arcsec) ? Optical associations: distance between the
* catalog and DSS2 red (our) positions
real*4 OdistX (nr__) ! (arcsec) ? Optical associations: distance between the
* catalog and ROSAT positions
character*13 Type (nr__) ! Optical associations: classification
real*4 mag (nr__) ! (mag) ? Optical associations: catalog magnitudes
* (typically B magnitude)
character*1 n_mag (nr__) ! [gR] Band in not B magnitude
real*8 z (nr__) ! ? Optical associations: redshift
character*12 Aband (nr__) ! Non-optical associations: wavelength domain
* (radio, IR, X-ray)
character*43 ANames (nr__) ! Non-optical associations: names of sources
real*4 AdistO (nr__) ! (arcsec) ? Non-optical associations: distance between
* the source and DSS2 red (our) positions
real*4 AdistX (nr__) ! (arcsec) ? Non-optical associations: distance between
* the source and ROSAT positions
*Note (1): Classification based on DSS images, HQS spectra, MAPS and USNO-B1.0,
* SIMBAD/NED/AGN/WD/CV associations.
*Note (2): binary and multiple stars; pairs, groups and clusters of galaxies
* and QSOs; variability, etc.
*Note (3): Associations from SIMBAD, NED, and AGN/WD/CV catalogs
C=============================================================================
C Loading file 'table1.dat' ! A catalog of Hamburg/ROSAT-FSC identifications
* for {delta}>0, |b|>30 and X-ray counts>0.04ct/s:
* 3202 objects for 2696 ROSAT sources.
C Format for file interpretation
1 format(
+ 5X,A16,1X,I3,1X,F7.4,1X,F7.4,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,
+ 1X,A1,1X,I2,1X,I2,1X,F5.2,1X,A1,I2,1X,I2,1X,F4.1,1X,F5.1,1X,
+ F3.1,1X,F5.2,1X,F5.2,1X,I4,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,
+ F5.2,1X,A13,1X,A19,1X,A17,1X,A37,1X,F4.1,1X,F5.1,1X,A13,F5.2,
+ A1,1X,F7.5,1X,A12,1X,A43,1X,F5.1,1X,F5.1)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,3202
read(1,'(A344)')ar__
read(ar__,1)
+ v1RXS(i__),ePos(i__),CR(i__),e_CR(i__),HR1(i__),e_HR1(i__),
+ HR2(i__),e_HR2(i__),m_1RXS(i__),RAh(i__),RAm(i__),RAs(i__),
+ DE_(i__),DEd(i__),DEm(i__),DEs(i__),Opt_X(i__),O_Xr(i__),
+ OmagM(i__),v_O_E_M(i__),pm(i__),Omag(i__),Emag(i__),O_E(i__),
+ Imag(i__),Dmag(i__),Class(i__),Com(i__),OptType(i__),
+ ONames(i__),OdistO(i__),OdistX(i__),Type(i__),mag(i__),
+ n_mag(i__),z(i__),Aband(i__),ANames(i__),AdistO(i__),
+ AdistX(i__)
if(ar__(35:41) .EQ. '') e_CR(i__) = rNULL__
if(ar__(43:47) .EQ. '') HR1(i__) = rNULL__
if(ar__(49:52) .EQ. '') e_HR1(i__) = rNULL__
if(ar__(54:58) .EQ. '') HR2(i__) = rNULL__
if(ar__(60:63) .EQ. '') e_HR2(i__) = rNULL__
if(ar__(101:105) .EQ. '') OmagM(i__) = rNULL__
if(ar__(107:111) .EQ. '') v_O_E_M(i__) = rNULL__
if(ar__(113:116) .EQ. '') pm(i__) = iNULL__
if(ar__(118:122) .EQ. '') Omag(i__) = rNULL__
if(ar__(124:128) .EQ. '') Emag(i__) = rNULL__
if(ar__(130:134) .EQ. '') O_E(i__) = rNULL__
if(ar__(136:140) .EQ. '') Imag(i__) = rNULL__
if(ar__(142:146) .EQ. '') Dmag(i__) = rNULL__
if(ar__(238:241) .EQ. '') OdistO(i__) = rNULL__
if(ar__(243:247) .EQ. '') OdistX(i__) = rNULL__
if(ar__(262:266) .EQ. '') mag(i__) = rNULL__
if(ar__(269:275) .EQ. '') z(i__) = rNULL__
if(ar__(334:338) .EQ. '') AdistO(i__) = rNULL__
if(ar__(340:344) .EQ. '') AdistX(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)
+ v1RXS(i__),ePos(i__),CR(i__),e_CR(i__),HR1(i__),e_HR1(i__),
+ HR2(i__),e_HR2(i__),m_1RXS(i__),RAh(i__),RAm(i__),RAs(i__),
+ DE_(i__),DEd(i__),DEm(i__),DEs(i__),Opt_X(i__),O_Xr(i__),
+ OmagM(i__),v_O_E_M(i__),pm(i__),Omag(i__),Emag(i__),O_E(i__),
+ Imag(i__),Dmag(i__),Class(i__),Com(i__),OptType(i__),
+ ONames(i__),OdistO(i__),OdistX(i__),Type(i__),mag(i__),
+ n_mag(i__),z(i__),Aband(i__),ANames(i__),AdistO(i__),
+ AdistX(i__)
write(6,'(6H Pos: 2F8.4)') RAdeg(i__),DEdeg(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end