Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJS/127/79 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 2026-Jun-08
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/ApJS/127/79 BATSE occultation catalog of Gamma-Ray sources (Ling+, 2000)
*================================================================================
*A BATSE Earth occultation catalog of 0.03-1.8 MeV Gamma-Ray source spectra and
*light curves for phases 1-3 (1999-1994)
* Ling J.C., Wheaton W. A., Wallyn P., Skelton R.T., Mahoney W.A.,
* Radocinski R.G., Callas J.L., Ling N.F., Tumer E., Shubert R.
* <Astrophys. J. Suppl. Ser. 127, 79 (2000)>
* =2000ApJS..127...79L
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Time averaged fluxes of 14 channel spectra of
34 Gamma-Ray sources
integer*4 nr__
parameter (nr__=686) ! Number of records
character*166 ar__ ! Full-size record
character*22 Name ! Object name
integer*4 Channel ! BATSE Channel number
integer*4 Emin ! (keV) Lower Energy range in Channel
integer*4 Emax ! (keV) Upper Energy range in Channel
integer*4 P1Beg ! (d) Beginning Julian date of Period 1
integer*4 P1End ! (d) Ending Julian date of Period 1
character*7 P1Panel ! Panels in Figure 8 where data is shown
real*4 P1Flux ! (ct/cm2/s/keV) Period 1 Flux in Channel
real*4 e_P1Flux ! (ct/cm2/s/keV) Uncertainty in P1Flux
integer*4 P2Beg ! (d) ? Beginning Julian date of Period 2
integer*4 P2End ! (d) ? Ending Julian date of Period 2
character*7 P2Panel ! Panel in Figure 8 where data is shown
real*4 P2Flux ! (ct/cm2/s/keV) ? Period 2 Flux in Channel
real*4 e_P2Flux ! (ct/cm2/s/keV) ? Uncertainty in P2Flux
integer*4 P3Beg ! (d) ? Beginning Julian date of Period 3
integer*4 P3End ! (d) ? Ending Julian date of Period 3
character*2 P3Panel ! Panel in Figure 8 where data is shown
real*4 P3Flux ! (ct/cm2/s/keV) ? Period 3 Flux in Channel
real*4 e_P3Flux ! (ct/cm2/s/keV) ? Uncertainty in P3Flux
C=============================================================================
C Loading file 'table3.dat' ! Time averaged fluxes of 14 channel spectra of
* 34 Gamma-Ray sources
C Format for file interpretation
1 format(
+ A22,1X,I2,2X,I4,1X,I4,1X,I7,1X,I7,1X,A7,1X,E10.3,1X,E9.2,1X,
+ I7,1X,I7,1X,A7,1X,E10.3,1X,E9.2,1X,I7,1X,I7,1X,A2,1X,E10.3,1X,
+ E9.2)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,686
read(1,'(A166)')ar__
read(ar__,1)
+ Name,Channel,Emin,Emax,P1Beg,P1End,P1Panel,P1Flux,e_P1Flux,
+ P2Beg,P2End,P2Panel,P2Flux,e_P2Flux,P3Beg,P3End,P3Panel,
+ P3Flux,e_P3Flux
if(ar__(83:89) .EQ. '') P2Beg = iNULL__
if(ar__(91:97) .EQ. '') P2End = iNULL__
if(ar__(107:116) .EQ. '') P2Flux = rNULL__
if(ar__(118:126) .EQ. '') e_P2Flux = rNULL__
if(ar__(128:134) .EQ. '') P3Beg = iNULL__
if(ar__(136:142) .EQ. '') P3End = iNULL__
if(ar__(147:156) .EQ. '') P3Flux = rNULL__
if(ar__(158:166) .EQ. '') e_P3Flux = rNULL__
c ..............Just test output...........
write(6,1)
+ Name,Channel,Emin,Emax,P1Beg,P1End,P1Panel,P1Flux,e_P1Flux,
+ P2Beg,P2End,P2Panel,P2Flux,e_P2Flux,P3Beg,P3End,P3Panel,
+ P3Flux,e_P3Flux
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end