FORTRAN Generation
(/./ftp/cats/J/A_A/535/A3)

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