FORTRAN Generation
(/./ftp/cats/J/A_A/438/377)

Conversion of standardized ReadMe file for file /./ftp/cats/J/A_A/438/377 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.



++++Column 'RAdeg' at line 81: Right Ascension at Eq.=J2000 (3)
    position has no associated Epoch (last analysed word: 'observations')
      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/438/377    Kyiv Meridian Axial Circle Catalogue, KMAC1  (Lazorenko+, 2005)
*================================================================================
*The Kyiv Meridian Axial Circle Catalogue of stars in fields with extragalactic
*radio sources.
*    Lazorenko P., Babenko Yu, Karbovsky V., Buromsky M., Denisjuk O., Kasjan S.
*   <Astron. Astrophys. 438, 377 (2005)>
*   =2005A&A...438..377L
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'list.dat'	! List of sky strips included in KMAC1-T and KMAC1-CU

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

      character*15  IAU         ! IAU designations of ICRF radio sources located
*                               at centres of sky strips
      integer*4     NCU         ! Star number in each sky strip contained in
*                               the KMAC1-CU catalogue
      integer*4     NT          ! ? Star number in each sky strip contained in
*                                the KMAC1-T catalogue (1)
*Note (1): NT may be smaller than NCU due to truncation of outer edges of
*          some sky fields which was carried out in the KMAC1-T.

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

C  Declarations for 'kmac1cu.dat'	! The catalogue KMAC1-T (159 fields)

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

C  observations and Eq.=J2000.0.
 position composed of: RAdeg DEdeg
      integer*4     Seq         ! Object (star) sequential number (1)
      character*15  IAU_1       ! IAU designation of the radio source (2)
      real*8        RAdeg       ! (deg) Right Ascension at Eq.=J2000 (3)
      real*8        DEdeg       ! (deg) Declination at Eq.=J2000 (3)
      real*4        Vmag        ! (mag) Johnson V band magnitude
      integer*4     o_RAdeg     ! Number of detections in RA (4)
      integer*4     o_DEdeg     ! Number of detections in DE (4)
      integer*4     o_Vmag      ! Number of detections in V
      real*4        e_RAdeg     ! (arcsec) Internal mean error on RA
      real*4        e_DEdeg     ! (arcsec) Internal mean error on DE
      real*4        e_Vmag      ! (mag) Internal mean error on V
      integer*4     pmRA        ! (mas/yr) ?=9999 proper motion on RA (5)
      integer*4     pmDE        ! (mas/yr) ?=9999 proper motion on DE (5)
      real*4        EpRA_2000   ! (yr) Epoch of observations on RA minus 2000
      real*4        EpDE_2000   ! (yr) Epoch of observations on DE minus 2000
      real*4        EpV_2000    ! (yr) Epoch of observations on V  minus 2000
      integer*4     Qual        ! [0/1] Image quality index: 0=ok,
*                                       1=non-standard image processing (6)
      real*4        SizeDE      ! (pix) Image size for extended objects in DE (7)
      real*4        SizeRA      ! (pix) Image size for extended objects in RA (7)
      real*4        Bmag        ! (mag) ?=0.00 blue B magnitude from USNO-B1.0
      real*4        Rmag        ! (mag) ?=0.00 red  R magnitude from USNO-B1.0
      real*4        r_mag       ! (mag) ?=0.000 red r' magnitude from CMC13
      real*4        Jmag        ! (mag) ?=0.000 infrared J magnitude from 2MASS
      character*12  USNOB1      ! USNO-B1.0 (Cat <I/284>) object designation
*                                      (99999999999 = ?)
*Note (1): All the KMAC1 objects are ordered by Right Ascension.
*Note (2): The designation refers to the central ICRF object of the sky area.
*Note (3): Positions are is given at mean epoch of observations and Eq.=J2000.0.
*Note (4): Unequal number of detections in RA and DE (NRA and NDE) means
*    that a rejection of bad measurements was applied. It may indicate
*    certain problems with image quality not marked by the QUAL. When a
*    very high accuracy of positions is required, please do not use these
*    stars or at least the coordinate which refers to the rejected
*    measurement (e.g. DE, if NDE<NRA).
*Note (5): Computed using the USNO-A2.0 first epoch positions.
*Note (6): Qual=1 may indicate indicate centroiding problems of various
*    origin (e.g. binary, unresolved or oversaturated star). Please do not
*    use these stars when a very high accuracy of positions is required.
*Note (7): The Gaussian image size parameter is given when SizeDE or
*    SizeRA exceed 2pix (1pix=1.394arcsec); FWHM=2.36*SizeDE in DE and
*    FWHM=2.36*SizeRA in RA

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

