FORTRAN Generation
(/./ftp/cats/B/corot)

Conversion of standardized ReadMe file for file /./ftp/cats/B/corot 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-28
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. B/corot             CoRoT observation log (N2-4.4)                  (CoRoT 2016)
*================================================================================
*Archive of the CoRoT Data Center, Release N2-4.4 (2016-03-23)
*     CoRoT team
*    <CoRoT Data Center (2014)>
*    =2014yCat....102028C
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'Bright_star.dat'	! Stars observed in the bright star mode

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

C  J2000 position composed of: RAdeg DEdeg
      character*19  FileDate    ! ("datime") (crea_dat) File generation date
      character*100 FileName    ! (filename) Name of file with time series
      character*8   PV          ! (pipe_ver) Pipeline process version
      character*3   N2V         ! (n2_ver)   Version of N2 data
      character*19  date1       ! ("datime") (startdat)  UT date of first measurement
      character*19  date2       ! ("datime") (end_date)  UT date of last measurment
      integer*4     CoRoT       ! [1/21960] (corotid) ID of the CoRoT target
      character*5   Run         ! [SLIRca0-9]  (run_code) (G1)
      character*3   CCD         ! ? (hlfccdid)  reference of the half CCD from
*                                    which the product originates e.g.
*                                    'E1R' for Right CCD#1 of Exoplanet channel
      real*4        Vmag        ! (mag) ? (magnit_v) Visual magnitude of the target
      real*4        v_B_V       ! (mag) ? (mag_diff) Color index (B-V)
      real*8        RAdeg       ! (deg) (alpha) Right ascension of star, J2000
      real*8        DEdeg       ! (deg) (delta)  Declination, J2000 (degrees)
      integer*4     size        ! (byte) ? (filesize) [17280,32921280] bytes in file
      character*15  Star        ! Name of the star observed
      real*4        VMAG_1      ! (mag) ? (absm_v) Star absolute magnitude in V
      integer*4     Teff        ! (K) ? (teff) Star effective temperature
      real*4        logg        ! ([cm/s2]) ? (gravity) Star gravity (log scale)
      real*4        v_Fe_H_     ! ([Sun]) ? (metal) Star metallicity (log scale)
      real*4        LCmean      ! (ct/s) ? (lc_mean)  light curve mean intensity
      real*4        LCrms       ! (ct/s) ? (lc_rms)  light curve rms
      integer*4     Nh          ! (pix) [-1] (nbhotpix)  Number of hot pixels
      character*11  SpT         ! ? (spectral_type)  Spectral type, from EXODAT

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

C  Declarations for 'Faint_star.dat'	! Stars observed in the faint star mode with E(B-V)

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

C  J2000 position composed of: RAdeg DEdeg
      character*19  FileDate_1  ! ("datime") (crea_dat) File generation date
      character*100 FileName_1  ! (filename) Name of file with time series
      character*8   PV_1        ! (pipe_ver) Pipeline process version
      character*3   N2V_1       ! (n2_ver)   Version of N2 data
      character*1   col         ! [01] 0 = monochrome results, 1 = 3-channels
      integer*4     size_1      ! (byte) ? Size of file (bytes)
      character*23  date1_1     ! ("datime") (startdat)  UT date of first measurement
      character*23  date2_1     ! ("datime") (end_date)  UT date of last measurement
      integer*4     CoRoT_1     ! [100396342/739016552] (corotid) ID of the
*                                      CoRoT target
      character*5   Run_1       ! [SLIRca0-9]  (run_code) (G1)
      character*3   CCD_1       ! (hlfccdid)  reference of the half CCD from
*                                    which the product originates  e.g.
*                                    E1R for Right CCD#1 of Exoplanet channel
      integer*4     wId         ! ? (win_id) Window identification
      real*4        mag         ! (mag) ?=0 (magnitud) Magnitude of the target
      real*4        v_B_V_1     ! (mag) ? (col_b_v) Color index (B-V)
      real*8        RAdeg_1     ! (deg) (alpha) Right ascension of star, J2000
      real*8        DEdeg_1     ! (deg) (delta)  Declination, J2000 (degrees)
      real*8        contf       ! [0,1]? (contfact)  contamination factor
      integer*4     Exp         ! (s) [-1,512]? (exptime) Exposure time
      real*4        cd          ! [0]? (chrdeg)  chromacity degree
      real*4        act         ! [0]? (actilev)  Level of stellar activity
      character*5   V1          ! ? (varclas1)  star variability (1)
      character*5   V2          ! ? (varclas2) star variability (1)
      character*5   V3          ! ? (varclas3)  star variability (1)
      real*4        pv1         ! [0,1]? (prbclas1) probability associated
