FORTRAN Generation
(/./ftp/cats/J/AJ/110/704)

Conversion of standardized ReadMe file for file /./ftp/cats/J/AJ/110/704 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/AJ/110/704                 RR Lyrae Variables in M15        (Silbermann+ 1995)
*================================================================================
*The RR Lyrae Variable Stars in the Globular Cluster M15
*     Silbermann N.A., Smith Horace A.
*    <Astron. J. 110, 704 (1995)>
*    =1995AJ....110..704S
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'table2'	! MSU V photometry of M15 variables

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

      integer*4     Frame      (nr__) ! 
      real*8        HJD_2448000(nr__) ! (d) Heliocentric Date of Observation - 2448000
      real*4        V1         (nr__) ! (mag) []?=99.99 MSU photometry for star V1
      character*1   u_V1       (nr__) ! Uncertainty flag on V1
      real*4        V2         (nr__) ! (mag) []?=99.99 MSU photometry for star V2
      character*1   u_V2       (nr__) ! Uncertainty flag on V2
      real*4        V3         (nr__) ! (mag) []?=99.99 MSU photometry for star V3
      character*1   u_V3       (nr__) ! Uncertainty flag on V3
      real*4        V4         (nr__) ! (mag) []?=99.99 MSU photometry for star V4
      character*1   u_V4       (nr__) ! Uncertainty flag on V4
      real*4        V5         (nr__) ! (mag) []?=99.99 MSU photometry for star V5
      character*1   u_V5       (nr__) ! Uncertainty flag on V5
      real*4        V6         (nr__) ! (mag) []?=99.99 MSU photometry for star V6
      character*1   u_V6       (nr__) ! Uncertainty flag on V6
      real*4        V7         (nr__) ! (mag) []?=99.99 MSU photometry for star V7
      character*1   u_V7       (nr__) ! Uncertainty flag on V7
      real*4        V8         (nr__) ! (mag) []?=99.99 MSU photometry for star V8
      character*1   u_V8       (nr__) ! Uncertainty flag on V8
      real*4        V9         (nr__) ! (mag) []?=99.99 MSU photometry for star V9
      character*1   u_V9       (nr__) ! Uncertainty flag on V9
      real*4        V10        (nr__) ! (mag) []?=99.99 MSU photometry for star V10
      character*1   u_V10      (nr__) ! Uncertainty flag on V10
      real*4        V11        (nr__) ! (mag) []?=99.99 MSU photometry for star V11
      character*1   u_V11      (nr__) ! Uncertainty flag on V11
      real*4        V13        (nr__) ! (mag) []?=99.99 MSU photometry for star V13
      character*1   u_V13      (nr__) ! Uncertainty flag on V13
      real*4        V14        (nr__) ! (mag) []?=99.99 MSU photometry for star V14
      character*1   u_V14      (nr__) ! Uncertainty flag on V14
      real*4        V15        (nr__) ! (mag) []?=99.99 MSU photometry for star V15
      character*1   u_V15      (nr__) ! Uncertainty flag on V15
      real*4        V17        (nr__) ! (mag) []?=99.99 MSU photometry for star V17
      character*1   u_V17      (nr__) ! Uncertainty flag on V17
      real*4        V18        (nr__) ! (mag) []?=99.99 MSU photometry for star V18
      character*1   u_V18      (nr__) ! Uncertainty flag on V18
      real*4        V19        (nr__) ! (mag) []?=99.99 MSU photometry for star V19
      character*1   u_V19      (nr__) ! Uncertainty flag on V19
      real*4        V20        (nr__) ! (mag) []?=99.99 MSU photometry for star V20
      character*1   u_V20      (nr__) ! Uncertainty flag on V20
      real*4        V22        (nr__) ! (mag) []?=99.99 MSU photometry for star V22
      character*1   u_V22      (nr__) ! Uncertainty flag on V22
      real*4        V23        (nr__) ! (mag) []?=99.99 MSU photometry for star V23
      character*1   u_V23      (nr__) ! Uncertainty flag on V23
      real*4        V24        (nr__) ! (mag) []?=99.99 MSU photometry for star V24
      character*1   u_V24      (nr__) ! Uncertainty flag on V24
      real*4        V25        (nr__) ! (mag) []?=99.99 MSU photometry for star V25
      character*1   u_V25      (nr__) ! Uncertainty flag on V25
      real*4        V29        (nr__) ! (mag) []?=99.99 MSU photometry for star V29
      character*1   u_V29      (nr__) ! Uncertainty flag on V29
      real*4        V30        (nr__) ! (mag) []?=99.99 MSU photometry for star V30
      character*1   u_V30      (nr__) ! Uncertainty flag on V30
      real*4        V31        (nr__) ! (mag) []?=99.99 MSU photometry for star V31
      character*1   u_V31      (nr__) ! Uncertainty flag on V31
      real*4        V32        (nr__) ! (mag) []?=99.99 MSU photometry for star V32
      character*1   u_V32      (nr__) ! Uncertainty flag on V32
      real*4        V35        (nr__) ! (mag) []?=99.99 MSU photometry for star V35
      character*1   u_V35      (nr__) ! Uncertainty flag on V35
      real*4        V38        (nr__) ! (mag) []?=99.99 MSU photometry for star V38
      character*1   u_V38      (nr__) ! Uncertainty flag on V38
      real*4        V39        (nr__) ! (mag) []?=99.99 MSU photometry for star V39
      character*1   u_V39      (nr__) ! Uncertainty flag on V39
      real*4        V40        (nr__) ! (mag) []?=99.99 MSU photometry for star V40
      character*1   u_V40      (nr__) ! Uncertainty flag on V40
      real*4        V42        (nr__) ! (mag) []?=99.99 MSU photometry for star V42
      character*1   u_V42      (nr__) ! Uncertainty flag on V42
      real*4        V44        (nr__) ! (mag) []?=99.99 MSU photometry for star V44
      character*1   u_V44      (nr__) ! Uncertainty flag on V44
      real*4        V49        (nr__) ! (mag) []?=99.99 MSU photometry for star V49
      character*1   u_V49      (nr__) ! Uncertainty flag on V49
      real*4        V50        (nr__) ! (mag) []?=99.99 MSU photometry for star V50
      character*1   u_V50      (nr__) ! Uncertainty flag on V50
      real*4        V51        (nr__) ! (mag) []?=99.99 MSU photometry for star V51
      character*1   u_V51      (nr__) ! Uncertainty flag on V51
      real*4        V52        (nr__) ! (mag) []?=99.99 MSU photometry for star V52
      character*1   u_V52      (nr__) ! Uncertainty flag on V52
      real*4        V53        (nr__) ! (mag) []?=99.99 MSU photometry for star V53
      character*1   u_V53      (nr__) ! Uncertainty flag on V53
      real*4        V54        (nr__) ! (mag) []?=99.99 MSU photometry for star V54
      character*1   u_V54      (nr__) ! Uncertainty flag on V54
      real*4        V65        (nr__) ! (mag) []?=99.99 MSU photometry for star V65
      character*1   u_V65      (nr__) ! Uncertainty flag on V65
      real*4        V66        (nr__) ! (mag) []?=99.99 MSU photometry for star V66
      character*1   u_V66      (nr__) ! Uncertainty flag on V66
      real*4        V67        (nr__) ! (mag) []?=99.99 MSU photometry for star V67
      character*1   u_V67      (nr__) ! Uncertainty flag on V67
      real*4        V74        (nr__) ! (mag) []?=99.99 MSU photometry for star V74
      character*1   u_V74      (nr__) ! Uncertainty flag on V74
      real*4        V97        (nr__) ! (mag) []?=99.99 MSU photometry for star V97
      character*1   u_V97      (nr__) ! Uncertainty flag on V97
      real*4        V99        (nr__) ! (mag) []?=99.99 MSU photometry for star V99
      character*1   u_V99      (nr__) ! Uncertainty flag on V99
      real*4        V113       (nr__) ! (mag) []?=99.99 MSU photometry for star V113
      character*1   u_V113     (nr__) ! Uncertainty flag on V113

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

