Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/790/L21 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-20 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 (nr__) ! (yr) Arrival Year character*3 Arrival_M (nr__) ! ("month") Arrival Month; abbreviated integer*4 Arrival_D (nr__) ! (d) Arrival Day integer*4 Arrival_h (nr__) ! (h) Arrival hour; UTC integer*4 Arrival_m_1(nr__) ! (min) Arrival minute; UTC integer*4 Arrival_s (nr__) ! (s) Arrival second; UTC real*4 Theta (nr__) ! (deg) Zenith angle real*4 E (nr__) ! (EeV) Energy real*4 RAdeg (nr__) ! (deg) Right Ascension in decimal degrees (J2000) real*4 DEdeg (nr__) ! (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(i__),Arrival_M(i__),Arrival_D(i__),Arrival_h(i__), + Arrival_m_1(i__),Arrival_s(i__),Theta(i__),E(i__),RAdeg(i__), + DEdeg(i__) c ..............Just test output........... write(6,1) + Arrival_Y(i__),Arrival_M(i__),Arrival_D(i__),Arrival_h(i__), + Arrival_m_1(i__),Arrival_s(i__),Theta(i__),E(i__),RAdeg(i__), + DEdeg(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end