*                                       to varclass V1
      real*4        pv2         ! [0,1]? (prbclas2) probability associated
*                                       to varclass V2
      real*4        pv3         ! [0,1]? (prbclas3) probability associated
*                                       to varclass V3
      real*4        Bmag        ! (mag) ? (magnit_b)  Star magnitude B
      real*4        Vmag_2      ! (mag) ? (magnit_v)  Star magnitude V
      real*4        Rmag        ! (mag) ? (magnit_r)  Star magnitude R
      real*4        Imag        ! (mag) ? (magnit_i)  Star magnitude I
      character*10  Star_1      ! Star name (always blank)
      real*4        VMAG_3      ! (mag) ? (absm_v) Star absolute magnitude in V
      integer*4     Tcol        ! (K) [-1,41510]? (coltemp)  Color temperature
      integer*4     Teff_1      ! (K) ?=0 (teff) Effective temperature
      real*4        logg_1      ! ([cm/s2]) ? (gravity) Star gravity (log scale)
      real*4        v_Fe_H__1   ! ([Sun]) ? (metal) Star metallicity (log scale)
      real*4        LCmean_1    ! (ct/s) ? (lc_mean)  light curve mean
      real*4        LCrms_1     ! (ct/s) ? (lc_rms)  light curve rms
      integer*4     Nh_1        ! (pix) (nbhotpix)  Number of hot pixels
      real*4        Bmean       ! (ct/s) ? (lc_rms_b)  light curve mean B
      real*4        Gmean       ! (ct/s) ? (lc_rms_g)  light curve mean G
      real*4        Rmean       ! (ct/s) ? (lc_rms_r)  light curve mean R
      real*4        Wmean       ! (ct/s) ? (lc_rms_r)  light curve mean white light
      real*4        Brms        ! (ct/s) ? (lc_rms_b)  light curve rms B
      real*4        Grms        ! (ct/s) ? (lc_rms_g)  light curve rms G
      real*4        Rrms        ! (ct/s) ? (lc_rms_r)  light curve rms R
      real*4        Wrms        ! (ct/s) ? (lc_rms_r)  light curve rms white light
      character*10  SpT_1       ! ? (spectral_type)  Spectral type, from EXODAT
      real*4        E_B_V       ! (mag) ?=- (E(B-V)) E(B-V) colour excess, from EXODAT
      character*83  W_file      ! Name of associated WINDESCRIPTOR file
*Note (1): the variability classification results from an automatic
*     treatment of the light curve, and is quite uncertain. The classes
*     are defined in Debosscher et al. 2009A&A...506..519D, as follows:
*    ACT   = presence of Activity
*    BCEP  = {beta}-Cephei stars
*    BE    = Variable Be-stars
*    CLCEP = Classical Cepheids ({delta}-Cep)
*    CP    = Chemically peculiar stars
*    DMCEP = Double-mode Cepheids
*    DSCUT = {delta}-Scuti stars
*    E1L   = (?undefined?)
*    E1R   = (?undefined?)
*    E2L   = (?undefined?)
*    E2R   = (?undefined?)
*    ECL   = Eclipsing binaries (all types)
*    ELL   = Ellipsoidal variables
*    FUORI = FU-Ori stars
*    GDOR  = {gamma}-Doradus stars
*    HAEBE = Herbig Ae/Be stars
*    LAPV  = Low-amplitude periodic variables
*    LBOO  = {lambda}-Bootis variables
*    LBV   = Luminous Blue variables
*    MIRA  = Mira variables
*    MISC  = Miscellanous variable (undecided)
*    PTCEP = Population II Cepheids
*    PVSG  = Periodically variable supergiants
*    ROT   = Rotational modulation
*    RRAB  = RR-Lyrae stars, subtype ab
*    RRC   = RR-Lyrae stars, subtype c
*    RRD   = Double-mode RR-Lyrae stars
*    RVTAU = RV-Tauri stars
*    SDBV  = Pulsating subdwarf B-stars
*    SPB   = Slowly pulsating B-stars
*    SPDS  = Short-period {delta}-Scuti variables
*    SR    = Semi-regular variables
*    SXPHE = SX-Phe stars
*    TTAU  = T-Tauri stars
*    WR    = Wolf-Rayet stars
*    XB    = X-ray binaries

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

