Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/610/A30 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-17
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/A+A/610/A30 B stars in 4 open clusters (Aidelman+, 2018)
*================================================================================
*Open clusters: III.
*Fundamental parameters of B stars in NGC 6087, NGC 6250, NGC 6383, and NGC 6530.
*B-type stars with circumstellar envelopes.
* Aidelman Y., Cidale L.S., Zorec J., Panei J.A.
* <Astron. Astrophys. 610, A30 (2018)>
* =2018A&A...610A..30A (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Log of observations of low-resolution spectra
integer*4 nr__
parameter (nr__=68) ! Number of records
character*110 ar__ ! Full-size record
C J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs (Epoch=2000)
real*8 RAdeg ! (deg) Right Ascension J2000, Epoch=2000
real*8 DEdeg ! (deg) Declination J2000, Epoch=2000
C ---------------------------------- ! (position vector(s) in degrees)
character*13 Cl ! Open cluster name
integer*4 Star ! ?=0 Star number within the cluster (G1)
character*15 OName ! Other designation
integer*4 RAh ! (h) Right ascension (Eq=J2000 (Ep=2000)
integer*4 RAm ! (min) Right ascension (Eq=J2000 (Ep=2000)
real*4 RAs ! (s) Right ascension (Eq=J2000 (Ep=2000)
character*1 DE_ ! Declination sign (Eq=J2000, Ep=2000)
integer*4 DEd ! (deg) Declination (Eq=J2000, Ep=2000)
integer*4 DEm ! (arcmin) Declination (Eq=J2000, Ep=2000)
real*4 DEs ! (arcsec) Declination (Eq=J2000, Ep=2000)
real*4 AM1 ! Air mass of first observation
real*4 AM2 ! ?=99.99 Air mass of second observation
real*4 AM3 ! ?=99.99 Air mass of third observation
character*10 Date1 ! ("date") Date of first observation
character*10 Date2 ! ("date") Date of second observation
character*10 Date3 ! ("date") Date of third observation
integer*4 N ! Number of observations
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Log of observations of high-resolution spectra
integer*4 nr__1
parameter (nr__1=63) ! Number of records
character*110 ar__1 ! Full-size record
C J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs (Epoch=2000)
real*8 RAdeg_1 ! (deg) Right Ascension J2000, Epoch=2000
real*8 DEdeg_1 ! (deg) Declination J2000, Epoch=2000
C ---------------------------------- ! (position vector(s) in degrees)
character*13 Cl_1 ! Open cluster name
integer*4 Star_1 ! ?=0 Star number within the cluster (G1)
character*15 OName_1 ! Other designation
integer*4 RAh_1 ! (h) Right ascension (Eq=J2000 (Ep=2000)
integer*4 RAm_1 ! (min) Right ascension (Eq=J2000 (Ep=2000)
real*4 RAs_1 ! (s) Right ascension (Eq=J2000 (Ep=2000)
character*1 DE__1 ! Declination sign (Eq=J2000, Ep=2000)
integer*4 DEd_1 ! (deg) Declination (Eq=J2000, Ep=2000)
integer*4 DEm_1 ! (arcmin) Declination (Eq=J2000, Ep=2000)
real*4 DEs_1 ! (arcsec) Declination (Eq=J2000, Ep=2000)
real*4 AM1_1 ! Air mass of first observation
real*4 AM2_1 ! ?=99.99 Air mass of second observation
real*4 AM3_1 ! ?=99.99 Air mass of third observation
character*10 Date1_1 ! ("date") Date of first observation
character*10 Date2_1 ! ("date") Date of second observation
character*10 Date3_1 ! ("date") Date of third observation
integer*4 N_1 ! Number of observations
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table9.dat' ! Stellar fundamental parameters for NGC 6087
integer*4 nr__2
parameter (nr__2=18) ! Number of records
character*120 ar__2 ! Full-size record
integer*4 Star_2 ! ?=0 Star number within the cluster (G1)
character*15 OName_2 ! Other designation
character*2 n_OName ! [dd ] Second Balmer Discontinuity (2)
real*4 D ! Photospheric component of the Balmer
* discontinuity
integer*4 lambda1 ! (0.1nm) ? Mean spectral position of the Balmer
* discontinuity
real*4 Phib ! (um) Observed color gradient
character*8 SpType ! Spectral type
character*13 n_SpType ! Other object types (3)
integer*4 Teff ! (K) Effective Temperature
character*2 n_Teff ! [man: ] Extrapolated values flag for Teff (4)
integer*4 e_Teff ! (K) Error in Effective Temperature
real*4 logg ! ([cm/s2]) Stellar surface gravity
character*2 n_logg ! [man: ] Extrapolated values flag for logg (4)
real*4 e_logg ! ([cm/s2]) Error in logg
real*4 VMAG ! (mag) Absolute Magnitude in V filter
character*2 n_VMAG ! [man: ] Extrapolated values flag for VMAG (4)
real*4 e_VMAG ! (mag) Error in Absolute Magnitude
real*4 Mbol ! (mag) Bolometric Magnitude
character*2 n_Mbol ! [man: ] Extrapolated values flag for Mbol (4)
real*4 e_Mbol ! (mag) Error in Bolometric Magnitude
real*4 Phi0 ! (um) Intrinsic color gradient
character*1 n_Phi0 ! [man: ] Extrapolated values flag fro Phi0 (4)
real*4 e_Phi0 ! (um) Error in Intrinsic color gradient
*Note (2): Flag as follows:
* dd = Star with a Second Balmer Discontinuity
*Note (3): Object types as follows:
* mk = Spectral types derived using the MK-system
* so = Spectral types derived using The Galactic O-Star Spectroscopic
* Survey Sota et al. (2011ApJS..193...24S, Cat. III/274)
* BE = Spectroscopic binary
* BE2 = Double line spectroscopic binary
* BEc = Eclipsing binary
* Be = Known Be star
* BS = Blue straggler star
* CP2 = Chemically peculiar star
* Em = Emission-line star
* Halpha = Star with emission in H{alpha}
* He = Helium star
* IR = Star with infrared excess
* MA = Magnetic Ap star
* p = Chemically peculiar star
* ST = Triple system
* V = Variable star
* VB = Reported as visual binary star
* Vr = Radial velocity variable
* Vv = Probable variable like Vega star
*Note (4): Extrapolated values flags as follows:
* a = Values interpolated from Cox & Pilachowski (2000PhT....53j..77C)
* m = Value calculated in this work, using a relation between Phi^0^_b_
* and (B-V)_0_ given by Moujtahid et al. (1998, Cat. J/A+AS/129/289)
* n = Stellar parameter given by Martins et al. (2005A&A...436.1049M)
*
* The symbol : is used to indicate extrapolated values.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table10.dat' ! Physical parameters and distance for NGC 6087
integer*4 nr__3
parameter (nr__3=18) ! Number of records
character*95 ar__3 ! Full-size record
integer*4 Star_3 ! ?=0 Star number within the cluster (G1)
character*15 OName_3 ! Other designation
character*2 n_OName_1 ! [dd ] Second Balmer Discontinuity (2)
real*4 Vmag_1 ! (mag) Visual magnitude in V filter (3)
real*4 E_B_V ! (mag) ?=99.99 Color excess (4)
real*4 e_E_B_V ! (mag) ?=99.99 Error in color excess
real*4 MOD ! (mag) True distance modulus
real*4 e_MOD ! (mag) Error in true distance modulus
character*3 Member ! Membership to the cluster (5)
real*4 AD ! (arcmin) Angular distance to the cluster center
real*4 Pmemb ! (%) Membership probability
real*4 logL ! ([Lsun]) ? Luminosity
real*4 e_logL ! ([Lsun]) ? Error in luminosity
real*4 Mass ! (Msun) ? Stellar mass
real*4 e_Mass ! (Msun) ? Error in stellar mass
integer*4 Age ! (Ma) ? Age of the star
real*4 e_Age ! (Ma) ? Error in age of the star
*Note (2): Flag as follows:
* dd = Star with a Second Balmer Discontinuity
*Note (3): Vmag values obtained from SIMBAD database
*Note (4): The distances of the stars with negative color gradients were
* determined using the distance modulus assigned to the cluster
*Note (5): Membership to the cluster codes as follows:
* m = Member stars
* pm = Probable member stars
* pnm = Probable non-member stars
* nm = Non-member stars
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table11.dat' ! Stellar fundamental parameters for NGC 6250
integer*4 nr__4
parameter (nr__4=15) ! Number of records
character*120 ar__4 ! Full-size record
integer*4 Star_4 ! ?=0 Star number within the cluster (G1)
character*15 OName_4 ! Other designation
character*2 n_OName_2 ! [dd ] Second Balmer Discontinuity (2)
real*4 D_1 ! Photospheric component of the Balmer
* discontinuity
integer*4 lambda1_1 ! (0.1nm) ? Mean spectral position of the Balmer
* discontinuity
real*4 Phib_1 ! (um) Observed color gradient
character*8 SpType_1 ! Spectral type
character*13 n_SpType_1 ! Other object types (3)
integer*4 Teff_1 ! (K) Effective Temperature
character*2 n_Teff_1 ! [man: ] Extrapolated values flag for Teff (4)
integer*4 e_Teff_1 ! (K) Error in Effective Temperature
real*4 logg_1 ! ([cm/s2]) Stellar surface gravity
character*2 n_logg_1 ! [man: ] Extrapolated values flag for logg (4)
real*4 e_logg_1 ! ([cm/s2]) Error in logg
real*4 VMAG_2 ! (mag) Absolute Magnitude in V filter
character*2 n_VMAG_1 ! [man: ] Extrapolated values flag for VMAG (4)
real*4 e_VMAG_1 ! (mag) Error in Absolute Magnitude
real*4 Mbol_1 ! (mag) Bolometric Magnitude
character*2 n_Mbol_1 ! [man: ] Extrapolated values flag for Mbol (4)
real*4 e_Mbol_1 ! (mag) Error in Bolometric Magnitude
real*4 Phi0_1 ! (um) Intrinsic color gradient
character*1 n_Phi0_1 ! [man: ] Extrapolated values flag fro Phi0 (4)
real*4 e_Phi0_1 ! (um) Error in Intrinsic color gradient
*Note (2): Flag as follows:
* dd = Star with a Second Balmer Discontinuity
*Note (3): Object types as follows:
* mk = Spectral types derived using the MK-system
* so = Spectral types derived using The Galactic O-Star Spectroscopic
* Survey Sota et al. (2011ApJS..193...24S, Cat. III/274)
* BE = Spectroscopic binary
* BE2 = Double line spectroscopic binary
* BEc = Eclipsing binary
* Be = Known Be star
* BS = Blue straggler star
* CP2 = Chemically peculiar star
* Em = Emission-line star
* Halpha = Star with emission in H{alpha}
* He = Helium star
* IR = Star with infrared excess
* MA = Magnetic Ap star
* p = Chemically peculiar star
* ST = Triple system
* V = Variable star
* VB = Reported as visual binary star
* Vr = Radial velocity variable
* Vv = Probable variable like Vega star
*Note (4): Extrapolated values flags as follows:
* a = Values interpolated from Cox & Pilachowski (2000PhT....53j..77C)
* m = Value calculated in this work, using a relation between Phi^0^_b_
* and (B-V)_0_ given by Moujtahid et al. (1998, Cat. J/A+AS/129/289)
* n = Stellar parameter given by Martins et al. (2005A&A...436.1049M)
*
* The symbol : is used to indicate extrapolated values.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table12.dat' ! Physical parameters and distance for NGC 6250
integer*4 nr__5
parameter (nr__5=15) ! Number of records
character*95 ar__5 ! Full-size record
integer*4 Star_5 ! ?=0 Star number within the cluster (G1)
character*15 OName_5 ! Other designation
character*2 n_OName_3 ! [dd ] Second Balmer Discontinuity (2)
real*4 Vmag_3 ! (mag) Visual magnitude in V filter (3)
real*4 E_B_V_1 ! (mag) ?=99.99 Color excess (4)
real*4 e_E_B_V_1 ! (mag) ?=99.99 Error in color excess
real*4 MOD_1 ! (mag) True distance modulus
real*4 e_MOD_1 ! (mag) Error in true distance modulus
character*3 Member_1 ! Membership to the cluster (5)
real*4 AD_1 ! (arcmin) Angular distance to the cluster center
real*4 Pmemb_1 ! (%) Membership probability
real*4 logL_1 ! ([Lsun]) ? Luminosity
real*4 e_logL_1 ! ([Lsun]) ? Error in luminosity
real*4 Mass_1 ! (Msun) ? Stellar mass
real*4 e_Mass_1 ! (Msun) ? Error in stellar mass
integer*4 Age_1 ! (Ma) ? Age of the star
real*4 e_Age_1 ! (Ma) ? Error in age of the star
*Note (2): Flag as follows:
* dd = Star with a Second Balmer Discontinuity
*Note (3): Vmag values obtained from SIMBAD database
*Note (4): The distances of the stars with negative color gradients were
* determined using the distance modulus assigned to the cluster
*Note (5): Membership to the cluster codes as follows:
* m = Member stars
* pm = Probable member stars
* pnm = Probable non-member stars
* nm = Non-member stars
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table13.dat' ! Stellar fundamental parameters for NGC 6383
integer*4 nr__6
parameter (nr__6=12) ! Number of records
character*120 ar__6 ! Full-size record
integer*4 Star_6 ! ?=0 Star number within the cluster (G1)
character*15 OName_6 ! Other designation
character*2 n_OName_4 ! [dd ] Second Balmer Discontinuity (2)
real*4 D_2 ! Photospheric component of the Balmer
* discontinuity
integer*4 lambda1_2 ! (0.1nm) ? Mean spectral position of the Balmer
* discontinuity
real*4 Phib_2 ! (um) Observed color gradient
character*8 SpType_2 ! Spectral type
character*13 n_SpType_2 ! Other object types (3)
integer*4 Teff_2 ! (K) Effective Temperature
character*2 n_Teff_2 ! [man: ] Extrapolated values flag for Teff (4)
integer*4 e_Teff_2 ! (K) Error in Effective Temperature
real*4 logg_2 ! ([cm/s2]) Stellar surface gravity
character*2 n_logg_2 ! [man: ] Extrapolated values flag for logg (4)
real*4 e_logg_2 ! ([cm/s2]) Error in logg
real*4 VMAG_4 ! (mag) Absolute Magnitude in V filter
character*2 n_VMAG_2 ! [man: ] Extrapolated values flag for VMAG (4)
real*4 e_VMAG_2 ! (mag) Error in Absolute Magnitude
real*4 Mbol_2 ! (mag) Bolometric Magnitude
character*2 n_Mbol_2 ! [man: ] Extrapolated values flag for Mbol (4)
real*4 e_Mbol_2 ! (mag) Error in Bolometric Magnitude
real*4 Phi0_2 ! (um) Intrinsic color gradient
character*1 n_Phi0_2 ! [man: ] Extrapolated values flag fro Phi0 (4)
real*4 e_Phi0_2 ! (um) Error in Intrinsic color gradient
*Note (2): Flag as follows:
* dd = Star with a Second Balmer Discontinuity
*Note (3): Object types as follows:
* mk = Spectral types derived using the MK-system
* so = Spectral types derived using The Galactic O-Star Spectroscopic
* Survey Sota et al. (2011ApJS..193...24S, Cat. III/274)
* BE = Spectroscopic binary
* BE2 = Double line spectroscopic binary
* BEc = Eclipsing binary
* Be = Known Be star
* BS = Blue straggler star
* CP2 = Chemically peculiar star
* Em = Emission-line star
* Halpha = Star with emission in H{alpha}
* He = Helium star
* IR = Star with infrared excess
* MA = Magnetic Ap star
* p = Chemically peculiar star
* ST = Triple system
* V = Variable star
* VB = Reported as visual binary star
* Vr = Radial velocity variable
* Vv = Probable variable like Vega star
*Note (4): Extrapolated values flags as follows:
* a = Values interpolated from Cox & Pilachowski (2000PhT....53j..77C)
* m = Value calculated in this work, using a relation between Phi^0^_b_
* and (B-V)_0_ given by Moujtahid et al. (1998, Cat. J/A+AS/129/289)
* n = Stellar parameter given by Martins et al. (2005A&A...436.1049M)
*
* The symbol : is used to indicate extrapolated values.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table14.dat' ! Physical parameters and distance for NGC 6383
integer*4 nr__7
parameter (nr__7=12) ! Number of records
character*95 ar__7 ! Full-size record
integer*4 Star_7 ! ?=0 Star number within the cluster (G1)
character*15 OName_7 ! Other designation
character*2 n_OName_5 ! [dd ] Second Balmer Discontinuity (2)
real*4 Vmag_5 ! (mag) Visual magnitude in V filter (3)
real*4 E_B_V_1 ! (mag) ?=99.99 Color excess (4)
real*4 e_E_B_V_1 ! (mag) ?=99.99 Error in color excess
real*4 MOD_2 ! (mag) True distance modulus
real*4 e_MOD_2 ! (mag) Error in true distance modulus
character*3 Member_2 ! Membership to the cluster (5)
real*4 AD_2 ! (arcmin) Angular distance to the cluster center
real*4 Pmemb_2 ! (%) Membership probability
real*4 logL_2 ! ([Lsun]) ? Luminosity
real*4 e_logL_2 ! ([Lsun]) ? Error in luminosity
real*4 Mass_2 ! (Msun) ? Stellar mass
real*4 e_Mass_2 ! (Msun) ? Error in stellar mass
integer*4 Age_2 ! (Ma) ? Age of the star
real*4 e_Age_2 ! (Ma) ? Error in age of the star
*Note (2): Flag as follows:
* dd = Star with a Second Balmer Discontinuity
*Note (3): Vmag values obtained from SIMBAD database
*Note (4): The distances of the stars with negative color gradients were
* determined using the distance modulus assigned to the cluster
*Note (5): Membership to the cluster codes as follows:
* m = Member stars
* pm = Probable member stars
* pnm = Probable non-member stars
* nm = Non-member stars
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table15.dat' ! Stellar fundamental parameters for NGC 6530
integer*4 nr__8
parameter (nr__8=23) ! Number of records
character*120 ar__8 ! Full-size record
integer*4 Star_8 ! ?=0 Star number within the cluster (G1)
character*15 OName_8 ! Other designation
character*2 n_OName_6 ! [dd ] Second Balmer Discontinuity (2)
real*4 D_3 ! Photospheric component of the Balmer
* discontinuity
integer*4 lambda1_3 ! (0.1nm) ? Mean spectral position of the Balmer
* discontinuity
real*4 Phib_3 ! (um) Observed color gradient
character*8 SpType_3 ! Spectral type
character*13 n_SpType_3 ! Other object types (3)
integer*4 Teff_3 ! (K) Effective Temperature
character*2 n_Teff_3 ! [man: ] Extrapolated values flag for Teff (4)
integer*4 e_Teff_3 ! (K) Error in Effective Temperature
real*4 logg_3 ! ([cm/s2]) Stellar surface gravity
character*2 n_logg_3 ! [man: ] Extrapolated values flag for logg (4)
real*4 e_logg_3 ! ([cm/s2]) Error in logg
real*4 VMAG_6 ! (mag) Absolute Magnitude in V filter
character*2 n_VMAG_3 ! [man: ] Extrapolated values flag for VMAG (4)
real*4 e_VMAG_3 ! (mag) Error in Absolute Magnitude
real*4 Mbol_3 ! (mag) Bolometric Magnitude
character*2 n_Mbol_3 ! [man: ] Extrapolated values flag for Mbol (4)
real*4 e_Mbol_3 ! (mag) Error in Bolometric Magnitude
real*4 Phi0_3 ! (um) Intrinsic color gradient
character*1 n_Phi0_3 ! [man: ] Extrapolated values flag fro Phi0 (4)
real*4 e_Phi0_3 ! (um) Error in Intrinsic color gradient
*Note (2): Flag as follows:
* dd = Star with a Second Balmer Discontinuity
*Note (3): Object types as follows:
* mk = Spectral types derived using the MK-system
* so = Spectral types derived using The Galactic O-Star Spectroscopic
* Survey Sota et al. (2011ApJS..193...24S, Cat. III/274)
* BE = Spectroscopic binary
* BE2 = Double line spectroscopic binary
* BEc = Eclipsing binary
* Be = Known Be star
* BS = Blue straggler star
* CP2 = Chemically peculiar star
* Em = Emission-line star
* Halpha = Star with emission in H{alpha}
* He = Helium star
* IR = Star with infrared excess
* MA = Magnetic Ap star
* p = Chemically peculiar star
* ST = Triple system
* V = Variable star
* VB = Reported as visual binary star
* Vr = Radial velocity variable
* Vv = Probable variable like Vega star
*Note (4): Extrapolated values flags as follows:
* a = Values interpolated from Cox & Pilachowski (2000PhT....53j..77C)
* m = Value calculated in this work, using a relation between Phi^0^_b_
* and (B-V)_0_ given by Moujtahid et al. (1998, Cat. J/A+AS/129/289)
* n = Stellar parameter given by Martins et al. (2005A&A...436.1049M)
*
* The symbol : is used to indicate extrapolated values.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table16.dat' ! Physical parameters and distance for NGC 6530
integer*4 nr__9
parameter (nr__9=23) ! Number of records
character*95 ar__9 ! Full-size record
integer*4 Star_9 ! ?=0 Star number within the cluster (G1)
character*15 OName_9 ! Other designation
character*2 n_OName_7 ! [dd ] Second Balmer Discontinuity (2)
real*4 Vmag_7 ! (mag) Visual magnitude in V filter (3)
real*4 E_B_V_1 ! (mag) ?=99.99 Color excess (4)
real*4 e_E_B_V_1 ! (mag) ?=99.99 Error in color excess
real*4 MOD_3 ! (mag) True distance modulus
real*4 e_MOD_3 ! (mag) Error in true distance modulus
character*3 Member_3 ! Membership to the cluster (5)
real*4 AD_3 ! (arcmin) Angular distance to the cluster center
real*4 Pmemb_3 ! (%) Membership probability
real*4 logL_3 ! ([Lsun]) ? Luminosity
real*4 e_logL_3 ! ([Lsun]) ? Error in luminosity
real*4 Mass_3 ! (Msun) ? Stellar mass
real*4 e_Mass_3 ! (Msun) ? Error in stellar mass
integer*4 Age_3 ! (Ma) ? Age of the star
real*4 e_Age_3 ! (Ma) ? Error in age of the star
*Note (2): Flag as follows:
* dd = Star with a Second Balmer Discontinuity
*Note (3): Vmag values obtained from SIMBAD database
*Note (4): The distances of the stars with negative color gradients were
* determined using the distance modulus assigned to the cluster
*Note (5): Membership to the cluster codes as follows:
* m = Member stars
* pm = Probable member stars
* pnm = Probable non-member stars
* nm = Non-member stars
C=============================================================================
C Loading file 'table1.dat' ! Log of observations of low-resolution spectra
C Format for file interpretation
1 format(
+ A13,1X,I3,1X,A15,1X,I2,1X,I2,1X,F5.2,1X,A1,I2,1X,I2,1X,F5.2,
+ 1X,F4.2,1X,F5.2,1X,F5.2,1X,A10,1X,A10,1X,A10,1X,I1)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,68
read(1,'(A110)')ar__
read(ar__,1)
+ Cl,Star,OName,RAh,RAm,RAs,DE_,DEd,DEm,DEs,AM1,AM2,AM3,Date1,
+ Date2,Date3,N
RAdeg = rNULL__
DEdeg = rNULL__
c Derive coordinates RAdeg and DEdeg from input data
c (RAdeg and DEdeg are set to rNULL__ when unknown)
if(RAh .GT. -180) RAdeg=RAh*15.
if(RAm .GT. -180) RAdeg=RAdeg+RAm/4.
if(RAs .GT. -180) RAdeg=RAdeg+RAs/240.
if(DEd .GE. 0) DEdeg=DEd
if(DEm .GE. 0) DEdeg=DEdeg+DEm/60.
if(DEs .GE. 0) DEdeg=DEdeg+DEs/3600.
if(DE_.EQ.'-'.AND.DEdeg.GE.0) DEdeg=-DEdeg
c ..............Just test output...........
write(6,1)
+ Cl,Star,OName,RAh,RAm,RAs,DE_,DEd,DEm,DEs,AM1,AM2,AM3,Date1,
+ Date2,Date3,N
write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! Log of observations of high-resolution spectra
C Format for file interpretation
2 format(
+ A13,1X,I3,1X,A15,1X,I2,1X,I2,1X,F5.2,1X,A1,I2,1X,I2,1X,F5.2,
+ 1X,F4.2,1X,F5.2,1X,F5.2,1X,A10,1X,A10,1X,A10,1X,I1)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,63
read(1,'(A110)')ar__1
read(ar__1,2)
+ Cl_1,Star_1,OName_1,RAh_1,RAm_1,RAs_1,DE__1,DEd_1,DEm_1,DEs_1,
+ AM1_1,AM2_1,AM3_1,Date1_1,Date2_1,Date3_1,N_1
RAdeg_1 = rNULL__
DEdeg_1 = rNULL__
c Derive coordinates RAdeg_1 and DEdeg_1 from input data
c (RAdeg_1 and DEdeg_1 are set to rNULL__ when unknown)
if(RAh_1 .GT. -180) RAdeg_1=RAh_1*15.
if(RAm_1 .GT. -180) RAdeg_1=RAdeg_1+RAm_1/4.
if(RAs_1 .GT. -180) RAdeg_1=RAdeg_1+RAs_1/240.
if(DEd_1 .GE. 0) DEdeg_1=DEd_1
if(DEm_1 .GE. 0) DEdeg_1=DEdeg_1+DEm_1/60.
if(DEs_1 .GE. 0) DEdeg_1=DEdeg_1+DEs_1/3600.
if(DE__1.EQ.'-'.AND.DEdeg_1.GE.0) DEdeg_1=-DEdeg_1
c ..............Just test output...........
write(6,2)
+ Cl_1,Star_1,OName_1,RAh_1,RAm_1,RAs_1,DE__1,DEd_1,DEm_1,DEs_1,
+ AM1_1,AM2_1,AM3_1,Date1_1,Date2_1,Date3_1,N_1
write(6,'(6H Pos: 2F8.4)') RAdeg_1,DEdeg_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table9.dat' ! Stellar fundamental parameters for NGC 6087
C Format for file interpretation
3 format(
+ I3,1X,A15,1X,A2,1X,F4.2,1X,I2,1X,F4.2,1X,A8,1X,A13,1X,I5,A2,
+ 1X,I4,1X,F4.2,A2,1X,F4.2,1X,F5.2,A2,1X,F4.2,1X,F5.2,A2,1X,
+ F4.2,1X,F4.2,A1,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table9.dat')
write(6,*) '....Loading file: table9.dat'
do i__=1,18
read(1,'(A120)')ar__2
read(ar__2,3)
+ Star_2,OName_2,n_OName,D,lambda1,Phib,SpType,n_SpType,Teff,
+ n_Teff,e_Teff,logg,n_logg,e_logg,VMAG,n_VMAG,e_VMAG,Mbol,
+ n_Mbol,e_Mbol,Phi0,n_Phi0,e_Phi0
if(ar__2(29:30) .EQ. '') lambda1 = iNULL__
c ..............Just test output...........
write(6,3)
+ Star_2,OName_2,n_OName,D,lambda1,Phib,SpType,n_SpType,Teff,
+ n_Teff,e_Teff,logg,n_logg,e_logg,VMAG,n_VMAG,e_VMAG,Mbol,
+ n_Mbol,e_Mbol,Phi0,n_Phi0,e_Phi0
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table10.dat' ! Physical parameters and distance for NGC 6087
C Format for file interpretation
4 format(
+ I3,1X,A15,1X,A2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F4.1,1X,F3.1,1X,A3,
+ 1X,F6.2,1X,F5.1,1X,F3.1,1X,F3.1,1X,F5.1,1X,F4.1,1X,I3,1X,F5.1)
C Effective file loading
open(unit=1,status='old',file=
+'table10.dat')
write(6,*) '....Loading file: table10.dat'
do i__=1,18
read(1,'(A95)')ar__3
read(ar__3,4)
+ Star_3,OName_3,n_OName_1,Vmag_1,E_B_V,e_E_B_V,MOD,e_MOD,
+ Member,AD,Pmemb,logL,e_logL,Mass,e_Mass,Age,e_Age
if(ar__3(68:70) .EQ. '') logL = rNULL__
if(ar__3(72:74) .EQ. '') e_logL = rNULL__
if(ar__3(76:80) .EQ. '') Mass = rNULL__
if(ar__3(82:85) .EQ. '') e_Mass = rNULL__
if(ar__3(87:89) .EQ. '') Age = iNULL__
if(ar__3(91:95) .EQ. '') e_Age = rNULL__
c ..............Just test output...........
write(6,4)
+ Star_3,OName_3,n_OName_1,Vmag_1,E_B_V,e_E_B_V,MOD,e_MOD,
+ Member,AD,Pmemb,logL,e_logL,Mass,e_Mass,Age,e_Age
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table11.dat' ! Stellar fundamental parameters for NGC 6250
C Format for file interpretation
5 format(
+ I3,1X,A15,1X,A2,1X,F4.2,1X,I2,1X,F4.2,1X,A8,1X,A13,1X,I5,A2,
+ 1X,I4,1X,F4.2,A2,1X,F4.2,1X,F5.2,A2,1X,F4.2,1X,F5.2,A2,1X,
+ F4.2,1X,F4.2,A1,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table11.dat')
write(6,*) '....Loading file: table11.dat'
do i__=1,15
read(1,'(A120)')ar__4
read(ar__4,5)
+ Star_4,OName_4,n_OName_2,D_1,lambda1_1,Phib_1,SpType_1,
+ n_SpType_1,Teff_1,n_Teff_1,e_Teff_1,logg_1,n_logg_1,e_logg_1,
+ VMAG_2,n_VMAG_1,e_VMAG_1,Mbol_1,n_Mbol_1,e_Mbol_1,Phi0_1,
+ n_Phi0_1,e_Phi0_1
if(ar__4(29:30) .EQ. '') lambda1_1 = iNULL__
c ..............Just test output...........
write(6,5)
+ Star_4,OName_4,n_OName_2,D_1,lambda1_1,Phib_1,SpType_1,
+ n_SpType_1,Teff_1,n_Teff_1,e_Teff_1,logg_1,n_logg_1,e_logg_1,
+ VMAG_2,n_VMAG_1,e_VMAG_1,Mbol_1,n_Mbol_1,e_Mbol_1,Phi0_1,
+ n_Phi0_1,e_Phi0_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table12.dat' ! Physical parameters and distance for NGC 6250
C Format for file interpretation
6 format(
+ I3,1X,A15,1X,A2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F4.1,1X,F3.1,1X,A3,
+ 1X,F6.2,1X,F5.1,1X,F3.1,1X,F3.1,1X,F5.1,1X,F4.1,1X,I3,1X,F5.1)
C Effective file loading
open(unit=1,status='old',file=
+'table12.dat')
write(6,*) '....Loading file: table12.dat'
do i__=1,15
read(1,'(A95)')ar__5
read(ar__5,6)
+ Star_5,OName_5,n_OName_3,Vmag_3,E_B_V_1,e_E_B_V_1,MOD_1,
+ e_MOD_1,Member_1,AD_1,Pmemb_1,logL_1,e_logL_1,Mass_1,e_Mass_1,
+ Age_1,e_Age_1
if(ar__5(68:70) .EQ. '') logL_1 = rNULL__
if(ar__5(72:74) .EQ. '') e_logL_1 = rNULL__
if(ar__5(76:80) .EQ. '') Mass_1 = rNULL__
if(ar__5(82:85) .EQ. '') e_Mass_1 = rNULL__
if(ar__5(87:89) .EQ. '') Age_1 = iNULL__
if(ar__5(91:95) .EQ. '') e_Age_1 = rNULL__
c ..............Just test output...........
write(6,6)
+ Star_5,OName_5,n_OName_3,Vmag_3,E_B_V_1,e_E_B_V_1,MOD_1,
+ e_MOD_1,Member_1,AD_1,Pmemb_1,logL_1,e_logL_1,Mass_1,e_Mass_1,
+ Age_1,e_Age_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table13.dat' ! Stellar fundamental parameters for NGC 6383
C Format for file interpretation
7 format(
+ I3,1X,A15,1X,A2,1X,F4.2,1X,I2,1X,F4.2,1X,A8,1X,A13,1X,I5,A2,
+ 1X,I4,1X,F4.2,A2,1X,F4.2,1X,F5.2,A2,1X,F4.2,1X,F5.2,A2,1X,
+ F4.2,1X,F4.2,A1,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table13.dat')
write(6,*) '....Loading file: table13.dat'
do i__=1,12
read(1,'(A120)')ar__6
read(ar__6,7)
+ Star_6,OName_6,n_OName_4,D_2,lambda1_2,Phib_2,SpType_2,
+ n_SpType_2,Teff_2,n_Teff_2,e_Teff_2,logg_2,n_logg_2,e_logg_2,
+ VMAG_4,n_VMAG_2,e_VMAG_2,Mbol_2,n_Mbol_2,e_Mbol_2,Phi0_2,
+ n_Phi0_2,e_Phi0_2
if(ar__6(29:30) .EQ. '') lambda1_2 = iNULL__
c ..............Just test output...........
write(6,7)
+ Star_6,OName_6,n_OName_4,D_2,lambda1_2,Phib_2,SpType_2,
+ n_SpType_2,Teff_2,n_Teff_2,e_Teff_2,logg_2,n_logg_2,e_logg_2,
+ VMAG_4,n_VMAG_2,e_VMAG_2,Mbol_2,n_Mbol_2,e_Mbol_2,Phi0_2,
+ n_Phi0_2,e_Phi0_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table14.dat' ! Physical parameters and distance for NGC 6383
C Format for file interpretation
8 format(
+ I3,1X,A15,1X,A2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F4.1,1X,F3.1,1X,A3,
+ 1X,F6.2,1X,F5.1,1X,F3.1,1X,F3.1,1X,F5.1,1X,F4.1,1X,I3,1X,F5.1)
C Effective file loading
open(unit=1,status='old',file=
+'table14.dat')
write(6,*) '....Loading file: table14.dat'
do i__=1,12
read(1,'(A95)')ar__7
read(ar__7,8)
+ Star_7,OName_7,n_OName_5,Vmag_5,E_B_V_1,e_E_B_V_1,MOD_2,
+ e_MOD_2,Member_2,AD_2,Pmemb_2,logL_2,e_logL_2,Mass_2,e_Mass_2,
+ Age_2,e_Age_2
if(ar__7(68:70) .EQ. '') logL_2 = rNULL__
if(ar__7(72:74) .EQ. '') e_logL_2 = rNULL__
if(ar__7(76:80) .EQ. '') Mass_2 = rNULL__
if(ar__7(82:85) .EQ. '') e_Mass_2 = rNULL__
if(ar__7(87:89) .EQ. '') Age_2 = iNULL__
if(ar__7(91:95) .EQ. '') e_Age_2 = rNULL__
c ..............Just test output...........
write(6,8)
+ Star_7,OName_7,n_OName_5,Vmag_5,E_B_V_1,e_E_B_V_1,MOD_2,
+ e_MOD_2,Member_2,AD_2,Pmemb_2,logL_2,e_logL_2,Mass_2,e_Mass_2,
+ Age_2,e_Age_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table15.dat' ! Stellar fundamental parameters for NGC 6530
C Format for file interpretation
9 format(
+ I3,1X,A15,1X,A2,1X,F4.2,1X,I2,1X,F4.2,1X,A8,1X,A13,1X,I5,A2,
+ 1X,I4,1X,F4.2,A2,1X,F4.2,1X,F5.2,A2,1X,F4.2,1X,F5.2,A2,1X,
+ F4.2,1X,F4.2,A1,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table15.dat')
write(6,*) '....Loading file: table15.dat'
do i__=1,23
read(1,'(A120)')ar__8
read(ar__8,9)
+ Star_8,OName_8,n_OName_6,D_3,lambda1_3,Phib_3,SpType_3,
+ n_SpType_3,Teff_3,n_Teff_3,e_Teff_3,logg_3,n_logg_3,e_logg_3,
+ VMAG_6,n_VMAG_3,e_VMAG_3,Mbol_3,n_Mbol_3,e_Mbol_3,Phi0_3,
+ n_Phi0_3,e_Phi0_3
if(ar__8(29:30) .EQ. '') lambda1_3 = iNULL__
c ..............Just test output...........
write(6,9)
+ Star_8,OName_8,n_OName_6,D_3,lambda1_3,Phib_3,SpType_3,
+ n_SpType_3,Teff_3,n_Teff_3,e_Teff_3,logg_3,n_logg_3,e_logg_3,
+ VMAG_6,n_VMAG_3,e_VMAG_3,Mbol_3,n_Mbol_3,e_Mbol_3,Phi0_3,
+ n_Phi0_3,e_Phi0_3
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table16.dat' ! Physical parameters and distance for NGC 6530
C Format for file interpretation
10 format(
+ I3,1X,A15,1X,A2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F4.1,1X,F3.1,1X,A3,
+ 1X,F6.2,1X,F5.1,1X,F3.1,1X,F3.1,1X,F5.1,1X,F4.1,1X,I3,1X,F5.1)
C Effective file loading
open(unit=1,status='old',file=
+'table16.dat')
write(6,*) '....Loading file: table16.dat'
do i__=1,23
read(1,'(A95)')ar__9
read(ar__9,10)
+ Star_9,OName_9,n_OName_7,Vmag_7,E_B_V_1,e_E_B_V_1,MOD_3,
+ e_MOD_3,Member_3,AD_3,Pmemb_3,logL_3,e_logL_3,Mass_3,e_Mass_3,
+ Age_3,e_Age_3
if(ar__9(68:70) .EQ. '') logL_3 = rNULL__
if(ar__9(72:74) .EQ. '') e_logL_3 = rNULL__
if(ar__9(76:80) .EQ. '') Mass_3 = rNULL__
if(ar__9(82:85) .EQ. '') e_Mass_3 = rNULL__
if(ar__9(87:89) .EQ. '') Age_3 = iNULL__
if(ar__9(91:95) .EQ. '') e_Age_3 = rNULL__
c ..............Just test output...........
write(6,10)
+ Star_9,OName_9,n_OName_7,Vmag_7,E_B_V_1,e_E_B_V_1,MOD_3,
+ e_MOD_3,Member_3,AD_3,Pmemb_3,logL_3,e_logL_3,Mass_3,e_Mass_3,
+ Age_3,e_Age_3
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end