Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/535/A3 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-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 (nr__) ! SuperWASP Identifier (JHHMMSS.ss+DDMMSS.s) integer*4 Renson (nr__) ! Star number in Renson et al., Cat. III/260 character*15 Name (nr__) ! Name character*16 SpType (nr__) ! MK spectral Type real*4 logTeff (nr__) ! ([K]) ? Effective Temperature real*4 logL (nr__) ! ([Lsun]) ? Luminosity of star character*1 Met (nr__) ! [a-d] Method used to determine stellar * parameters (1) character*9 Class (nr__) ! Pulsation class (2) integer*4 DeltaT (nr__) ! (d) Time baseline of SuperWASP photometry integer*4 nFreq (nr__) ! [1/18] Number of identified frequencies real*8 Freq1 (nr__) ! (d-1) Frequency 1 real*4 Amp1 (nr__) ! (mmag) Amplitude 1 real*8 Freq2 (nr__) ! (d-1) ? Frequency 2 real*4 Amp2 (nr__) ! (mmag) ? Amplitude 2 real*8 Freq3 (nr__) ! (d-1) ? Frequency 3 real*4 Amp3 (nr__) ! (mmag) ? Amplitude 3 real*8 Freq4 (nr__) ! (d-1) ? Frequency 4 real*4 Amp4 (nr__) ! (mmag) ? Amplitude 4 real*8 Freq5 (nr__) ! (d-1) ? Frequency 5 real*4 Amp5 (nr__) ! (mmag) ? Amplitude 5 real*8 Freq6 (nr__) ! (d-1) ? Frequency 6 real*4 Amp6 (nr__) ! (mmag) ? Amplitude 6 real*8 Freq7 (nr__) ! (d-1) ? Frequency 7 real*4 Amp7 (nr__) ! (mmag) ? Amplitude 7 real*8 Freq8 (nr__) ! (d-1) ? Frequency 8 real*4 Amp8 (nr__) ! (mmag) ? Amplitude 8 real*8 Freq9 (nr__) ! (d-1) ? Frequency 9 real*4 Amp9 (nr__) ! (mmag) ? Amplitude 9 real*8 Freq10 (nr__) ! (d-1) ? Frequency 10 real*4 Amp10 (nr__) ! (mmag) ? Amplitude 10 real*8 Freq11 (nr__) ! (d-1) ? Frequency 11 real*4 Amp11 (nr__) ! (mmag) ? Amplitude 11 real*8 Freq12 (nr__) ! (d-1) ? Frequency 12 real*4 Amp12 (nr__) ! (mmag) ? Amplitude 12 real*8 Freq13 (nr__) ! (d-1) ? Frequency 13 real*4 Amp13 (nr__) ! (mmag) ? Amplitude 13 real*8 Freq14 (nr__) ! (d-1) ? Frequency 14 real*4 Amp14 (nr__) ! (mmag) ? Amplitude 14 real*8 Freq15 (nr__) ! (d-1) ? Frequency 15 real*4 Amp15 (nr__) ! (mmag) ? Amplitude 15 real*8 Freq16 (nr__) ! (d-1) ? Frequency 16 real*4 Amp16 (nr__) ! (mmag) ? Amplitude 16 real*8 Freq17 (nr__) ! (d-1) ? Frequency 17 real*4 Amp17 (nr__) ! (mmag) ? Amplitude 17 real*8 Freq18 (nr__) ! (d-1) ? Frequency 18 real*4 Amp18 (nr__) ! (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(i__),Renson(i__),Name(i__),SpType(i__),logTeff(i__), + logL(i__),Met(i__),Class(i__),DeltaT(i__),nFreq(i__), + Freq1(i__),Amp1(i__),Freq2(i__),Amp2(i__),Freq3(i__), + Amp3(i__),Freq4(i__),Amp4(i__),Freq5(i__),Amp5(i__), + Freq6(i__),Amp6(i__),Freq7(i__),Amp7(i__),Freq8(i__), + Amp8(i__),Freq9(i__),Amp9(i__),Freq10(i__),Amp10(i__), + Freq11(i__),Amp11(i__),Freq12(i__),Amp12(i__),Freq13(i__), + Amp13(i__),Freq14(i__),Amp14(i__),Freq15(i__),Amp15(i__), + Freq16(i__),Amp16(i__),Freq17(i__),Amp17(i__),Freq18(i__), + Amp18(i__) if(ar__(66:70) .EQ. '') logTeff(i__) = rNULL__ if(ar__(72:76) .EQ. '') logL(i__) = rNULL__ if(ar__(112:118) .EQ. '') Freq2(i__) = rNULL__ if(ar__(120:124) .EQ. '') Amp2(i__) = rNULL__ if(ar__(126:132) .EQ. '') Freq3(i__) = rNULL__ if(ar__(134:138) .EQ. '') Amp3(i__) = rNULL__ if(ar__(140:146) .EQ. '') Freq4(i__) = rNULL__ if(ar__(148:152) .EQ. '') Amp4(i__) = rNULL__ if(ar__(154:160) .EQ. '') Freq5(i__) = rNULL__ if(ar__(162:166) .EQ. '') Amp5(i__) = rNULL__ if(ar__(168:174) .EQ. '') Freq6(i__) = rNULL__ if(ar__(176:180) .EQ. '') Amp6(i__) = rNULL__ if(ar__(182:188) .EQ. '') Freq7(i__) = rNULL__ if(ar__(190:194) .EQ. '') Amp7(i__) = rNULL__ if(ar__(196:202) .EQ. '') Freq8(i__) = rNULL__ if(ar__(204:208) .EQ. '') Amp8(i__) = rNULL__ if(ar__(210:216) .EQ. '') Freq9(i__) = rNULL__ if(ar__(218:222) .EQ. '') Amp9(i__) = rNULL__ if(ar__(224:230) .EQ. '') Freq10(i__) = rNULL__ if(ar__(232:236) .EQ. '') Amp10(i__) = rNULL__ if(ar__(238:244) .EQ. '') Freq11(i__) = rNULL__ if(ar__(246:250) .EQ. '') Amp11(i__) = rNULL__ if(ar__(252:258) .EQ. '') Freq12(i__) = rNULL__ if(ar__(260:264) .EQ. '') Amp12(i__) = rNULL__ if(ar__(266:272) .EQ. '') Freq13(i__) = rNULL__ if(ar__(274:278) .EQ. '') Amp13(i__) = rNULL__ if(ar__(280:286) .EQ. '') Freq14(i__) = rNULL__ if(ar__(288:292) .EQ. '') Amp14(i__) = rNULL__ if(ar__(294:300) .EQ. '') Freq15(i__) = rNULL__ if(ar__(302:306) .EQ. '') Amp15(i__) = rNULL__ if(ar__(308:314) .EQ. '') Freq16(i__) = rNULL__ if(ar__(316:320) .EQ. '') Amp16(i__) = rNULL__ if(ar__(322:328) .EQ. '') Freq17(i__) = rNULL__ if(ar__(330:334) .EQ. '') Amp17(i__) = rNULL__ if(ar__(336:342) .EQ. '') Freq18(i__) = rNULL__ if(ar__(344:348) .EQ. '') Amp18(i__) = rNULL__ c ..............Just test output........... write(6,1) + SWASP(i__),Renson(i__),Name(i__),SpType(i__),logTeff(i__), + logL(i__),Met(i__),Class(i__),DeltaT(i__),nFreq(i__), + Freq1(i__),Amp1(i__),Freq2(i__),Amp2(i__),Freq3(i__), + Amp3(i__),Freq4(i__),Amp4(i__),Freq5(i__),Amp5(i__), + Freq6(i__),Amp6(i__),Freq7(i__),Amp7(i__),Freq8(i__), + Amp8(i__),Freq9(i__),Amp9(i__),Freq10(i__),Amp10(i__), + Freq11(i__),Amp11(i__),Freq12(i__),Amp12(i__),Freq13(i__), + Amp13(i__),Freq14(i__),Amp14(i__),Freq15(i__),Amp15(i__), + Freq16(i__),Amp16(i__),Freq17(i__),Amp17(i__),Freq18(i__), + Amp18(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end