Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/814/92 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-17 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/814/92 Spitzer IRAC events observed in crowded fields (Calchi+, 2015) *================================================================================ *Spitzer IRAC photometry for time series in crowded fields. * Calchi Novati S., Gould A., Yee J.C., Beichman C., Bryden G., Carey S., * Fausnaugh M., Gaudi B.S., Henderson C.B., Pogge R.W., Shvartzvald Y., * Wibking B., Zhu W., (the Spitzer team), Udalski A., Poleski R., Pawlak M., * Szymanski M.K., Skowron J., Mroz P., Kozlowski S., Wyrzykowski L., * Pietrukowicz P., Pietrzynski G., Soszynski I., Ulaczyk K., (the Ogle group) * <Astrophys. J., 814, 92 (2015)> * =2015ApJ...814...92C (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Observed Events integer*4 nr__ parameter (nr__=170) ! Number of records character*61 ar__ ! Full-size record C J2000 position composed of: RAdeg DEdeg character*18 Event ! Event name (1) character*1 n_Event ! [a] Note on Event (2) real*8 RAdeg ! (deg) Right Ascension in decimal degrees (J2000) real*8 DEdeg ! (deg) Declination in decimal degrees (J2000) real*8 HJD1 ! (d) Heliocentric Julian Date of first Spitzer * observation (HJD-2450000) real*8 HJD2 ! (d) Heliocentric Julian Date of last Spitzer * observation (HJD-2450000) integer*4 Epochs ! [7/211] Number of observed epochs *Note (1): We note that two out of the 10 MOA events have also been observed by * the OGLE collaboration (specifically, MOA-BLG-2015-020 and * MOA-BLG-2015-245 are also known as OGLE-BLG-2015-0102 and * OGLE-BLG-2015-1286, respectively), and 64 out of the 160 OGLE events * have also been observed by the MOA collaboration (for the details on * this we refer to the MOA microlensing alert web page * http://www.phys.canterbury.ac.nz/moa/microlensing_alerts.html). *Note (2): Note as follows: * a = This event is also known as OGLE-BLG-2015-1253. C============================================================================= C Loading file 'table1.dat' ! Observed Events C Format for file interpretation 1 format(A18,A1,1X,F10.6,1X,F10.6,1X,F7.2,1X,F7.2,1X,I3) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,170 read(1,'(A61)')ar__ read(ar__,1)Event,n_Event,RAdeg,DEdeg,HJD1,HJD2,Epochs c ..............Just test output........... write(6,1)Event,n_Event,RAdeg,DEdeg,HJD1,HJD2,Epochs c .......End.of.Just test output........... end do close(1) C============================================================================= stop end