Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/846/34 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-Apr-19
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/846/34 Flaring gamma-ray sources; LAT 7.4yr (2FAV) (Abdollahi+, 2017)
*================================================================================
*The second catalog of flaring gamma-ray sources from the Fermi All-sky
*Variability Analysis.
* Abdollahi S., Ackermann M., Ajello M., Albert A., Baldini L., Ballet J.,
* Barbiellini G., Bastieri D., Becerra Gonzalez J., Bellazzini R.,
* Bissaldi E., Blandford R.D., Bloom E.D., Bonino R., Bottacini E.,
* Bregeon J., Bruel P., Buehler R., Buson S., Cameron R.A., Caragiulo M.,
* Caraveo P.A., Cavazzuti E., Cecchi C., Chekhtman A., Cheung C.C., Chiaro G.,
* Ciprini S., Conrad J., Costantin D., Costanza F., Cutini S., D'Ammando F.,
* de Palma F., Desai A., Desiante R., Digel S.W., Di Lalla N., Di Mauro M.,
* Di Venere L., Donaggio B., Drell P.S., Favuzzi C., Fegan S.J., Ferrara E.C.,
* Focke W.B., Franckowiak A., Fukazawa Y., Funk S., Fusco P., Gargano F.,
* Gasparrini D., Giglietto N., Giomi M., Giordano F., Giroletti M.,
* Glanzman T., Green D., Grenier I.A., Grove J.E., Guillemot L., Guiriec S.,
* Hays E., Horan D., Jogler T., Johannesson G., Johnson A.S., Kocevski D.,
* Kuss M., La Mura G., Larsson S., Latronico L., Li J., Longo F., Loparco F.,
* Lovellette M.N., Lubrano P., Magill J.D., Maldera S., Manfreda A., Mayer M.,
* Mazziotta M.N., Michelson P.F., Mitthumsiri W., Mizuno T., Monzani M.E.,
* Morselli A., Moskalenko I.V., Negro M., Nuss E., Ohsugi T., Omodei N.,
* Orienti M., Orlando E., Paliya V.S., Paneque D., Perkins J.S., Persic M.,
* Pesce-Rollins M., Petrosian V., Piron F., Porter T.A., Principe G.,
* Raino S., Rando R., Razzano M., Razzaque S., Reimer A., Reimer O., Sgro C.,
* Simone D., Siskind E.J., Spada F., Spandre G., Spinelli P., Stawarz L.,
* Suson D.J., Takahashi M., Tanaka K., Thayer J.B., Thompson D.J.,
* Torres D.F., Torresi E., Tosti G., Troja E., Vianello G., Wood K.S.
* <Astrophys. J., 846, 34 (2017)>
* =2017ApJ...846...34A
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! List of the second catalog of flaring gamma-ray
sources (2FAV) sources
integer*4 nr__
parameter (nr__=518) ! Number of records
character*116 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*10 v2FAV (nr__) ! FAVA identification (JHHMM+DD.d)
character*1 f_2FAV (nr__) ! [f] f: sources localized solely by the
* photometric FAVA analysis
real*4 RAdeg (nr__) ! (deg) Right Ascension of Source (J2000)
real*4 DEdeg (nr__) ! (deg) Declination of Source (J2000)
real*4 GLON (nr__) ! (deg) Galactic Longitude of Source (J2000)
real*4 GLAT (nr__) ! (deg) Galactic Latitude of Source (J2000)
real*4 r95 (nr__) ! (deg) [0.04/1.8] Statistical error on the source
* position at 95% confidence level
integer*4 Nf (nr__) ! [1/301] Total number of flares
integer*4 Nhe (nr__) ! [0/83] Number of high-energy flares
integer*4 Nneg (nr__) ! [0/235] Number of negative flares
real*4 Rs (nr__) ! (deg) [0.1/2.3] Search radius used in the
* association procedure
character*18 GAssoc (nr__) ! Counterpart found in the gamma-ray catalogs
character*1 f_GAssoc (nr__) ! [*] *: no significant weekly variability was
* detected for the source in the 1FGL, 2FGL, or
* 3FGL catalogs
character*24 Assoc (nr__) ! Counterpart at other wavelengths
character*5 Class (nr__) ! Class of the counterpart (1)
integer*4 ATel (nr__) ! ? ATel number for Fermi-LAT flare alerts
*Note (1): Class of the counterpart (Table 3) as follows:
* pwn = Pulsar wind nebula (1 occurrence);
* psr = Pulsar (1 occurrence);
* agn = Non-blazar active galaxy (2 occurrences);
* hmb = High-mass binary (3 occurrences);
* rdg = Radio galaxy (3 occurrences);
* nlsy1 = Narrow line Seyfert 1 (3 occurrences);
* nov = Nova (5 occurrences);
* grb = Gamma-ray burst (14 occurrences);
* bcu = Blazar candidate of uncertain type (67 occurrences);
* bll = BL Lac (73 occcurrences);
* fsrq = FSRQ (253 occurrences);
* Blank for unassociated sources and unknown classes (93 occurrences).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! List of 2FAV sources that have been associated with
2FGL sources and the possible 3FGL counterpart
of the associations
integer*4 nr__1
parameter (nr__1=6) ! Number of records
character*64 ar__1 ! Full-size record
character*10 v2FAV_1 (nr__1) ! Source identifier
real*4 Rs_1 (nr__1) ! (deg) [0.1/0.5] Search radius used in the
* association procedure
character*12 v2FGL (nr__1) ! 2FGL counterpart (JHHMM.m+DDMM)
real*4 v2Sep (nr__1) ! (deg) [0.02/0.2] 2FGL distance from the 2FAV source
real*4 v2Var (nr__1) ! [15.3/121.3] 2FGL variability index
character*12 v3FGL (nr__1) ! 3FGL counterpart (JHHMM.m+DDMM)
real*4 v3Sep (nr__1) ! (deg) [0.02/0.2]? 3FGL distance from the 2FAV source
real*4 v3Var (nr__1) ! [56.6/66.6]? 3FGL variability index
C=============================================================================
C Loading file 'table2.dat' ! List of the second catalog of flaring gamma-ray
* sources (2FAV) sources
C Format for file interpretation
1 format(
+ A10,A1,1X,F6.2,1X,F6.2,1X,F6.2,1X,F6.2,1X,F4.2,1X,I3,1X,I2,1X,
+ I3,1X,F4.2,1X,A18,A1,1X,A24,1X,A5,1X,I4)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,518
read(1,'(A116)')ar__
read(ar__,1)
+ v2FAV(i__),f_2FAV(i__),RAdeg(i__),DEdeg(i__),GLON(i__),
+ GLAT(i__),r95(i__),Nf(i__),Nhe(i__),Nneg(i__),Rs(i__),
+ GAssoc(i__),f_GAssoc(i__),Assoc(i__),Class(i__),ATel(i__)
if(ar__(113:116) .EQ. '') ATel(i__) = iNULL__
c ..............Just test output...........
write(6,1)
+ v2FAV(i__),f_2FAV(i__),RAdeg(i__),DEdeg(i__),GLON(i__),
+ GLAT(i__),r95(i__),Nf(i__),Nhe(i__),Nneg(i__),Rs(i__),
+ GAssoc(i__),f_GAssoc(i__),Assoc(i__),Class(i__),ATel(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! List of 2FAV sources that have been associated with
* 2FGL sources and the possible 3FGL counterpart
* of the associations
C Format for file interpretation
2 format(
+ A10,1X,F4.2,1X,A12,1X,F4.2,1X,F6.2,1X,A12,1X,F4.2,1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,6
read(1,'(A64)')ar__1
read(ar__1,2)
+ v2FAV_1(i__),Rs_1(i__),v2FGL(i__),v2Sep(i__),v2Var(i__),
+ v3FGL(i__),v3Sep(i__),v3Var(i__)
if(ar__1(55:58) .EQ. '') v3Sep(i__) = rNULL__
if(ar__1(60:64) .EQ. '') v3Var(i__) = rNULL__
c ..............Just test output...........
write(6,2)
+ v2FAV_1(i__),Rs_1(i__),v2FGL(i__),v2Sep(i__),v2Var(i__),
+ v3FGL(i__),v3Sep(i__),v3Var(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end