C  Declarations for 'table3'	! MSU R photometry of M15 variables

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

      integer*4     Frame_1    (nr__1) ! 
      real*8        HJD_2448000_1(nr__1) ! (d) Heliocentric Date of Observation - 2448000
      real*4        V1_1       (nr__1) ! (mag) []?=99.99 MSU photometry for star V1
      character*1   u_V1_1     (nr__1) ! Uncertainty flag on V1
      real*4        V2_1       (nr__1) ! (mag) []?=99.99 MSU photometry for star V2
      character*1   u_V2_1     (nr__1) ! Uncertainty flag on V2
      real*4        V3_1       (nr__1) ! (mag) []?=99.99 MSU photometry for star V3
      character*1   u_V3_1     (nr__1) ! Uncertainty flag on V3
      real*4        V4_1       (nr__1) ! (mag) []?=99.99 MSU photometry for star V4
      character*1   u_V4_1     (nr__1) ! Uncertainty flag on V4
      real*4        V5_1       (nr__1) ! (mag) []?=99.99 MSU photometry for star V5
      character*1   u_V5_1     (nr__1) ! Uncertainty flag on V5
      real*4        V6_1       (nr__1) ! (mag) []?=99.99 MSU photometry for star V6
      character*1   u_V6_1     (nr__1) ! Uncertainty flag on V6
      real*4        V7_1       (nr__1) ! (mag) []?=99.99 MSU photometry for star V7
      character*1   u_V7_1     (nr__1) ! Uncertainty flag on V7
      real*4        V8_1       (nr__1) ! (mag) []?=99.99 MSU photometry for star V8
      character*1   u_V8_1     (nr__1) ! Uncertainty flag on V8
      real*4        V9_1       (nr__1) ! (mag) []?=99.99 MSU photometry for star V9
      character*1   u_V9_1     (nr__1) ! Uncertainty flag on V9
      real*4        V10_1      (nr__1) ! (mag) []?=99.99 MSU photometry for star V10
      character*1   u_V10_1    (nr__1) ! Uncertainty flag on V10
      real*4        V11_1      (nr__1) ! (mag) []?=99.99 MSU photometry for star V11
      character*1   u_V11_1    (nr__1) ! Uncertainty flag on V11
      real*4        V13_1      (nr__1) ! (mag) []?=99.99 MSU photometry for star V13
      character*1   u_V13_1    (nr__1) ! Uncertainty flag on V13
      real*4        V14_1      (nr__1) ! (mag) []?=99.99 MSU photometry for star V14
      character*1   u_V14_1    (nr__1) ! Uncertainty flag on V14
      real*4        V15_1      (nr__1) ! (mag) []?=99.99 MSU photometry for star V15
      character*1   u_V15_1    (nr__1) ! Uncertainty flag on V15
      real*4        V17_1      (nr__1) ! (mag) []?=99.99 MSU photometry for star V17
      character*1   u_V17_1    (nr__1) ! Uncertainty flag on V17
      real*4        V18_1      (nr__1) ! (mag) []?=99.99 MSU photometry for star V18
      character*1   u_V18_1    (nr__1) ! Uncertainty flag on V18
      real*4        V19_1      (nr__1) ! (mag) []?=99.99 MSU photometry for star V19
      character*1   u_V19_1    (nr__1) ! Uncertainty flag on V19
      real*4        V20_1      (nr__1) ! (mag) []?=99.99 MSU photometry for star V20
      character*1   u_V20_1    (nr__1) ! Uncertainty flag on V20
      real*4        V22_1      (nr__1) ! (mag) []?=99.99 MSU photometry for star V22
      character*1   u_V22_1    (nr__1) ! Uncertainty flag on V22
      real*4        V23_1      (nr__1) ! (mag) []?=99.99 MSU photometry for star V23
      character*1   u_V23_1    (nr__1) ! Uncertainty flag on V23
      real*4        V24_1      (nr__1) ! (mag) []?=99.99 MSU photometry for star V24
      character*1   u_V24_1    (nr__1) ! Uncertainty flag on V24
      real*4        V25_1      (nr__1) ! (mag) []?=99.99 MSU photometry for star V25
      character*1   u_V25_1    (nr__1) ! Uncertainty flag on V25
      real*4        V29_1      (nr__1) ! (mag) []?=99.99 MSU photometry for star V29
      character*1   u_V29_1    (nr__1) ! Uncertainty flag on V29
      real*4        V30_1      (nr__1) ! (mag) []?=99.99 MSU photometry for star V30
      character*1   u_V30_1    (nr__1) ! Uncertainty flag on V30
      real*4        V31_1      (nr__1) ! (mag) []?=99.99 MSU photometry for star V31
      character*1   u_V31_1    (nr__1) ! Uncertainty flag on V31
      real*4        V32_1      (nr__1) ! (mag) []?=99.99 MSU photometry for star V32
      character*1   u_V32_1    (nr__1) ! Uncertainty flag on V32
      real*4        V35_1      (nr__1) ! (mag) []?=99.99 MSU photometry for star V35
      character*1   u_V35_1    (nr__1) ! Uncertainty flag on V35
      real*4        V38_1      (nr__1) ! (mag) []?=99.99 MSU photometry for star V38
      character*1   u_V38_1    (nr__1) ! Uncertainty flag on V38
      real*4        V39_1      (nr__1) ! (mag) []?=99.99 MSU photometry for star V39
      character*1   u_V39_1    (nr__1) ! Uncertainty flag on V39
      real*4        V40_1      (nr__1) ! (mag) []?=99.99 MSU photometry for star V40
      character*1   u_V40_1    (nr__1) ! Uncertainty flag on V40
      real*4        V42_1      (nr__1) ! (mag) []?=99.99 MSU photometry for star V42
      character*1   u_V42_1    (nr__1) ! Uncertainty flag on V42
      real*4        V44_1      (nr__1) ! (mag) []?=99.99 MSU photometry for star V44
      character*1   u_V44_1    (nr__1) ! Uncertainty flag on V44
      real*4        V49_1      (nr__1) ! (mag) []?=99.99 MSU photometry for star V49
      character*1   u_V49_1    (nr__1) ! Uncertainty flag on V49
      real*4        V50_1      (nr__1) ! (mag) []?=99.99 MSU photometry for star V50
      character*1   u_V50_1    (nr__1) ! Uncertainty flag on V50
      real*4        V51_1      (nr__1) ! (mag) []?=99.99 MSU photometry for star V51
      character*1   u_V51_1    (nr__1) ! Uncertainty flag on V51
      real*4        V52_1      (nr__1) ! (mag) []?=99.99 MSU photometry for star V52
      character*1   u_V52_1    (nr__1) ! Uncertainty flag on V52
      real*4        V53_1      (nr__1) ! (mag) []?=99.99 MSU photometry for star V53
      character*1   u_V53_1    (nr__1) ! Uncertainty flag on V53
      real*4        V54_1      (nr__1) ! (mag) []?=99.99 MSU photometry for star V54
      character*1   u_V54_1    (nr__1) ! Uncertainty flag on V54
      real*4        V65_1      (nr__1) ! (mag) []?=99.99 MSU photometry for star V65
      character*1   u_V65_1    (nr__1) ! Uncertainty flag on V65
      real*4        V66_1      (nr__1) ! (mag) []?=99.99 MSU photometry for star V66
      character*1   u_V66_1    (nr__1) ! Uncertainty flag on V66
      real*4        V67_1      (nr__1) ! (mag) []?=99.99 MSU photometry for star V67
      character*1   u_V67_1    (nr__1) ! Uncertainty flag on V67
      real*4        V74_1      (nr__1) ! (mag) []?=99.99 MSU photometry for star V74
      character*1   u_V74_1    (nr__1) ! Uncertainty flag on V74
      real*4        V97_1      (nr__1) ! (mag) []?=99.99 MSU photometry for star V97
      character*1   u_V97_1    (nr__1) ! Uncertainty flag on V97
      real*4        V99_1      (nr__1) ! (mag) []?=99.99 MSU photometry for star V99
      character*1   u_V99_1    (nr__1) ! Uncertainty flag on V99
      real*4        V113_1     (nr__1) ! (mag) []?=99.99 MSU photometry for star V113
      character*1   u_V113_1   (nr__1) ! Uncertainty flag on V113

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

