FORTRAN Generation
(/./ftp/cats/J/other/RMxAA/44.111)

Conversion of standardized ReadMe file for file /./ftp/cats/J/other/RMxAA/44.111 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.5, on 2014-Jul-30
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__=-1.e37)     	! NULL real number
      parameter  (iNULL__=-2147483647)	! NULL int  number

C=============================================================================
Cat. J/other/RMxAA/44.111    ubvy{beta} photometry of NGC 6882/5 stars  (Pena+, 2008)
*================================================================================
*On the nature of the open clusters in the direction of NGC 6882/5.
*    Pena J.H., Peniche R., Garrido R., Paparo M., Garcia-Cole A.
*   <Rev. Mex. Astron. Astrofis., 44, 111-123 (2008)>
*   =2008RMxAA..44..111P
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'table3.dat'	! {beta} photoelectric photometry of the stars in the
                              direction of NGC 6882

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

      integer*4     WEBDA      (nr__) ! ? WEBDA number
      character*10  Name       (nr__) ! Denomination for stars without WEBDA number (1)
      real*4        v_Vmag_    (nr__) ! (mag) Mean V magnitude
      real*4        v_b_y_     (nr__) ! (mag) Mean b-y colour index
      real*4        v_m1_      (nr__) ! (mag) Mean m1 index
      real*4        v_c1_      (nr__) ! (mag) Mean c1 index
      real*4        v_beta_    (nr__) ! (mag) ?=- Mean beta index
      character*2   phSp       (nr__) ! Photometric spectral type
      character*5   SpType     (nr__) ! WEBDA MK spectral type
      real*4        Vmag       (nr__) ! (mag) ? WEBDA V magnitude (2)
      real*4        Xpos       (nr__) ! (pix) WEBDA X position, or X part of Name (2)
      real*4        Ypos       (nr__) ! (pix) WEBDA Y position, or Y part of Name(2)
      character*20  SName      (nr__) ! Simbad name (2) (3)
*Note (1): For a few stars were observed that have no WEBDA ID identifier,
*     these are reported by their WEBDA coordinates. Object identified as
*     [PPG2008] +xx.x+yy.y in Simbad
*Note (2): Column added at CDS from WEBDA
*     (http://www.univie.ac.at/webda/interrogation.html)
*Note (3): Nomenclature note:
*     NGC 6882 NN          = Hoag et al. 1961PUSNO..17..343H
*     Cl* NGC 6882 MAT NN  = Mathews R.T. 1963, Publ. Goodsell Obs. no 14
*     Cl* NGC 6882 ZUG NN  = Zug, 1933LicOB..16..119Z
*     Cl* NGC 6882 LAV NNN = Lavdovski, 1961TrPul..73....5L
*     NGC 6882 HR NN       = Hintz & Rose, 2005PASP..117..955H

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

C  Loading file 'table3.dat'	! {beta} photoelectric photometry of the stars in the
*                              direction of NGC 6882

C  Format for file interpretation

    1 format(
     +  I3,1X,A10,3X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F5.3,1X,A2,1X,A5,
     +  2X,F5.2,2X,F6.2,1X,F6.2,2X,A20)

C  Effective file loading

      open(unit=1,file='table3.dat', status='old')
      write(6,*) '....Loading file: table3.dat'
      do i__=1,106
        read(1,'(A103)')ar__
        read(ar__,1)
     +  WEBDA(i__),Name(i__),v_Vmag_(i__),v_b_y_(i__),v_m1_(i__),
     +  v_c1_(i__),v_beta_(i__),phSp(i__),SpType(i__),Vmag(i__),
     +  Xpos(i__),Ypos(i__),SName(i__)
        if(ar__(1:3) .EQ. '') WEBDA(i__) = iNULL__
        if (v_beta_(i__) .EQ. 2.2233e-322) v_beta_(i__) =  rNULL__
        if(ar__(62:66) .EQ. '') Vmag(i__) = rNULL__
c    ..............Just test output...........
        write(6,1)
     +  WEBDA(i__),Name(i__),v_Vmag_(i__),v_b_y_(i__),v_m1_(i__),
     +  v_c1_(i__),v_beta_(i__),phSp(i__),SpType(i__),Vmag(i__),
     +  Xpos(i__),Ypos(i__),SName(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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