Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/566/A43 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-Mar-28 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/A+A/566/A43 EPOCH Project. EROS-2 LMC periodic variables (Kim+, 2014) *================================================================================ *The EPOCH Project: I. Periodic Variable Stars in the EROS-2 LMC Database. * Kim D.-W., Protopapas P., Bailer-Jones C.A.L., Byun Y.-I., Chang S.-W., * Marquette J.-B., Shin M.-S. * <Astron. Astrophys. 566, A43 (2014)> * =2014A&A...566A..43K C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! EROS-2 periodic variable stars in LMC integer*4 nr__ parameter (nr__=150115) ! Number of records character*144 ar__ ! Full-size record C J2000 position composed of: RAdeg DEdeg character*12 EROS_ID ! EROS ID, lmNNNNaNNNNN * (EROS2-star lmNNN-Na-NNNNN in Simbad) real*8 RAdeg ! (deg) Right Ascension (J2000) real*8 DEdeg ! (deg) Declination (J2000) real*4 B_R ! (mag) [-2.2/4.5] EROS B-R colour index real*4 Bmag ! (mag) [12.8/21.8] EROS B magnitude real*8 Per ! (d) [0.05/4806] Period real*4 S_N ! [6/144] Signal-to-noise ratio of the period real*4 Prob ! [0.1/1] Estimated Vclass probability character*15 Vclass ! Variable class determined by this work character*6 Oclass ! OGLE variable superclass (1) character*11 O_Class ! OGLE variable subclass (2) character*20 OGLEID ! OGLE ID, OGLE-LMC-AAAAA-NNN (2) character*13 MACHOID ! MACHO ID, NN.NNNN.NNN (3) character*4 Mclass ! MACHO variable class (1) *Note (1): OGLE variable superclasses or MACHO classes are: * EB = eclipsing binaries * LPV = Long-period variables * RRL = RR-Lyrae variables * CEPH = classical Cepheids * T2CEPH = type-II Cepheids *Note (2): crossmatched with the OGLE variables from Soszynski et al. * (2008AcA....58..163S, Cat. J/AcA/58/163) and its series of papers. * (ORASG stands for "OGLE Small Amplitude Red Giants"). *Note (3): crossmatched with the MACHO variables from the CDS catalog II/247. C============================================================================= C Loading file 'table2.dat' ! EROS-2 periodic variable stars in LMC C Format for file interpretation 1 format( + A12,1X,F8.5,1X,F9.5,1X,F5.2,1X,F5.2,1X,F11.6,1X,F6.2,1X,F6.4, + 1X,A15,1X,A6,1X,A11,1X,A20,1X,A13,1X,A4) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,150115 read(1,'(A144)')ar__ read(ar__,1) + EROS_ID,RAdeg,DEdeg,B_R,Bmag,Per,S_N,Prob,Vclass,Oclass, + O_Class,OGLEID,MACHOID,Mclass c ..............Just test output........... write(6,1) + EROS_ID,RAdeg,DEdeg,B_R,Bmag,Per,S_N,Prob,Vclass,Oclass, + O_Class,OGLEID,MACHOID,Mclass c .......End.of.Just test output........... end do close(1) C============================================================================= stop end