FORTRAN Generation
(/./ftp/cats/J/MNRAS/272/391)

Conversion of standardized ReadMe file for file /./ftp/cats/J/MNRAS/272/391 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/MNRAS/272/391    Globular clusters in the Magellanic Clouds   (Ferraro+, 1995)
*================================================================================
*Globular clusters in the Magellanic Clouds - II. IR-array photometry for 12
*globular clusters and contributions to the integrated cluster light.
*       FERRARO F.R., FUSI PECCI F., TESTA V., GREGGIO L., CORSI C.E.,
*       BUONANNO R., TERNDRUP D.M., ZINNECKER H.
*      <Mon. Not. R. Astron. Soc. 272, 391 (1995)>
*      =1995MNRAS.272..391F      (SIMBAD/NED Reference)
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'table1'	! IR photometric data from literature

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

      character*7   Cluster    (nr__) ! Cluster name
      real*4        Kmag       (nr__) ! (mag) []? Integrated K magnitude
      integer*4     Aperture   (nr__) ! (arcsec) []? Diaphragm aperture used for
*                                  integrated photometry from Persson S.E.
*                                  et al. 1983 (1)
      real*4        V_K        (nr__) ! (mag) []? Integrated intrinsic V-K colour from
*                                  Persson S.E. et al. 1983 (1)
      real*4        J_K        (nr__) ! (mag) []? Integrated intrinsic J-K colour from
*                                  Persson S.E. et al. 1983 (1)
      real*4        H_K        (nr__) ! (mag) []? Integrated intrinsic H-K colour from
*                                  Persson S.E. et al. 1983 (1)
      real*4        B_V        (nr__) ! (mag) []? B-V colour from van den Berg S. 1981 (1)
      integer*4     r_B_V      (nr__) ! []? Reference for B-V (1)
      real*4        e_B_V      (nr__) ! (mag) []? B-V estimate
      character*5   r_e_B_V    (nr__) ! Reference for B-V estimate (1)
      character*6   SWB        (nr__) ! Type (ref.(1) in note (1))
      character*3   r_SWB      (nr__) ! Reference for SWB-type (1)
      real*4        s          (nr__) ! []? s-parameter as defined in Elson and
*                                  Fall 85 (1)
      integer*4     r_s        (nr__) ! []? Reference for the s-parameter (1)
*Note (1): (1)  Searle L., Wilkinson A., Bagnuolo W.G., 1980 ApJ, 239, 803;
*          (2)  Elson R.A.W. and Fall S.M. 1985 ApJ, 299, 211;
*          (3)  Persson S.E. et al. 1983 ApJ, 266, 105;
*          (4)  Freeman K. et al. 1983 ApJ, 272, 488;
*          (5)  Meurer G.R. et al. 1990 AJ, 99, 1124;
*          (6)  Aaronson M. and Mould J.R. 1982 ApJS, 48, 161;
*          (7)  Bica E. et al. 1986 A&A, 156, 261;
*          (8)  Schommer et al. 1984 ApJ, 285, L53;
*          (9)  Chiosi C. and Pigatto L. 1986 ApJ, 308, 1;
*          (10) Mould J.R. et al. 1986 ApJ, 309, 39;
*          (11) Mould J.R. and Da Costa G.S. 1988, in Blanco V.M., Phillips M.M.,
*               eds, ASP Conf. Ser. Vol. 1, Progress and Opportunities in
*               Southern Hemisphere Optical Astronomy. Astron. Soc. Pac.,
*               San Francisco, p.197;
*          (12) Burstein D. and Heiles C. 1982, AJ, 87, 1165;
*          (13) Westerlund B.E. 1990 A&AR, 2, 29;
*          (14) Dottori H. et al. 1987 Rev. Mex. Astron. Astrofis., 14, 183;
*          (15) Vallenari A. et al. 1992 AJ, 104, 1100;
*          (16) van den Berg S. 1981, A&AS, 46, 79;
*          (17) Mateo M. 1987 ApJ, 323, L41;
*          (18) Bica E. et al. 1991 ApJ, 381, L51.

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

