FORTRAN Generation
(/./ftp/cats/J/ApJ/822/81)

Conversion of standardized ReadMe file for file /./ftp/cats/J/ApJ/822/81 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-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/ApJ/822/81   PTF stellar rotation periods for Pleiades members  (Covey+, 2016)
*================================================================================
*Why are rapidly rotating M dwarfs in the Pleiades so (infra)red? New period
*measurements confirm rotation-dependent color offsets from the cluster sequence.
*    Covey K.R., Agueros M.A., Law N.M., Liu J., Ahmadi A., Laher R.,
*    Levitan D., Sesar B., Surace J.
*   <Astrophys. J., 822, 81-81 (2016)>
*   =2016ApJ...822...81C    (SIMBAD/NED BibCode)
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'table4.dat'	! POCS Pleiades Periods

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

C  J2000 position composed of: RAdeg DEdeg
      character*16  v2MASS     (nr__) ! 2MASS identifier (HHMMSSss-DDMMSSs)
      real*8        RAdeg      (nr__) ! (deg) Right Ascension in decimal degrees (J2000)
      real*8        DEdeg      (nr__) ! (deg) Declination in decimal degrees (J2000)
      real*4        Vmag       (nr__) ! (mag) ? Johnson V-band magnitude
      character*8   SourceV    (nr__) ! Source of V photometry (Kamai, Stauffer) (1)
      real*4        Kmag       (nr__) ! (mag) K-band magnitude
      real*4        e_Kmag     (nr__) ! (mag) ? Uncertainty in Kmag
      character*8   SourceK    (nr__) ! Source of K photometry (2MASS, DANCe,
*                                   Stauffer, UKIDSS)
      real*4        V_K        (nr__) ! (mag) ? V-K color index
      real*4        Mass       (nr__) ! (Msun) Mass
      integer*4     Bin        (nr__) ! [0/1]? Photometric binary candidate flag
*                                   (0=no, 1=yes)
      real*4        Prot1      (nr__) ! (d) POCS rotation period
      real*4        Power      (nr__) ! POCS periodogram peak power
      real*4        Amp        (nr__) ! POCS photometric amplitude
      integer*4     Epoch      (nr__) ! [291/339] POCS epoch
      real*4        Prot2      (nr__) ! (d) ? HATnet rotation period
*Note (1): Source as follows:
*     Kamai = Kamai et al. 2014 (J/AJ/148/30);
*  Stauffer = Stauffer et al. 2007 (J/ApJS/172/663).

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

C  Declarations for 'table5.dat'	! Periods For Field Stars Observed During PTF
                                Pleiades Campaign

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

C  J2000 position composed of: RAdeg DEdeg
      real*8        RAdeg_1    (nr__1) ! (deg) Right Ascension in decimal degrees (J2000)
      real*8        DEdeg_1    (nr__1) ! (deg) Declination in decimal degrees (J2000)
      real*4        Rptf       (nr__1) ! (mag) PTF R-band magnitude
      real*4        e_Rptf     (nr__1) ! (mag) Uncertainty in Rptf
      real*4        Prot       (nr__1) ! (d) POCS rotation period
      real*4        Power_1    (nr__1) ! POCS periodogram peak power
      real*4        Amp_1      (nr__1) ! POCS photometric amplitude
      integer*4     Epoch_1    (nr__1) ! [291/338] POCS epoch
      character*20  Star       (nr__1) ! Star name (or comment)
      character*1   n_Star     (nr__1) ! [ab] Note on Star (1)
*Note (1): Note as follows:
*  a = These are non-members with P_rot_ measured by Hartman et al.
*      (2010, J/MNRAS/408/475). The P_rot_ derived here and in that work agree
*      to better than 1% for all these stars;
*  b = Known RR Lyrae.

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

C  Loading file 'table4.dat'	! POCS Pleiades Periods

C  Format for file interpretation

    1 format(
     +  A16,1X,F11.8,1X,F11.8,1X,F5.2,1X,A8,1X,F5.2,1X,F4.2,1X,A8,1X,
     +  F5.2,1X,F4.2,1X,I1,1X,F4.2,1X,F6.2,1X,F4.2,1X,I3,1X,F4.2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table4.dat')
      write(6,*) '....Loading file: table4.dat'
      do i__=1,132
        read(1,'(A114)')ar__
        read(ar__,1)
     +  v2MASS(i__),RAdeg(i__),DEdeg(i__),Vmag(i__),SourceV(i__),
     +  Kmag(i__),e_Kmag(i__),SourceK(i__),V_K(i__),Mass(i__),
     +  Bin(i__),Prot1(i__),Power(i__),Amp(i__),Epoch(i__),Prot2(i__)
        if(ar__(42:46) .EQ. '') Vmag(i__) = rNULL__
        if(ar__(63:66) .EQ. '') e_Kmag(i__) = rNULL__
        if(ar__(77:81) .EQ. '') V_K(i__) = rNULL__
        if(ar__(88:88) .EQ. '') Bin(i__) = iNULL__
        if(ar__(111:114) .EQ. '') Prot2(i__) = rNULL__
c    ..............Just test output...........
        write(6,1)
     +  v2MASS(i__),RAdeg(i__),DEdeg(i__),Vmag(i__),SourceV(i__),
     +  Kmag(i__),e_Kmag(i__),SourceK(i__),V_K(i__),Mass(i__),
     +  Bin(i__),Prot1(i__),Power(i__),Amp(i__),Epoch(i__),Prot2(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table5.dat'	! Periods For Field Stars Observed During PTF
*                                Pleiades Campaign

C  Format for file interpretation

    2 format(
     +  F11.8,1X,F11.8,1X,F5.2,1X,F5.3,1X,F4.2,1X,F6.2,1X,F4.2,1X,I3,
     +  1X,A20,1X,A1)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table5.dat')
      write(6,*) '....Loading file: table5.dat'
      do i__=1,119
        read(1,'(A79)')ar__1
        read(ar__1,2)
     +  RAdeg_1(i__),DEdeg_1(i__),Rptf(i__),e_Rptf(i__),Prot(i__),
     +  Power_1(i__),Amp_1(i__),Epoch_1(i__),Star(i__),n_Star(i__)
c    ..............Just test output...........
        write(6,2)
     +  RAdeg_1(i__),DEdeg_1(i__),Rptf(i__),e_Rptf(i__),Prot(i__),
     +  Power_1(i__),Amp_1(i__),Epoch_1(i__),Star(i__),n_Star(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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