FORTRAN Generation
(/./ftp/cats/J/A_A/410/671)

Conversion of standardized ReadMe file for file /./ftp/cats/J/A_A/410/671 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-29
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/410/671       X-ray emission in cool main sequence stars (Messina+, 2003)
*================================================================================
*Dependence of coronal X-ray emission on spot-induced brightness variations in
*cool main sequence stars.
*    Messina S., Pizzolato N., Guinan E.F., Rodon M.
*   <Astron. Astrophys. 410, 671 (2003)>
*   =2003A&A...410..671M
C=============================================================================

C  Internal variables

      integer*4 i__

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'table1.dat'	! Photometry

      integer*4 nr__
      parameter (nr__=264)	! Number of records
      character*79 ar__   	! Full-size record

      character*9   Cluster     ! Cluster to which the star belongs
      character*1   n_Name      ! [*] *: Stars for which the unpublished
*                                          Villanova photometry was used
      character*10  Name        ! Name in the catalogue
      character*9   Oname       ! Other name as variable star
      real*4        Vmax        ! (mag) Brightest V-band magnitude
      real*4        B_V         ! (mag) ?=99.00 B-V colour
      real*4        Per         ! (d) Rotational period
      real*4        Amax        ! (mag) Maximum V-band light curve amplitude
      character*3   r_Per       ! Reference for rotational period,
*                                   in refs.dat file
      character*3   r_Amax      ! Reference for light curve amplitude,
*                                   in refs.dat file
      integer*4     LC          ! Number of light curve
      character*6   Flag        ! Star used to define the upper envelope (1)
*Note (1): Flags:
*    FS_fit means F-type star in the slow rotational regime
*    GS_fit means G-type star in the slow rotational regime
*    KS_fit means K-type star in the slow rotational regime
*    GF_fit means G-type star in the fast rotational regime
*    KF_fit means K-type star in the fast rotational regime
*    M0_fit means M-type stars in upper envelope 2
*    M1_fit means M-type stars in upper envelope 1

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'table2.dat'	! X-ray data

      integer*4 nr__1
      parameter (nr__1=228)	! Number of records
      character*50 ar__1  	! Full-size record

      character*9   Cluster_1   ! Cluster to which the star belongs
      character*10  Name_1      ! Name in the catalogue
      real*4        logLX       ! ([10-7W]) X-ray luminosity
      real*4        logLX_Lbol  ! X-to-bolometric luminosities ratio
      real*4        e_logLX_Lbol ! Uncertainty on logLX/Lbol
      character*3   r_logLX     ! [a-h ] References for logLX, in refs.dat file

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'refs.dat'	! References

      integer*4 nr__2
      parameter (nr__2=93)	! Number of records
      character*161 ar__2  	! Full-size record

      character*3   Ref         ! Reference number
      character*9   Cluster_2   ! Cluster to which the star belongs
      character*19  BibCode     ! BibCode
      character*27  Aut         ! Author's name
      character*100 Com         ! Comments

C=============================================================================

C  Loading file 'table1.dat'	! Photometry

C  Format for file interpretation

    1 format(
     +  A9,A1,1X,A10,1X,A9,1X,F5.2,2X,F5.2,1X,F6.3,1X,F5.3,2X,A3,2X,
     +  A3,2X,I2,2X,A6)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table1.dat')
      write(6,*) '....Loading file: table1.dat'
      do i__=1,264
        read(1,'(A79)')ar__
        read(ar__,1)
     +  Cluster,n_Name,Name,Oname,Vmax,B_V,Per,Amax,r_Per,r_Amax,LC,
     +  Flag
c    ..............Just test output...........
        write(6,1)
     +  Cluster,n_Name,Name,Oname,Vmax,B_V,Per,Amax,r_Per,r_Amax,LC,
     +  Flag
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'table2.dat'	! X-ray data

C  Format for file interpretation

    2 format(A9,2X,A10,2X,F6.3,3X,F6.3,3X,F5.3,1X,A3)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table2.dat')
      write(6,*) '....Loading file: table2.dat'
      do i__=1,228
        read(1,'(A50)')ar__1
        read(ar__1,2)
     +  Cluster_1,Name_1,logLX,logLX_Lbol,e_logLX_Lbol,r_logLX
c    ..............Just test output...........
        write(6,2)
     +  Cluster_1,Name_1,logLX,logLX_Lbol,e_logLX_Lbol,r_logLX
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'refs.dat'	! References

C  Format for file interpretation

    3 format(A3,1X,A9,1X,A19,1X,A27,A100)

C  Effective file loading

      open(unit=1,status='old',file=
     +'refs.dat')
      write(6,*) '....Loading file: refs.dat'
      do i__=1,93
        read(1,'(A161)')ar__2
        read(ar__2,3)Ref,Cluster_2,BibCode,Aut,Com
c    ..............Just test output...........
        write(6,3)Ref,Cluster_2,BibCode,Aut,Com
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================
      stop
      end