Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/523/A61 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/523/A61 INTEGRAL all-sky survey of hard X-ray sources (Krivonos+, 2010) *================================================================================ *INTEGRAL/IBIS 7-year all-sky hard X-ray survey. *II. Catalog of sources. * Krivonos R., Tsygankov S., Revnivtsev M., Grebenev S., Churazov E., * Sunyaev R. * <Astron. Astrophys. 523, A61 (2010)> * =2010A&A...523A..61K C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! *The catalogue of hard X-ray sources (corrected version) integer*4 nr__ parameter (nr__=534) ! Number of records character*226 ar__ ! Full-size record C J2000 position composed of: RAdeg DEdeg integer*4 Seq ! [1/521] Running number (1) character*21 Name ! Object name real*8 RAdeg ! (deg) Right Ascension J2000 (in decimal degrees) real*8 DEdeg ! (deg) Declination J2000 (in decimal degrees) character*1 f_Flux ! [c] Spatial confusion (2) real*8 Flux ! (10-14W/m2) 17-60keV flux (3) real*4 e_Flux ! 1 sigma flux error, in mCrab * (1mCrab = 14.3pW/m^2^ = 1.43*10^-11^erg/s/cm^2^) character*7 Range ! Revolution range (4) character*8 Type ! Source type (5) character*15 Refs ! Reference number in table2.dat (6) character*133 Notes ! Additional notes such as type subclass, redshift * information, alternative source names (7) *Note (1): In some cases, two (or more) lines can contain the same id number * in the first column, which are measurements of source flux during the * outbursts. *Note (2): Spatial confusion, source flux should be taken with the caution. * In notes, the spatial confusion with the source XXX is indicated as CXXX. *Note (3): Source flux was measured on the 7-year time-averaged map (Dec. * 2002 - Jul 2009) or over the indicated spacecraft revolution interval * RXXX:XXX. Flux is expressed in units of 10^-11^erg/s/cm^2^ *Note (4): Source flux was measured on the map averaged over the indicated * spacecraft revolution. *Note (5): General astrophysical type of the object as follows: * LMXB = low-mass X-ray binary * HMXB = high-mass X-ray binary * AGN = active galactic nucleus * SNR/PWN = supernova remnant/pulsar wind nebula * CV = cataclysmic variable * PSR = isolated pulsar or pulsar wind nebula * SGR = soft gamma repeater * RS CVn = coronally active binary star * SymbStr = symbiotic star * Cluster = cluster of galaxies * The question mark indicates that the specified type is not firmly * determined, so it should be confirmed. *Note (6): References are mainly provided for new sources and are related to * their discovery and/or nature. *Note (7): Redshift of the extragalactic sources was obtained from the * SIMBAD and NED database. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'refs.dat' ! References integer*4 nr__1 parameter (nr__1=199) ! Number of records character*81 ar__1 ! Full-size record integer*4 Ref ! Reference number character*19 BibCode ! BibCode character*34 Aut ! Author's name character*22 Com ! Comments C============================================================================= C Loading file 'table2.dat' ! *The catalogue of hard X-ray sources * (corrected version) C Format for file interpretation 1 format( + I3,1X,A21,2X,F7.3,2X,F7.3,1X,A1,1X,F7.2,1X,F5.2,1X,A7,1X,A8, + 1X,A15,1X,A133) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,534 read(1,'(A226)')ar__ read(ar__,1) + Seq,Name,RAdeg,DEdeg,f_Flux,Flux,e_Flux,Range,Type,Refs,Notes c ..............Just test output........... write(6,1) + Seq,Name,RAdeg,DEdeg,f_Flux,Flux,e_Flux,Range,Type,Refs,Notes c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'refs.dat' ! References C Format for file interpretation 2 format(I3,1X,A19,1X,A34,1X,A22) C Effective file loading open(unit=1,status='old',file= +'refs.dat') write(6,*) '....Loading file: refs.dat' do i__=1,199 read(1,'(A81)')ar__1 read(ar__1,2)Ref,BibCode,Aut,Com c ..............Just test output........... write(6,2)Ref,BibCode,Aut,Com c .......End.of.Just test output........... end do close(1) C============================================================================= stop end