Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/814/92 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/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 (nr__) ! Event name (1)
character*1 n_Event (nr__) ! [a] Note on Event (2)
real*8 RAdeg (nr__) ! (deg) Right Ascension in decimal degrees (J2000)
real*8 DEdeg (nr__) ! (deg) Declination in decimal degrees (J2000)
real*8 HJD1 (nr__) ! (d) Heliocentric Julian Date of first Spitzer
* observation (HJD-2450000)
real*8 HJD2 (nr__) ! (d) Heliocentric Julian Date of last Spitzer
* observation (HJD-2450000)
integer*4 Epochs (nr__) ! [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(i__),n_Event(i__),RAdeg(i__),DEdeg(i__),HJD1(i__),
+ HJD2(i__),Epochs(i__)
c ..............Just test output...........
write(6,1)
+ Event(i__),n_Event(i__),RAdeg(i__),DEdeg(i__),HJD1(i__),
+ HJD2(i__),Epochs(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end