FORTRAN Generation
(/./ftp/cats/J/PAZh/36/354)

Conversion of standardized ReadMe file for file /./ftp/cats/J/PAZh/36/354 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/PAZh/36/354       NGC 6866 proper motions and CCD photometry (Frolov+, 2010)
*================================================================================
*Proper motions and CCD photometry of stars in the region of the open cluster
*NGC 6866.
*    Frolov V.N., Ananjevskaja Yu.K., Gorshanov D.L., Polyakov E.V.
*   <Pis'ma Astron. Zh. 36, 354 (2010)>
*   =2010PAZh...36..354F
*   =2010AstL...36..338F
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'table2.dat'	! Stars proper motions and estimations of their
                              cluster membership

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

      integer*4     Seq        (nr__) ! Sequential number
      character*13  USNO_A2_0  (nr__) ! Star number in USNO-A 2.0, Cat. I/252
      real*4        Xpos       (nr__) ! (arcmin) Rectangular coordinate X of star (G1)
      real*4        Ypos       (nr__) ! (arcmin) Rectangular coordinate Y of star (G1)
      real*4        pmX        (nr__) ! (mas/yr) Relative proper motion along X (RA)
      real*4        e_pmX      (nr__) ! (mas/yr) pmX standard error
      real*4        pmY        (nr__) ! (mas/yr) Relative proper motion along Y (DE)
      real*4        e_pmY      (nr__) ! (mas/yr) pmY standard error
      integer*4     Pl         (nr__) ! Number of plates
      integer*4     Mm         (nr__) ! (%) Membership probability
      character*2   bl         (nr__) ! "bl" marks blends
      character*21  ONames     (nr__) ! Names in BD, HD, IRAS, Tycho or ROSAT catalogs

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

C  Declarations for 'table3.dat'	! Photometric data of stars in the NGC 6866 area

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

      integer*4     Seq_1      (nr__1) ! Sequential number
      real*4        Xpos_1     (nr__1) ! (arcmin) Rectangular coordinate X of a star
*                                 relative to the star N 649 (G1)
      real*4        Ypos_1     (nr__1) ! (arcmin) Rectangular coordinate Y of a star
*                                 relative to the star N 649 (G1)
      real*4        Bmag       (nr__1) ! (mag) ? CCD photometry in the B band
      real*4        Vmag       (nr__1) ! (mag) ? CCD photometry in the V band
      character*5   BZ         (nr__1) ! ? Star number according to (BZ) (1)
      real*4        Bmag1      (nr__1) ! (mag) ? Photographic (BZ) B magnitude (1)
      character*1   n_Bmag1    (nr__1) ! [:] marks blends
      real*4        Vmag1      (nr__1) ! (mag) ? Photoelectric (BZ) V magnitude (1)
      character*1   n_Vmag1    (nr__1) ! [:] marks blends
      real*4        Bmag2      (nr__1) ! (mag) ? Photographic (SH) B magnitude (1)
      real*4        Vmag2      (nr__1) ! (mag) ? Photographic (SH) V magnitude (1)
      real*4        Umag2      (nr__1) ! (mag) ? Photographic (SH) U magnitude (1)
      real*4        Bmag3      (nr__1) ! (mag) ? Photoelectric or photographic (WC)
*                                   B magnitude (1)
      character*1   n_Bmag3    (nr__1) ! [:] marks blends
      real*4        Vmag3      (nr__1) ! (mag) ? Photoelectric or photographic (WC)
*                                   V magnitude (1)
      character*1   n_Vmag3    (nr__1) ! [:] marks blends
      real*4        Umag3      (nr__1) ! (mag) ? Photoelectric or photographic (WC)
*                                   U magnitude (1)
      character*1   n_Umag3    (nr__1) ! [:] marks blends
      character*6   Notes      (nr__1) ! Notes (bl marks blends)