C  Declarations for 'table2'	! Magnitudes, colours and positions for the
                                 programme stars in each cluster

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

      character*8   Cluster_1  (nr__1) ! Cluster name
      integer*4     Star       (nr__1) ! Star number
      real*4        Kmag_1     (nr__1) ! (mag) K magnitude
      real*4        J_K_1      (nr__1) ! (mag) []? J-K colour index
      real*4        H_K_1      (nr__1) ! (mag) []? H-K colour index
      real*4        V_K_1      (nr__1) ! (mag) []? V-K colour index
      real*4        B_V_1      (nr__1) ! (mag) []? B-V colour index
      real*4        Xpos       (nr__1) ! (pix) X star position at a scale of 0.92 arcsec/pix
      real*4        Ypos       (nr__1) ! (pix) Y star position at a scale of 0.92 arcsec/pix

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

C  Declarations for 'table3'	! Cross-identifications and comparisons with
                                 the literature

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

      character*7   Cluster_2  (nr__2) ! Cluster name
      character*2   r_Star     (nr__2) ! Reference star number (1)
      integer*4     Star_1     (nr__2) ! []? Star number
      character*3   MAsource   (nr__2) ! Source from Mould and Aaronson 1980, 1982
*                                  or Aaronson and Mould 1982, 1985 (MA) (2)
      real*4        MAKmag     (nr__2) ! (mag) []? K magnitude from MA
      real*4        MAJ_K      (nr__2) ! (mag) []? J-K colour from MA
      real*4        MAH_K      (nr__2) ! (mag) []? H-K colour from MA
      integer*4     FMB        (nr__2) ! []? Source number from Frogel et al. 1990 (2)
      real*4        FMBKmag    (nr__2) ! (mag) []? K magnitude from FMB
      real*4        FMBJ_K     (nr__2) ! (mag) []? J-K colour from FMB
      real*4        FMBH_K     (nr__2) ! (mag) []? H-K colour from FMB
      integer*4     TP         (nr__2) ! Source number from this paper
      real*4        TPKmag     (nr__2) ! (mag) K magnitude from this paper
      real*4        TPJ_K      (nr__2) ! (mag) J-K colour from this paper
      real*4        TPH_K      (nr__2) ! (mag) []? H-K colour from this paper
*Note (1): MA=Mould J.R. and Aaronson M. 1980, 1982 or Aaronson M.
*          and Mould J.R. 1982, 1985 (2);
*          LE= Lloyd-Evans T.L.E. 1980 MNRAS, 193, 87;
*          W= Walker 1971 ApJ, 167, 1.
*Note (2): (1) Mould J.R. and Aaronson M. 1980 ApJ, 240, 464;
*          (2) Aaronson M. and Mould J.R. 1982 ApJS, 48, 161;
*          (3) Mould J.R. and Aaronson M. 1982 ApJ, 263, 629;
*          (4) Aaronson M. and Mould J.R. 1985 ApJ, 288, 551.

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

C  Declarations for 'table4'	! Observed and normalized numbers of AGB and RGB
                                 stars

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

      character*7   Cluster_3  (nr__3) ! Cluster name
      integer*4     AGB        (nr__3) ! Number of stars in the AGB (Asymptotic Giant
*                                  Branch) phase of evolution
      integer*4     RGB        (nr__3) ! Number of stars in the RGB (Red Giant Branch)
*                                  phase of evolution
      real*4        BolMag     (nr__3) ! (mag) Bolometric magnitude
      real*4        Lum        (nr__3) ! (solLum) Cluster luminosity in units of solar
*                                  luminosity
      real*4        N4         (nr__3) ! Number of giants within the range 10<K<14.3,
*                                  normalized to the luminosity of each cluster
*                                  in units of 10^4^L_sun_.
      real*4        N__AGB     (nr__3) ! Number of AGB stars normalized to 10^4^L_sun_
      real*4        N__RGB     (nr__3) ! Number of RGB stars normalized to 10^4^L_sun_
      integer*4     s_1        (nr__3) ! Cluster type

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

C  Declarations for 'table5'	! AGB and RGB contributions to the luminosity of
                                 the cluster

      integer*4 nr__4
      parameter (nr__4=12)	! Number of records
      character*49 ar__4  	! Full-size record

      character*7   Cluster_4  (nr__4) ! Cluster name
      real*4        LumK_AGB   (nr__4) ! []? Contribution of AGB stars to the cluster
*                                    luminosity in K, as a fraction of total
*                                    luminosity
      real*4        LumK_RGB   (nr__4) ! []? Contribution of RGB stars to the cluster
*                                    luminosity in K, as a fraction of the total
*                                    luminosity
      real*4        BolMag_1   (nr__4) ! (mag) Bolometric magnitude
      real*4        Bol_RGB    (nr__4) ! Contribution of RGB stars to the cluster