C  Declarations for 'table4a'	! WIRO south field B photometry of M15 variables

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

      integer*4     Frame_2    (nr__2) ! Frame number
      real*8        HJD_2448000_2(nr__2) ! (d) Heliocentric Date of Observation - 2448000
      real*4        V3_2       (nr__2) ! (mag) []?=99.99 WIRO south field phot. for star V3
      real*4        V4_2       (nr__2) ! (mag) []?=99.99 WIRO south field phot. for star V4
      real*4        V5_2       (nr__2) ! (mag) []?=99.99 WIRO south field phot. for star V5
      real*4        V11_2      (nr__2) ! (mag) []?=99.99 WIRO south field phot. for star V11
      real*4        V12        (nr__2) ! (mag) []?=99.99 WIRO south field phot. for star V12
      real*4        V13_2      (nr__2) ! (mag) []?=99.99 WIRO south field phot. for star V13
      real*4        V14_2      (nr__2) ! (mag) []?=99.99 WIRO south field phot. for star V14
      real*4        V15_2      (nr__2) ! (mag) []?=99.99 WIRO south field phot. for star V15
      real*4        V35_2      (nr__2) ! (mag) []?=99.99 WIRO south field phot. for star V35
      real*4        V38_2      (nr__2) ! (mag) []?=99.99 WIRO south field phot. for star V38
      real*4        V39_2      (nr__2) ! (mag) []?=99.99 WIRO south field phot. for star V39
      real*4        V40_2      (nr__2) ! (mag) []?=99.99 WIRO south field phot. for star V40
      real*4        V42_2      (nr__2) ! (mag) []?=99.99 WIRO south field phot. for star V42
      real*4        V52_2      (nr__2) ! (mag) []?=99.99 WIRO south field phot. for star V52
      real*4        V53_2      (nr__2) ! (mag) []?=99.99 WIRO south field phot. for star V53
      real*4        V66_2      (nr__2) ! (mag) []?=99.99 WIRO south field phot. for star V66
      real*4        V74_2      (nr__2) ! (mag) []?=99.99 WIRO south field phot. for star V74
      real*4        V113_2     (nr__2) ! (mag) []?=99.99 WIRO south field phot. for star V113

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