C  Loading file 'Bright_star.dat'	! Stars observed in the bright star mode

C  Format for file interpretation

    1 format(
     +  A19,1X,A100,1X,A8,1X,A3,1X,A19,1X,A19,4X,I9,1X,A5,1X,A3,1X,
     +  F6.3,1X,F6.3,1X,F9.5,1X,F9.5,1X,I8,1X,A15,1X,F6.2,1X,I5,1X,
     +  F5.2,1X,F5.2,1X,E12.6,1X,E12.6,1X,I2,1X,A11)

C  Effective file loading

      open(unit=1,status='old',file=
     +'Bright_star.dat')
      write(6,*) '....Loading file: Bright_star.dat'
      do i__=1,171
        read(1,'(A321)')ar__
        read(ar__,1)
     +  FileDate,FileName,PV,N2V,date1,date2,CoRoT,Run,CCD,Vmag,v_B_V,
     +  RAdeg,DEdeg,size,Star,VMAG_1,Teff,logg,v_Fe_H_,LCmean,LCrms,
     +  Nh,SpT
        if(ar__(198:203) .EQ. '') Vmag = rNULL__
        if(ar__(205:210) .EQ. '') v_B_V = rNULL__
        if(ar__(232:239) .EQ. '') size = iNULL__
        if(ar__(257:262) .EQ. '') VMAG_1 = rNULL__
        if(ar__(264:268) .EQ. '') Teff = iNULL__
        if(ar__(270:274) .EQ. '') logg = rNULL__
        if(ar__(276:280) .EQ. '') v_Fe_H_ = rNULL__
        if(ar__(282:293) .EQ. '') LCmean = rNULL__
        if(ar__(295:306) .EQ. '') LCrms = rNULL__
c    ..............Just test output...........
        write(6,1)
     +  FileDate,FileName,PV,N2V,date1,date2,CoRoT,Run,CCD,Vmag,v_B_V,
     +  RAdeg,DEdeg,size,Star,VMAG_1,Teff,logg,v_Fe_H_,LCmean,LCrms,
     +  Nh,SpT
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'Faint_star.dat'	! Stars observed in the faint star mode with E(B-V)

C  Format for file interpretation

    2 format(
     +  A19,1X,A100,1X,A8,1X,A3,1X,A1,1X,I8,1X,A23,1X,A23,1X,I9,1X,A5,
     +  1X,A3,2X,I4,1X,F6.3,1X,F6.3,1X,F9.5,1X,F9.5,1X,F8.6,1X,I3,1X,
     +  F3.1,1X,F3.1,1X,A5,1X,A5,1X,A5,1X,F5.3,1X,F5.3,1X,F5.3,1X,
     +  F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,A10,1X,F6.2,2X,I5,1X,I5,1X,
     +  F5.2,1X,F5.2,1X,E12.6,1X,E12.6,2X,I2,1X,E12.6,1X,E12.6,1X,
     +  E12.6,1X,E12.6,1X,E12.6,1X,E12.6,1X,E12.6,1X,E12.6,1X,A10,1X,
     +  F4.2,1X,A83)

