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