C  Declarations for 'kmac1t.dat'	! The catalogue KMAC1-CU (192 fields)

      integer*4 nr__2
      parameter (nr__2=104796)	! Number of records
      character*150 ar__2  	! Full-size record

C  observations and Eq.=J2000.0.
 position composed of: RAdeg DEdeg
      integer*4     Seq_1       ! Object (star) sequential number (1)
      character*15  IAU_2       ! IAU designation of the radio source (2)
      real*8        RAdeg_1     ! (deg) Right Ascension at Eq.=J2000 (3)
      real*8        DEdeg_1     ! (deg) Declination at Eq.=J2000 (3)
      real*4        Vmag_1      ! (mag) Johnson V band magnitude
      integer*4     o_RAdeg_1   ! Number of detections in RA (4)
      integer*4     o_DEdeg_1   ! Number of detections in DE (4)
      integer*4     o_Vmag_1    ! Number of detections in V
      real*4        e_RAdeg_1   ! (arcsec) Internal mean error on RA
      real*4        e_DEdeg_1   ! (arcsec) Internal mean error on DE
      real*4        e_Vmag_1    ! (mag) Internal mean error on V
      integer*4     pmRA_1      ! (mas/yr) ?=9999 proper motion on RA (5)
      integer*4     pmDE_1      ! (mas/yr) ?=9999 proper motion on DE (5)
      real*4        EpRA_2000_1 ! (yr) Epoch of observations on RA minus 2000
      real*4        EpDE_2000_1 ! (yr) Epoch of observations on DE minus 2000
      real*4        EpV_2000_1  ! (yr) Epoch of observations on V  minus 2000
      integer*4     Qual_1      ! [0/1] Image quality index: 0=ok,
*                                       1=non-standard image processing (6)
      real*4        SizeDE_1    ! (pix) Image size for extended objects in DE (7)
      real*4        SizeRA_1    ! (pix) Image size for extended objects in RA (7)
      real*4        Bmag_1      ! (mag) ?=0.00 blue B magnitude from USNO-B1.0
      real*4        Rmag_1      ! (mag) ?=0.00 red  R magnitude from USNO-B1.0
      real*4        r_mag_1     ! (mag) ?=0.000 red r' magnitude from CMC13
      real*4        Jmag_1      ! (mag) ?=0.000 infrared J magnitude from 2MASS
      character*12  USNOB1_1    ! USNO-B1.0 (Cat <I/284>) object designation
*                                      (99999999999 = ?)
*Note (1): All the KMAC1 objects are ordered by Right Ascension.
*Note (2): The designation refers to the central ICRF object of the sky area.
*Note (3): Positions are is given at mean epoch of observations and Eq.=J2000.0.
*Note (4): Unequal number of detections in RA and DE (NRA and NDE) means
*    that a rejection of bad measurements was applied. It may indicate
*    certain problems with image quality not marked by the QUAL. When a
*    very high accuracy of positions is required, please do not use these
*    stars or at least the coordinate which refers to the rejected
*    measurement (e.g. DE, if NDE<NRA).
*Note (5): Computed using the USNO-A2.0 first epoch positions.
*Note (6): Qual=1 may indicate indicate centroiding problems of various
*    origin (e.g. binary, unresolved or oversaturated star). Please do not
*    use these stars when a very high accuracy of positions is required.
*Note (7): The Gaussian image size parameter is given when SizeDE or
*    SizeRA exceed 2pix (1pix=1.394arcsec); FWHM=2.36*SizeDE in DE and
*    FWHM=2.36*SizeRA in RA

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

C  Loading file 'list.dat'	! List of sky strips included in KMAC1-T and KMAC1-CU

