FORTRAN Generation
(/./ftp/cats/J/A_A/493/959)

Conversion of standardized ReadMe file for file /./ftp/cats/J/A_A/493/959 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. J/A+A/493/959       UBV(RI)cHalpha photometry in omega Cen      (Bellini+, 2009)
*================================================================================
*Ground-based CCD astrometry with wide field imagers.
*III.  proper-motion catalog of the globular cluster omega Centauri.
*    Bellini A., Piotto G., Bedin L.R., Anderson J., Platais I., Momany Y.,
*    Moretti A., Milone A.P., Ortolani S.
*   <Astron. Astrophys. 493, 959 (2009)>
*   =2009A&A...493..959B
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'catalog.dat'	! Astrometric and photometric parameters for
                            359391 objects (table6 of the paper)

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

C  J2000 position composed of: RAdeg DEdeg (Epoch=J2003.29)
      integer*4     Seq         ! [1/376478] Star sequential number
      real*8        RAdeg       ! (deg) Right ascension (J2000, Epoch J2003.29)
      real*8        DEdeg       ! (deg) Declination (J2000, Epoch J2003.29)
      real*8        Xpos        ! (pix) X master frame position (distortion free)
      real*8        Ypos        ! (pix) Y master frame position (distortion free)
      real*4        pmRA        ! (mas/yr) Proper motion along RA, pmRAcosDE
      real*4        e_pmRA      ! (mas/yr) Proper motion rms along pmRAcosDE
      real*4        pmDE        ! (mas/yr) Proper motion along pmDE
      real*4        e_pmDE      ! (mas/yr) Proper motion rms along pmDE
      real*4        Umag        ! (mag) ?=99.999 Johnson U visual magnitude (1)
      real*4        e_Umag      ! (mag) ?=99.999 Johnson U visual magnitude rms (1)
      real*4        Bmag        ! (mag) ?=99.999 Johnson B visual magnitude (1)
      real*4        e_Bmag      ! (mag) ?=99.999 Johnson B visual magnitude rms (1)
      real*4        Vmag        ! (mag) ?=99.999 Johnson V visual magnitude (1)
      real*4        e_Vmag      ! (mag) ?=99.999 Johnson V visual magnitude rms (1)
      real*4        Rcmag       ! (mag) ?=99.999 Cousins R visual magnitude (1)
      real*4        e_Rcmag     ! (mag) ?=99.999 Cousins R visual magnitude rms (1)
      real*4        Icmag       ! (mag) ?=99.999 Cousins I visual magnitude (1)
      real*4        e_Icmag     ! (mag) ?=99.999 Cousins I visual magnitude rms (1)
      real*4        Ha          ! (mag) ?=99.999 Halpha visual magnitude (1)
      real*4        e_Ha        ! (mag) ?=99.999 Halpha visual magnitude rms (1)
      integer*4     Mm          ! (%) Membership probability
      integer*4     Mm2         ! (%) ?=-1 Membership probability alternative (2)
*Note (1): If an object is not been measured in a filter, a flag equal to
*     99.999 is set for magnitude value and relative magnitude rms.
*Note (2): Membership probability determination with an alternative method
*     for 120227 objects. A value of -1 is set for undetermined memberships.

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

C  Declarations for 'table3.dat'	! Membership probability for the Kaluzny et al.
                           (2004, Cat. J/A+A/424/1101) variable star catalog

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

      character*5   VName       ! Variable name (VNNN or NVNNN)
      integer*4     Mmb         ! (%) Membership probability
      integer*4     Seq_1       ! Star sequential number

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

C  Loading file 'catalog.dat'	! Astrometric and photometric parameters for
*                            359391 objects (table6 of the paper)

C  Format for file interpretation

    1 format(
     +  I6,1X,F10.6,1X,F10.6,1X,F8.3,1X,F8.3,1X,F6.2,1X,F5.2,1X,F6.2,
     +  1X,F5.2,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,
     +  F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,I3,1X,I3)

C  Effective file loading

      open(unit=1,status='old',file=
     +'catalog.dat')
      write(6,*) '....Loading file: catalog.dat'
      do i__=1,359391
        read(1,'(A164)')ar__
        read(ar__,1)
     +  Seq,RAdeg,DEdeg,Xpos,Ypos,pmRA,e_pmRA,pmDE,e_pmDE,Umag,e_Umag,
     +  Bmag,e_Bmag,Vmag,e_Vmag,Rcmag,e_Rcmag,Icmag,e_Icmag,Ha,e_Ha,
     +  Mm,Mm2
c    ..............Just test output...........
        write(6,1)
     +  Seq,RAdeg,DEdeg,Xpos,Ypos,pmRA,e_pmRA,pmDE,e_pmDE,Umag,e_Umag,
     +  Bmag,e_Bmag,Vmag,e_Vmag,Rcmag,e_Rcmag,Icmag,e_Icmag,Ha,e_Ha,
     +  Mm,Mm2
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table3.dat'	! Membership probability for the Kaluzny et al.
*                           (2004, Cat. J/A+A/424/1101) variable star catalog

C  Format for file interpretation

    2 format(A5,1X,I3,1X,I6)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table3.dat')
      write(6,*) '....Loading file: table3.dat'
      do i__=1,343
        read(1,'(A16)')ar__1
        read(ar__1,2)VName,Mmb,Seq_1
c    ..............Just test output...........
        write(6,2)VName,Mmb,Seq_1
c    .......End.of.Just test output...........
      end do
      close(1)

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