Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/612/A99 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-16
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/612/A99 Gaia-ESO Survey in 7 open star cluster fields (Randich+, 2018)
*================================================================================
*The Gaia-ESO Survey: open clusters in Gaia-DR1.
*A way forward to stellar age calibration.
* Randich S., Tognelli E., Jackson R., Jeffries R.D., Degl'Innocenti S.,
* Pancino E., Re Fiorentin P., Spagna A., Sacco G., Bragaglia A.,
* Magrini L., Prada Moroni P.G., Alfaro E., Franciosini E., Morbidelli L.,
* Roccatagliata V., Bouy H., Bravi L., Jimenez-Esteban F.M., Jordi C.,
* Zari E., Tautvaisiene G., Drazdauskas A., Mikolaitis S., Gilmore G.,
* Feltzing S., Vallenari A., Bensby T., Koposov S., Korn A., Lanzafame A.,
* Smiljanic R., Bayo A., Carraro G., Costado M.T., Heiter U., Hourihane A.,
* Jofre P., Lewis J., Monaco L., Prisinzano L., Sbordone L., Sousa S.G.,
* Worley C.C., Zaggia S. (Gaia-ESO collaboration)
* <Astron. Astrophys. 612, A99 (2018)>
* =2018A&A...612A..99R (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ic2391.dat' ! Parameters for IC2391
integer*4 nr__
parameter (nr__=447) ! Number of records
character*158 ar__ ! Full-size record
character*16 CName ! Star ID (HHMMSSss+DDMMSSs)
character*7 Cluster ! Cluster name
character*7 Inst ! Intrument XX
integer*4 Teff ! (K) Effective temperature
integer*4 e_Teff ! (K) ?=-999 Effective temperature error
real*8 logg ! ([cm/s2]) ?=-999 10-logarithm surface gravity
real*8 e_logg ! ([cm/s2]) ?=-999 10-logarithm surface gravity error
real*8 v_Fe_H_ ! ([-]) ?=-999 Metallicity
real*8 e__Fe_H_ ! ([-]) ?=-999 Metallicity error
character*1 l_EWLi ! [<] Upper limit flag on EWLi
real*8 EWLi ! ([0.1pm]) ?=-999 Lithium line equivalent width
real*8 e_EWLi ! ([0.1pm]) ?=-999 Lithium line equivalent width error
integer*4 f_EWLi ! [0/3]?=-999 Flag for lithium line
* equivalent width (1)
real*8 Gamma ! ?=-999 Gamma index
real*8 e_Gamma ! ?=-999 Gamma index error
real*8 RV ! (km/s) ?=-999 Radial velocity
real*8 e_RV ! (km/s) ?=-999 Radial velocity error
real*4 MembPA ! ?=-1 Membership probability: population A
real*4 MembPB ! ?=-1 Membership probability: population B
integer*4 ID ! Sequential ID number
*Note (1): Upper limit flag as follows:
* 0 = not an upper limit
* 3 = upper limit
* -999 = data not available
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ic2602.dat' ! Parameters for IC2602
integer*4 nr__1
parameter (nr__1=1505) ! Number of records
character*158 ar__1 ! Full-size record
character*16 CName_1 ! Star ID (HHMMSSss+DDMMSSs)
character*7 Cluster_1 ! Cluster name
character*7 Inst_1 ! Intrument XX
integer*4 Teff_1 ! (K) Effective temperature
integer*4 e_Teff_1 ! (K) ?=-999 Effective temperature error
real*8 logg_1 ! ([cm/s2]) ?=-999 10-logarithm surface gravity
real*8 e_logg_1 ! ([cm/s2]) ?=-999 10-logarithm surface gravity error
real*8 v_Fe_H__1 ! ([-]) ?=-999 Metallicity
real*8 e__Fe_H__1 ! ([-]) ?=-999 Metallicity error
character*1 l_EWLi_1 ! [<] Upper limit flag on EWLi
real*8 EWLi_1 ! ([0.1pm]) ?=-999 Lithium line equivalent width
real*8 e_EWLi_1 ! ([0.1pm]) ?=-999 Lithium line equivalent width error
integer*4 f_EWLi_1 ! [0/3]?=-999 Flag for lithium line
* equivalent width (1)
real*8 Gamma_1 ! ?=-999 Gamma index
real*8 e_Gamma_1 ! ?=-999 Gamma index error
real*8 RV_1 ! (km/s) ?=-999 Radial velocity
real*8 e_RV_1 ! (km/s) ?=-999 Radial velocity error
real*4 MembPA_1 ! ?=-1 Membership probability: population A
real*4 MembPB_1 ! ?=-1 Membership probability: population B
integer*4 ID_1 ! Sequential ID number
*Note (1): Upper limit flag as follows:
* 0 = not an upper limit
* 3 = upper limit
* -999 = data not available
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ic4665.dat' ! Parameters for IC4665
integer*4 nr__2
parameter (nr__2=579) ! Number of records
character*158 ar__2 ! Full-size record
character*16 CName_2 ! Star ID (HHMMSSss+DDMMSSs)
character*7 Cluster_2 ! Cluster name
character*7 Inst_2 ! Intrument XX
integer*4 Teff_2 ! (K) Effective temperature
integer*4 e_Teff_2 ! (K) ?=-999 Effective temperature error
real*8 logg_2 ! ([cm/s2]) ?=-999 10-logarithm surface gravity
real*8 e_logg_2 ! ([cm/s2]) ?=-999 10-logarithm surface gravity error
real*8 v_Fe_H__2 ! ([-]) ?=-999 Metallicity
real*8 e__Fe_H__2 ! ([-]) ?=-999 Metallicity error
character*1 l_EWLi_2 ! [<] Upper limit flag on EWLi
real*8 EWLi_2 ! ([0.1pm]) ?=-999 Lithium line equivalent width
real*8 e_EWLi_2 ! ([0.1pm]) ?=-999 Lithium line equivalent width error
integer*4 f_EWLi_2 ! [0/3]?=-999 Flag for lithium line
* equivalent width (1)
real*8 Gamma_2 ! ?=-999 Gamma index
real*8 e_Gamma_2 ! ?=-999 Gamma index error
real*8 RV_2 ! (km/s) ?=-999 Radial velocity
real*8 e_RV_2 ! (km/s) ?=-999 Radial velocity error
real*4 MembPA_2 ! ?=-1 Membership probability: population A
real*4 MembPB_2 ! ?=-1 Membership probability: population B
integer*4 ID_2 ! Sequential ID number
*Note (1): Upper limit flag as follows:
* 0 = not an upper limit
* 3 = upper limit
* -999 = data not available
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ngc2451.dat' ! Parameters for NGC2451
integer*4 nr__3
parameter (nr__3=1696) ! Number of records
character*158 ar__3 ! Full-size record
character*16 CName_3 ! Star ID (HHMMSSss+DDMMSSs)
character*7 Cluster_3 ! Cluster name
character*7 Inst_3 ! Intrument XX
integer*4 Teff_3 ! (K) Effective temperature
integer*4 e_Teff_3 ! (K) ?=-999 Effective temperature error
real*8 logg_3 ! ([cm/s2]) ?=-999 10-logarithm surface gravity
real*8 e_logg_3 ! ([cm/s2]) ?=-999 10-logarithm surface gravity error
real*8 v_Fe_H__3 ! ([-]) ?=-999 Metallicity
real*8 e__Fe_H__3 ! ([-]) ?=-999 Metallicity error
character*1 l_EWLi_3 ! [<] Upper limit flag on EWLi
real*8 EWLi_3 ! ([0.1pm]) ?=-999 Lithium line equivalent width
real*8 e_EWLi_3 ! ([0.1pm]) ?=-999 Lithium line equivalent width error
integer*4 f_EWLi_3 ! [0/3]?=-999 Flag for lithium line
* equivalent width (1)
real*8 Gamma_3 ! ?=-999 Gamma index
real*8 e_Gamma_3 ! ?=-999 Gamma index error
real*8 RV_3 ! (km/s) ?=-999 Radial velocity
real*8 e_RV_3 ! (km/s) ?=-999 Radial velocity error
real*4 MembPA_3 ! ?=-1 Membership probability: population A
real*4 MembPB_3 ! ?=-1 Membership probability: population B
integer*4 ID_3 ! Sequential ID number
*Note (1): Upper limit flag as follows:
* 0 = not an upper limit
* 3 = upper limit
* -999 = data not available
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ngc2516.dat' ! Parameters for NGC2516
integer*4 nr__4
parameter (nr__4=796) ! Number of records
character*158 ar__4 ! Full-size record
character*16 CName_4 ! Star ID (HHMMSSss+DDMMSSs)
character*7 Cluster_4 ! Cluster name
character*7 Inst_4 ! Intrument XX
integer*4 Teff_4 ! (K) Effective temperature
integer*4 e_Teff_4 ! (K) ?=-999 Effective temperature error
real*8 logg_4 ! ([cm/s2]) ?=-999 10-logarithm surface gravity
real*8 e_logg_4 ! ([cm/s2]) ?=-999 10-logarithm surface gravity error
real*8 v_Fe_H__4 ! ([-]) ?=-999 Metallicity
real*8 e__Fe_H__4 ! ([-]) ?=-999 Metallicity error
character*1 l_EWLi_4 ! [<] Upper limit flag on EWLi
real*8 EWLi_4 ! ([0.1pm]) ?=-999 Lithium line equivalent width
real*8 e_EWLi_4 ! ([0.1pm]) ?=-999 Lithium line equivalent width error
integer*4 f_EWLi_4 ! [0/3]?=-999 Flag for lithium line
* equivalent width (1)
real*8 Gamma_4 ! ?=-999 Gamma index
real*8 e_Gamma_4 ! ?=-999 Gamma index error
real*8 RV_4 ! (km/s) ?=-999 Radial velocity
real*8 e_RV_4 ! (km/s) ?=-999 Radial velocity error
real*4 MembPA_4 ! ?=-1 Membership probability: population A
real*4 MembPB_4 ! ?=-1 Membership probability: population B
integer*4 ID_4 ! Sequential ID number
*Note (1): Upper limit flag as follows:
* 0 = not an upper limit
* 3 = upper limit
* -999 = data not available
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ngc2547.dat' ! Parameters for NGC2547
integer*4 nr__5
parameter (nr__5=510) ! Number of records
character*158 ar__5 ! Full-size record
character*16 CName_5 ! Star ID (HHMMSSss+DDMMSSs)
character*7 Cluster_5 ! Cluster name
character*7 Inst_5 ! Intrument XX
integer*4 Teff_5 ! (K) Effective temperature
integer*4 e_Teff_5 ! (K) ?=-999 Effective temperature error
real*8 logg_5 ! ([cm/s2]) ?=-999 10-logarithm surface gravity
real*8 e_logg_5 ! ([cm/s2]) ?=-999 10-logarithm surface gravity error
real*8 v_Fe_H__5 ! ([-]) ?=-999 Metallicity
real*8 e__Fe_H__5 ! ([-]) ?=-999 Metallicity error
character*1 l_EWLi_5 ! [<] Upper limit flag on EWLi
real*8 EWLi_5 ! ([0.1pm]) ?=-999 Lithium line equivalent width
real*8 e_EWLi_5 ! ([0.1pm]) ?=-999 Lithium line equivalent width error
integer*4 f_EWLi_5 ! [0/3]?=-999 Flag for lithium line
* equivalent width (1)
real*8 Gamma_5 ! ?=-999 Gamma index
real*8 e_Gamma_5 ! ?=-999 Gamma index error
real*8 RV_5 ! (km/s) ?=-999 Radial velocity
real*8 e_RV_5 ! (km/s) ?=-999 Radial velocity error
real*4 MembPA_5 ! ?=-1 Membership probability: population A
real*4 MembPB_5 ! ?=-1 Membership probability: population B
integer*4 ID_5 ! Sequential ID number
*Note (1): Upper limit flag as follows:
* 0 = not an upper limit
* 3 = upper limit
* -999 = data not available
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ngc6633.dat' ! Parameters for NGC6633
integer*4 nr__6
parameter (nr__6=564) ! Number of records
character*158 ar__6 ! Full-size record
character*16 CName_6 ! Star ID (HHMMSSss+DDMMSSs)
character*7 Cluster_6 ! Cluster name
character*7 Inst_6 ! Intrument XX
integer*4 Teff_6 ! (K) Effective temperature
integer*4 e_Teff_6 ! (K) ?=-999 Effective temperature error
real*8 logg_6 ! ([cm/s2]) ?=-999 10-logarithm surface gravity
real*8 e_logg_6 ! ([cm/s2]) ?=-999 10-logarithm surface gravity error
real*8 v_Fe_H__6 ! ([-]) ?=-999 Metallicity
real*8 e__Fe_H__6 ! ([-]) ?=-999 Metallicity error
character*1 l_EWLi_6 ! [<] Upper limit flag on EWLi
real*8 EWLi_6 ! ([0.1pm]) ?=-999 Lithium line equivalent width
real*8 e_EWLi_6 ! ([0.1pm]) ?=-999 Lithium line equivalent width error
integer*4 f_EWLi_6 ! [0/3]?=-999 Flag for lithium line
* equivalent width (1)
real*8 Gamma_6 ! ?=-999 Gamma index
real*8 e_Gamma_6 ! ?=-999 Gamma index error
real*8 RV_6 ! (km/s) ?=-999 Radial velocity
real*8 e_RV_6 ! (km/s) ?=-999 Radial velocity error
real*4 MembPA_6 ! ?=-1 Membership probability: population A
real*4 MembPB_6 ! ?=-1 Membership probability: population B
integer*4 ID_6 ! Sequential ID number
*Note (1): Upper limit flag as follows:
* 0 = not an upper limit
* 3 = upper limit
* -999 = data not available
C=============================================================================
C Loading file 'ic2391.dat' ! Parameters for IC2391
C Format for file interpretation
1 format(
+ A16,1X,A7,1X,A7,1X,I5,1X,I4,1X,F8.3,1X,F8.3,1X,F8.3,1X,F8.3,
+ 1X,A1,F8.3,1X,F8.3,1X,I4,1X,F8.3,1X,F8.3,1X,F8.3,1X,F8.3,1X,
+ F6.3,1X,F6.3,1X,I4)
C Effective file loading
open(unit=1,status='old',file=
+'ic2391.dat')
write(6,*) '....Loading file: ic2391.dat'
do i__=1,447
read(1,'(A158)')ar__
read(ar__,1)
+ CName,Cluster,Inst,Teff,e_Teff,logg,e_logg,v_Fe_H_,e__Fe_H_,
+ l_EWLi,EWLi,e_EWLi,f_EWLi,Gamma,e_Gamma,RV,e_RV,MembPA,MembPB,
+ ID
c ..............Just test output...........
write(6,1)
+ CName,Cluster,Inst,Teff,e_Teff,logg,e_logg,v_Fe_H_,e__Fe_H_,
+ l_EWLi,EWLi,e_EWLi,f_EWLi,Gamma,e_Gamma,RV,e_RV,MembPA,MembPB,
+ ID
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ic2602.dat' ! Parameters for IC2602
C Format for file interpretation
2 format(
+ A16,1X,A7,1X,A7,1X,I5,1X,I4,1X,F8.3,1X,F8.3,1X,F8.3,1X,F8.3,
+ 1X,A1,F8.3,1X,F8.3,1X,I4,1X,F8.3,1X,F8.3,1X,F8.3,1X,F8.3,1X,
+ F6.3,1X,F6.3,1X,I4)
C Effective file loading
open(unit=1,status='old',file=
+'ic2602.dat')
write(6,*) '....Loading file: ic2602.dat'
do i__=1,1505
read(1,'(A158)')ar__1
read(ar__1,2)
+ CName_1,Cluster_1,Inst_1,Teff_1,e_Teff_1,logg_1,e_logg_1,
+ v_Fe_H__1,e__Fe_H__1,l_EWLi_1,EWLi_1,e_EWLi_1,f_EWLi_1,
+ Gamma_1,e_Gamma_1,RV_1,e_RV_1,MembPA_1,MembPB_1,ID_1
c ..............Just test output...........
write(6,2)
+ CName_1,Cluster_1,Inst_1,Teff_1,e_Teff_1,logg_1,e_logg_1,
+ v_Fe_H__1,e__Fe_H__1,l_EWLi_1,EWLi_1,e_EWLi_1,f_EWLi_1,
+ Gamma_1,e_Gamma_1,RV_1,e_RV_1,MembPA_1,MembPB_1,ID_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ic4665.dat' ! Parameters for IC4665
C Format for file interpretation
3 format(
+ A16,1X,A7,1X,A7,1X,I5,1X,I4,1X,F8.3,1X,F8.3,1X,F8.3,1X,F8.3,
+ 1X,A1,F8.3,1X,F8.3,1X,I4,1X,F8.3,1X,F8.3,1X,F8.3,1X,F8.3,1X,
+ F6.3,1X,F6.3,1X,I4)
C Effective file loading
open(unit=1,status='old',file=
+'ic4665.dat')
write(6,*) '....Loading file: ic4665.dat'
do i__=1,579
read(1,'(A158)')ar__2
read(ar__2,3)
+ CName_2,Cluster_2,Inst_2,Teff_2,e_Teff_2,logg_2,e_logg_2,
+ v_Fe_H__2,e__Fe_H__2,l_EWLi_2,EWLi_2,e_EWLi_2,f_EWLi_2,
+ Gamma_2,e_Gamma_2,RV_2,e_RV_2,MembPA_2,MembPB_2,ID_2
c ..............Just test output...........
write(6,3)
+ CName_2,Cluster_2,Inst_2,Teff_2,e_Teff_2,logg_2,e_logg_2,
+ v_Fe_H__2,e__Fe_H__2,l_EWLi_2,EWLi_2,e_EWLi_2,f_EWLi_2,
+ Gamma_2,e_Gamma_2,RV_2,e_RV_2,MembPA_2,MembPB_2,ID_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ngc2451.dat' ! Parameters for NGC2451
C Format for file interpretation
4 format(
+ A16,1X,A7,1X,A7,1X,I5,1X,I4,1X,F8.3,1X,F8.3,1X,F8.3,1X,F8.3,
+ 1X,A1,F8.3,1X,F8.3,1X,I4,1X,F8.3,1X,F8.3,1X,F8.3,1X,F8.3,1X,
+ F6.3,1X,F6.3,1X,I4)
C Effective file loading
open(unit=1,status='old',file=
+'ngc2451.dat')
write(6,*) '....Loading file: ngc2451.dat'
do i__=1,1696
read(1,'(A158)')ar__3
read(ar__3,4)
+ CName_3,Cluster_3,Inst_3,Teff_3,e_Teff_3,logg_3,e_logg_3,
+ v_Fe_H__3,e__Fe_H__3,l_EWLi_3,EWLi_3,e_EWLi_3,f_EWLi_3,
+ Gamma_3,e_Gamma_3,RV_3,e_RV_3,MembPA_3,MembPB_3,ID_3
c ..............Just test output...........
write(6,4)
+ CName_3,Cluster_3,Inst_3,Teff_3,e_Teff_3,logg_3,e_logg_3,
+ v_Fe_H__3,e__Fe_H__3,l_EWLi_3,EWLi_3,e_EWLi_3,f_EWLi_3,
+ Gamma_3,e_Gamma_3,RV_3,e_RV_3,MembPA_3,MembPB_3,ID_3
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ngc2516.dat' ! Parameters for NGC2516
C Format for file interpretation
5 format(
+ A16,1X,A7,1X,A7,1X,I5,1X,I4,1X,F8.3,1X,F8.3,1X,F8.3,1X,F8.3,
+ 1X,A1,F8.3,1X,F8.3,1X,I4,1X,F8.3,1X,F8.3,1X,F8.3,1X,F8.3,1X,
+ F6.3,1X,F6.3,1X,I4)
C Effective file loading
open(unit=1,status='old',file=
+'ngc2516.dat')
write(6,*) '....Loading file: ngc2516.dat'
do i__=1,796
read(1,'(A158)')ar__4
read(ar__4,5)
+ CName_4,Cluster_4,Inst_4,Teff_4,e_Teff_4,logg_4,e_logg_4,
+ v_Fe_H__4,e__Fe_H__4,l_EWLi_4,EWLi_4,e_EWLi_4,f_EWLi_4,
+ Gamma_4,e_Gamma_4,RV_4,e_RV_4,MembPA_4,MembPB_4,ID_4
c ..............Just test output...........
write(6,5)
+ CName_4,Cluster_4,Inst_4,Teff_4,e_Teff_4,logg_4,e_logg_4,
+ v_Fe_H__4,e__Fe_H__4,l_EWLi_4,EWLi_4,e_EWLi_4,f_EWLi_4,
+ Gamma_4,e_Gamma_4,RV_4,e_RV_4,MembPA_4,MembPB_4,ID_4
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ngc2547.dat' ! Parameters for NGC2547
C Format for file interpretation
6 format(
+ A16,1X,A7,1X,A7,1X,I5,1X,I4,1X,F8.3,1X,F8.3,1X,F8.3,1X,F8.3,
+ 1X,A1,F8.3,1X,F8.3,1X,I4,1X,F8.3,1X,F8.3,1X,F8.3,1X,F8.3,1X,
+ F6.3,1X,F6.3,1X,I4)
C Effective file loading
open(unit=1,status='old',file=
+'ngc2547.dat')
write(6,*) '....Loading file: ngc2547.dat'
do i__=1,510
read(1,'(A158)')ar__5
read(ar__5,6)
+ CName_5,Cluster_5,Inst_5,Teff_5,e_Teff_5,logg_5,e_logg_5,
+ v_Fe_H__5,e__Fe_H__5,l_EWLi_5,EWLi_5,e_EWLi_5,f_EWLi_5,
+ Gamma_5,e_Gamma_5,RV_5,e_RV_5,MembPA_5,MembPB_5,ID_5
c ..............Just test output...........
write(6,6)
+ CName_5,Cluster_5,Inst_5,Teff_5,e_Teff_5,logg_5,e_logg_5,
+ v_Fe_H__5,e__Fe_H__5,l_EWLi_5,EWLi_5,e_EWLi_5,f_EWLi_5,
+ Gamma_5,e_Gamma_5,RV_5,e_RV_5,MembPA_5,MembPB_5,ID_5
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ngc6633.dat' ! Parameters for NGC6633
C Format for file interpretation
7 format(
+ A16,1X,A7,1X,A7,1X,I5,1X,I4,1X,F8.3,1X,F8.3,1X,F8.3,1X,F8.3,
+ 1X,A1,F8.3,1X,F8.3,1X,I4,1X,F8.3,1X,F8.3,1X,F8.3,1X,F8.3,1X,
+ F6.3,1X,F6.3,1X,I4)
C Effective file loading
open(unit=1,status='old',file=
+'ngc6633.dat')
write(6,*) '....Loading file: ngc6633.dat'
do i__=1,564
read(1,'(A158)')ar__6
read(ar__6,7)
+ CName_6,Cluster_6,Inst_6,Teff_6,e_Teff_6,logg_6,e_logg_6,
+ v_Fe_H__6,e__Fe_H__6,l_EWLi_6,EWLi_6,e_EWLi_6,f_EWLi_6,
+ Gamma_6,e_Gamma_6,RV_6,e_RV_6,MembPA_6,MembPB_6,ID_6
c ..............Just test output...........
write(6,7)
+ CName_6,Cluster_6,Inst_6,Teff_6,e_Teff_6,logg_6,e_logg_6,
+ v_Fe_H__6,e__Fe_H__6,l_EWLi_6,EWLi_6,e_EWLi_6,f_EWLi_6,
+ Gamma_6,e_Gamma_6,RV_6,e_RV_6,MembPA_6,MembPB_6,ID_6
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end