Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/458/245 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-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/A+A/458/245 Obs. of 2 Unidentified Gamma-ray Sources (La Palombara+, 2006) *================================================================================ *XMM-Newton and ESO observations of the two Unidentified Gamma-ray Sources *3EG J0616-3310 and 3EG J1249-8330. * La Palombara N., Mignani R.P., Hatziminaoglou E., Schirmer M., Bignami G.F., * Caraveo P. * <Astron. Astrophys. 458, 245 (2006)> * =2006A&A...458..245L C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Main characteristics of the 8 EPIC observations of 3EG J0616-3310 (Obs=1-4) & 3EG J1249-8330 (Obs=5-8) integer*4 nr__ parameter (nr__=8) ! Number of records character*70 ar__ ! Full-size record C J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs real*8 RAdeg ! (deg) Right Ascension J2000 real*8 DEdeg ! (deg) Declination J2000 C ---------------------------------- ! (position vector(s) in degrees) integer*4 Obs ! EPIC field sequential reference number integer*4 Rev ! Revolution number of XMM character*10 ObsDate ! ("YYYY-MM-DD") Observation date character*8 ObsTime ! ("h:m:s") Observation time (hh:mm:ss) integer*4 RAh ! (h) Right ascension (J2000) integer*4 RAm ! (min) Right ascension (J2000) real*4 RAs ! (s) Right ascension (J2000) character*1 DE_ ! Declination sign (J2000) integer*4 DEd ! (deg) Declination (J2000) integer*4 DEm ! (arcmin) Declination (J2000) real*4 DEs ! (arcsec) Declination (J2000) real*4 PN ! (ks) Exposure time for PN instrument real*4 MOS1 ! (ks) Exposure time for MOS1 instrument real*4 MOS2 ! (ks) Exposure time for MOS2 instrument real*4 NH ! (10+20cm-2) Hydrogen column density integer*4 Det ! Number of detected sources c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table7.dat' ! Main characteristics of the X-ray sources with no candidate optical counterpart and log(FX/Fopt)>~2 integer*4 nr__1 parameter (nr__1=9) ! Number of records character*96 ar__1 ! Full-size record integer*4 Obs_1 ! EPIC field sequential reference number character*16 XMMU ! XMMU designation (JHHMMSS.s+DDMMSS) character*23 Bands ! Detection bands character*2 l_kTbt ! [<>= ] Limit flag on kTbt real*4 kTbt ! (keV) Range of possible kT temperature for * thermal bremsstrahlung spectrum integer*4 kTbt2 ! (keV) ? Range of possible kT temperature for * thermal bremsstrahlung spectrum character*2 l_kTbb ! [<>= ] Limit flag on kTbb real*4 kTbb ! (keV) Range of possible kT temperature for * thermal blackbody spectrum real*4 kTbb2 ! (keV) ? Range of possible kT temperature for * thermal blackbody spectrum character*2 l_Gamma ! [<>= ] Limit flag on Gamma real*4 Gamma ! (keV) Range of photon index for a power law * spectrum real*4 Gamma2 ! (keV) ? Range of photon index for a power law * spectrum real*4 Flux ! (10-17W/m2) Source flux in 0.3-10keV energy range real*4 e_Flux ! (10-17W/m2) rms uncertainty on Flux real*4 log_FX_Fopt ! ([-]) Lower limit of X-ray-to-optical flux ratio real*4 e_log_FX_Fopt ! ([-]) rms uncertainty on log(FX/Fopt) C============================================================================= C Loading file 'table1.dat' ! Main characteristics of the 8 EPIC observations of * 3EG J0616-3310 (Obs=1-4) & 3EG J1249-8330 (Obs=5-8) C Format for file interpretation 1 format( + I1,1X,I3,1X,A10,1X,A8,1X,I2,1X,I2,1X,F4.1,1X,A1,I2,1X,I2,1X, + F4.1,1X,F3.1,1X,F4.1,1X,F4.1,1X,F4.1,1X,I2) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,8 read(1,'(A70)')ar__ read(ar__,1) + Obs,Rev,ObsDate,ObsTime,RAh,RAm,RAs,DE_,DEd,DEm,DEs,PN,MOS1, + MOS2,NH,Det 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) + Obs,Rev,ObsDate,ObsTime,RAh,RAm,RAs,DE_,DEd,DEm,DEs,PN,MOS1, + MOS2,NH,Det write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table7.dat' ! Main characteristics of the X-ray sources with no * candidate optical counterpart and log(FX/Fopt)>~2 C Format for file interpretation 2 format( + I1,6X,A16,1X,A23,1X,A2,F3.1,1X,I1,1X,A2,F3.1,1X,F3.1,1X,A2, + F3.1,1X,F3.1,1X,F5.2,1X,F4.2,1X,F4.2,1X,F4.2) C Effective file loading open(unit=1,status='old',file= +'table7.dat') write(6,*) '....Loading file: table7.dat' do i__=1,9 read(1,'(A96)')ar__1 read(ar__1,2) + Obs_1,XMMU,Bands,l_kTbt,kTbt,kTbt2,l_kTbb,kTbb,kTbb2,l_Gamma, + Gamma,Gamma2,Flux,e_Flux,log_FX_Fopt,e_log_FX_Fopt if(ar__1(55:55) .EQ. '') kTbt2 = iNULL__ if(ar__1(63:65) .EQ. '') kTbb2 = rNULL__ if(ar__1(73:75) .EQ. '') Gamma2 = rNULL__ c ..............Just test output........... write(6,2) + Obs_1,XMMU,Bands,l_kTbt,kTbt,kTbt2,l_kTbb,kTbb,kTbb2,l_Gamma, + Gamma,Gamma2,Flux,e_Flux,log_FX_Fopt,e_log_FX_Fopt c .......End.of.Just test output........... end do close(1) C============================================================================= stop end