C  Declarations for 'table4b'	! WIRO south field V photometry of M15 variables

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

      integer*4     Frame_3    (nr__3) ! Frame number
      real*8        HJD_2448000_3(nr__3) ! (d) Heliocentric Date of Observation - 2448000
      real*4        V3_3       (nr__3) ! (mag) []?=99.99 WIRO south field phot. for star V3
      real*4        V4_3       (nr__3) ! (mag) []?=99.99 WIRO south field phot. for star V4
      real*4        V5_3       (nr__3) ! (mag) []?=99.99 WIRO south field phot. for star V5
      real*4        V11_3      (nr__3) ! (mag) []?=99.99 WIRO south field phot. for star V11
      real*4        V12_1      (nr__3) ! (mag) []?=99.99 WIRO south field phot. for star V12
      real*4        V13_3      (nr__3) ! (mag) []?=99.99 WIRO south field phot. for star V13
      real*4        V14_3      (nr__3) ! (mag) []?=99.99 WIRO south field phot. for star V14
      real*4        V15_3      (nr__3) ! (mag) []?=99.99 WIRO south field phot. for star V15
      real*4        V35_3      (nr__3) ! (mag) []?=99.99 WIRO south field phot. for star V35
      real*4        V38_3      (nr__3) ! (mag) []?=99.99 WIRO south field phot. for star V38
      real*4        V39_3      (nr__3) ! (mag) []?=99.99 WIRO south field phot. for star V39
      real*4        V40_3      (nr__3) ! (mag) []?=99.99 WIRO south field phot. for star V40
      real*4        V42_3      (nr__3) ! (mag) []?=99.99 WIRO south field phot. for star V42
      real*4        V52_3      (nr__3) ! (mag) []?=99.99 WIRO south field phot. for star V52
      real*4        V53_3      (nr__3) ! (mag) []?=99.99 WIRO south field phot. for star V53
      real*4        V66_3      (nr__3) ! (mag) []?=99.99 WIRO south field phot. for star V66
      real*4        V74_3      (nr__3) ! (mag) []?=99.99 WIRO south field phot. for star V74
      real*4        V113_3     (nr__3) ! (mag) []?=99.99 WIRO south field phot. for star V113

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

C  Declarations for 'table4c'	! WIRO south field R photometry of M15 variables

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

      integer*4     Frame_4    (nr__4) ! Frame number
      real*8        HJD_2448000_4(nr__4) ! (d) Heliocentric Date of Observation - 2448000
      real*4        V3_4       (nr__4) ! (mag) []?=99.99 WIRO south field phot. for star V3
      real*4        V4_4       (nr__4) ! (mag) []?=99.99 WIRO south field phot. for star V4
      real*4        V5_4       (nr__4) ! (mag) []?=99.99 WIRO south field phot. for star V5
      real*4        V11_4      (nr__4) ! (mag) []?=99.99 WIRO south field phot. for star V11
      real*4        V12_2      (nr__4) ! (mag) []?=99.99 WIRO south field phot. for star V12
      real*4        V13_4      (nr__4) ! (mag) []?=99.99 WIRO south field phot. for star V13
      real*4        V14_4      (nr__4) ! (mag) []?=99.99 WIRO south field phot. for star V14
      real*4        V15_4      (nr__4) ! (mag) []?=99.99 WIRO south field phot. for star V15
      real*4        V35_4      (nr__4) ! (mag) []?=99.99 WIRO south field phot. for star V35
      real*4        V38_4      (nr__4) ! (mag) []?=99.99 WIRO south field phot. for star V38
      real*4        V39_4      (nr__4) ! (mag) []?=99.99 WIRO south field phot. for star V39
      real*4        V40_4      (nr__4) ! (mag) []?=99.99 WIRO south field phot. for star V40
      real*4        V42_4      (nr__4) ! (mag) []?=99.99 WIRO south field phot. for star V42
      real*4        V52_4      (nr__4) ! (mag) []?=99.99 WIRO south field phot. for star V52
      real*4        V53_4      (nr__4) ! (mag) []?=99.99 WIRO south field phot. for star V53
      real*4        V66_4      (nr__4) ! (mag) []?=99.99 WIRO south field phot. for star V66
      real*4        V74_4      (nr__4) ! (mag) []?=99.99 WIRO south field phot. for star V74
      real*4        V113_4     (nr__4) ! (mag) []?=99.99 WIRO south field phot. for star V113

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

C  Declarations for 'table4d'	! WIRO south field I photometry of M15 variables

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

      integer*4     Frame_5    (nr__5) ! Frame number
      real*8        HJD_2448000_5(nr__5) ! (d) Heliocentric Date of Observation - 2448000
      real*4        V3_5       (nr__5) ! (mag) []?=99.99 WIRO south field phot. for star V3
      real*4        V4_5       (nr__5) ! (mag) []?=99.99 WIRO south field phot. for star V4
      real*4        V5_5       (nr__5) ! (mag) []?=99.99 WIRO south field phot. for star V5
      real*4        V11_5      (nr__5) ! (mag) []?=99.99 WIRO south field phot. for star V11
      real*4        V12_3      (nr__5) ! (mag) []?=99.99 WIRO south field phot. for star V12
      real*4        V13_5      (nr__5) ! (mag) []?=99.99 WIRO south field phot. for star V13
      real*4        V14_5      (nr__5) ! (mag) []?=99.99 WIRO south field phot. for star V14
      real*4        V15_5      (nr__5) ! (mag) []?=99.99 WIRO south field phot. for star V15
      real*4        V35_5      (nr__5) ! (mag) []?=99.99 WIRO south field phot. for star V35
      real*4        V38_5      (nr__5) ! (mag) []?=99.99 WIRO south field phot. for star V38
      real*4        V39_5      (nr__5) ! (mag) []?=99.99 WIRO south field phot. for star V39
      real*4        V40_5      (nr__5) ! (mag) []?=99.99 WIRO south field phot. for star V40
      real*4        V42_5      (nr__5) ! (mag) []?=99.99 WIRO south field phot. for star V42
      real*4        V52_5      (nr__5) ! (mag) []?=99.99 WIRO south field phot. for star V52
      real*4        V53_5      (nr__5) ! (mag) []?=99.99 WIRO south field phot. for star V53
      real*4        V66_5      (nr__5) ! (mag) []?=99.99 WIRO south field phot. for star V66
      real*4        V74_5      (nr__5) ! (mag) []?=99.99 WIRO south field phot. for star V74
      real*4        V113_5     (nr__5) ! (mag) []?=99.99 WIRO south field phot. for star V113

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