*                                    bolometric luminosity, as a fraction of the
*                                    total luminosity
      integer*4     s_2        (nr__4) ! s-parameter as defined in Elson R.A.W. and
*                                    Fall S.M. 1985, ApJ, 299, 211.

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

C  Declarations for 'table6'	! Theoretical quantities

      integer*4 nr__5
      parameter (nr__5=26)	! Number of records
      character*19 ar__5  	! Full-size record

      character*5   Ref        (nr__5) ! Literature reference (1)
      real*4        log_Age    (nr__5) ! ([yr]) Age of RGB stars
      real*4        Bol_RGB_1  (nr__5) ! []? Predicted contribution of RGB stars to
*                                   the cluster bolometric luminosity, as
*                                   a fraction of the total luminosity
*Note (1): References: SGR= Sweigart A.V. et al. 1989 ApJS, 69, 911 and
*          Sweigart A.V. et al. 1990, ApJ, 364, 527;
*          Al93C= Alongi M. et al. 1993 A&AS, 97, 851, standard models;
*          Al93O= Alongi M. et al. 1993 A&AS, 97, 851, overshooting models.

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

C  Declarations for 'table7'	! Comparisons between observed and computed
                                 integrated colours and magnitudes

      integer*4 nr__6
      parameter (nr__6=12)	! Number of records
      character*42 ar__6  	! Full-size record

      character*7   Cluster_5  (nr__6) ! Cluster name
      integer*4     Aperture_1 (nr__6) ! (arcsec) []? Diaphragm aperture
      real*4        Kmag1      (nr__6) ! (mag) []? K magnitude in literature (see table1)
      real*4        J_K1       (nr__6) ! (mag) []? J-K colour index in literature
*                                  (see table1)
      real*4        Kmag2      (nr__6) ! (mag) K  magnitude obtained by adding the
*                                  contribution of all the stars detected in this
*                                  survey
      real*4        J_K2       (nr__6) ! (mag) J-K colour index obtained by adding the
*                                  contribution of all the stars detected in this
*                                  survey

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

C  Declarations for 'table8'	! AGB and RGB contributions to the integrated
                                 colours

      integer*4 nr__7
      parameter (nr__7=12)	! Number of records
      character*66 ar__7  	! Full-size record

      character*7   Cluster_6  (nr__7) ! Cluster name
      real*4        J_K_2      (nr__7) ! (mag) Integrated J-B colour  obtained by adding the
*                                  contribution of all the stars detected in
*                                  this  survey
      real*4        J_K_AGB    (nr__7) ! (mag) J-K colour obtained after the deletion of
*                                  the AGB stars
      real*4        J_K_RGB    (nr__7) ! (mag) J-K colour obtained after the deletion of
*                                  the RGB stars
      real*4        V_K_2      (nr__7) ! (mag) []? Integrated V-K colour from table1
      real*4        V_K_AGB    (nr__7) ! (mag) []? Integrated V-K colour obtained after
*                                  the deletion of the AGB stars
      real*4        V_K_RGB    (nr__7) ! (mag) []? V-K colour obtained after the deletion
*                                  of the RGB stars
      real*4        B_V_2      (nr__7) ! (mag) []? Integrated B-V colour
      real*4        B_V_       (nr__7) ! (mag) []? B-V colour after the deletion of the
*                                  red stars (AGB+RGB)

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

C  Loading file 'table1'	! IR photometric data from literature

C  Format for file interpretation

    1 format(
     +  A7,2X,F5.2,1X,I2,4X,F4.2,3X,F4.2,3X,F4.2,3X,F4.2,1X,I2,2X,
     +  F4.2,1X,A5,2X,A6,1X,A3,4X,F4.1,1X,I1)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table1')
      write(6,*) '....Loading file: table1'
      do i__=1,37
        read(1,'(A84)')ar__
        read(ar__,1)
     +  Cluster(i__),Kmag(i__),Aperture(i__),V_K(i__),J_K(i__),
     +  H_K(i__),B_V(i__),r_B_V(i__),e_B_V(i__),r_e_B_V(i__),SWB(i__),
     +  r_SWB(i__),s(i__),r_s(i__)
        if(ar__(10:14) .EQ. '') Kmag(i__) = rNULL__
        if(ar__(16:17) .EQ. '') Aperture(i__) = iNULL__
        if(ar__(22:25) .EQ. '') V_K(i__) = rNULL__
        if(ar__(29:32) .EQ. '') J_K(i__) = rNULL__
        if(ar__(36:39) .EQ. '') H_K(i__) = rNULL__
        if(ar__(43:46) .EQ. '') B_V(i__) = rNULL__
        if(ar__(48:49) .EQ. '') r_B_V(i__) = iNULL__
        if(ar__(52:55) .EQ. '') e_B_V(i__) = rNULL__
        if(ar__(78:81) .EQ. '') s(i__) = rNULL__
        if(ar__(83:83) .EQ. '') r_s(i__) = iNULL__
