Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_AS/114/109 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 2026-Apr-13
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/114/109 Cha X-ray sources & optical identifications (Alcala+ 1995)
*================================================================================
*A study of the Chamaeleon star forming region from the ROSAT all-sky survey.
*I. X-ray observations and optical identifications
* Alcala J.M., Krautter, J., Schmitt J.H.M.M., Covino E., Wichmann R.,
* Mundt R.
* <Astron. Astrophys. Suppl. Ser. 114, 109 (1995)>
* =1995A&AS..114..109A (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6' ! ROSAT all-sky survey X-ray sources in Chamaeleon
integer*4 nr__
parameter (nr__=180) ! Number of records
character*95 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*11 RXJ (nr__) ! RXJ X-ray source name
character*1 m_RXJ (nr__) ! Multiplicity index on RXJ
integer*4 RAh (nr__) ! (h) Right ascension (J2000)
integer*4 RAm (nr__) ! (min) Right ascension (J2000)
real*4 RAs (nr__) ! (s) Right ascension (J2000)
character*1 DE_ (nr__) ! Declination sign
integer*4 DEd (nr__) ! (deg) Declination (J2000)
integer*4 DEm (nr__) ! (arcmin) Declination (J2000)
real*4 DEs (nr__) ! (arcsec) Declination (J2000)
real*4 Count (nr__) ! (ct/s) Count rates from ROSAT
real*4 e_Count (nr__) ! (ct/s) rms uncertainty on Count
character*12 ID (nr__) ! Optical identification
integer*4 Theta (nr__) ! (arcsec) ? Offset distance
character*5 SpType (nr__) ! Spectral type
character*4 Type (nr__) ! Type (1)
character*5 Note (nr__) ! Appearance in finding chart
character*1 n_Note (nr__) ! Note (2)
character*6 Ref (nr__) ! References (3)
*Note (1): W : previously known weak-line T Tauri star
* C : previously known classical T Tauri star
* Wn : new weak-line T Tauri star
* UAS: unrelated active star
* UBS: unrelated bright star
* IR : infrared source
* QS : quasar
* RS : radio source
* G : galaxy.
*Note (2): St.: Stellar, Gal.: galaxy, faint: object fainter than V~20.
* a : source investigated spectroscopically, but without stellar
* counterpart found.
* b : source not investigated. Its corresponding error circle contains
* objects fainter than our limit for the spectroscopic
* observations (V~17mag).
* c : very strong spectroscopic and photometric variability
* (Alcala et al. 1993A&A...272..225A).
* d : Halpha filled-in with emission but no Li I A6707 absorption.
* e : Li I lambda6707 absorption to be confirmed because of low S/N of
* the spectrum.
*Note (3): 1: this Work
* 2: Simbad catalogue (see ROSAT PSPC, Cat. <IX/11>)
* 3: Gauvin and Strom (1992ApJ...385..217G)
* 4: Feigelson and Kriss (1989ApJ...338..262F)
* 5: Hyland et al. (1982MNRAS.201.1095H)
* 6: Hughes and Hartigan (1992AJ....104..680H)
* 7: Walter (1992AJ....104..758W)
* 8: Feigelson et al. (1993ApJ...416..623F)
* 9: Huenemoerder et al. (1994MNRAS.271..967H)
C=============================================================================
C Loading file 'table6' ! ROSAT all-sky survey X-ray sources in Chamaeleon
C Format for file interpretation
1 format(
+ A11,A1,2X,I2,1X,I2,1X,F5.2,2X,A1,I2,1X,I2,1X,F4.1,2X,F5.3,1X,
+ F5.3,1X,A12,1X,I2,2X,A5,2X,A4,1X,A5,1X,A1,1X,A6)
C Effective file loading
open(unit=1,status='old',file=
+'table6')
write(6,*) '....Loading file: table6'
do i__=1,180
read(1,'(A95)')ar__
read(ar__,1)
+ RXJ(i__),m_RXJ(i__),RAh(i__),RAm(i__),RAs(i__),DE_(i__),
+ DEd(i__),DEm(i__),DEs(i__),Count(i__),e_Count(i__),ID(i__),
+ Theta(i__),SpType(i__),Type(i__),Note(i__),n_Note(i__),
+ Ref(i__)
if(ar__(66:67) .EQ. '') Theta(i__) = iNULL__
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)
+ RXJ(i__),m_RXJ(i__),RAh(i__),RAm(i__),RAs(i__),DE_(i__),
+ DEd(i__),DEm(i__),DEs(i__),Count(i__),e_Count(i__),ID(i__),
+ Theta(i__),SpType(i__),Type(i__),Note(i__),n_Note(i__),
+ Ref(i__)
write(6,'(6H Pos: 2F8.4)') RAdeg(i__),DEdeg(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end