Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/535/A3 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/A+A/535/A3 SuperWASP observations of pulsating Am stars (Smalley+, 2011) *================================================================================ *SuperWASP observations of pulsating Am stars. * Smalley B., Kurtz D.W., Smith A.M.S., Fossati L., Anderson D.R., * Barros S.C.C., Butters O.W., Collier Cameron A., Christian D.J., Enoch B., * Faedi F., Haswell C.A., Hellier C., Holmes S., Horne K., Kane S.R., * Lister T.A., Maxted P.F.L., Norton A.J., Parley N., Pollacco D.L., * Simpson E.K., Skillen I., Southworth J., Street R.A., West R.G., * Wheatley P.J., Wood P.L. * <Astron. Astrophys. 535, A3 (2011)> * =2011A&A...535A...3S C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Pulsating Am stars observed integer*4 nr__ parameter (nr__=227) ! Number of records character*348 ar__ ! Full-size record character*19 SWASP ! SuperWASP Identifier (JHHMMSS.ss+DDMMSS.s) integer*4 Renson ! Star number in Renson et al., Cat. III/260 character*15 Name ! Name character*16 SpType ! MK spectral Type real*4 logTeff ! ([K]) ? Effective Temperature real*4 logL ! ([Lsun]) ? Luminosity of star character*1 Met ! [a-d] Method used to determine stellar * parameters (1) character*9 Class ! Pulsation class (2) integer*4 DeltaT ! (d) Time baseline of SuperWASP photometry integer*4 nFreq ! [1/18] Number of identified frequencies real*8 Freq1 ! (d-1) Frequency 1 real*4 Amp1 ! (mmag) Amplitude 1 real*8 Freq2 ! (d-1) ? Frequency 2 real*4 Amp2 ! (mmag) ? Amplitude 2 real*8 Freq3 ! (d-1) ? Frequency 3 real*4 Amp3 ! (mmag) ? Amplitude 3 real*8 Freq4 ! (d-1) ? Frequency 4 real*4 Amp4 ! (mmag) ? Amplitude 4 real*8 Freq5 ! (d-1) ? Frequency 5 real*4 Amp5 ! (mmag) ? Amplitude 5 real*8 Freq6 ! (d-1) ? Frequency 6 real*4 Amp6 ! (mmag) ? Amplitude 6 real*8 Freq7 ! (d-1) ? Frequency 7 real*4 Amp7 ! (mmag) ? Amplitude 7 real*8 Freq8 ! (d-1) ? Frequency 8 real*4 Amp8 ! (mmag) ? Amplitude 8 real*8 Freq9 ! (d-1) ? Frequency 9 real*4 Amp9 ! (mmag) ? Amplitude 9 real*8 Freq10 ! (d-1) ? Frequency 10 real*4 Amp10 ! (mmag) ? Amplitude 10 real*8 Freq11 ! (d-1) ? Frequency 11 real*4 Amp11 ! (mmag) ? Amplitude 11 real*8 Freq12 ! (d-1) ? Frequency 12 real*4 Amp12 ! (mmag) ? Amplitude 12 real*8 Freq13 ! (d-1) ? Frequency 13 real*4 Amp13 ! (mmag) ? Amplitude 13 real*8 Freq14 ! (d-1) ? Frequency 14 real*4 Amp14 ! (mmag) ? Amplitude 14 real*8 Freq15 ! (d-1) ? Frequency 15 real*4 Amp15 ! (mmag) ? Amplitude 15 real*8 Freq16 ! (d-1) ? Frequency 16 real*4 Amp16 ! (mmag) ? Amplitude 16 real*8 Freq17 ! (d-1) ? Frequency 17 real*4 Amp17 ! (mmag) ? Amplitude 17 real*8 Freq18 ! (d-1) ? Frequency 18 real*4 Amp18 ! (mmag) ? Amplitude 18 *Note (1): Method of stellar parameter determination as follows: * a = uvby{beta} photometry * b = uvby photometry * c = Geneva photometry * d = spectral energy distribution and parallax *Note (2): pulsation classes are * * DSCT ({delta} Sct) stars (frequencies > 5d^-1^) * * GDOR ({gamma} Dor) stars (frequencies < 5d^-1^) * * DSCT+GDOR hybrid: most frequencies above 5d^-1^, * but some low frequencies are present. * * GDOR+DSCT hybrid: most frequencies below 5d^-1^, * but some high frequencies are present. C============================================================================= C Loading file 'table1.dat' ! Pulsating Am stars observed C Format for file interpretation 1 format( + 6X,A19,1X,I5,1X,A15,1X,A16,1X,F5.3,1X,F5.3,1X,A1,1X,A9,1X,I4, + 1X,I2,1X,F7.4,1X,F5.2,1X,F7.4,1X,F5.2,1X,F7.4,1X,F5.2,1X,F7.4, + 1X,F5.2,1X,F7.4,1X,F5.2,1X,F7.4,1X,F5.2,1X,F7.4,1X,F5.2,1X, + F7.4,1X,F5.2,1X,F7.4,1X,F5.2,1X,F7.4,1X,F5.2,1X,F7.4,1X,F5.2, + 1X,F7.4,1X,F5.2,1X,F7.4,1X,F5.2,1X,F7.4,1X,F5.2,1X,F7.4,1X, + F5.2,1X,F7.4,1X,F5.2,1X,F7.4,1X,F5.2,1X,F7.4,1X,F5.2) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,227 read(1,'(A348)')ar__ read(ar__,1) + SWASP,Renson,Name,SpType,logTeff,logL,Met,Class,DeltaT,nFreq, + Freq1,Amp1,Freq2,Amp2,Freq3,Amp3,Freq4,Amp4,Freq5,Amp5,Freq6, + Amp6,Freq7,Amp7,Freq8,Amp8,Freq9,Amp9,Freq10,Amp10,Freq11, + Amp11,Freq12,Amp12,Freq13,Amp13,Freq14,Amp14,Freq15,Amp15, + Freq16,Amp16,Freq17,Amp17,Freq18,Amp18 if(ar__(66:70) .EQ. '') logTeff = rNULL__ if(ar__(72:76) .EQ. '') logL = rNULL__ if(ar__(112:118) .EQ. '') Freq2 = rNULL__ if(ar__(120:124) .EQ. '') Amp2 = rNULL__ if(ar__(126:132) .EQ. '') Freq3 = rNULL__ if(ar__(134:138) .EQ. '') Amp3 = rNULL__ if(ar__(140:146) .EQ. '') Freq4 = rNULL__ if(ar__(148:152) .EQ. '') Amp4 = rNULL__ if(ar__(154:160) .EQ. '') Freq5 = rNULL__ if(ar__(162:166) .EQ. '') Amp5 = rNULL__ if(ar__(168:174) .EQ. '') Freq6 = rNULL__ if(ar__(176:180) .EQ. '') Amp6 = rNULL__ if(ar__(182:188) .EQ. '') Freq7 = rNULL__ if(ar__(190:194) .EQ. '') Amp7 = rNULL__ if(ar__(196:202) .EQ. '') Freq8 = rNULL__ if(ar__(204:208) .EQ. '') Amp8 = rNULL__ if(ar__(210:216) .EQ. '') Freq9 = rNULL__ if(ar__(218:222) .EQ. '') Amp9 = rNULL__ if(ar__(224:230) .EQ. '') Freq10 = rNULL__ if(ar__(232:236) .EQ. '') Amp10 = rNULL__ if(ar__(238:244) .EQ. '') Freq11 = rNULL__ if(ar__(246:250) .EQ. '') Amp11 = rNULL__ if(ar__(252:258) .EQ. '') Freq12 = rNULL__ if(ar__(260:264) .EQ. '') Amp12 = rNULL__ if(ar__(266:272) .EQ. '') Freq13 = rNULL__ if(ar__(274:278) .EQ. '') Amp13 = rNULL__ if(ar__(280:286) .EQ. '') Freq14 = rNULL__ if(ar__(288:292) .EQ. '') Amp14 = rNULL__ if(ar__(294:300) .EQ. '') Freq15 = rNULL__ if(ar__(302:306) .EQ. '') Amp15 = rNULL__ if(ar__(308:314) .EQ. '') Freq16 = rNULL__ if(ar__(316:320) .EQ. '') Amp16 = rNULL__ if(ar__(322:328) .EQ. '') Freq17 = rNULL__ if(ar__(330:334) .EQ. '') Amp17 = rNULL__ if(ar__(336:342) .EQ. '') Freq18 = rNULL__ if(ar__(344:348) .EQ. '') Amp18 = rNULL__ c ..............Just test output........... write(6,1) + SWASP,Renson,Name,SpType,logTeff,logL,Met,Class,DeltaT,nFreq, + Freq1,Amp1,Freq2,Amp2,Freq3,Amp3,Freq4,Amp4,Freq5,Amp5,Freq6, + Amp6,Freq7,Amp7,Freq8,Amp8,Freq9,Amp9,Freq10,Amp10,Freq11, + Amp11,Freq12,Amp12,Freq13,Amp13,Freq14,Amp14,Freq15,Amp15, + Freq16,Amp16,Freq17,Amp17,Freq18,Amp18 c .......End.of.Just test output........... end do close(1) C============================================================================= stop end