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 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