Conversion of standardized ReadMe file for
file /./ftp/cats/J/MNRAS/415/1577 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-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/MNRAS/415/1577 CoRoT 105288363 Blazhko modulation (Guggenberger+, 2011) *================================================================================ *The CoRoT star 105288363: strong cycle-to-cycle changes of the Blazhko *modulation. * Guggenberger E., Kolenberg K., Chapellier E., Poretti E., Szabo R., * Benko J.M., Paparo M. * <Mon. Not. R. Astron. Soc., 415, 1577-1589 (2011)> * =2011MNRAS.415.1577G C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! *List of frequencies, amplitudes and phases obtained from the analysis of the full data set (all cycles combined), assuming equidistant multiplets integer*4 nr__ parameter (nr__=79) ! Number of records character*43 ar__ ! Full-size record character*1 Type ! [FBTQI] Type of frequency (1) character*8 Name ! Name of the frequency real*8 Freq ! (d-1) Frequency (2) real*8 Amp ! (mag) Amplitude (Errors are 0.00028mag) real*4 phi ! [0/1] Phase real*4 e_phi ! [0/1] rms uncertainty on phi obtained from a * Monte Carlo (MC) simulation with Period04 *Note (1): Type of frequency as follows: * F = main frequency * B = Blazhko frequency * T = Significant triplet components * Q = Significant quintuplet components * I = Independent mode *Note (2): Errors are 0.00004, 0.0002 and 0.0014d^-1^ for the three independent * frequencies, that is, for the main frequency f0, for its highest side peak * (f0-fB), which was used for fixing the spacings, and for f1, respectively. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! Observed maxima and minima of the pulsation of CoRoT ID 105288363 integer*4 nr__1 parameter (nr__1=256) ! Number of records character*54 ar__1 ! Full-size record integer*4 E ! Epoch (cycle) real*8 Tmax ! (d) ?=- Times of maximum (HJD-2450000) real*8 magM ! (mag) ?=- Relative magnitude at Tmax real*8 O_CM ! (d) ?=- O-C at Tmax real*8 Tmin ! (d) ?=- Times of minimum (HJD-2450000) real*4 magm_1 ! (mag) ?=- Relative magnitude at Tmin real*8 O_Cm_1 ! (d) ?=- O-C at Tmin C============================================================================= C Loading file 'table1.dat' ! *List of frequencies, amplitudes and phases * obtained from the analysis of the full data set * (all cycles combined), assuming equidistant * multiplets C Format for file interpretation 1 format(A1,1X,A8,1X,F8.5,2X,F7.5,1X,F6.4,2X,F6.4) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,79 read(1,'(A43)')ar__ read(ar__,1)Type,Name,Freq,Amp,phi,e_phi c ..............Just test output........... write(6,1)Type,Name,Freq,Amp,phi,e_phi c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table3.dat' ! Observed maxima and minima of the pulsation of * CoRoT ID 105288363 C Format for file interpretation 2 format(I3,1X,F9.4,1X,F7.4,1X,F7.4,1X,F9.4,1X,F6.4,1X,F7.4) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,256 read(1,'(A54)')ar__1 read(ar__1,2)E,Tmax,magM,O_CM,Tmin,magm_1,O_Cm_1 if (idig(ar__1(5:13)).EQ.0) Tmax = rNULL__ if (idig(ar__1(15:21)).EQ.0) magM = rNULL__ if (idig(ar__1(23:29)).EQ.0) O_CM = rNULL__ if (idig(ar__1(31:39)).EQ.0) Tmin = rNULL__ if (idig(ar__1(41:46)).EQ.0) magm_1 = rNULL__ if (idig(ar__1(48:54)).EQ.0) O_Cm_1 = rNULL__ c ..............Just test output........... write(6,2)E,Tmax,magM,O_CM,Tmin,magm_1,O_Cm_1 c .......End.of.Just test output........... end do close(1) C============================================================================= stop end C Locate position of first digit in string; or return 0 integer function idig(c) character*(*) c character*1 c1 integer lc,i lc=len(c) idig=0 do i=1,lc if(c(i:i).ne.' ') go to 1 end do 1 if(i.gt.lc) return c1=c(i:i) if(c1.eq.'.'.or.c1.eq.'-'.or.c1.eq.'+') i=i+1 if(i.gt.lc) return c1=c(i:i) if(c1.ge.'0'.and.c1.le.'9') idig=i return end