*Note (1): References:
*     BZ = Barkhatova, K.A., and Zakharova, P.E., 1970, Ural. Sb. 93,
*          vipusk 6, 3, In Russian
*     SH = Sutantio, W. and Hidajat, B.: 1972, IBSH, 19, 31S
*     WC = Hoag, A.A., Johnson, H.L., Iriarte, B., et al.:
*          1961PUSNO..17..343H (NGC 6866 NN)

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

C  Loading file 'table2.dat'	! Stars proper motions and estimations of their
*                              cluster membership

C  Format for file interpretation

    1 format(
     +  I4,1X,A13,1X,F6.2,1X,F6.2,F6.1,F4.1,F6.1,F4.1,I3,I3,1X,A2,1X,
     +  A21)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table2.dat')
      write(6,*) '....Loading file: table2.dat'
      do i__=1,1202
        read(1,'(A83)')ar__
        read(ar__,1)
     +  Seq(i__),USNO_A2_0(i__),Xpos(i__),Ypos(i__),pmX(i__),
     +  e_pmX(i__),pmY(i__),e_pmY(i__),Pl(i__),Mm(i__),bl(i__),
     +  ONames(i__)
c    ..............Just test output...........
        write(6,1)
     +  Seq(i__),USNO_A2_0(i__),Xpos(i__),Ypos(i__),pmX(i__),
     +  e_pmX(i__),pmY(i__),e_pmY(i__),Pl(i__),Mm(i__),bl(i__),
     +  ONames(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table3.dat'	! Photometric data of stars in the NGC 6866 area

C  Format for file interpretation

    2 format(
     +  I4,1X,F6.2,1X,F6.2,1X,F5.2,1X,F5.2,1X,A5,1X,F5.2,A1,1X,F5.2,
     +  A1,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,A1,1X,F5.2,A1,F5.2,A1,4X,A6)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table3.dat')
      write(6,*) '....Loading file: table3.dat'
      do i__=1,1202
        read(1,'(A98)')ar__1
        read(ar__1,2)
     +  Seq_1(i__),Xpos_1(i__),Ypos_1(i__),Bmag(i__),Vmag(i__),
     +  BZ(i__),Bmag1(i__),n_Bmag1(i__),Vmag1(i__),n_Vmag1(i__),
     +  Bmag2(i__),Vmag2(i__),Umag2(i__),Bmag3(i__),n_Bmag3(i__),
     +  Vmag3(i__),n_Vmag3(i__),Umag3(i__),n_Umag3(i__),Notes(i__)
        if(ar__1(20:24) .EQ. '') Bmag(i__) = rNULL__
        if(ar__1(26:30) .EQ. '') Vmag(i__) = rNULL__
        if(ar__1(38:42) .EQ. '') Bmag1(i__) = rNULL__
        if(ar__1(45:49) .EQ. '') Vmag1(i__) = rNULL__
        if(ar__1(52:56) .EQ. '') Bmag2(i__) = rNULL__
        if(ar__1(58:62) .EQ. '') Vmag2(i__) = rNULL__
        if(ar__1(64:68) .EQ. '') Umag2(i__) = rNULL__
        if(ar__1(70:74) .EQ. '') Bmag3(i__) = rNULL__
        if(ar__1(77:81) .EQ. '') Vmag3(i__) = rNULL__
        if(ar__1(83:87) .EQ. '') Umag3(i__) = rNULL__
c    ..............Just test output...........
        write(6,2)
     +  Seq_1(i__),Xpos_1(i__),Ypos_1(i__),Bmag(i__),Vmag(i__),
     +  BZ(i__),Bmag1(i__),n_Bmag1(i__),Vmag1(i__),n_Vmag1(i__),
     +  Bmag2(i__),Vmag2(i__),Umag2(i__),Bmag3(i__),n_Bmag3(i__),
     +  Vmag3(i__),n_Vmag3(i__),Umag3(i__),n_Umag3(i__),Notes(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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