Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/598/375 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-Mar-29 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/598/375 Chandra X-ray observations of NGC 2024 (Skinner+, 2003) *================================================================================ *A deep Chandra X-ray observation of the embedded young cluster in NGC 2024. * Skinner S., Gagne M., Belzer E. * <Astrophys. J., 598, 375-391 (2003)> * =2003ApJ...598..375S C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! CHANDRA X-ray Sources in NGC 2024 integer*4 nr__ parameter (nr__=283) ! Number of records character*155 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) integer*4 v_SGB2003_ (nr__) ! Running object number character*2 n__SGB2003_(nr__) ! [*f ] Note detailed in notes.dat file character*17 Name (nr__) ! Object name (JHHMMSS.s-DDMMSS) integer*4 RAh (nr__) ! (h) CHANDRA Right Ascension (J2000) (2) integer*4 RAm (nr__) ! (min) CHANDRA Right Ascension (J2000) (2) real*4 RAs (nr__) ! (s) CHANDRA Right Ascension (J2000) (2) character*1 DE_ (nr__) ! CHANDRA Declination sign (J2000) (2) integer*4 DEd (nr__) ! (deg) CHANDRA Declination (J2000) (2) integer*4 DEm (nr__) ! (arcmin) CHANDRA Declination (J2000) (2) real*4 DEs (nr__) ! (arcsec) CHANDRA Declination (J2000) (2) integer*4 NCts (nr__) ! (ct) Net (0.5-7keV) counts (3) integer*4 e_NCts (nr__) ! (ct) Uncertainty in NCts (4) real*4 KS (nr__) ! Kolmogorov-Smirnov variability * statistic (5) real*4 E (nr__) ! (keV) Mean (0.5-7keV) photon energy real*4 NH (nr__) ! (10+22/cm2) ? Hydrogen absorption column density (6) real*4 E_NH (nr__) ! (10+22/cm2) ? Upper 90% confidence error on NH (7) real*4 e_NH_1 (nr__) ! (10+22/cm2) ? Lower 90% confidence error on NH (7) real*4 kT (nr__) ! (keV) ? Characteristic plasma temperature (6) real*4 E_kT (nr__) ! (keV) ? Upper 90% confidence error on kT (7) real*4 e_kT_1 (nr__) ! (keV) ? Lower 90% confidence error on kT (7) real*4 FX_abs (nr__) ! (mW/m2) The absorbed (0.5-7keV) flux in * units of erg/cm^2^/s (8) real*4 logLx (nr__) ! ([10-7W]) ? Log of the (0.5-7keV) unabsorbed * luminosity in units of erg/s (9) character*1 f_logLx (nr__) ! [v] Indicates a variable logLx character*43 ID (nr__) ! Candidate IR, optical or radio * identification (10) *Note (2): with astrometric correction applied. *Note (3): Net source counts = total counts - background counts. Source counts * were measured in PSF-corrected 95% encircled energy regions except * for the brightest sources where 99% encircled energy regions were * used; smaller regions were used for some closely-spaced sources. *Note (4): As described by Gehrels (1986ApJ...303..336G). *Note (5): Sources with KS>1.7 are variable (see text). *Note (6): Time-averaged values for sources with >=90 counts as determined * from spectral fits with 1T VAPEC optically thin plasma model using * a fixed iron abundance Fe=0.3 solar (errors are 90% confidence). *Note (7): An upper or lower 90% confidence error of +0.0 or -0.0 is quoted * when the error calculation algorithm did not converge and no valid * 90% confidence error was obtained. *Note (8): As determined from source event list (see text). *Note (9): At d=415pc as determined from spectral fits of brighter sources * where an estimate of NH and kT is available. *Note (10): From 2MASS, SIMBAD, and the following conventions: * B89-NN = Barnes et al. (1989ApJ...342..883B), [BCB89] IRS NN in Simbad * B-NN = Beck et al. (2003ApJ...583..358B), Cl* NGC 2024 BSC NN in Simbad * HLL-NNN = Haisch, Lada & Lada (2000AJ....120.1396H), * Cl* NGC 2024 HLL NNN in Simbad * HLP-NNN = Haisch et al. (2001AJ....121.1512H), Cl* NGC 2024 HLP NNN * M-NNN = Meyer (1996, Ph.D. thesis, Univ. Massachusetts, Amherst). * V-NN = Radio identifications from 3.6cm VLA observations of * Rodriguez et al. (2003ApJ...598.1100R), [RGR2003] VLA NN in Simbad * HHMMSSss-DDMMSSs = IR identifications found in the all-sky release * of the 2MASS Point Source Catalog (<II/246>) are listed by * their coordinates (e.g. 05411324-0153306). c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'notes.dat' ! Notes integer*4 nr__1 parameter (nr__1=113) ! Number of records character*80 ar__1 ! Full-size record character*3 Note (nr__1) ! Note code character*76 Text (nr__1) ! Text of the note C============================================================================= C Loading file 'table1.dat' ! CHANDRA X-ray Sources in NGC 2024 C Format for file interpretation 1 format( + I3,A2,1X,A17,1X,I1,1X,I2,1X,F5.2,1X,A1,I1,1X,I2,1X,F4.1,1X,I4, + 1X,I2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F5.2,1X,F4.2,1X,F3.1,1X,F3.1, + 1X,F3.1,1X,E8.2,1X,F5.2,1X,A1,1X,A43) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,283 read(1,'(A155)')ar__ read(ar__,1) + v_SGB2003_(i__),n__SGB2003_(i__),Name(i__),RAh(i__),RAm(i__), + RAs(i__),DE_(i__),DEd(i__),DEm(i__),DEs(i__),NCts(i__), + e_NCts(i__),KS(i__),E(i__),NH(i__),E_NH(i__),e_NH_1(i__), + kT(i__),E_kT(i__),e_kT_1(i__),FX_abs(i__),logLx(i__), + f_logLx(i__),ID(i__) if(ar__(66:70) .EQ. '') NH(i__) = rNULL__ if(ar__(72:76) .EQ. '') E_NH(i__) = rNULL__ if(ar__(78:81) .EQ. '') e_NH_1(i__) = rNULL__ if(ar__(83:85) .EQ. '') kT(i__) = rNULL__ if(ar__(87:89) .EQ. '') E_kT(i__) = rNULL__ if(ar__(91:93) .EQ. '') e_kT_1(i__) = rNULL__ if(ar__(104:108) .EQ. '') logLx(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) + v_SGB2003_(i__),n__SGB2003_(i__),Name(i__),RAh(i__),RAm(i__), + RAs(i__),DE_(i__),DEd(i__),DEm(i__),DEs(i__),NCts(i__), + e_NCts(i__),KS(i__),E(i__),NH(i__),E_NH(i__),e_NH_1(i__), + kT(i__),E_kT(i__),e_kT_1(i__),FX_abs(i__),logLx(i__), + f_logLx(i__),ID(i__) write(6,'(6H Pos: 2F8.4)') RAdeg(i__),DEdeg(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'notes.dat' ! Notes C Format for file interpretation 2 format(A3,1X,A76) C Effective file loading open(unit=1,status='old',file= +'notes.dat') write(6,*) '....Loading file: notes.dat' do i__=1,113 read(1,'(A80)')ar__1 read(ar__1,2)Note(i__),Text(i__) c ..............Just test output........... write(6,2)Note(i__),Text(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end