C  Effective file loading

      open(unit=1,status='old',file=
     +'Faint_star.dat')
      write(6,*) '....Loading file: Faint_star.dat'
      do i__=1,177382
        read(1,'(A614)')ar__1
        read(ar__1,2)
     +  FileDate_1,FileName_1,PV_1,N2V_1,col,size_1,date1_1,date2_1,
     +  CoRoT_1,Run_1,CCD_1,wId,mag,v_B_V_1,RAdeg_1,DEdeg_1,contf,Exp,
     +  cd,act,V1,V2,V3,pv1,pv2,pv3,Bmag,Vmag_2,Rmag,Imag,Star_1,
     +  VMAG_3,Tcol,Teff_1,logg_1,v_Fe_H__1,LCmean_1,LCrms_1,Nh_1,
     +  Bmean,Gmean,Rmean,Wmean,Brms,Grms,Rrms,Wrms,SpT_1,E_B_V,W_file
        if(ar__1(137:144) .EQ. '') size_1 = iNULL__
        if(ar__1(215:218) .EQ. '') wId = iNULL__
        if(ar__1(227:232) .EQ. '') v_B_V_1 = rNULL__
        if(ar__1(254:261) .EQ. '') contf = rNULL__
        if(ar__1(263:265) .EQ. '') Exp = iNULL__
        if(ar__1(267:269) .EQ. '') cd = rNULL__
        if(ar__1(271:273) .EQ. '') act = rNULL__
        if(ar__1(293:297) .EQ. '') pv1 = rNULL__
        if(ar__1(299:303) .EQ. '') pv2 = rNULL__
        if(ar__1(305:309) .EQ. '') pv3 = rNULL__
        if(ar__1(311:316) .EQ. '') Bmag = rNULL__
        if(ar__1(318:323) .EQ. '') Vmag_2 = rNULL__
        if(ar__1(325:330) .EQ. '') Rmag = rNULL__
        if(ar__1(332:337) .EQ. '') Imag = rNULL__
        if(ar__1(350:355) .EQ. '') VMAG_3 = rNULL__
        if(ar__1(358:362) .EQ. '') Tcol = iNULL__
        if(ar__1(370:374) .EQ. '') logg_1 = rNULL__
        if(ar__1(376:380) .EQ. '') v_Fe_H__1 = rNULL__
        if(ar__1(382:393) .EQ. '') LCmean_1 = rNULL__
        if(ar__1(395:406) .EQ. '') LCrms_1 = rNULL__
        if(ar__1(412:423) .EQ. '') Bmean = rNULL__
        if(ar__1(425:436) .EQ. '') Gmean = rNULL__
        if(ar__1(438:449) .EQ. '') Rmean = rNULL__
        if(ar__1(451:462) .EQ. '') Wmean = rNULL__
        if(ar__1(464:475) .EQ. '') Brms = rNULL__
        if(ar__1(477:488) .EQ. '') Grms = rNULL__
        if(ar__1(490:501) .EQ. '') Rrms = rNULL__
        if(ar__1(503:514) .EQ. '') Wrms = rNULL__
        if (idig(ar__1(527:530)).EQ.0) E_B_V =  rNULL__
c    ..............Just test output...........
        write(6,2)
     +  FileDate_1,FileName_1,PV_1,N2V_1,col,size_1,date1_1,date2_1,
     +  CoRoT_1,Run_1,CCD_1,wId,mag,v_B_V_1,RAdeg_1,DEdeg_1,contf,Exp,
     +  cd,act,V1,V2,V3,pv1,pv2,pv3,Bmag,Vmag_2,Rmag,Imag,Star_1,
     +  VMAG_3,Tcol,Teff_1,logg_1,v_Fe_H__1,LCmean_1,LCrms_1,Nh_1,
     +  Bmean,Gmean,Rmean,Wmean,Brms,Grms,Rrms,Wrms,SpT_1,E_B_V,W_file
c    .......End.of.Just test output...........
      end do
      close(1)

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

C Locate position of first digit in string; or return 0
      integer function idig(c)
      character*(*) c
      character*1 c1
      integer lc,i
      lc=len(c)
      idig=0
      do i=1,lc
         if(c(i:i).ne.' ') go to 1
      end do
    1 if(i.gt.lc) return
      c1=c(i:i)
      if(c1.eq.'.'.or.c1.eq.'-'.or.c1.eq.'+') i=i+1
      if(i.gt.lc) return
      c1=c(i:i)
      if(c1.ge.'0'.and.c1.le.'9') idig=i
      return
      end