FORTRAN Generation
(/./ftp/cats/II/75)

Conversion of standardized ReadMe file for file /./ftp/cats/II/75 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 2017-Sep-21
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. II/75            Homegeneous RI magnitudes in Kron system (Jasniewicz 1982)
*================================================================================
*Homogeneous catalogue of red and infrared magnitudes in the photoelectric
*photometric system of Kron
*     Jasniewicz G.
*    <Astron. Astrophys. Suppl. Ser. 49, 99 (1982)>
*    =1982A+AS...49...99J
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'data'	! R and R-I Measurements

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

      character*11  LID        (nr__) ! Lausanne designation (1)
      real*4        Rmag       (nr__) ! (mag) []? magnitude
      character*1   u_Rmag     (nr__) ! Uncertainty flag (:) on Rmag
      real*4        R_I        (nr__) ! (mag) Color index
      character*1   u_R_I      (nr__) ! Uncertainty flag (:) on R-I
      character*1   n_Nmes     (nr__) ! [S/*] Note on measurements:
*                                   S = Standard star
*                                   / = Nmes does not appear
*                                   * = Nmes is a minimum number
      integer*4     Nmes       (nr__) ! []? Number of measurements
      integer*4     Ref        (nr__) ! [17001/19018] Reference
*Note (1):
*     The coded numbering system used in this catalogue has been described
*     by Mermilliod J.-CL. (1978, Bulletin du Centre de Donnees Stellaires,
*     Strasbourg,14,32). A minor modification consists in the suppression of
*     the point for each code number. An eventual remark (such as multiplicity
*     or variability) follows it.

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

C  Declarations for 'mean'	! R and R-I Homogeneous data

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

      character*11  LID_1      (nr__1) ! Lausanne designation
      real*4        Rmag_1     (nr__1) ! (mag) []? mean R magnitude
      real*4        R_I_1      (nr__1) ! (mag) Mean colour index
      integer*4     w_Rmag     (nr__1) ! [1/4]? Weight on R colour
      integer*4     w_R_I      (nr__1) ! [1/4] Weight on R-I index
      integer*4     Ref1       (nr__1) ! [17001/19018] First reference
      integer*4     Ref2       (nr__1) ! [17001/19018]? Second reference
      integer*4     Ref3       (nr__1) ! [17001/19018]? Third reference
      integer*4     Ref4       (nr__1) ! [17001/19018]? Fourth reference

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

C  Declarations for 'ref1'	! First list of References

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

      integer*4     Ref_1      (nr__2) ! [17001/19018]? Reference number;
*                                    blank for continuation
      character*72  Text       (nr__2) ! Text of reference

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

C  Declarations for 'ref2'	! Second list of References

      integer*4 nr__3
      parameter (nr__3=183)	! Number of records
      character*80 ar__3  	! Full-size record

      integer*4     Ref_2      (nr__3) ! [17001/19018]? Reference number;
*                                    blank for continuation
      character*72  Text_1     (nr__3) ! Text of reference

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

C  Loading file 'data'	! R and R-I Measurements

C  Format for file interpretation

    1 format(1X,A11,4X,F5.2,A1,3X,F6.3,A1,10X,A1,1X,I2,29X,I5)

C  Effective file loading

      open(unit=1,status='old',file=
     +'data')
      write(6,*) '....Loading file: data'
      do i__=1,6034
        read(1,'(A80)')ar__
        read(ar__,1)
     +  LID(i__),Rmag(i__),u_Rmag(i__),R_I(i__),u_R_I(i__),
     +  n_Nmes(i__),Nmes(i__),Ref(i__)
        if(ar__(17:21) .EQ. '') Rmag(i__) = rNULL__
        if(ar__(45:46) .EQ. '') Nmes(i__) = iNULL__
c    ..............Just test output...........
        write(6,1)
     +  LID(i__),Rmag(i__),u_Rmag(i__),R_I(i__),u_R_I(i__),
     +  n_Nmes(i__),Nmes(i__),Ref(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'mean'	! R and R-I Homogeneous data

C  Format for file interpretation

    2 format(
     +  1X,A11,4X,F5.2,4X,F6.3,7X,I1,3X,I1,8X,I5,3X,I5,3X,I5,3X,I5)

C  Effective file loading

      open(unit=1,status='old',file=
     +'mean')
      write(6,*) '....Loading file: mean'
      do i__=1,5704
        read(1,'(A80)')ar__1
        read(ar__1,2)
     +  LID_1(i__),Rmag_1(i__),R_I_1(i__),w_Rmag(i__),w_R_I(i__),
     +  Ref1(i__),Ref2(i__),Ref3(i__),Ref4(i__)
        if(ar__1(17:21) .EQ. '') Rmag_1(i__) = rNULL__
        if(ar__1(39:39) .EQ. '') w_Rmag(i__) = iNULL__
        if(ar__1(60:64) .EQ. '') Ref2(i__) = iNULL__
        if(ar__1(68:72) .EQ. '') Ref3(i__) = iNULL__
        if(ar__1(76:80) .EQ. '') Ref4(i__) = iNULL__
c    ..............Just test output...........
        write(6,2)
     +  LID_1(i__),Rmag_1(i__),R_I_1(i__),w_Rmag(i__),w_R_I(i__),
     +  Ref1(i__),Ref2(i__),Ref3(i__),Ref4(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'ref1'	! First list of References

C  Format for file interpretation

    3 format(I5,3X,A72)

C  Effective file loading

      open(unit=1,status='old',file=
     +'ref1')
      write(6,*) '....Loading file: ref1'
      do i__=1,60
        read(1,'(A80)')ar__2
        read(ar__2,3)Ref_1(i__),Text(i__)
        if(ar__2(1:5) .EQ. '') Ref_1(i__) = iNULL__
c    ..............Just test output...........
        write(6,3)Ref_1(i__),Text(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'ref2'	! Second list of References

C  Format for file interpretation

    4 format(I5,3X,A72)

C  Effective file loading

      open(unit=1,status='old',file=
     +'ref2')
      write(6,*) '....Loading file: ref2'
      do i__=1,183
        read(1,'(A80)')ar__3
        read(ar__3,4)Ref_2(i__),Text_1(i__)
        if(ar__3(1:5) .EQ. '') Ref_2(i__) = iNULL__
c    ..............Just test output...........
        write(6,4)Ref_2(i__),Text_1(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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