Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/790/L21 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-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/790/L21 List of Telescope Array events with E > 57EeV (Abbasi+, 2014)
*================================================================================
*Indications of intermediate-scale anisotropy of cosmic rays with energy greater
*than 57 EeV in the northern sky measured with the surface detector of the
*Telescope Array experiment.
* Abbasi R.U., Abe M., Abu-Zayyad T., Allen M., Anderson R., Azuma R.,
* Barcikowski E., Belz J.W., Bergman D.R., Blake S.A., Cady R., Chae M.J.,
* Cheon B.G., Chiba J., Chikawa M., Cho W.R., Fujii T., Fukushima M.,
* Goto T., Hanlon W., Hayashi Y., Hayashida N., Hibino K., Honda K.,
* Ikeda D., Inoue N., Ishii T., Ishimori R., Ito H., Ivanov D., Jui C.C.H.,
* Kadota K., Kakimoto F., Kalashev O., Kasahara K., Kawai H., Kawakami S.,
* Kawana S., Kawata K., Kido E., Kim H.B., Kim J.H., Kitamura S.,
* Kitamura Y., Kuzmin V., Kwon Y.J., Lan J., Lim S.I., Lundquist J.P.,
* Machida K., Martens K., Matsuda T., Matsuyama T., Matthews J.N.,
* Minamino M., Mukai K., Myers I., Nagasawa K., Nagataki S., Nakamura T.,
* Nonaka T., Nozato A., Ogio S., Ogura J., Ohnishi M., Ohoka H., Oki K.,
* Okuda T., Ono M., Oshima A., Ozawa S., Park I.H., Pshirkov M.S.,
* Rodriguez D.C., Rubtsov G., Ryu D., Sagawa H., Sakurai N., Sampson A.L.,
* Scott L.M., Shah P.D., Shibata F., Shibata T., Shimodaira H., Shin B.K.,
* Smith J.D., Sokolsky P., Springer R.W., Stokes B.T., Stratton S.R.,
* Stroman T.A., Suzawa T., Takamura M., Takeda M., Takeishi R., Taketa A.,
* Takita M., Tameda Y., Tanaka H., Tanaka K., Tanaka M., Thomas S.B.,
* Thomson G.B., Tinyakov P., Tkachev I., Tokuno H., Tomida T., Troitsky S.,
* Tsunesada Y., Tsutsumi K., Uchihori Y., Udo S., Urban F., Vasiloff G.,
* Wong T., Yamane R., Yamaoka H., Yamazaki K., Yang J., Yashiro K.,
* Yoneda Y., Yoshida S., Yoshii H., Zollinger R., Zundel Z.
* <Astrophys. J., 790, L21 (2014)>
* =2014ApJ...790L..21A (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! List of Telescope Array events with E >57 EeV
and zenith angle {theta} < 55 degrees recorded
from 2008 May 11 to 2013 May 4
integer*4 nr__
parameter (nr__=72) ! Number of records
character*46 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
integer*4 Arrival_Y ! (yr) Arrival Year
character*3 Arrival_M ! ("month") Arrival Month; abbreviated
integer*4 Arrival_D ! (d) Arrival Day
integer*4 Arrival_h ! (h) Arrival hour; UTC
integer*4 Arrival_m_1 ! (min) Arrival minute; UTC
integer*4 Arrival_s ! (s) Arrival second; UTC
real*4 Theta ! (deg) Zenith angle
real*4 E ! (EeV) Energy
real*4 RAdeg ! (deg) Right Ascension in decimal degrees (J2000)
real*4 DEdeg ! (deg) Declination in decimal degrees (J2000)
C=============================================================================
C Loading file 'table1.dat' ! List of Telescope Array events with E >57 EeV
* and zenith angle {theta} < 55 degrees recorded
* from 2008 May 11 to 2013 May 4
C Format for file interpretation
1 format(
+ I4,1X,A3,1X,I2,1X,I2,1X,I2,1X,I2,1X,F5.2,1X,F5.1,1X,F6.2,1X,
+ F6.2)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,72
read(1,'(A46)')ar__
read(ar__,1)
+ Arrival_Y,Arrival_M,Arrival_D,Arrival_h,Arrival_m_1,Arrival_s,
+ Theta,E,RAdeg,DEdeg
c ..............Just test output...........
write(6,1)
+ Arrival_Y,Arrival_M,Arrival_D,Arrival_h,Arrival_m_1,Arrival_s,
+ Theta,E,RAdeg,DEdeg
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end