Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/500/917 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-29 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/500/917 Variable stars in LMC MACHO fields 1 & 79 (Szulagyi+, 2009) *================================================================================ *Application of the trend filtering algorithm to the MACHO database. * Szulagyi J., Kovacs G., Welch D.L. * <Astron. Astrophys. 500, 917 (2009)> * =2009A&A...500..917S C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Variable stars in the MACHO field #1 integer*4 nr__ parameter (nr__=166) ! Number of records character*58 ar__ ! Full-size record character*16 Name ! Name, HHMMSSss+DDMMSSs real*4 Vmag ! (mag) Average Johnson V magnitude real*4 V_Rc ! (mag) Average Johnson V minus Cousins R color real*8 Freq ! (d-1) Frequency (1/P, where P is the dominant * period) (1) real*4 SNR ! Signal-to-noise ratio (2) character*7 VType ! Variable type (4) integer*4 TFA ! [0/1] Discovery type (3) *Note (1): The frequencies for type EB variables are given with larger * number of digits, because of the higher sensitivity of the eclipse * shape to the precision of the orbital period. *Note (2): The definition of the signal-to-noise ratio (SNR) is described * in the paper. *Note (3): Discovery type is numbered: * 1 = TFA (Trend Filtering Algorithm) detection * 0 = pre-TFA detection *Note (4): the classification of the variable is preliminary and * approximate. The following classes are defined: * LPV = not eclipsing and period longer than ~10days * and brighter than the HB level of V=~19mag * FU Cep = fundamental mode Cepheid. * FO Cep = first overtone mode Cepheid. * SO Cep = second overtone mode Cepheid. * RRab = fundamental mode RR Lyrae. * RRc = first overtone mode RR~Lyrae. * EB = eclipsing binaries of any type. * B = B-type pulsators, V<~18.0, V-R<~0.1 * d Sct = {delta} Sct, frequency is greater than 5d^-1^ and 0<=V-R<= 0.3 * Hump = hump/eruption in the light curve. * Misc = anything that cannot be classified.} c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! Variable stars in the MACHO field #79 integer*4 nr__1 parameter (nr__1=221) ! Number of records character*58 ar__1 ! Full-size record character*16 Name_1 ! Name, HHMMSSss+DDMMSSs real*4 Vmag_1 ! (mag) Average Johnson V magnitude real*4 V_Rc_1 ! (mag) Average Johnson V minus Cousins R color real*8 Freq_1 ! (d-1) Frequency (1/P, where P is the dominant * period) (1) real*4 SNR_1 ! Signal-to-noise ratio (2) character*7 VType_1 ! Variable type (4) integer*4 TFA_1 ! [0/1] Discovery type (3) *Note (1): The frequencies for type EB variables are given with larger * number of digits, because of the higher sensitivity of the eclipse * shape to the precision of the orbital period. *Note (2): The definition of the signal-to-noise ratio (SNR) is described * in the paper. *Note (3): Discovery type is numbered: * 1 = TFA (Trend Filtering Algorithm) detection * 0 = pre-TFA detection *Note (4): the classification of the variable is preliminary and * approximate. The following classes are defined: * LPV = not eclipsing and period longer than ~10days * and brighter than the HB level of V=~19mag * FU Cep = fundamental mode Cepheid. * FO Cep = first overtone mode Cepheid. * SO Cep = second overtone mode Cepheid. * RRab = fundamental mode RR Lyrae. * RRc = first overtone mode RR~Lyrae. * EB = eclipsing binaries of any type. * B = B-type pulsators, V<~18.0, V-R<~0.1 * d Sct = {delta} Sct, frequency is greater than 5d^-1^ and 0<=V-R<= 0.3 * Hump = hump/eruption in the light curve. * Misc = anything that cannot be classified.} C============================================================================= C Loading file 'table1.dat' ! Variable stars in the MACHO field #1 C Format for file interpretation 1 format(A16,1X,F6.3,1X,F6.3,1X,F9.6,1X,F4.1,3X,A7,2X,I1) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,166 read(1,'(A58)')ar__ read(ar__,1)Name,Vmag,V_Rc,Freq,SNR,VType,TFA c ..............Just test output........... write(6,1)Name,Vmag,V_Rc,Freq,SNR,VType,TFA c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table2.dat' ! Variable stars in the MACHO field #79 C Format for file interpretation 2 format(A16,1X,F6.3,1X,F6.3,1X,F9.6,1X,F4.1,3X,A7,2X,I1) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,221 read(1,'(A58)')ar__1 read(ar__1,2)Name_1,Vmag_1,V_Rc_1,Freq_1,SNR_1,VType_1,TFA_1 c ..............Just test output........... write(6,2)Name_1,Vmag_1,V_Rc_1,Freq_1,SNR_1,VType_1,TFA_1 c .......End.of.Just test output........... end do close(1) C============================================================================= stop end