Conversion of standardized ReadMe file for
file /./ftp/cats/J/MNRAS/510/4796 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-Jun-10
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/MNRAS/510/4796 INTEGRAL/IBIS 17-yr hard X-ray all-sky survey (Krivonos+, 2022)
*================================================================================
*INTEGRAL/IBIS 17-yr hard X-ray all-sky survey.
* Krivonos R., Sazonov S., Kuznetsova E., Lutovinov A., Mereminskiy I.,
* Tsygankov S.
* <Mon. Not. R. Astron. Soc. 510, 4796-4807 (2022)>
* =2022MNRAS.510.4796K (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! INTEGRAL/IBIS X-ray catalog
integer*4 nr__
parameter (nr__=929) ! Number of records
character*486 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
integer*4 SrcID (nr__) ! [1/929] Source ID
character*22 Name (nr__) ! Name of the source
real*8 RAdeg (nr__) ! (deg) Right Ascension (J2000)
real*8 DEdeg (nr__) ! (deg) Declination (J2000)
real*4 Flux (nr__) ! (mW/m2) 17-60keV flux of the source
real*4 e_Flux (nr__) ! (mW/m2) 1 sigma flux error; 17-60keV
real*8 S_N (nr__) ! Signal-to-noise ratio (S/N); 17-60keV
character*12 Type (nr__) ! General astrophysical type of the object (1)
real*4 z (nr__) ! ? Redshift
integer*4 Trans (nr__) ! Transient source
integer*4 Ext (nr__) ! Spatially extended source
integer*4 Conf (nr__) ! Spatial confusion with other source
integer*4 Noise (nr__) ! High systematic noise
character*23 Refs (nr__) ! Comma-separated list of references
* in refs.dat file
character*34 Cntp (nr__) ! Comma-separated list of source counterparts
* in cntps.dat file
character*12 Notes (nr__) ! Notes
real*4 FluxE2 (nr__) ! (mW/m2) 30-80keV flux of the source
real*4 FluxE3 (nr__) ! (mW/m2) 17-26keV flux of the source
real*4 FluxE4 (nr__) ! (mW/m2) 26-38keV flux of the source
real*4 FluxE5 (nr__) ! (mW/m2) 38-57keV flux of the source
real*4 FluxE6 (nr__) ! (mW/m2) 57-86 keV flux of the source
real*4 FluxE7 (nr__) ! (mW/m2) 86-129keV flux of the source
real*4 FluxE8 (nr__) ! (mW/m2) 129-194keV flux of the source
real*4 FluxE9 (nr__) ! (mW/m2) 194-290keV flux of the source
real*4 e_FluxE2 (nr__) ! (mW/m2) 1 sigma flux error; 30-80keV
real*4 e_FluxE3 (nr__) ! (mW/m2) 1 sigma flux error; 17-26keV
real*4 e_FluxE4 (nr__) ! (mW/m2) 1 sigma flux error; 26-38keV
real*4 e_FluxE5 (nr__) ! (mW/m2) 1 sigma flux error; 38-57keV
real*4 e_FluxE6 (nr__) ! (mW/m2) 1 sigma flux error; 57-86keV
real*4 e_FluxE7 (nr__) ! (mW/m2) 1 sigma flux error; 86-129keV
real*4 e_FluxE8 (nr__) ! (mW/m2) 1 sigma flux error; 129-194keV
real*4 e_FluxE9 (nr__) ! (mW/m2) 1 sigma flux error; 194-290keV
real*8 S_NE2 (nr__) ! Signal-to-noise ratio (S/N); 30-80keV
real*8 S_NE3 (nr__) ! Signal-to-noise ratio (S/N); 17-26keV
real*8 S_NE4 (nr__) ! Signal-to-noise ratio (S/N); 26-38keV
real*8 S_NE5 (nr__) ! Signal-to-noise ratio (S/N); 38-57keV
real*8 S_NE6 (nr__) ! Signal-to-noise ratio (S/N); 57-86keV
real*8 S_NE7 (nr__) ! Signal-to-noise ratio (S/N); 86-129keV
real*8 S_NE8 (nr__) ! Signal-to-noise ratio (S/N); 129-194keV
real*8 S_NE9 (nr__) ! Signal-to-noise ratio (S/N); 194-290keV
character*4 Plate (nr__) ! Plate number of FITS sky images located
* in maps subdirectory
*Note (1): General astrophysical type of the object:
* LMXB (HMXB) : low- (high-) mass X-ray binary;
* X-RAY BINARY : X-ray binary of uncertain type
* CV : cataclysmic variable or symbiotic binary
* SNR : supernova remnant;
* SNR/Pulsar : supernova remnant with a central pulsar
* (when both may contribute to the hard X-ray emission)
* MAGNETAR : magnetar (anomalous X-ray pulsars and soft gamma-ray repeaters)
* SUPERNOVA : supernova
* STAR : active star (of various types, excluding the previously listed types
* of stellar objects)
* ULX : ultraluminous X-ray source
* SEYFERT : AGN of the Seyfert or LINER type
* BLAZAR : beamed AGN (BL Lac objects and flat-spectrum radio quasars)
* AGN : unclassified AGN (i.e., the object is known to be an AGN in a general
* sense but detailed optical classification is missing)
* CLUSTER : a cluster of galaxies
* UNIDENT : an unclassified object.
*
* A question mark indicates that the specified type is not firmly established.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'refs.dat' ! References
integer*4 nr__1
parameter (nr__1=349) ! Number of records
character*23 ar__1 ! Full-size record
integer*4 ID (nr__1) ! [1/349] Reference ID
character*19 Bibcode (nr__1) ! Bibcode
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'cntps.dat' ! Counterparts
integer*4 nr__2
parameter (nr__2=1019) ! Number of records
character*65 ar__2 ! Full-size record
integer*4 ID_1 (nr__2) ! [1/1019] Counterpart ID
character*32 Counterpart(nr__2) ! Counterpart name
character*7 Domain (nr__2) ! Wavelength domain
character*19 Bibcode_1 (nr__2) ! Bibcode
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'healpix.dat' ! HEALPix centers of sky images
integer*4 nr__3
parameter (nr__3=192) ! Number of records
character*26 ar__3 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*4 ID_2 (nr__3) ! HEALPix index (or plate number)
real*8 RAdeg_1 (nr__3) ! (deg) Right Ascension (J2000)
real*8 DEdeg_1 (nr__3) ! (deg) Declination (J2000)
C=============================================================================
C Loading file 'table1.dat' ! INTEGRAL/IBIS X-ray catalog
C Format for file interpretation
1 format(
+ I3,1X,A22,1X,F10.4,1X,F10.4,1X,E12.6,1X,E12.6,1X,F10.4,1X,A12,
+ 1X,F6.3,1X,I1,1X,I1,1X,I1,1X,I1,1X,A23,1X,A34,1X,A12,1X,E12.6,
+ 1X,E12.6,1X,E12.6,1X,E12.6,1X,E12.6,1X,E12.6,1X,E12.6,1X,
+ E12.6,1X,E12.6,1X,E12.6,1X,E12.6,1X,E12.6,1X,E12.6,1X,E12.6,
+ 1X,E12.6,1X,E12.6,1X,F10.4,1X,F10.4,1X,F10.4,1X,F10.4,1X,
+ F10.4,1X,F10.4,1X,F10.4,1X,F10.4,1X,A4)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,929
read(1,'(A486)')ar__
read(ar__,1)
+ SrcID(i__),Name(i__),RAdeg(i__),DEdeg(i__),Flux(i__),
+ e_Flux(i__),S_N(i__),Type(i__),z(i__),Trans(i__),Ext(i__),
+ Conf(i__),Noise(i__),Refs(i__),Cntp(i__),Notes(i__),
+ FluxE2(i__),FluxE3(i__),FluxE4(i__),FluxE5(i__),FluxE6(i__),
+ FluxE7(i__),FluxE8(i__),FluxE9(i__),e_FluxE2(i__),
+ e_FluxE3(i__),e_FluxE4(i__),e_FluxE5(i__),e_FluxE6(i__),
+ e_FluxE7(i__),e_FluxE8(i__),e_FluxE9(i__),S_NE2(i__),
+ S_NE3(i__),S_NE4(i__),S_NE5(i__),S_NE6(i__),S_NE7(i__),
+ S_NE8(i__),S_NE9(i__),Plate(i__)
if(ar__(100:105) .EQ. '') z(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ SrcID(i__),Name(i__),RAdeg(i__),DEdeg(i__),Flux(i__),
+ e_Flux(i__),S_N(i__),Type(i__),z(i__),Trans(i__),Ext(i__),
+ Conf(i__),Noise(i__),Refs(i__),Cntp(i__),Notes(i__),
+ FluxE2(i__),FluxE3(i__),FluxE4(i__),FluxE5(i__),FluxE6(i__),
+ FluxE7(i__),FluxE8(i__),FluxE9(i__),e_FluxE2(i__),
+ e_FluxE3(i__),e_FluxE4(i__),e_FluxE5(i__),e_FluxE6(i__),
+ e_FluxE7(i__),e_FluxE8(i__),e_FluxE9(i__),S_NE2(i__),
+ S_NE3(i__),S_NE4(i__),S_NE5(i__),S_NE6(i__),S_NE7(i__),
+ S_NE8(i__),S_NE9(i__),Plate(i__)
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)
C Effective file loading
open(unit=1,status='old',file=
+'refs.dat')
write(6,*) '....Loading file: refs.dat'
do i__=1,349
read(1,'(A23)')ar__1
read(ar__1,2)ID(i__),Bibcode(i__)
c ..............Just test output...........
write(6,2)ID(i__),Bibcode(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'cntps.dat' ! Counterparts
C Format for file interpretation
3 format(I4,1X,A32,1X,A7,1X,A19)
C Effective file loading
open(unit=1,status='old',file=
+'cntps.dat')
write(6,*) '....Loading file: cntps.dat'
do i__=1,1019
read(1,'(A65)')ar__2
read(ar__2,3)
+ ID_1(i__),Counterpart(i__),Domain(i__),Bibcode_1(i__)
c ..............Just test output...........
write(6,3)
+ ID_1(i__),Counterpart(i__),Domain(i__),Bibcode_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'healpix.dat' ! HEALPix centers of sky images
C Format for file interpretation
4 format(A4,1X,F10.4,1X,F10.4)
C Effective file loading
open(unit=1,status='old',file=
+'healpix.dat')
write(6,*) '....Loading file: healpix.dat'
do i__=1,192
read(1,'(A26)')ar__3
read(ar__3,4)ID_2(i__),RAdeg_1(i__),DEdeg_1(i__)
c ..............Just test output...........
write(6,4)ID_2(i__),RAdeg_1(i__),DEdeg_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end