Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/110/1186 into FORTRAN code for reading data files line by line.
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-20
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 ! Star name from Sandage et al.
* (1977AJ.....82..389S)
character*3 Type ! Type of star (1)
real*4 BmagSKJ ! (mag) SKJ B magnitude (2)
real*4 Bmag ! (mag) Mean B magnitude derived by authors
real*4 e_Bmag ! (mag) Std dev in B for all nights
integer*4 o_Bmag ! Number of B frames star measured on
integer*4 n_Bmag ! Number of nights B measurements made
real*4 VmagSKJ ! (mag) SKJ V magnitude
real*4 Vmag ! (mag) Mean V magnitude derived by authors
real*4 e_Vmag ! (mag) Std dev in V for all nights
integer*4 o_Vmag ! Number of V frames star measured on
integer*4 n_Vmag ! Number of nights V measurements made
real*4 B_V_SKJ ! (mag) SKJ B-V color
real*4 B_V ! (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 ! Star number from Nemec and Cohen catalog
* (1989ApJ...336..780N)
character*1 f_Star ! [v] Indicates photometric variability
real*4 Vmag_1 ! (mag) Derived mean V magnitude
real*4 e_Vmag_1 ! (mag) Std dev in V magnitude
integer*4 o_Vmag_1 ! Number of V frames star measured on
integer*4 n_Vmag_1 ! Number of nights V measurements made
real*4 Bmag_1 ! (mag) Derived mean B magnitude
real*4 e_Bmag_1 ! (mag) Std dev in Bmag
integer*4 o_Bmag_1 ! Number of B frames star measured on
integer*4 n_Bmag_1 ! Number of nights B measurements made
real*4 B_V_1 ! (mag) B-V color
real*4 e_B_V ! (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 ! Star number
real*4 Vmag_2 ! (mag) Derived mean V magnitude
real*4 B_V_2 ! (mag) B-V color
character*1 u_B_V ! B-V uncertainty flag
character*9 Behave ! Photometric behavior, e.g. "constant"
character*6 Confid ! 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 ! Night number
real*8 HJD_2440000 ! (d) HJD (epoch 2440000) of observation
real*8 Vmag_3 ! (mag) ? V magnitude
real*4 e_Vmag_2 ! (mag) ? V magnitude error
real*8 Bmag_2 ! (mag) ? B magnitude
real*4 e_Bmag_2 ! (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 ! Night number
real*8 HJD_2440000_1 ! (d) HJD (epoch 2440000) of observation
real*8 Vmag_4 ! (mag) ? V magnitude
real*4 e_Vmag_3 ! (mag) ? V magnitude error
real*8 Bmag_3 ! (mag) ? B magnitude
real*4 e_Bmag_3 ! (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 ! Night number
real*8 HJD_2440000_2 ! (d) HJD (epoch 2440000) of observation
real*8 Vmag_5 ! (mag) ? V magnitude
real*4 e_Vmag_4 ! (mag) ? V magnitude error
real*8 Bmag_4 ! (mag) ? B magnitude
real*4 e_Bmag_4 ! (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 ! Night number
real*8 HJD_2440000_3 ! (d) HJD (epoch 2440000) of observation
real*8 Vmag_6 ! (mag) ? V magnitude
real*4 e_Vmag_5 ! (mag) ? V magnitude error
real*8 Bmag_5 ! (mag) ? B magnitude
real*4 e_Bmag_5 ! (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 ! Night number
real*8 HJD_2440000_4 ! (d) HJD (epoch 2440000) of observation
real*8 Vmag_7 ! (mag) ? V magnitude
real*4 e_Vmag_6 ! (mag) ? V magnitude error
real*8 Bmag_6 ! (mag) ? B magnitude
real*4 e_Bmag_6 ! (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 ! Night number
real*8 HJD_2440000_5 ! (d) HJD (epoch 2440000) of observation
real*8 Vmag_8 ! (mag) ? V magnitude
real*4 e_Vmag_7 ! (mag) ? V magnitude error
real*8 Bmag_7 ! (mag) ? B magnitude
real*4 e_Bmag_7 ! (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 ! Night number
real*8 HJD_2440000_6 ! (d) HJD (epoch 2440000) of observation
real*8 Vmag_9 ! (mag) ? V magnitude
real*4 e_Vmag_8 ! (mag) ? V magnitude error
real*8 Bmag_8 ! (mag) ? B magnitude
real*4 e_Bmag_8 ! (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 ! Night number
real*8 HJD_2440000_7 ! (d) HJD (epoch 2440000) of observation
real*8 Vmag_10 ! (mag) ? V magnitude
real*4 e_Vmag_9 ! (mag) ? V magnitude error
real*8 Bmag_9 ! (mag) ? B magnitude
real*4 e_Bmag_9 ! (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 ! Night number
real*8 HJD_2440000_8 ! (d) HJD (epoch 2440000) of observation
real*8 Vmag_11 ! (mag) ? V magnitude
real*4 e_Vmag_10 ! (mag) ? V magnitude error
real*8 Bmag_10 ! (mag) ? B magnitude
real*4 e_Bmag_10 ! (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 ! Night number
real*8 HJD_2440000_9 ! (d) HJD (epoch 2440000) of observation
real*8 Vmag_12 ! (mag) ? V magnitude
real*4 e_Vmag_11 ! (mag) ? V magnitude error
real*8 Bmag_11 ! (mag) ? B magnitude
real*4 e_Bmag_11 ! (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 ! Night number
real*8 HJD_2440000_10 ! (d) HJD (epoch 2440000) of observation
real*8 Vmag_13 ! (mag) ? V magnitude
real*4 e_Vmag_12 ! (mag) ? V magnitude error
real*8 Bmag_12 ! (mag) ? B magnitude
real*4 e_Bmag_12 ! (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 ! Property of SX Phe star
character*10 NC7 ! Value of property for NC7
character*10 NC11 ! Value of property for NC11
character*10 NC13 ! Value of property for NC13
character*10 NC14 ! Value of property for NC14
character*10 NC15 ! 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 ! [BVK] Passband (1)
character*13 Type_1 ! Type of variable star
character*1 Mode ! [FH] Pulsation mode (2)
integer*4 Num ! Number of stars
real*4 Int ! Intercept
real*4 Slope ! []? Slope
real*4 e_Slope ! []? 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,Type,BmagSKJ,Bmag,e_Bmag,o_Bmag,n_Bmag,VmagSKJ,Vmag,
+ e_Vmag,o_Vmag,n_Vmag,B_V_SKJ,B_V
c ..............Just test output...........
write(6,1)
+ Star,Type,BmagSKJ,Bmag,e_Bmag,o_Bmag,n_Bmag,VmagSKJ,Vmag,
+ e_Vmag,o_Vmag,n_Vmag,B_V_SKJ,B_V
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,f_Star,Vmag_1,e_Vmag_1,o_Vmag_1,n_Vmag_1,Bmag_1,
+ e_Bmag_1,o_Bmag_1,n_Bmag_1,B_V_1,e_B_V
c ..............Just test output...........
write(6,2)
+ Star_1,f_Star,Vmag_1,e_Vmag_1,o_Vmag_1,n_Vmag_1,Bmag_1,
+ e_Bmag_1,o_Bmag_1,n_Bmag_1,B_V_1,e_B_V
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,Vmag_2,B_V_2,u_B_V,Behave,Confid
c ..............Just test output...........
write(6,3)Star_2,Vmag_2,B_V_2,u_B_V,Behave,Confid
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,HJD_2440000,Vmag_3,e_Vmag_2,Bmag_2,e_Bmag_2
if(ar__3(15:21) .EQ. '') Vmag_3 = rNULL__
if(ar__3(23:28) .EQ. '') e_Vmag_2 = rNULL__
if(ar__3(30:36) .EQ. '') Bmag_2 = rNULL__
if(ar__3(38:43) .EQ. '') e_Bmag_2 = rNULL__
c ..............Just test output...........
write(6,4)Night,HJD_2440000,Vmag_3,e_Vmag_2,Bmag_2,e_Bmag_2
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,HJD_2440000_1,Vmag_4,e_Vmag_3,Bmag_3,e_Bmag_3
if(ar__4(15:21) .EQ. '') Vmag_4 = rNULL__
if(ar__4(23:28) .EQ. '') e_Vmag_3 = rNULL__
if(ar__4(30:36) .EQ. '') Bmag_3 = rNULL__
if(ar__4(38:43) .EQ. '') e_Bmag_3 = rNULL__
c ..............Just test output...........
write(6,5)
+ Night_1,HJD_2440000_1,Vmag_4,e_Vmag_3,Bmag_3,e_Bmag_3
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,HJD_2440000_2,Vmag_5,e_Vmag_4,Bmag_4,e_Bmag_4
if(ar__5(15:21) .EQ. '') Vmag_5 = rNULL__
if(ar__5(23:28) .EQ. '') e_Vmag_4 = rNULL__
if(ar__5(30:36) .EQ. '') Bmag_4 = rNULL__
if(ar__5(38:43) .EQ. '') e_Bmag_4 = rNULL__
c ..............Just test output...........
write(6,6)
+ Night_2,HJD_2440000_2,Vmag_5,e_Vmag_4,Bmag_4,e_Bmag_4
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,HJD_2440000_3,Vmag_6,e_Vmag_5,Bmag_5,e_Bmag_5
if(ar__6(15:21) .EQ. '') Vmag_6 = rNULL__
if(ar__6(23:28) .EQ. '') e_Vmag_5 = rNULL__
if(ar__6(30:36) .EQ. '') Bmag_5 = rNULL__
if(ar__6(38:43) .EQ. '') e_Bmag_5 = rNULL__
c ..............Just test output...........
write(6,7)
+ Night_3,HJD_2440000_3,Vmag_6,e_Vmag_5,Bmag_5,e_Bmag_5
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,HJD_2440000_4,Vmag_7,e_Vmag_6,Bmag_6,e_Bmag_6
if(ar__7(15:21) .EQ. '') Vmag_7 = rNULL__
if(ar__7(23:28) .EQ. '') e_Vmag_6 = rNULL__
if(ar__7(30:36) .EQ. '') Bmag_6 = rNULL__
if(ar__7(38:43) .EQ. '') e_Bmag_6 = rNULL__
c ..............Just test output...........
write(6,8)
+ Night_4,HJD_2440000_4,Vmag_7,e_Vmag_6,Bmag_6,e_Bmag_6
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,HJD_2440000_5,Vmag_8,e_Vmag_7,Bmag_7,e_Bmag_7
if(ar__8(15:21) .EQ. '') Vmag_8 = rNULL__
if(ar__8(23:28) .EQ. '') e_Vmag_7 = rNULL__
if(ar__8(30:36) .EQ. '') Bmag_7 = rNULL__
if(ar__8(38:43) .EQ. '') e_Bmag_7 = rNULL__
c ..............Just test output...........
write(6,9)
+ Night_5,HJD_2440000_5,Vmag_8,e_Vmag_7,Bmag_7,e_Bmag_7
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,HJD_2440000_6,Vmag_9,e_Vmag_8,Bmag_8,e_Bmag_8
if(ar__9(15:21) .EQ. '') Vmag_9 = rNULL__
if(ar__9(23:28) .EQ. '') e_Vmag_8 = rNULL__
if(ar__9(30:36) .EQ. '') Bmag_8 = rNULL__
if(ar__9(38:43) .EQ. '') e_Bmag_8 = rNULL__
c ..............Just test output...........
write(6,10)
+ Night_6,HJD_2440000_6,Vmag_9,e_Vmag_8,Bmag_8,e_Bmag_8
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,HJD_2440000_7,Vmag_10,e_Vmag_9,Bmag_9,e_Bmag_9
if(ar__10(15:21) .EQ. '') Vmag_10 = rNULL__
if(ar__10(23:28) .EQ. '') e_Vmag_9 = rNULL__
if(ar__10(30:36) .EQ. '') Bmag_9 = rNULL__
if(ar__10(38:43) .EQ. '') e_Bmag_9 = rNULL__
c ..............Just test output...........
write(6,11)
+ Night_7,HJD_2440000_7,Vmag_10,e_Vmag_9,Bmag_9,e_Bmag_9
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,HJD_2440000_8,Vmag_11,e_Vmag_10,Bmag_10,e_Bmag_10
if(ar__11(15:21) .EQ. '') Vmag_11 = rNULL__
if(ar__11(23:28) .EQ. '') e_Vmag_10 = rNULL__
if(ar__11(30:36) .EQ. '') Bmag_10 = rNULL__
if(ar__11(38:43) .EQ. '') e_Bmag_10 = rNULL__
c ..............Just test output...........
write(6,12)
+ Night_8,HJD_2440000_8,Vmag_11,e_Vmag_10,Bmag_10,e_Bmag_10
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,HJD_2440000_9,Vmag_12,e_Vmag_11,Bmag_11,e_Bmag_11
if(ar__12(15:21) .EQ. '') Vmag_12 = rNULL__
if(ar__12(23:28) .EQ. '') e_Vmag_11 = rNULL__
if(ar__12(30:36) .EQ. '') Bmag_11 = rNULL__
if(ar__12(38:43) .EQ. '') e_Bmag_11 = rNULL__
c ..............Just test output...........
write(6,13)
+ Night_9,HJD_2440000_9,Vmag_12,e_Vmag_11,Bmag_11,e_Bmag_11
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,HJD_2440000_10,Vmag_13,e_Vmag_12,Bmag_12,e_Bmag_12
if(ar__13(15:21) .EQ. '') Vmag_13 = rNULL__
if(ar__13(23:28) .EQ. '') e_Vmag_12 = rNULL__
if(ar__13(30:36) .EQ. '') Bmag_12 = rNULL__
if(ar__13(38:43) .EQ. '') e_Bmag_12 = rNULL__
c ..............Just test output...........
write(6,14)
+ Night_10,HJD_2440000_10,Vmag_13,e_Vmag_12,Bmag_12,e_Bmag_12
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,NC7,NC11,NC13,NC14,NC15
c ..............Just test output...........
write(6,15)Property,NC7,NC11,NC13,NC14,NC15
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,Type_1,Mode,Num,Int,Slope,e_Slope
if(ar__15(33:38) .EQ. '') Slope = rNULL__
if(ar__15(40:43) .EQ. '') e_Slope = rNULL__
c ..............Just test output...........
write(6,16)Band,Type_1,Mode,Num,Int,Slope,e_Slope
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end