Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/437/361 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-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/ApJ/437/361 Einstein survey of the Orion nebula region (Gagne+ 1994)
*================================================================================
*The complete Einstein Observatory X-ray survey of the Orion nebula region.
* Gagne M., Caillault J.-P.
* <Astrophys. J. 437, 361 (1994)>
* =1994ApJ...437..361G (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Sources detected in the Orion Nebula Region
by Einstein
integer*4 nr__
parameter (nr__=245) ! Number of records
character*96 ar__ ! Full-size record
C B1950 position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg ! (deg) Right Ascension B1950
real*8 DEdeg ! (deg) Declination B1950
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 NoX ! X-ray number
integer*4 RAh ! (h) Right ascension (B1950) of the source
integer*4 RAm ! (min) Right ascension (B1950) of the source
real*4 RAs ! (s) Right ascension (B1950) of the source
character*1 DE_ ! Declination sign
integer*4 DEd ! (deg) Declination (B1950) of the source
integer*4 DEm ! (arcmin) Declination (B1950) of the source
integer*4 DEs ! (arcsec) Declination (B1950) of the source
real*8 Rate1 ! (ct/s) ? IPC count rate
real*8 e_Rate1 ! (ct/s) ? rms uncertainty on Rate1
real*8 Rate2 ! (ct/s) ? HRI count rate
real*8 e_Rate2 ! (ct/s) ? rms uncertainty on Rate2
integer*4 DRA ! (arcsec) ? Offset in right ascension
integer*4 DDE ! (arcsec) ? Offset in declination
character*7 Name ! Star name
character*1 n_Name ! [*] * indicates multiple optical counterpart.
* See table3
integer*4 Prob ! ? Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Einstein sources with multiple optical counterparts
integer*4 nr__1
parameter (nr__1=44) ! Number of records
character*57 ar__1 ! Full-size record
integer*4 NoX_1 ! X-ray number
integer*4 oRA1 ! (arcsec) Offset in right ascension for star1
integer*4 oDE1 ! (arcsec) Offset in declination for star1
character*6 Star1 ! Star1 name
integer*4 Prob1 ! ? Membership probability for star1
integer*4 oRA2 ! (arcsec) Offset in right ascension for star2
integer*4 oDE2 ! (arcsec) Offset in declination for star2
character*5 Star2 ! Star2 name
integer*4 Prob2 ! ? Membership probability for star2
integer*4 oRA3 ! (arcsec) ? Offset in right ascension for star3
integer*4 oDE3 ! (arcsec) ? Offset in declination for star3
character*5 Star3 ! Star3 name
integer*4 Prob3 ! ? Membership probability for star3
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6.dat' ! Optical and X-ray data for typed cluster members
integer*4 nr__2
parameter (nr__2=71) ! Number of records
character*76 ar__2 ! Full-size record
integer*4 NoX_2 ! X-ray number
character*5 Par ! Parenago (1954, Cat.<II/171>) designation
character*6 J_W ! Jones & Walker (1988) designation
character*7 GCVS ! GCVS designation
character*9 Sp ! Spectral type
real*4 logTeff ! ([K]) Effective temperature
real*4 Bmag ! (mag) ? B magnitude
real*4 Vmag ! (mag) ? V magnitude
real*4 Icmag ! (mag) ? Ic magnitude
real*4 logLX ! ([10-7W]) X-ray luminosity
real*4 log_LX_Lbol ! ? X-ray luminosity versus bolometric
* luminosity ratio
character*5 Note ! Individual Notes (file notes.dat)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table7.dat' ! Optical and X-ray data for untyped cluster members
integer*4 nr__3
parameter (nr__3=51) ! Number of records
character*59 ar__3 ! Full-size record
integer*4 NoX_3 ! X-ray number
character*5 Par_1 ! Parenago (1954, Cat.<II/171>) designation
character*6 J_W_1 ! Jones & Walker (1988) designation
character*6 GCVS_1 ! GCVS designation
real*4 Bmag_1 ! (mag) ? B magnitude
real*4 Vmag_1 ! (mag) ? V magnitude
real*4 Icmag_1 ! (mag) ? Ic magnitude
real*4 logLX_1 ! ([10-7W]) X-ray luminosity
character*1 n_logLX ! [b] Note on LX (1)
real*4 log_fX_fbol ! ? X-ray flux versus bolometric flux ratio
character*5 Note_1 ! Individual Notes (file notes.dat)
*Note (1): JW 315 may have been flaring during HRI exposure (see table2).
* Consequently, we have used IPC count rate to determine LX.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table8.dat' ! Rotational and X-ray data for late-type cluster
members
integer*4 nr__4
parameter (nr__4=31) ! Number of records
character*58 ar__4 ! Full-size record
integer*4 NoX_4 ! X-ray number
character*5 Par_2 ! Parenago (1954, Cat.<II/171>) designation
character*6 J_W_2 ! Jones & Walker (1988AJ.....95.1755J) designation
character*4 GCVS_2 ! GCVS designation
character*7 Sp_1 ! Spectral type
real*4 logLX_2 ! ([10-7W]) X-ray luminosity
real*4 logFX ! ([mW/m2]) X-ray flux
character*1 u_logFX ! Uncertainty flag on logFX
character*1 l_vsini ! Limit flag on vsini
integer*4 vsini ! (km/s) ? Rotational velocity
real*4 Prot ! (d) ? Period of rotation
character*2 Note_2 ! Individual Notes (1)
*Note (1):
* a: Rotational period from Attridge & Herbst 1994
* b: Rotational period from Attridge & Herbst 1992ApJ...398L..61A
* c: Rotational period from Mandel & Herbest 1991ApJ...383L..75M
* d: Rotational period from Walker 1990PASP..102..726W
* e: Spectroscopic rotational velocity from Strom 1994ApJ...424..237S
* f: Spectroscopic rotational velocity from Duncan 1993ApJ...406..172D
* g: Spectroscopic rotational velocity from Walker 1990PASP..102..726W
* h: Spectroscopic rotational velocity from Hartmann et al.
* 1986ApJ...309..275H
* i: Spectroscopic rotational velocity from Smith et al. 1983ApJ...271..237S
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'notes.dat' ! Notes to tables 6 and 7
integer*4 nr__5
parameter (nr__5=30) ! Number of records
character*104 ar__5 ! Full-size record
character*1 Note_3 ! Note symbol (tables 6 and 7)
character*102 Text ! Text of note (includes the bibcode)
C=============================================================================
C Loading file 'table2.dat' ! Sources detected in the Orion Nebula Region
* by Einstein
C Format for file interpretation
1 format(
+ I3,1X,I2,1X,I2,1X,F4.1,1X,A1,I1,1X,I2,1X,I2,1X,F7.5,1X,F7.5,
+ 1X,F7.5,1X,F7.5,1X,I3,1X,I3,1X,A7,A1,1X,I2)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,245
read(1,'(A96)')ar__
read(ar__,1)
+ NoX,RAh,RAm,RAs,DE_,DEd,DEm,DEs,Rate1,e_Rate1,Rate2,e_Rate2,
+ DRA,DDE,Name,n_Name,Prob
if(ar__(25:31) .EQ. '') Rate1 = rNULL__
if(ar__(33:39) .EQ. '') e_Rate1 = rNULL__
if(ar__(41:47) .EQ. '') Rate2 = rNULL__
if(ar__(49:55) .EQ. '') e_Rate2 = rNULL__
if(ar__(57:59) .EQ. '') DRA = iNULL__
if(ar__(61:63) .EQ. '') DDE = iNULL__
if(ar__(74:75) .EQ. '') Prob = iNULL__
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)
+ NoX,RAh,RAm,RAs,DE_,DEd,DEm,DEs,Rate1,e_Rate1,Rate2,e_Rate2,
+ DRA,DDE,Name,n_Name,Prob
write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! Einstein sources with multiple optical counterparts
C Format for file interpretation
2 format(
+ I3,1X,I3,1X,I3,1X,A6,1X,I2,1X,I3,1X,I3,1X,A5,1X,I2,1X,I3,1X,
+ I3,1X,A5,1X,I2)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,44
read(1,'(A57)')ar__1
read(ar__1,2)
+ NoX_1,oRA1,oDE1,Star1,Prob1,oRA2,oDE2,Star2,Prob2,oRA3,oDE3,
+ Star3,Prob3
if(ar__1(20:21) .EQ. '') Prob1 = iNULL__
if(ar__1(37:38) .EQ. '') Prob2 = iNULL__
if(ar__1(40:42) .EQ. '') oRA3 = iNULL__
if(ar__1(44:46) .EQ. '') oDE3 = iNULL__
if(ar__1(54:55) .EQ. '') Prob3 = iNULL__
c ..............Just test output...........
write(6,2)
+ NoX_1,oRA1,oDE1,Star1,Prob1,oRA2,oDE2,Star2,Prob2,oRA3,oDE3,
+ Star3,Prob3
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table6.dat' ! Optical and X-ray data for typed cluster members
C Format for file interpretation
3 format(
+ I3,1X,A5,1X,A6,1X,A7,1X,A9,1X,F5.3,1X,F5.2,1X,F5.2,1X,F5.2,1X,
+ F5.2,1X,F5.2,1X,A5)
C Effective file loading
open(unit=1,status='old',file=
+'table6.dat')
write(6,*) '....Loading file: table6.dat'
do i__=1,71
read(1,'(A76)')ar__2
read(ar__2,3)
+ NoX_2,Par,J_W,GCVS,Sp,logTeff,Bmag,Vmag,Icmag,logLX,
+ log_LX_Lbol,Note
if(ar__2(42:46) .EQ. '') Bmag = rNULL__
if(ar__2(48:52) .EQ. '') Vmag = rNULL__
if(ar__2(54:58) .EQ. '') Icmag = rNULL__
if(ar__2(66:70) .EQ. '') log_LX_Lbol = rNULL__
c ..............Just test output...........
write(6,3)
+ NoX_2,Par,J_W,GCVS,Sp,logTeff,Bmag,Vmag,Icmag,logLX,
+ log_LX_Lbol,Note
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table7.dat' ! Optical and X-ray data for untyped cluster members
C Format for file interpretation
4 format(
+ I3,1X,A5,1X,A6,1X,A6,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,A1,1X,F5.2,
+ 1X,A5)
C Effective file loading
open(unit=1,status='old',file=
+'table7.dat')
write(6,*) '....Loading file: table7.dat'
do i__=1,51
read(1,'(A59)')ar__3
read(ar__3,4)
+ NoX_3,Par_1,J_W_1,GCVS_1,Bmag_1,Vmag_1,Icmag_1,logLX_1,
+ n_logLX,log_fX_fbol,Note_1
if(ar__3(24:28) .EQ. '') Bmag_1 = rNULL__
if(ar__3(30:34) .EQ. '') Vmag_1 = rNULL__
if(ar__3(36:40) .EQ. '') Icmag_1 = rNULL__
if(ar__3(49:53) .EQ. '') log_fX_fbol = rNULL__
c ..............Just test output...........
write(6,4)
+ NoX_3,Par_1,J_W_1,GCVS_1,Bmag_1,Vmag_1,Icmag_1,logLX_1,
+ n_logLX,log_fX_fbol,Note_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table8.dat' ! Rotational and X-ray data for late-type cluster
* members
C Format for file interpretation
5 format(
+ I3,1X,A5,1X,A6,1X,A4,1X,A7,1X,F5.2,1X,F4.2,A1,1X,A1,I3,1X,
+ F5.2,1X,A2)
C Effective file loading
open(unit=1,status='old',file=
+'table8.dat')
write(6,*) '....Loading file: table8.dat'
do i__=1,31
read(1,'(A58)')ar__4
read(ar__4,5)
+ NoX_4,Par_2,J_W_2,GCVS_2,Sp_1,logLX_2,logFX,u_logFX,l_vsini,
+ vsini,Prot,Note_2
if(ar__4(44:46) .EQ. '') vsini = iNULL__
if(ar__4(48:52) .EQ. '') Prot = rNULL__
c ..............Just test output...........
write(6,5)
+ NoX_4,Par_2,J_W_2,GCVS_2,Sp_1,logLX_2,logFX,u_logFX,l_vsini,
+ vsini,Prot,Note_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'notes.dat' ! Notes to tables 6 and 7
C Format for file interpretation
6 format(A1,1X,A102)
C Effective file loading
open(unit=1,status='old',file=
+'notes.dat')
write(6,*) '....Loading file: notes.dat'
do i__=1,30
read(1,'(A104)')ar__5
read(ar__5,6)Note_3,Text
c ..............Just test output...........
write(6,6)Note_3,Text
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end