c    ..............Just test output...........
        write(6,1)
     +  Cluster(i__),Kmag(i__),Aperture(i__),V_K(i__),J_K(i__),
     +  H_K(i__),B_V(i__),r_B_V(i__),e_B_V(i__),r_e_B_V(i__),SWB(i__),
     +  r_SWB(i__),s(i__),r_s(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table2'	! Magnitudes, colours and positions for the
*                                 programme stars in each cluster

C  Format for file interpretation

    2 format(
     +  A8,1X,I3,1X,F5.2,1X,F5.2,1X,F5.2,2X,F4.2,1X,F5.2,2X,F6.2,1X,
     +  F6.2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table2')
      write(6,*) '....Loading file: table2'
      do i__=1,473
        read(1,'(A57)')ar__1
        read(ar__1,2)
     +  Cluster_1(i__),Star(i__),Kmag_1(i__),J_K_1(i__),H_K_1(i__),
     +  V_K_1(i__),B_V_1(i__),Xpos(i__),Ypos(i__)
        if(ar__1(20:24) .EQ. '') J_K_1(i__) = rNULL__
        if(ar__1(26:30) .EQ. '') H_K_1(i__) = rNULL__
        if(ar__1(33:36) .EQ. '') V_K_1(i__) = rNULL__
        if(ar__1(38:42) .EQ. '') B_V_1(i__) = rNULL__
c    ..............Just test output...........
        write(6,2)
     +  Cluster_1(i__),Star(i__),Kmag_1(i__),J_K_1(i__),H_K_1(i__),
     +  V_K_1(i__),B_V_1(i__),Xpos(i__),Ypos(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table3'	! Cross-identifications and comparisons with
*                                 the literature

C  Format for file interpretation

    3 format(
     +  A7,1X,A2,I2,3X,A3,1X,F5.2,1X,F4.2,1X,F4.2,1X,I2,2X,F5.2,2X,
     +  F4.2,2X,F4.2,1X,I3,1X,F5.2,1X,F4.2,1X,F4.2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table3')
      write(6,*) '....Loading file: table3'
      do i__=1,39
        read(1,'(A76)')ar__2
        read(ar__2,3)
     +  Cluster_2(i__),r_Star(i__),Star_1(i__),MAsource(i__),
     +  MAKmag(i__),MAJ_K(i__),MAH_K(i__),FMB(i__),FMBKmag(i__),
     +  FMBJ_K(i__),FMBH_K(i__),TP(i__),TPKmag(i__),TPJ_K(i__),
     +  TPH_K(i__)
        if(ar__2(11:12) .EQ. '') Star_1(i__) = iNULL__
        if(ar__2(20:24) .EQ. '') MAKmag(i__) = rNULL__
        if(ar__2(26:29) .EQ. '') MAJ_K(i__) = rNULL__
        if(ar__2(31:34) .EQ. '') MAH_K(i__) = rNULL__
        if(ar__2(36:37) .EQ. '') FMB(i__) = iNULL__
        if(ar__2(40:44) .EQ. '') FMBKmag(i__) = rNULL__
        if(ar__2(47:50) .EQ. '') FMBJ_K(i__) = rNULL__
        if(ar__2(53:56) .EQ. '') FMBH_K(i__) = rNULL__
        if(ar__2(73:76) .EQ. '') TPH_K(i__) = rNULL__
c    ..............Just test output...........
        write(6,3)
     +  Cluster_2(i__),r_Star(i__),Star_1(i__),MAsource(i__),
     +  MAKmag(i__),MAJ_K(i__),MAH_K(i__),FMB(i__),FMBKmag(i__),
     +  FMBJ_K(i__),FMBH_K(i__),TP(i__),TPKmag(i__),TPJ_K(i__),
     +  TPH_K(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table4'	! Observed and normalized numbers of AGB and RGB
*                                 stars

C  Format for file interpretation

    4 format(
     +  A7,3X,I2,3X,I2,3X,F5.2,2X,F5.2,2X,F4.2,2X,F4.2,2X,F4.2,2X,I2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table4')
      write(6,*) '....Loading file: table4'
      do i__=1,12
        read(1,'(A54)')ar__3
        read(ar__3,4)
     +  Cluster_3(i__),AGB(i__),RGB(i__),BolMag(i__),Lum(i__),N4(i__),
     +  N__AGB(i__),N__RGB(i__),s_1(i__)
c    ..............Just test output...........
        write(6,4)
     +  Cluster_3(i__),AGB(i__),RGB(i__),BolMag(i__),Lum(i__),N4(i__),
     +  N__AGB(i__),N__RGB(i__),s_1(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table5'	! AGB and RGB contributions to the luminosity of
*                                 the cluster

C  Format for file interpretation

    5 format(A7,4X,F4.2,5X,F4.2,6X,F5.2,3X,F4.2,5X,I2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table5')
      write(6,*) '....Loading file: table5'
      do i__=1,12
        read(1,'(A49)')ar__4
        read(ar__4,5)
     +  Cluster_4(i__),LumK_AGB(i__),LumK_RGB(i__),BolMag_1(i__),
     +  Bol_RGB(i__),s_2(i__)
        if(ar__4(12:15) .EQ. '') LumK_AGB(i__) = rNULL__
        if(ar__4(21:24) .EQ. '') LumK_RGB(i__) = rNULL__
c    ..............Just test output...........
        write(6,5)
     +  Cluster_4(i__),LumK_AGB(i__),LumK_RGB(i__),BolMag_1(i__),
     +  Bol_RGB(i__),s_2(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table6'	! Theoretical quantities

C  Format for file interpretation

    6 format(A5,1X,F5.3,3X,F4.2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table6')
      write(6,*) '....Loading file: table6'
      do i__=1,26
        read(1,'(A19)')ar__5
        read(ar__5,6)Ref(i__),log_Age(i__),Bol_RGB_1(i__)
        if(ar__5(15:18) .EQ. '') Bol_RGB_1(i__) = rNULL__
c    ..............Just test output...........
        write(6,6)Ref(i__),log_Age(i__),Bol_RGB_1(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table7'	! Comparisons between observed and computed
*                                 integrated colours and magnitudes

C  Format for file interpretation

    7 format(A7,4X,I2,4X,F5.2,3X,F4.2,2X,F5.2,2X,F4.2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table7')
      write(6,*) '....Loading file: table7'
      do i__=1,12
        read(1,'(A42)')ar__6
        read(ar__6,7)
     +  Cluster_5(i__),Aperture_1(i__),Kmag1(i__),J_K1(i__),
     +  Kmag2(i__),J_K2(i__)
        if(ar__6(12:13) .EQ. '') Aperture_1(i__) = iNULL__
        if(ar__6(18:22) .EQ. '') Kmag1(i__) = rNULL__
        if(ar__6(26:29) .EQ. '') J_K1(i__) = rNULL__
c    ..............Just test output...........
        write(6,7)
     +  Cluster_5(i__),Aperture_1(i__),Kmag1(i__),J_K1(i__),
     +  Kmag2(i__),J_K2(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table8'	! AGB and RGB contributions to the integrated
*                                 colours

C  Format for file interpretation

    8 format(
     +  A7,1X,F4.2,2X,F4.2,2X,F4.2,3X,F4.2,4X,F4.2,3X,F5.2,3X,F4.2,2X,
     +  F4.2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table8')
      write(6,*) '....Loading file: table8'
      do i__=1,12
        read(1,'(A66)')ar__7
        read(ar__7,8)
     +  Cluster_6(i__),J_K_2(i__),J_K_AGB(i__),J_K_RGB(i__),
     +  V_K_2(i__),V_K_AGB(i__),V_K_RGB(i__),B_V_2(i__),B_V_(i__)
        if(ar__7(28:31) .EQ. '') V_K_2(i__) = rNULL__
        if(ar__7(36:39) .EQ. '') V_K_AGB(i__) = rNULL__
        if(ar__7(43:47) .EQ. '') V_K_RGB(i__) = rNULL__
        if(ar__7(51:54) .EQ. '') B_V_2(i__) = rNULL__
        if(ar__7(57:60) .EQ. '') B_V_(i__) = rNULL__
c    ..............Just test output...........
        write(6,8)
     +  Cluster_6(i__),J_K_2(i__),J_K_AGB(i__),J_K_RGB(i__),
     +  V_K_2(i__),V_K_AGB(i__),V_K_RGB(i__),B_V_2(i__),B_V_(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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