C  Format for file interpretation

    1 format(A15,1X,I5,1X,I5)

C  Effective file loading

      open(unit=1,status='old',file=
     +'list.dat')
      write(6,*) '....Loading file: list.dat'
      do i__=1,192
        read(1,'(A65)')ar__
        read(ar__,1)IAU,NCU,NT
        if(ar__(23:27) .EQ. '') NT = iNULL__
c    ..............Just test output...........
        write(6,1)IAU,NCU,NT
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'kmac1cu.dat'	! The catalogue KMAC1-T (159 fields)

C  Format for file interpretation

    2 format(
     +  I6,1X,A15,1X,F11.7,1X,F10.7,1X,F6.3,1X,I2,1X,I2,1X,I2,1X,F4.2,
     +  1X,F4.2,1X,F4.2,1X,I4,1X,I4,1X,F4.2,1X,F4.2,1X,F4.2,1X,I1,1X,
     +  F3.1,1X,F3.1,1X,F5.2,1X,F5.2,1X,F6.3,1X,F6.3,1X,A12)

C  Effective file loading

      open(unit=1,status='old',file=
     +'kmac1cu.dat')
      write(6,*) '....Loading file: kmac1cu.dat'
      do i__=1,115032
        read(1,'(A150)')ar__1
        read(ar__1,2)
     +  Seq,IAU_1,RAdeg,DEdeg,Vmag,o_RAdeg,o_DEdeg,o_Vmag,e_RAdeg,
     +  e_DEdeg,e_Vmag,pmRA,pmDE,EpRA_2000,EpDE_2000,EpV_2000,Qual,
     +  SizeDE,SizeRA,Bmag,Rmag,r_mag,Jmag,USNOB1
c    ..............Just test output...........
        write(6,2)
     +  Seq,IAU_1,RAdeg,DEdeg,Vmag,o_RAdeg,o_DEdeg,o_Vmag,e_RAdeg,
     +  e_DEdeg,e_Vmag,pmRA,pmDE,EpRA_2000,EpDE_2000,EpV_2000,Qual,
     +  SizeDE,SizeRA,Bmag,Rmag,r_mag,Jmag,USNOB1
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'kmac1t.dat'	! The catalogue KMAC1-CU (192 fields)

C  Format for file interpretation

    3 format(
     +  I6,1X,A15,1X,F11.7,1X,F10.7,1X,F6.3,1X,I2,1X,I2,1X,I2,1X,F4.2,
     +  1X,F4.2,1X,F4.2,1X,I4,1X,I4,1X,F4.2,1X,F4.2,1X,F4.2,1X,I1,1X,
     +  F3.1,1X,F3.1,1X,F5.2,1X,F5.2,1X,F6.3,1X,F6.3,1X,A12)

C  Effective file loading

      open(unit=1,status='old',file=
     +'kmac1t.dat')
      write(6,*) '....Loading file: kmac1t.dat'
      do i__=1,104796
        read(1,'(A150)')ar__2
        read(ar__2,3)
     +  Seq_1,IAU_2,RAdeg_1,DEdeg_1,Vmag_1,o_RAdeg_1,o_DEdeg_1,
     +  o_Vmag_1,e_RAdeg_1,e_DEdeg_1,e_Vmag_1,pmRA_1,pmDE_1,
     +  EpRA_2000_1,EpDE_2000_1,EpV_2000_1,Qual_1,SizeDE_1,SizeRA_1,
     +  Bmag_1,Rmag_1,r_mag_1,Jmag_1,USNOB1_1
c    ..............Just test output...........
        write(6,3)
     +  Seq_1,IAU_2,RAdeg_1,DEdeg_1,Vmag_1,o_RAdeg_1,o_DEdeg_1,
     +  o_Vmag_1,e_RAdeg_1,e_DEdeg_1,e_Vmag_1,pmRA_1,pmDE_1,
     +  EpRA_2000_1,EpDE_2000_1,EpV_2000_1,Qual_1,SizeDE_1,SizeRA_1,
     +  Bmag_1,Rmag_1,r_mag_1,Jmag_1,USNOB1_1
c    .......End.of.Just test output...........
      end do
      close(1)

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