Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/110/1186 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-Apr-19
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/1186 SX Phe stars in NGC 5053 (Nemec+ 1995)
*================================================================================
*SX Phoenecis stars in the extremely metal-poor globular cluster NGC 5053
* Nemec J.M., Mateo M., Burke M., Olszewski E.W.
* <Astron. J. 110, 1186 (1995)>
* =1995AJ....110.1186N
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Photometry of the SKJ standard stars
integer*4 nr__
parameter (nr__=69) ! Number of records
character*69 ar__ ! Full-size record
character*3 Star (nr__) ! Star name from Sandage et al.
* (1977AJ.....82..389S)
character*3 Type (nr__) ! Type of star (1)
real*4 BmagSKJ (nr__) ! (mag) SKJ B magnitude (2)
real*4 Bmag (nr__) ! (mag) Mean B magnitude derived by authors
real*4 e_Bmag (nr__) ! (mag) Std dev in B for all nights
integer*4 o_Bmag (nr__) ! Number of B frames star measured on
integer*4 n_Bmag (nr__) ! Number of nights B measurements made
real*4 VmagSKJ (nr__) ! (mag) SKJ V magnitude
real*4 Vmag (nr__) ! (mag) Mean V magnitude derived by authors
real*4 e_Vmag (nr__) ! (mag) Std dev in V for all nights
integer*4 o_Vmag (nr__) ! Number of V frames star measured on
integer*4 n_Vmag (nr__) ! Number of nights V measurements made
real*4 B_V_SKJ (nr__) ! (mag) SKJ B-V color
real*4 B_V (nr__) ! (mag) Mean B-V color
*Note (1): Type: rgb = red giant branch; bhb = blue horizontal branch;
* rhb = red horizontal branch; agb = asymptotic giant branch.
*Note (2): SKJ = Sandage, Katem & Johnson (1977AJ.....82..389S)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! Mean B,V photometry of the blue stragglers
integer*4 nr__1
parameter (nr__1=26) ! Number of records
character*52 ar__1 ! Full-size record
integer*4 Star_1 (nr__1) ! Star number from Nemec and Cohen catalog
* (1989ApJ...336..780N)
character*1 f_Star (nr__1) ! [v] Indicates photometric variability
real*4 Vmag_1 (nr__1) ! (mag) Derived mean V magnitude
real*4 e_Vmag_1 (nr__1) ! (mag) Std dev in V magnitude
integer*4 o_Vmag_1 (nr__1) ! Number of V frames star measured on
integer*4 n_Vmag_1 (nr__1) ! Number of nights V measurements made
real*4 Bmag_1 (nr__1) ! (mag) Derived mean B magnitude
real*4 e_Bmag_1 (nr__1) ! (mag) Std dev in Bmag
integer*4 o_Bmag_1 (nr__1) ! Number of B frames star measured on
integer*4 n_Bmag_1 (nr__1) ! Number of nights B measurements made
real*4 B_V_1 (nr__1) ! (mag) B-V color
real*4 e_B_V (nr__1) ! (mag) B-V error
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! Summary of the blue straggler monitoring
integer*4 nr__2
parameter (nr__2=25) ! Number of records
character*35 ar__2 ! Full-size record
integer*4 Star_2 (nr__2) ! Star number
real*4 Vmag_2 (nr__2) ! (mag) Derived mean V magnitude
real*4 B_V_2 (nr__2) ! (mag) B-V color
character*1 u_B_V (nr__2) ! B-V uncertainty flag
character*9 Behave (nr__2) ! Photometric behavior, e.g. "constant"
character*6 Confid (nr__2) ! Confidence rating, e.g. "high"
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6.dat' ! Photometry of blue straggler 10 in NGC 5053
integer*4 nr__3
parameter (nr__3=72) ! Number of records
character*43 ar__3 ! Full-size record
integer*4 Night (nr__3) ! Night number
real*8 HJD_2440000(nr__3) ! (d) HJD (epoch 2440000) of observation
real*8 Vmag_3 (nr__3) ! (mag) ? V magnitude
real*4 e_Vmag_2 (nr__3) ! (mag) ? V magnitude error
real*8 Bmag_2 (nr__3) ! (mag) ? B magnitude
real*4 e_Bmag_2 (nr__3) ! (mag) ? B error
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table7.dat' ! Photometry of blue straggler 12 in NGC 5053
integer*4 nr__4
parameter (nr__4=33) ! Number of records
character*43 ar__4 ! Full-size record
integer*4 Night_1 (nr__4) ! Night number
real*8 HJD_2440000_1(nr__4) ! (d) HJD (epoch 2440000) of observation
real*8 Vmag_4 (nr__4) ! (mag) ? V magnitude
real*4 e_Vmag_3 (nr__4) ! (mag) ? V magnitude error
real*8 Bmag_3 (nr__4) ! (mag) ? B magnitude
real*4 e_Bmag_3 (nr__4) ! (mag) ? B error
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table8.dat' ! Photometry of blue straggler 19 in NGC 5053
integer*4 nr__5
parameter (nr__5=31) ! Number of records
character*43 ar__5 ! Full-size record
integer*4 Night_2 (nr__5) ! Night number
real*8 HJD_2440000_2(nr__5) ! (d) HJD (epoch 2440000) of observation
real*8 Vmag_5 (nr__5) ! (mag) ? V magnitude
real*4 e_Vmag_4 (nr__5) ! (mag) ? V magnitude error
real*8 Bmag_4 (nr__5) ! (mag) ? B magnitude
real*4 e_Bmag_4 (nr__5) ! (mag) ? B error
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table9.dat' ! Photometry of blue straggler 21 in NGC 5053
integer*4 nr__6
parameter (nr__6=35) ! Number of records
character*43 ar__6 ! Full-size record
integer*4 Night_3 (nr__6) ! Night number
real*8 HJD_2440000_3(nr__6) ! (d) HJD (epoch 2440000) of observation
real*8 Vmag_6 (nr__6) ! (mag) ? V magnitude
real*4 e_Vmag_5 (nr__6) ! (mag) ? V magnitude error
real*8 Bmag_5 (nr__6) ! (mag) ? B magnitude
real*4 e_Bmag_5 (nr__6) ! (mag) ? B error
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table10.dat' ! Photometry of blue straggler 23 in NGC 5053
integer*4 nr__7
parameter (nr__7=21) ! Number of records
character*43 ar__7 ! Full-size record
integer*4 Night_4 (nr__7) ! Night number
real*8 HJD_2440000_4(nr__7) ! (d) HJD (epoch 2440000) of observation
real*8 Vmag_7 (nr__7) ! (mag) ? V magnitude
real*4 e_Vmag_6 (nr__7) ! (mag) ? V magnitude error
real*8 Bmag_6 (nr__7) ! (mag) ? B magnitude
real*4 e_Bmag_6 (nr__7) ! (mag) ? B error
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table11.dat' ! Photometry of blue straggler 25 in NGC 5053
integer*4 nr__8
parameter (nr__8=74) ! Number of records
character*43 ar__8 ! Full-size record
integer*4 Night_5 (nr__8) ! Night number
real*8 HJD_2440000_5(nr__8) ! (d) HJD (epoch 2440000) of observation
real*8 Vmag_8 (nr__8) ! (mag) ? V magnitude
real*4 e_Vmag_7 (nr__8) ! (mag) ? V magnitude error
real*8 Bmag_7 (nr__8) ! (mag) ? B magnitude
real*4 e_Bmag_7 (nr__8) ! (mag) ? B error
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table12.dat' ! *Photometry of blue straggler 7 in NGC 5053
integer*4 nr__9
parameter (nr__9=49) ! Number of records
character*43 ar__9 ! Full-size record
integer*4 Night_6 (nr__9) ! Night number
real*8 HJD_2440000_6(nr__9) ! (d) HJD (epoch 2440000) of observation
real*8 Vmag_9 (nr__9) ! (mag) ? V magnitude
real*4 e_Vmag_8 (nr__9) ! (mag) ? V magnitude error
real*8 Bmag_8 (nr__9) ! (mag) ? B magnitude
real*4 e_Bmag_8 (nr__9) ! (mag) ? B error
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table13.dat' ! Photometry of blue straggler 11 in NGC 5053
integer*4 nr__10
parameter (nr__10=42) ! Number of records
character*43 ar__10 ! Full-size record
integer*4 Night_7 (nr__10) ! Night number
real*8 HJD_2440000_7(nr__10) ! (d) HJD (epoch 2440000) of observation
real*8 Vmag_10 (nr__10) ! (mag) ? V magnitude
real*4 e_Vmag_9 (nr__10) ! (mag) ? V magnitude error
real*8 Bmag_9 (nr__10) ! (mag) ? B magnitude
real*4 e_Bmag_9 (nr__10) ! (mag) ? B error
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table14.dat' ! Photometry of blue straggler 13 in NGC 5053
integer*4 nr__11
parameter (nr__11=209) ! Number of records
character*43 ar__11 ! Full-size record
integer*4 Night_8 (nr__11) ! Night number
real*8 HJD_2440000_8(nr__11) ! (d) HJD (epoch 2440000) of observation
real*8 Vmag_11 (nr__11) ! (mag) ? V magnitude
real*4 e_Vmag_10 (nr__11) ! (mag) ? V magnitude error
real*8 Bmag_10 (nr__11) ! (mag) ? B magnitude
real*4 e_Bmag_10 (nr__11) ! (mag) ? B error
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table15.dat' ! Photometry of blue straggler 14 in NGC 5053
integer*4 nr__12
parameter (nr__12=41) ! Number of records
character*43 ar__12 ! Full-size record
integer*4 Night_9 (nr__12) ! Night number
real*8 HJD_2440000_9(nr__12) ! (d) HJD (epoch 2440000) of observation
real*8 Vmag_12 (nr__12) ! (mag) ? V magnitude
real*4 e_Vmag_11 (nr__12) ! (mag) ? V magnitude error
real*8 Bmag_11 (nr__12) ! (mag) ? B magnitude
real*4 e_Bmag_11 (nr__12) ! (mag) ? B error
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table16.dat' ! Photometry of blue straggler 15 in NGC 5053
integer*4 nr__13
parameter (nr__13=35) ! Number of records
character*43 ar__13 ! Full-size record
integer*4 Night_10 (nr__13) ! Night number
real*8 HJD_2440000_10(nr__13) ! (d) HJD (epoch 2440000) of observation
real*8 Vmag_13 (nr__13) ! (mag) ? V magnitude
real*4 e_Vmag_12 (nr__13) ! (mag) ? V magnitude error
real*8 Bmag_12 (nr__13) ! (mag) ? B magnitude
real*4 e_Bmag_12 (nr__13) ! (mag) ? B error
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table17.dat' ! *Properties of the five SX Phe stars in NGC 5053
integer*4 nr__14
parameter (nr__14=29) ! Number of records
character*74 ar__14 ! Full-size record
character*22 Property (nr__14) ! Property of SX Phe star
character*10 NC7 (nr__14) ! Value of property for NC7
character*10 NC11 (nr__14) ! Value of property for NC11
character*10 NC13 (nr__14) ! Value of property for NC13
character*10 NC14 (nr__14) ! Value of property for NC14
character*10 NC15 (nr__14) ! Value of property for NC15
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table18.dat' ! Derived log (P)-m0 (M15) relations
integer*4 nr__15
parameter (nr__15=18) ! Number of records
character*43 ar__15 ! Full-size record
character*1 Band (nr__15) ! [BVK] Passband (1)
character*13 Type_1 (nr__15) ! Type of variable star
character*1 Mode (nr__15) ! [FH] Pulsation mode (2)
integer*4 Num (nr__15) ! Number of stars
real*4 Int (nr__15) ! Intercept
real*4 Slope (nr__15) ! []? Slope
real*4 e_Slope (nr__15) ! []? Slope standard error
*Note (1): B Passband: r^2^ = 99.71, RMS-error=0.14 (r: regression coefficient)
* V Passband: r^2^ = 99.67, RMS-error=0.14
* K Passband: r^2^ = 99.75, RMS-error=0.07
*Note (2): F = Fundamental; H = First overtone
C=============================================================================
C Loading file 'table3.dat' ! Photometry of the SKJ standard stars
C Format for file interpretation
1 format(
+ A3,2X,A3,1X,F6.2,1X,F6.2,1X,F4.2,1X,I2,1X,I1,1X,F6.2,1X,F6.2,
+ 1X,F4.2,1X,I3,1X,I1,1X,F5.2,1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,69
read(1,'(A69)')ar__
read(ar__,1)
+ Star(i__),Type(i__),BmagSKJ(i__),Bmag(i__),e_Bmag(i__),
+ o_Bmag(i__),n_Bmag(i__),VmagSKJ(i__),Vmag(i__),e_Vmag(i__),
+ o_Vmag(i__),n_Vmag(i__),B_V_SKJ(i__),B_V(i__)
c ..............Just test output...........
write(6,1)
+ Star(i__),Type(i__),BmagSKJ(i__),Bmag(i__),e_Bmag(i__),
+ o_Bmag(i__),n_Bmag(i__),VmagSKJ(i__),Vmag(i__),e_Vmag(i__),
+ o_Vmag(i__),n_Vmag(i__),B_V_SKJ(i__),B_V(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! Mean B,V photometry of the blue stragglers
C Format for file interpretation
2 format(
+ I2,A1,1X,F6.2,1X,F4.2,1X,I3,1X,I2,1X,F6.2,1X,F4.2,1X,I3,1X,I2,
+ 1X,F5.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,26
read(1,'(A52)')ar__1
read(ar__1,2)
+ Star_1(i__),f_Star(i__),Vmag_1(i__),e_Vmag_1(i__),
+ o_Vmag_1(i__),n_Vmag_1(i__),Bmag_1(i__),e_Bmag_1(i__),
+ o_Bmag_1(i__),n_Bmag_1(i__),B_V_1(i__),e_B_V(i__)
c ..............Just test output...........
write(6,2)
+ Star_1(i__),f_Star(i__),Vmag_1(i__),e_Vmag_1(i__),
+ o_Vmag_1(i__),n_Vmag_1(i__),Bmag_1(i__),e_Bmag_1(i__),
+ o_Bmag_1(i__),n_Bmag_1(i__),B_V_1(i__),e_B_V(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table5.dat' ! Summary of the blue straggler monitoring
C Format for file interpretation
3 format(I2,1X,F6.2,1X,F5.2,A1,2X,A9,2X,A6)
C Effective file loading
open(unit=1,status='old',file=
+'table5.dat')
write(6,*) '....Loading file: table5.dat'
do i__=1,25
read(1,'(A35)')ar__2
read(ar__2,3)
+ Star_2(i__),Vmag_2(i__),B_V_2(i__),u_B_V(i__),Behave(i__),
+ Confid(i__)
c ..............Just test output...........
write(6,3)
+ Star_2(i__),Vmag_2(i__),B_V_2(i__),u_B_V(i__),Behave(i__),
+ Confid(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table6.dat' ! Photometry of blue straggler 10 in NGC 5053
C Format for file interpretation
4 format(I2,1X,F10.4,1X,F7.3,1X,F6.3,1X,F7.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'table6.dat')
write(6,*) '....Loading file: table6.dat'
do i__=1,72
read(1,'(A43)')ar__3
read(ar__3,4)
+ Night(i__),HJD_2440000(i__),Vmag_3(i__),e_Vmag_2(i__),
+ Bmag_2(i__),e_Bmag_2(i__)
if(ar__3(15:21) .EQ. '') Vmag_3(i__) = rNULL__
if(ar__3(23:28) .EQ. '') e_Vmag_2(i__) = rNULL__
if(ar__3(30:36) .EQ. '') Bmag_2(i__) = rNULL__
if(ar__3(38:43) .EQ. '') e_Bmag_2(i__) = rNULL__
c ..............Just test output...........
write(6,4)
+ Night(i__),HJD_2440000(i__),Vmag_3(i__),e_Vmag_2(i__),
+ Bmag_2(i__),e_Bmag_2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table7.dat' ! Photometry of blue straggler 12 in NGC 5053
C Format for file interpretation
5 format(I2,1X,F10.4,1X,F7.3,1X,F6.3,1X,F7.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'table7.dat')
write(6,*) '....Loading file: table7.dat'
do i__=1,33
read(1,'(A43)')ar__4
read(ar__4,5)
+ Night_1(i__),HJD_2440000_1(i__),Vmag_4(i__),e_Vmag_3(i__),
+ Bmag_3(i__),e_Bmag_3(i__)
if(ar__4(15:21) .EQ. '') Vmag_4(i__) = rNULL__
if(ar__4(23:28) .EQ. '') e_Vmag_3(i__) = rNULL__
if(ar__4(30:36) .EQ. '') Bmag_3(i__) = rNULL__
if(ar__4(38:43) .EQ. '') e_Bmag_3(i__) = rNULL__
c ..............Just test output...........
write(6,5)
+ Night_1(i__),HJD_2440000_1(i__),Vmag_4(i__),e_Vmag_3(i__),
+ Bmag_3(i__),e_Bmag_3(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table8.dat' ! Photometry of blue straggler 19 in NGC 5053
C Format for file interpretation
6 format(I2,1X,F10.4,1X,F7.3,1X,F6.3,1X,F7.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'table8.dat')
write(6,*) '....Loading file: table8.dat'
do i__=1,31
read(1,'(A43)')ar__5
read(ar__5,6)
+ Night_2(i__),HJD_2440000_2(i__),Vmag_5(i__),e_Vmag_4(i__),
+ Bmag_4(i__),e_Bmag_4(i__)
if(ar__5(15:21) .EQ. '') Vmag_5(i__) = rNULL__
if(ar__5(23:28) .EQ. '') e_Vmag_4(i__) = rNULL__
if(ar__5(30:36) .EQ. '') Bmag_4(i__) = rNULL__
if(ar__5(38:43) .EQ. '') e_Bmag_4(i__) = rNULL__
c ..............Just test output...........
write(6,6)
+ Night_2(i__),HJD_2440000_2(i__),Vmag_5(i__),e_Vmag_4(i__),
+ Bmag_4(i__),e_Bmag_4(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table9.dat' ! Photometry of blue straggler 21 in NGC 5053
C Format for file interpretation
7 format(I2,1X,F10.4,1X,F7.3,1X,F6.3,1X,F7.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'table9.dat')
write(6,*) '....Loading file: table9.dat'
do i__=1,35
read(1,'(A43)')ar__6
read(ar__6,7)
+ Night_3(i__),HJD_2440000_3(i__),Vmag_6(i__),e_Vmag_5(i__),
+ Bmag_5(i__),e_Bmag_5(i__)
if(ar__6(15:21) .EQ. '') Vmag_6(i__) = rNULL__
if(ar__6(23:28) .EQ. '') e_Vmag_5(i__) = rNULL__
if(ar__6(30:36) .EQ. '') Bmag_5(i__) = rNULL__
if(ar__6(38:43) .EQ. '') e_Bmag_5(i__) = rNULL__
c ..............Just test output...........
write(6,7)
+ Night_3(i__),HJD_2440000_3(i__),Vmag_6(i__),e_Vmag_5(i__),
+ Bmag_5(i__),e_Bmag_5(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table10.dat' ! Photometry of blue straggler 23 in NGC 5053
C Format for file interpretation
8 format(I2,1X,F10.4,1X,F7.3,1X,F6.3,1X,F7.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'table10.dat')
write(6,*) '....Loading file: table10.dat'
do i__=1,21
read(1,'(A43)')ar__7
read(ar__7,8)
+ Night_4(i__),HJD_2440000_4(i__),Vmag_7(i__),e_Vmag_6(i__),
+ Bmag_6(i__),e_Bmag_6(i__)
if(ar__7(15:21) .EQ. '') Vmag_7(i__) = rNULL__
if(ar__7(23:28) .EQ. '') e_Vmag_6(i__) = rNULL__
if(ar__7(30:36) .EQ. '') Bmag_6(i__) = rNULL__
if(ar__7(38:43) .EQ. '') e_Bmag_6(i__) = rNULL__
c ..............Just test output...........
write(6,8)
+ Night_4(i__),HJD_2440000_4(i__),Vmag_7(i__),e_Vmag_6(i__),
+ Bmag_6(i__),e_Bmag_6(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table11.dat' ! Photometry of blue straggler 25 in NGC 5053
C Format for file interpretation
9 format(I2,1X,F10.4,1X,F7.3,1X,F6.3,1X,F7.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'table11.dat')
write(6,*) '....Loading file: table11.dat'
do i__=1,74
read(1,'(A43)')ar__8
read(ar__8,9)
+ Night_5(i__),HJD_2440000_5(i__),Vmag_8(i__),e_Vmag_7(i__),
+ Bmag_7(i__),e_Bmag_7(i__)
if(ar__8(15:21) .EQ. '') Vmag_8(i__) = rNULL__
if(ar__8(23:28) .EQ. '') e_Vmag_7(i__) = rNULL__
if(ar__8(30:36) .EQ. '') Bmag_7(i__) = rNULL__
if(ar__8(38:43) .EQ. '') e_Bmag_7(i__) = rNULL__
c ..............Just test output...........
write(6,9)
+ Night_5(i__),HJD_2440000_5(i__),Vmag_8(i__),e_Vmag_7(i__),
+ Bmag_7(i__),e_Bmag_7(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table12.dat' ! *Photometry of blue straggler 7 in NGC 5053
C Format for file interpretation
10 format(I2,1X,F10.4,1X,F7.3,1X,F6.3,1X,F7.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'table12.dat')
write(6,*) '....Loading file: table12.dat'
do i__=1,49
read(1,'(A43)')ar__9
read(ar__9,10)
+ Night_6(i__),HJD_2440000_6(i__),Vmag_9(i__),e_Vmag_8(i__),
+ Bmag_8(i__),e_Bmag_8(i__)
if(ar__9(15:21) .EQ. '') Vmag_9(i__) = rNULL__
if(ar__9(23:28) .EQ. '') e_Vmag_8(i__) = rNULL__
if(ar__9(30:36) .EQ. '') Bmag_8(i__) = rNULL__
if(ar__9(38:43) .EQ. '') e_Bmag_8(i__) = rNULL__
c ..............Just test output...........
write(6,10)
+ Night_6(i__),HJD_2440000_6(i__),Vmag_9(i__),e_Vmag_8(i__),
+ Bmag_8(i__),e_Bmag_8(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table13.dat' ! Photometry of blue straggler 11 in NGC 5053
C Format for file interpretation
11 format(I2,1X,F10.4,1X,F7.3,1X,F6.3,1X,F7.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'table13.dat')
write(6,*) '....Loading file: table13.dat'
do i__=1,42
read(1,'(A43)')ar__10
read(ar__10,11)
+ Night_7(i__),HJD_2440000_7(i__),Vmag_10(i__),e_Vmag_9(i__),
+ Bmag_9(i__),e_Bmag_9(i__)
if(ar__10(15:21) .EQ. '') Vmag_10(i__) = rNULL__
if(ar__10(23:28) .EQ. '') e_Vmag_9(i__) = rNULL__
if(ar__10(30:36) .EQ. '') Bmag_9(i__) = rNULL__
if(ar__10(38:43) .EQ. '') e_Bmag_9(i__) = rNULL__
c ..............Just test output...........
write(6,11)
+ Night_7(i__),HJD_2440000_7(i__),Vmag_10(i__),e_Vmag_9(i__),
+ Bmag_9(i__),e_Bmag_9(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table14.dat' ! Photometry of blue straggler 13 in NGC 5053
C Format for file interpretation
12 format(I2,1X,F10.4,1X,F7.3,1X,F6.3,1X,F7.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'table14.dat')
write(6,*) '....Loading file: table14.dat'
do i__=1,209
read(1,'(A43)')ar__11
read(ar__11,12)
+ Night_8(i__),HJD_2440000_8(i__),Vmag_11(i__),e_Vmag_10(i__),
+ Bmag_10(i__),e_Bmag_10(i__)
if(ar__11(15:21) .EQ. '') Vmag_11(i__) = rNULL__
if(ar__11(23:28) .EQ. '') e_Vmag_10(i__) = rNULL__
if(ar__11(30:36) .EQ. '') Bmag_10(i__) = rNULL__
if(ar__11(38:43) .EQ. '') e_Bmag_10(i__) = rNULL__
c ..............Just test output...........
write(6,12)
+ Night_8(i__),HJD_2440000_8(i__),Vmag_11(i__),e_Vmag_10(i__),
+ Bmag_10(i__),e_Bmag_10(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table15.dat' ! Photometry of blue straggler 14 in NGC 5053
C Format for file interpretation
13 format(I2,1X,F10.4,1X,F7.3,1X,F6.3,1X,F7.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'table15.dat')
write(6,*) '....Loading file: table15.dat'
do i__=1,41
read(1,'(A43)')ar__12
read(ar__12,13)
+ Night_9(i__),HJD_2440000_9(i__),Vmag_12(i__),e_Vmag_11(i__),
+ Bmag_11(i__),e_Bmag_11(i__)
if(ar__12(15:21) .EQ. '') Vmag_12(i__) = rNULL__
if(ar__12(23:28) .EQ. '') e_Vmag_11(i__) = rNULL__
if(ar__12(30:36) .EQ. '') Bmag_11(i__) = rNULL__
if(ar__12(38:43) .EQ. '') e_Bmag_11(i__) = rNULL__
c ..............Just test output...........
write(6,13)
+ Night_9(i__),HJD_2440000_9(i__),Vmag_12(i__),e_Vmag_11(i__),
+ Bmag_11(i__),e_Bmag_11(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table16.dat' ! Photometry of blue straggler 15 in NGC 5053
C Format for file interpretation
14 format(I2,1X,F10.4,1X,F7.3,1X,F6.3,1X,F7.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'table16.dat')
write(6,*) '....Loading file: table16.dat'
do i__=1,35
read(1,'(A43)')ar__13
read(ar__13,14)
+ Night_10(i__),HJD_2440000_10(i__),Vmag_13(i__),e_Vmag_12(i__),
+ Bmag_12(i__),e_Bmag_12(i__)
if(ar__13(15:21) .EQ. '') Vmag_13(i__) = rNULL__
if(ar__13(23:28) .EQ. '') e_Vmag_12(i__) = rNULL__
if(ar__13(30:36) .EQ. '') Bmag_12(i__) = rNULL__
if(ar__13(38:43) .EQ. '') e_Bmag_12(i__) = rNULL__
c ..............Just test output...........
write(6,14)
+ Night_10(i__),HJD_2440000_10(i__),Vmag_13(i__),e_Vmag_12(i__),
+ Bmag_12(i__),e_Bmag_12(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table17.dat' ! *Properties of the five SX Phe stars in NGC 5053
C Format for file interpretation
15 format(A22,2X,A10,A10,A10,A10,A10)
C Effective file loading
open(unit=1,status='old',file=
+'table17.dat')
write(6,*) '....Loading file: table17.dat'
do i__=1,29
read(1,'(A74)')ar__14
read(ar__14,15)
+ Property(i__),NC7(i__),NC11(i__),NC13(i__),NC14(i__),NC15(i__)
c ..............Just test output...........
write(6,15)
+ Property(i__),NC7(i__),NC11(i__),NC13(i__),NC14(i__),NC15(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table18.dat' ! Derived log (P)-m0 (M15) relations
C Format for file interpretation
16 format(A1,2X,A13,2X,A1,1X,I4,1X,F6.2,1X,F6.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table18.dat')
write(6,*) '....Loading file: table18.dat'
do i__=1,18
read(1,'(A43)')ar__15
read(ar__15,16)
+ Band(i__),Type_1(i__),Mode(i__),Num(i__),Int(i__),Slope(i__),
+ e_Slope(i__)
if(ar__15(33:38) .EQ. '') Slope(i__) = rNULL__
if(ar__15(40:43) .EQ. '') e_Slope(i__) = rNULL__
c ..............Just test output...........
write(6,16)
+ Band(i__),Type_1(i__),Mode(i__),Num(i__),Int(i__),Slope(i__),
+ e_Slope(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end