C  Declarations for 'table5a'	! WIRO NW field B photometry of M15 variables

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

      integer*4     Frame_6    (nr__6) ! CCD Frame number
      real*8        HJD_2448000_6(nr__6) ! (d) Heliocentric Date of Observation - 2448000
      real*4        V1_2       (nr__6) ! (mag) []?=99.99 WIRO NW field phot. for star V1
      real*4        V2_2       (nr__6) ! (mag) []?=99.99 WIRO NW field phot. for star V2
      real*4        V24_2      (nr__6) ! (mag) []?=99.99 WIRO NW field phot. for star V24
      real*4        V30_2      (nr__6) ! (mag) []?=99.99 WIRO NW field phot. for star V30
      real*4        V31_2      (nr__6) ! (mag) []?=99.99 WIRO NW field phot. for star V31
      real*4        V32_2      (nr__6) ! (mag) []?=99.99 WIRO NW field phot. for star V32
      real*4        V67_2      (nr__6) ! (mag) []?=99.99 WIRO NW field phot. for star V67
      real*4        V97_2      (nr__6) ! (mag) []?=99.99 WIRO NW field phot. for star V97

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

C  Declarations for 'table5b'	! WIRO NW field V photometry of M15 variables

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

      integer*4     Frame_7    (nr__7) ! CCD Frame number
      real*8        HJD_2448000_7(nr__7) ! (d) Heliocentric Date of Observation - 2448000
      real*4        V1_3       (nr__7) ! (mag) []?=99.99 WIRO NW field phot. for star V1
      real*4        V2_3       (nr__7) ! (mag) []?=99.99 WIRO NW field phot. for star V2
      real*4        V24_3      (nr__7) ! (mag) []?=99.99 WIRO NW field phot. for star V24
      real*4        V30_3      (nr__7) ! (mag) []?=99.99 WIRO NW field phot. for star V30
      real*4        V31_3      (nr__7) ! (mag) []?=99.99 WIRO NW field phot. for star V31
      real*4        V32_3      (nr__7) ! (mag) []?=99.99 WIRO NW field phot. for star V32
      real*4        V67_3      (nr__7) ! (mag) []?=99.99 WIRO NW field phot. for star V67
      real*4        V97_3      (nr__7) ! (mag) []?=99.99 WIRO NW field phot. for star V97

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

C  Declarations for 'table5c'	! WIRO NW field R photometry of M15 variables

      integer*4 nr__8
      parameter (nr__8=14)	! Number of records
      character*70 ar__8  	! Full-size record

      integer*4     Frame_8    (nr__8) ! CCD Frame number
      real*8        HJD_2448000_8(nr__8) ! (d) Heliocentric Date of Observation - 2448000
      real*4        V1_4       (nr__8) ! (mag) []?=99.99 WIRO NW field phot. for star V1
      real*4        V2_4       (nr__8) ! (mag) []?=99.99 WIRO NW field phot. for star V2
      real*4        V24_4      (nr__8) ! (mag) []?=99.99 WIRO NW field phot. for star V24
      real*4        V30_4      (nr__8) ! (mag) []?=99.99 WIRO NW field phot. for star V30
      real*4        V31_4      (nr__8) ! (mag) []?=99.99 WIRO NW field phot. for star V31
      real*4        V32_4      (nr__8) ! (mag) []?=99.99 WIRO NW field phot. for star V32
      real*4        V67_4      (nr__8) ! (mag) []?=99.99 WIRO NW field phot. for star V67
      real*4        V97_4      (nr__8) ! (mag) []?=99.99 WIRO NW field phot. for star V97

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

C  Declarations for 'table5d'	! WIRO NW field I photometry of M15 variables

      integer*4 nr__9
      parameter (nr__9=14)	! Number of records
      character*70 ar__9  	! Full-size record

      integer*4     Frame_9    (nr__9) ! CCD Frame number
      real*8        HJD_2448000_9(nr__9) ! (d) Heliocentric Date of Observation - 2448000
      real*4        V1_5       (nr__9) ! (mag) []?=99.99 WIRO NW field phot. for star V1
      real*4        V2_5       (nr__9) ! (mag) []?=99.99 WIRO NW field phot. for star V2
      real*4        V24_5      (nr__9) ! (mag) []?=99.99 WIRO NW field phot. for star V24
      real*4        V30_5      (nr__9) ! (mag) []?=99.99 WIRO NW field phot. for star V30
      real*4        V31_5      (nr__9) ! (mag) []?=99.99 WIRO NW field phot. for star V31
      real*4        V32_5      (nr__9) ! (mag) []?=99.99 WIRO NW field phot. for star V32
      real*4        V67_5      (nr__9) ! (mag) []?=99.99 WIRO NW field phot. for star V67
      real*4        V97_5      (nr__9) ! (mag) []?=99.99 WIRO NW field phot. for star V97

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

C  Declarations for 'table6'	! Photometric parameters of M15 variables

      integer*4 nr__10
      parameter (nr__10=46)	! Number of records
      character*80 ar__10 	! Full-size record

      integer*4     Vno        (nr__10) ! [1/113]+ Variable number
      character*3   Type       (nr__10) ! RR Lyr Variable type
      real*8        Per        (nr__10) ! (d) Period
      real*8        Ep_2448000 (nr__10) ! (d) Epoch of maximum, offset JD 2448000
      character*1   u_Ep_2448000(nr__10) ! Uncertainty flag on Ep-2448000
      real*4        v_V_int    (nr__10) ! (mag) ? Intensity averaged V magnitude
      character*2   u__V_int   (nr__10) ! [: ] Uncertainty flag on <V>int (1)
      real*4        v_V_mag    (nr__10) ! (mag) ? Averaged V magnitude
      character*2   u__V_mag   (nr__10) ! [: ] Uncertainty flag on <V>mag (1)
      real*4        v_V_R_int  (nr__10) ! (mag) ? Intensity averaged V-R color
      character*2   u__V_R_int (nr__10) ! [: ] Uncertainty flag on <V-R>int (1)
      real*4        v_V_R_mag  (nr__10) ! (mag) ? Averaged V-R color
      character*2   u__V_R_mag (nr__10) ! [: ] Uncertainty flag on <V-R>mag (1)
      integer*4     Radius     (nr__10) ! (arcsec) Distance from cluster center
      real*4        Av         (nr__10) ! (mag) ? Extinction in V band
      real*4        Ar         (nr__10) ! (mag) ? Extinction in R band
*Note (1): One colon indicates photometric indices which are good, but
*     not of the best quality; two colons (::) indicate photometric indices
*     for variables with poor light curves or curves with large gaps.

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

C  Loading file 'table2'	! MSU V photometry of M15 variables

