FORTRAN Generation
(/./ftp/cats/J/A_A/380/347)

Conversion of standardized ReadMe file for file /./ftp/cats/J/A_A/380/347 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/A+A/380/347    BVRI photometry of 27 Kuiper Belt Objects     (Delsanti+, 2001)
*================================================================================
*BVRI photometry of 27 Kuiper Belt Objects with ESO/ Very Large Telescope
*     Delsanti A.C., Boehnhardt H., Barrera L., Meech K.J, Sekiguchi T.,
*     Hainaut O.R.
*    <Astron. Astrophys. 380, 347 (2001)>
*    =2001A&A...380..347D
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'table2.dat'	! Magnitudes obtained for Run 1 and 2 using a
                             fixed aperture diameter

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

      character*9   Object     (nr__) ! Object designation
      character*10  Date       (nr__) ! ("YYYY/MM/DD") UT date of observation
      real*4        r          (nr__) ! (AU) Heliocentric distance at the epoch of
*                                         observation
      real*4        Bmag       (nr__) ! (mag) ? B magnitude
      real*4        e_Bmag     (nr__) ! (mag) ? rms uncertainty on Bmag
      real*4        Vmag       (nr__) ! (mag) ? V magnitude
      real*4        e_Vmag     (nr__) ! (mag) ? rms uncertainty on Vmag
      real*4        Rmag       (nr__) ! (mag) ? R magnitude
      real*4        e_Rmag     (nr__) ! (mag) ? rms uncertainty on Rmag
      real*4        Imag       (nr__) ! (mag) ? I magnitude
      real*4        e_Imag     (nr__) ! (mag) ? rms uncertainty on Imag
      character*3   Notes      (nr__) ! Individual notes, separated by comma (1)
*Note (1): Individual notes:
*      1: Contamination by a nearby star. The magnitudes presented in this
*          table have been corrected for this effect.
*      2: Possible variability.
*      3: Aperture diameter of 3 FWHM
*      4: Object weak in B frame
*      5: Bad seeing for some of the frames

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

C  Declarations for 'table3.dat'	! Absolute magnitude and colors for all objects,
                             obtained from the photometric measurement
                             presented in table2

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

      character*9   Object_1   (nr__1) ! Object designation
      character*4   Class      (nr__1) ! Class (1)
      character*3   Run        (nr__1) ! [12ab (*)] Run of observation (2)
      real*4        M11        (nr__1) ! (mag) ? Absolute magnitude
      real*4        e_M11      (nr__1) ! (mag) ? rms uncertainty on M11
      real*4        R_1        (nr__1) ! (km) Estimation of the object radius using
*                                     Russell (1916ApJ....43..173R)
      real*4        e_R        (nr__1) ! (km) rms uncertainty on R
      real*4        S          (nr__1) ! (10-4nm-1) ? Spectral reddening gradient (in %/100nm)
      real*4        e_S        (nr__1) ! (10-4nm-1) ? rms uncertainty on S (in %/100nm)
      real*4        B_V        (nr__1) ! (mag) ? B-V colour index
      real*4        e_B_V      (nr__1) ! (mag) ? rms uncertainty on B-V
      real*4        V_R        (nr__1) ! (mag) ? V-R colour index
      real*4        e_V_R      (nr__1) ! (mag) ? rms uncertainty on V-R
      real*4        R_I        (nr__1) ! (mag) ? R-I colour index
      real*4        e_R_I      (nr__1) ! (mag) ? rms uncertainty on R-I
*Note (1): Class:
*       QB1: Cubewano
*      Plut: Plutino
*      Scat: Scaterred Disk Object
*      Cent: Centaur
*Note (2): Run (UT date):
*      1a=2000 Sep 04
*      1b=2000 Sep 05
*      2a=2000 Nov 29
*      2b=2000 Nov 30
*      (*)=compilation of Run 2a & 2b (29 and 30 Nov 2000)
*    For objects measured during both runs, we present one value per run,
*    in order to highlight any intrinsic change.

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

C  Loading file 'table2.dat'	! Magnitudes obtained for Run 1 and 2 using a
*                             fixed aperture diameter

C  Format for file interpretation

    1 format(
     +  A9,1X,A10,1X,F5.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,
     +  F4.2,1X,F5.2,1X,F4.2,1X,A3)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table2.dat')
      write(6,*) '....Loading file: table2.dat'
      do i__=1,52
        read(1,'(A74)')ar__
        read(ar__,1)
     +  Object(i__),Date(i__),r(i__),Bmag(i__),e_Bmag(i__),Vmag(i__),
     +  e_Vmag(i__),Rmag(i__),e_Rmag(i__),Imag(i__),e_Imag(i__),
     +  Notes(i__)
        if(ar__(28:32) .EQ. '') Bmag(i__) = rNULL__
        if(ar__(34:37) .EQ. '') e_Bmag(i__) = rNULL__
        if(ar__(39:43) .EQ. '') Vmag(i__) = rNULL__
        if(ar__(45:48) .EQ. '') e_Vmag(i__) = rNULL__
        if(ar__(50:54) .EQ. '') Rmag(i__) = rNULL__
        if(ar__(56:59) .EQ. '') e_Rmag(i__) = rNULL__
        if(ar__(61:65) .EQ. '') Imag(i__) = rNULL__
        if(ar__(67:70) .EQ. '') e_Imag(i__) = rNULL__
c    ..............Just test output...........
        write(6,1)
     +  Object(i__),Date(i__),r(i__),Bmag(i__),e_Bmag(i__),Vmag(i__),
     +  e_Vmag(i__),Rmag(i__),e_Rmag(i__),Imag(i__),e_Imag(i__),
     +  Notes(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table3.dat'	! Absolute magnitude and colors for all objects,
*                             obtained from the photometric measurement
*                             presented in table2

C  Format for file interpretation

    2 format(
     +  A9,1X,A4,1X,A3,1X,F5.2,1X,F4.2,1X,F5.1,1X,F4.1,1X,F5.2,1X,
     +  F4.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table3.dat')
      write(6,*) '....Loading file: table3.dat'
      do i__=1,32
        read(1,'(A82)')ar__1
        read(ar__1,2)
     +  Object_1(i__),Class(i__),Run(i__),M11(i__),e_M11(i__),
     +  R_1(i__),e_R(i__),S(i__),e_S(i__),B_V(i__),e_B_V(i__),
     +  V_R(i__),e_V_R(i__),R_I(i__),e_R_I(i__)
        if(ar__1(20:24) .EQ. '') M11(i__) = rNULL__
        if(ar__1(26:29) .EQ. '') e_M11(i__) = rNULL__
        if(ar__1(42:46) .EQ. '') S(i__) = rNULL__
        if(ar__1(48:51) .EQ. '') e_S(i__) = rNULL__
        if(ar__1(53:56) .EQ. '') B_V(i__) = rNULL__
        if(ar__1(58:61) .EQ. '') e_B_V(i__) = rNULL__
        if(ar__1(63:66) .EQ. '') V_R(i__) = rNULL__
        if(ar__1(68:71) .EQ. '') e_V_R(i__) = rNULL__
        if(ar__1(73:76) .EQ. '') R_I(i__) = rNULL__
        if(ar__1(78:81) .EQ. '') e_R_I(i__) = rNULL__
c    ..............Just test output...........
        write(6,2)
     +  Object_1(i__),Class(i__),Run(i__),M11(i__),e_M11(i__),
     +  R_1(i__),e_R(i__),S(i__),e_S(i__),B_V(i__),e_B_V(i__),
     +  V_R(i__),e_V_R(i__),R_I(i__),e_R_I(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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