C  Format for file interpretation

    1 format(
     +  I5,1X,F8.3,2X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,
     +  F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,
     +  A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,
     +  F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,
     +  A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,
     +  F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,
     +  A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,
     +  F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,
     +  A1,1X,F5.2,A1,1X,F5.2,A1)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table2')
      write(6,*) '....Loading file: table2'
      do i__=1,162
        read(1,'(A330)')ar__
        read(ar__,1)
     +  Frame(i__),HJD_2448000(i__),V1(i__),u_V1(i__),V2(i__),
     +  u_V2(i__),V3(i__),u_V3(i__),V4(i__),u_V4(i__),V5(i__),
     +  u_V5(i__),V6(i__),u_V6(i__),V7(i__),u_V7(i__),V8(i__),
     +  u_V8(i__),V9(i__),u_V9(i__),V10(i__),u_V10(i__),V11(i__),
     +  u_V11(i__),V13(i__),u_V13(i__),V14(i__),u_V14(i__),V15(i__),
     +  u_V15(i__),V17(i__),u_V17(i__),V18(i__),u_V18(i__),V19(i__),
     +  u_V19(i__),V20(i__),u_V20(i__),V22(i__),u_V22(i__),V23(i__),
     +  u_V23(i__),V24(i__),u_V24(i__),V25(i__),u_V25(i__),V29(i__),
     +  u_V29(i__),V30(i__),u_V30(i__),V31(i__),u_V31(i__),V32(i__),
     +  u_V32(i__),V35(i__),u_V35(i__),V38(i__),u_V38(i__),V39(i__),
     +  u_V39(i__),V40(i__),u_V40(i__),V42(i__),u_V42(i__),V44(i__),
     +  u_V44(i__),V49(i__),u_V49(i__),V50(i__),u_V50(i__),V51(i__),
     +  u_V51(i__),V52(i__),u_V52(i__),V53(i__),u_V53(i__),V54(i__),
     +  u_V54(i__),V65(i__),u_V65(i__),V66(i__),u_V66(i__),V67(i__),
     +  u_V67(i__),V74(i__),u_V74(i__),V97(i__),u_V97(i__),V99(i__),
     +  u_V99(i__),V113(i__),u_V113(i__)
c    ..............Just test output...........
        write(6,1)
     +  Frame(i__),HJD_2448000(i__),V1(i__),u_V1(i__),V2(i__),
     +  u_V2(i__),V3(i__),u_V3(i__),V4(i__),u_V4(i__),V5(i__),
     +  u_V5(i__),V6(i__),u_V6(i__),V7(i__),u_V7(i__),V8(i__),
     +  u_V8(i__),V9(i__),u_V9(i__),V10(i__),u_V10(i__),V11(i__),
     +  u_V11(i__),V13(i__),u_V13(i__),V14(i__),u_V14(i__),V15(i__),
     +  u_V15(i__),V17(i__),u_V17(i__),V18(i__),u_V18(i__),V19(i__),
     +  u_V19(i__),V20(i__),u_V20(i__),V22(i__),u_V22(i__),V23(i__),
     +  u_V23(i__),V24(i__),u_V24(i__),V25(i__),u_V25(i__),V29(i__),
     +  u_V29(i__),V30(i__),u_V30(i__),V31(i__),u_V31(i__),V32(i__),
     +  u_V32(i__),V35(i__),u_V35(i__),V38(i__),u_V38(i__),V39(i__),
     +  u_V39(i__),V40(i__),u_V40(i__),V42(i__),u_V42(i__),V44(i__),
     +  u_V44(i__),V49(i__),u_V49(i__),V50(i__),u_V50(i__),V51(i__),
     +  u_V51(i__),V52(i__),u_V52(i__),V53(i__),u_V53(i__),V54(i__),
     +  u_V54(i__),V65(i__),u_V65(i__),V66(i__),u_V66(i__),V67(i__),
     +  u_V67(i__),V74(i__),u_V74(i__),V97(i__),u_V97(i__),V99(i__),
     +  u_V99(i__),V113(i__),u_V113(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table3'	! MSU R photometry of M15 variables

C  Format for file interpretation

    2 format(
     +  I5,1X,F8.3,2X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,
     +  F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,
     +  A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,
     +  F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,
     +  A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,
     +  F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,
     +  A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,
     +  F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,
     +  A1,1X,F5.2,A1,1X,F5.2,A1)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table3')
      write(6,*) '....Loading file: table3'
      do i__=1,129
        read(1,'(A330)')ar__1
        read(ar__1,2)
     +  Frame_1(i__),HJD_2448000_1(i__),V1_1(i__),u_V1_1(i__),
     +  V2_1(i__),u_V2_1(i__),V3_1(i__),u_V3_1(i__),V4_1(i__),
     +  u_V4_1(i__),V5_1(i__),u_V5_1(i__),V6_1(i__),u_V6_1(i__),
     +  V7_1(i__),u_V7_1(i__),V8_1(i__),u_V8_1(i__),V9_1(i__),
     +  u_V9_1(i__),V10_1(i__),u_V10_1(i__),V11_1(i__),u_V11_1(i__),
     +  V13_1(i__),u_V13_1(i__),V14_1(i__),u_V14_1(i__),V15_1(i__),
     +  u_V15_1(i__),V17_1(i__),u_V17_1(i__),V18_1(i__),u_V18_1(i__),
     +  V19_1(i__),u_V19_1(i__),V20_1(i__),u_V20_1(i__),V22_1(i__),
     +  u_V22_1(i__),V23_1(i__),u_V23_1(i__),V24_1(i__),u_V24_1(i__),
     +  V25_1(i__),u_V25_1(i__),V29_1(i__),u_V29_1(i__),V30_1(i__),
     +  u_V30_1(i__),V31_1(i__),u_V31_1(i__),V32_1(i__),u_V32_1(i__),
     +  V35_1(i__),u_V35_1(i__),V38_1(i__),u_V38_1(i__),V39_1(i__),
     +  u_V39_1(i__),V40_1(i__),u_V40_1(i__),V42_1(i__),u_V42_1(i__),
     +  V44_1(i__),u_V44_1(i__),V49_1(i__),u_V49_1(i__),V50_1(i__),
     +  u_V50_1(i__),V51_1(i__),u_V51_1(i__),V52_1(i__),u_V52_1(i__),
     +  V53_1(i__),u_V53_1(i__),V54_1(i__),u_V54_1(i__),V65_1(i__),
     +  u_V65_1(i__),V66_1(i__),u_V66_1(i__),V67_1(i__),u_V67_1(i__),
     +  V74_1(i__),u_V74_1(i__),V97_1(i__),u_V97_1(i__),V99_1(i__),
     +  u_V99_1(i__),V113_1(i__),u_V113_1(i__)
c    ..............Just test output...........
        write(6,2)
     +  Frame_1(i__),HJD_2448000_1(i__),V1_1(i__),u_V1_1(i__),
     +  V2_1(i__),u_V2_1(i__),V3_1(i__),u_V3_1(i__),V4_1(i__),
     +  u_V4_1(i__),V5_1(i__),u_V5_1(i__),V6_1(i__),u_V6_1(i__),
     +  V7_1(i__),u_V7_1(i__),V8_1(i__),u_V8_1(i__),V9_1(i__),
     +  u_V9_1(i__),V10_1(i__),u_V10_1(i__),V11_1(i__),u_V11_1(i__),
     +  V13_1(i__),u_V13_1(i__),V14_1(i__),u_V14_1(i__),V15_1(i__),
     +  u_V15_1(i__),V17_1(i__),u_V17_1(i__),V18_1(i__),u_V18_1(i__),
     +  V19_1(i__),u_V19_1(i__),V20_1(i__),u_V20_1(i__),V22_1(i__),
     +  u_V22_1(i__),V23_1(i__),u_V23_1(i__),V24_1(i__),u_V24_1(i__),
     +  V25_1(i__),u_V25_1(i__),V29_1(i__),u_V29_1(i__),V30_1(i__),
     +  u_V30_1(i__),V31_1(i__),u_V31_1(i__),V32_1(i__),u_V32_1(i__),
     +  V35_1(i__),u_V35_1(i__),V38_1(i__),u_V38_1(i__),V39_1(i__),
     +  u_V39_1(i__),V40_1(i__),u_V40_1(i__),V42_1(i__),u_V42_1(i__),
     +  V44_1(i__),u_V44_1(i__),V49_1(i__),u_V49_1(i__),V50_1(i__),
     +  u_V50_1(i__),V51_1(i__),u_V51_1(i__),V52_1(i__),u_V52_1(i__),
     +  V53_1(i__),u_V53_1(i__),V54_1(i__),u_V54_1(i__),V65_1(i__),
     +  u_V65_1(i__),V66_1(i__),u_V66_1(i__),V67_1(i__),u_V67_1(i__),
     +  V74_1(i__),u_V74_1(i__),V97_1(i__),u_V97_1(i__),V99_1(i__),
     +  u_V99_1(i__),V113_1(i__),u_V113_1(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table4a'	! WIRO south field B photometry of M15 variables

C  Format for file interpretation

    3 format(
     +  I5,1X,F8.3,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,
     +  F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,
     +  2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table4a')
      write(6,*) '....Loading file: table4a'
      do i__=1,15
        read(1,'(A140)')ar__2
        read(ar__2,3)
     +  Frame_2(i__),HJD_2448000_2(i__),V3_2(i__),V4_2(i__),V5_2(i__),
     +  V11_2(i__),V12(i__),V13_2(i__),V14_2(i__),V15_2(i__),
     +  V35_2(i__),V38_2(i__),V39_2(i__),V40_2(i__),V42_2(i__),
     +  V52_2(i__),V53_2(i__),V66_2(i__),V74_2(i__),V113_2(i__)
c    ..............Just test output...........
        write(6,3)
     +  Frame_2(i__),HJD_2448000_2(i__),V3_2(i__),V4_2(i__),V5_2(i__),
     +  V11_2(i__),V12(i__),V13_2(i__),V14_2(i__),V15_2(i__),
     +  V35_2(i__),V38_2(i__),V39_2(i__),V40_2(i__),V42_2(i__),
     +  V52_2(i__),V53_2(i__),V66_2(i__),V74_2(i__),V113_2(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table4b'	! WIRO south field V photometry of M15 variables

C  Format for file interpretation

    4 format(
     +  I5,1X,F8.3,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,
     +  F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,
     +  2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table4b')
      write(6,*) '....Loading file: table4b'
      do i__=1,16
        read(1,'(A140)')ar__3
        read(ar__3,4)
     +  Frame_3(i__),HJD_2448000_3(i__),V3_3(i__),V4_3(i__),V5_3(i__),
     +  V11_3(i__),V12_1(i__),V13_3(i__),V14_3(i__),V15_3(i__),
     +  V35_3(i__),V38_3(i__),V39_3(i__),V40_3(i__),V42_3(i__),
     +  V52_3(i__),V53_3(i__),V66_3(i__),V74_3(i__),V113_3(i__)
c    ..............Just test output...........
        write(6,4)
     +  Frame_3(i__),HJD_2448000_3(i__),V3_3(i__),V4_3(i__),V5_3(i__),
     +  V11_3(i__),V12_1(i__),V13_3(i__),V14_3(i__),V15_3(i__),
     +  V35_3(i__),V38_3(i__),V39_3(i__),V40_3(i__),V42_3(i__),
     +  V52_3(i__),V53_3(i__),V66_3(i__),V74_3(i__),V113_3(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table4c'	! WIRO south field R photometry of M15 variables

C  Format for file interpretation

    5 format(
     +  I5,1X,F8.3,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,
     +  F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,
     +  2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table4c')
      write(6,*) '....Loading file: table4c'
      do i__=1,16
        read(1,'(A140)')ar__4
        read(ar__4,5)
     +  Frame_4(i__),HJD_2448000_4(i__),V3_4(i__),V4_4(i__),V5_4(i__),
     +  V11_4(i__),V12_2(i__),V13_4(i__),V14_4(i__),V15_4(i__),
     +  V35_4(i__),V38_4(i__),V39_4(i__),V40_4(i__),V42_4(i__),
     +  V52_4(i__),V53_4(i__),V66_4(i__),V74_4(i__),V113_4(i__)
c    ..............Just test output...........
        write(6,5)
     +  Frame_4(i__),HJD_2448000_4(i__),V3_4(i__),V4_4(i__),V5_4(i__),
     +  V11_4(i__),V12_2(i__),V13_4(i__),V14_4(i__),V15_4(i__),
     +  V35_4(i__),V38_4(i__),V39_4(i__),V40_4(i__),V42_4(i__),
     +  V52_4(i__),V53_4(i__),V66_4(i__),V74_4(i__),V113_4(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table4d'	! WIRO south field I photometry of M15 variables

C  Format for file interpretation

    6 format(
     +  I5,1X,F8.3,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,
     +  F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,
     +  2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table4d')
      write(6,*) '....Loading file: table4d'
      do i__=1,16
        read(1,'(A140)')ar__5
        read(ar__5,6)
     +  Frame_5(i__),HJD_2448000_5(i__),V3_5(i__),V4_5(i__),V5_5(i__),
     +  V11_5(i__),V12_3(i__),V13_5(i__),V14_5(i__),V15_5(i__),
     +  V35_5(i__),V38_5(i__),V39_5(i__),V40_5(i__),V42_5(i__),
     +  V52_5(i__),V53_5(i__),V66_5(i__),V74_5(i__),V113_5(i__)
c    ..............Just test output...........
        write(6,6)
     +  Frame_5(i__),HJD_2448000_5(i__),V3_5(i__),V4_5(i__),V5_5(i__),
     +  V11_5(i__),V12_3(i__),V13_5(i__),V14_5(i__),V15_5(i__),
     +  V35_5(i__),V38_5(i__),V39_5(i__),V40_5(i__),V42_5(i__),
     +  V52_5(i__),V53_5(i__),V66_5(i__),V74_5(i__),V113_5(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table5a'	! WIRO NW field B photometry of M15 variables

C  Format for file interpretation

    7 format(
     +  I5,1X,F8.3,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,
     +  F5.2,2X,F5.2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table5a')
      write(6,*) '....Loading file: table5a'
      do i__=1,14
        read(1,'(A70)')ar__6
        read(ar__6,7)
     +  Frame_6(i__),HJD_2448000_6(i__),V1_2(i__),V2_2(i__),
     +  V24_2(i__),V30_2(i__),V31_2(i__),V32_2(i__),V67_2(i__),
     +  V97_2(i__)
c    ..............Just test output...........
        write(6,7)
     +  Frame_6(i__),HJD_2448000_6(i__),V1_2(i__),V2_2(i__),
     +  V24_2(i__),V30_2(i__),V31_2(i__),V32_2(i__),V67_2(i__),
     +  V97_2(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table5b'	! WIRO NW field V photometry of M15 variables

C  Format for file interpretation

    8 format(
     +  I5,1X,F8.3,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,
     +  F5.2,2X,F5.2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table5b')
      write(6,*) '....Loading file: table5b'
      do i__=1,14
        read(1,'(A70)')ar__7
        read(ar__7,8)
     +  Frame_7(i__),HJD_2448000_7(i__),V1_3(i__),V2_3(i__),
     +  V24_3(i__),V30_3(i__),V31_3(i__),V32_3(i__),V67_3(i__),
     +  V97_3(i__)
c    ..............Just test output...........
        write(6,8)
     +  Frame_7(i__),HJD_2448000_7(i__),V1_3(i__),V2_3(i__),
     +  V24_3(i__),V30_3(i__),V31_3(i__),V32_3(i__),V67_3(i__),
     +  V97_3(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table5c'	! WIRO NW field R photometry of M15 variables

C  Format for file interpretation

    9 format(
     +  I5,1X,F8.3,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,
     +  F5.2,2X,F5.2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table5c')
      write(6,*) '....Loading file: table5c'
      do i__=1,14
        read(1,'(A70)')ar__8
        read(ar__8,9)
     +  Frame_8(i__),HJD_2448000_8(i__),V1_4(i__),V2_4(i__),
     +  V24_4(i__),V30_4(i__),V31_4(i__),V32_4(i__),V67_4(i__),
     +  V97_4(i__)
c    ..............Just test output...........
        write(6,9)
     +  Frame_8(i__),HJD_2448000_8(i__),V1_4(i__),V2_4(i__),
     +  V24_4(i__),V30_4(i__),V31_4(i__),V32_4(i__),V67_4(i__),
     +  V97_4(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table5d'	! WIRO NW field I photometry of M15 variables

C  Format for file interpretation

   10 format(
     +  I5,1X,F8.3,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,
     +  F5.2,2X,F5.2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table5d')
      write(6,*) '....Loading file: table5d'
      do i__=1,14
        read(1,'(A70)')ar__9
        read(ar__9,10)
     +  Frame_9(i__),HJD_2448000_9(i__),V1_5(i__),V2_5(i__),
     +  V24_5(i__),V30_5(i__),V31_5(i__),V32_5(i__),V67_5(i__),
     +  V97_5(i__)
c    ..............Just test output...........
        write(6,10)
     +  Frame_9(i__),HJD_2448000_9(i__),V1_5(i__),V2_5(i__),
     +  V24_5(i__),V30_5(i__),V31_5(i__),V32_5(i__),V67_5(i__),
     +  V97_5(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table6'	! Photometric parameters of M15 variables

C  Format for file interpretation

   11 format(
     +  I3,1X,A3,1X,F8.6,3X,F8.3,A1,2X,F6.3,A2,1X,F6.3,A2,2X,F5.3,A2,
     +  2X,F5.3,A2,1X,I3,2X,F4.2,1X,F4.2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table6')
      write(6,*) '....Loading file: table6'
      do i__=1,46
        read(1,'(A80)')ar__10
        read(ar__10,11)
     +  Vno(i__),Type(i__),Per(i__),Ep_2448000(i__),u_Ep_2448000(i__),
     +  v_V_int(i__),u__V_int(i__),v_V_mag(i__),u__V_mag(i__),
     +  v_V_R_int(i__),u__V_R_int(i__),v_V_R_mag(i__),u__V_R_mag(i__),
     +  Radius(i__),Av(i__),Ar(i__)
        if(ar__10(31:36) .EQ. '') v_V_int(i__) = rNULL__
        if(ar__10(40:45) .EQ. '') v_V_mag(i__) = rNULL__
        if(ar__10(50:54) .EQ. '') v_V_R_int(i__) = rNULL__
        if(ar__10(59:63) .EQ. '') v_V_R_mag(i__) = rNULL__
        if(ar__10(72:75) .EQ. '') Av(i__) = rNULL__
        if(ar__10(77:80) .EQ. '') Ar(i__) = rNULL__
c    ..............Just test output...........
        write(6,11)
     +  Vno(i__),Type(i__),Per(i__),Ep_2448000(i__),u_Ep_2448000(i__),
     +  v_V_int(i__),u__V_int(i__),v_V_mag(i__),u__V_mag(i__),
     +  v_V_R_int(i__),u__V_R_int(i__),v_V_R_mag(i__),u__V_R_mag(i__),
     +  Radius(i__),Av(i__),Ar(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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