Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJS/99/637 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/ApJS/99/637 Equivalent widths for 54 red giants (Norris+ 1995)
*================================================================================
*Equivalent widths for 54 red giants in 47 Tucanae, Omega Centauri, NGC 6397,
*M22, and NGC 6752
* Norris J.E., Da Costa G.S., Tingay S.J.
* <Astrophys. J. Suppl. Ser. 99, 637 (1995)>
* =1995ApJS...99..637N
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1' ! *Equivalent widths (mA) and atomic data for
Alpha Bootis and Omega Centauri giants
integer*4 nr__
parameter (nr__=361) ! Number of records
character*117 ar__ ! Full-size record
character*7 Species ! Atomic species
real*8 Lambda ! (0.1nm) Spectral line wavelength
real*4 Chi ! Chi value
real*4 gf ! *[]? Log gf value
integer*4 AlpBoo ! (10-4nm) []? Equivalent width for Alpha Boo
character*1 l_EW40 ! *[<b] Limiting character for EW40
integer*4 EW40 ! (10-4nm) *[]? Equivalent width for Ome Cen star 40
character*1 l_EW42 ! [<b] Limiting character for EW42
integer*4 EW42 ! (10-4nm) []? Equivalent width for Ome Cen star 42
character*1 l_EW43 ! [<b] Limiting character for EW43
integer*4 EW43 ! (10-4nm) []? Equivalent width for Ome Cen star 43
character*1 l_EW46 ! [<b] Limiting character for EW46
integer*4 EW46 ! (10-4nm) []? Equivalent width for Ome Cen star 46
character*1 l_EW48 ! [<b] Limiting character for EW48
integer*4 EW48 ! (10-4nm) []? Equivalent width for Ome Cen star 48
character*1 l_EW53 ! [<b] Limiting character for EW53
integer*4 EW53 ! (10-4nm) []? Equivalent width for Ome Cen star 53
character*1 l_EW58 ! [<b] Limiting character for EW58
integer*4 EW58 ! (10-4nm) []? Equivalent width for Ome Cen star 58
character*1 l_EW74 ! [<b] Limiting character for EW74
integer*4 EW74 ! (10-4nm) []? Equivalent width for Ome Cen star 74
character*1 l_EW84 ! [<b] Limiting character for EW84
integer*4 EW84 ! (10-4nm) []? Equivalent width for Ome Cen star 84
character*1 l_EW94 ! [<b] Limiting character for EW94
integer*4 EW94 ! (10-4nm) []? Equivalent width for Ome Cen star 94
character*1 l_EW100 ! [<b] Limiting character for EW100
integer*4 EW100 ! (10-4nm) []? Equivalent width for Ome Cen star 100
character*1 l_EW102 ! [<b] Limiting character for EW102
integer*4 EW102 ! (10-4nm) []? Equivalent width for Ome Cen star 102
character*1 l_EW132 ! [<b] Limiting character for EW132
integer*4 EW132 ! (10-4nm) []? Equivalent width for Ome Cen star 132
character*1 l_EW144 ! [<b] Limiting character for EW144
integer*4 EW144 ! (10-4nm) []? Equivalent width for Ome Cen star 144
character*1 l_EW150 ! [<b] Limiting character for EW150
integer*4 EW150 ! (10-4nm) []? Equivalent width for Ome Cen star 150
character*1 l_EW155 ! [<b] Limiting character for EW155
integer*4 EW155 ! (10-4nm) []? Equivalent width for Ome Cen star 155
character*1 l_EW159 ! [<b] Limiting character for EW159
integer*4 EW159 ! (10-4nm) []? Equivalent width for Ome Cen star 159
*Note on gf:
* Log gf value based on an inverted model atmosphere analysis of the
* line strengths for Alpha Boo of those lines which are used to
* determine abundances.
*Note on l_EW40:
* The limiting characters for EW40 and all other equivalent width
* fields are: '<' if the EW is an upper limit; 'b' if the line
* appeared to be a blend or to have a profile which is not conducive
* to line strength measurement.
*Note on EW40:
* For EW40 and all other equivalent width fields, no data value is
* given in the case of a blend (see the comment for l_EW40) or when no
* attempt was made to measure the line (usually because it fell outside
* the detector, fell in a proscribed wavelength range, or was
* contaminated by terrestrial water vapor).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2' ! *Equivalent widths (mA) and atomic data for
Omega Centauri giants
integer*4 nr__1
parameter (nr__1=361) ! Number of records
character*117 ar__1 ! Full-size record
character*7 Species_1 ! Atomic species
real*8 Lambda_1 ! (0.1nm) Spectral line wavelength
real*4 Chi_1 ! Chi value
real*4 gf_1 ! *[]? Log gf value
character*1 l_EW161 ! *[<b] Limiting character for EW161
integer*4 EW161 ! (10-4nm) []? Equivalent width for Ome Cen star 161
character*1 l_EW162 ! *[<b] Limiting character for EW162
integer*4 EW162 ! (10-4nm) *[]? Equivalent width for Ome Cen star 162
character*1 l_EW171 ! [<b] Limiting character for EW171
integer*4 EW171 ! (10-4nm) []? Equivalent width for Ome Cen star 171
character*1 l_EW179 ! [<b] Limiting character for EW179
integer*4 EW179 ! (10-4nm) []? Equivalent width for Ome Cen star 179
character*1 l_EW182 ! [<b] Limiting character for EW182
integer*4 EW182 ! (10-4nm) []? Equivalent width for Ome Cen star 182
character*1 l_EW201 ! [<b] Limiting character for EW201
integer*4 EW201 ! (10-4nm) []? Equivalent width for Ome Cen star 201
character*1 l_EW213 ! [<b] Limiting character for EW213
integer*4 EW213 ! (10-4nm) []? Equivalent width for Ome Cen star 213
character*1 l_EW219 ! [<b] Limiting character for EW219
integer*4 EW219 ! (10-4nm) []? Equivalent width for Ome Cen star 219
character*1 l_EW231 ! [<b] Limiting character for EW231
integer*4 EW231 ! (10-4nm) []? Equivalent width for Ome Cen star 231
character*1 l_EW234 ! [<b] Limiting character for EW234
integer*4 EW234 ! (10-4nm) []? Equivalent width for Ome Cen star 234
character*1 l_EW248 ! [<b] Limiting character for EW248
integer*4 EW248 ! (10-4nm) []? Equivalent width for Ome Cen star 248
character*1 l_EW252 ! [<b] Limiting character for EW252
integer*4 EW252 ! (10-4nm) []? Equivalent width for Ome Cen star 252
character*1 l_EW253 ! [<b] Limiting character for EW253
integer*4 EW253 ! (10-4nm) []? Equivalent width for Ome Cen star 253
character*1 l_EW279 ! [<b] Limiting character for EW279
integer*4 EW279 ! (10-4nm) []? Equivalent width for Ome Cen star 279
character*1 l_EW287 ! [<b] Limiting character for EW287
integer*4 EW287 ! (10-4nm) []? Equivalent width for Ome Cen star 287
character*1 l_EW357 ! [<b] Limiting character for EW357
integer*4 EW357 ! (10-4nm) []? Equivalent width for Ome Cen star 357
character*1 l_EW371 ! [<b] Limiting character for EW371
integer*4 EW371 ! (10-4nm) []? Equivalent width for Ome Cen star 371
character*1 l_EW480 ! [<b] Limiting character for EW480
integer*4 EW480 ! (10-4nm) []? Equivalent width for Ome Cen star 480
*Note on gf:
* Log gf value based on an inverted model atmosphere analysis of the
* line strengths for Alpha Boo of those lines which are used to
* determine abundances.
*Note on l_EW161, l_EW162:
* The limiting characters for EW161 and all other equivalent width
* fields are: '<' if the EW is an upper limit; 'b' if the line
* appeared to be a blend or to have a profile which is not conducive
* to line strength measurement.
*Note on EW161, EW162:
* For EW161 and all other equivalent width fields, no data value is
* given in the case of a blend (see the comment for l_EW161) or when no
* attempt was made to measure the line (usually because it fell outside
* the detector, fell in a proscribed wavelength range, or was
* contaminated by terrestrial water vapor).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3' ! *Equivalent widths (mA) for 47 Tucanae, NGC 6397,
M22, and NGC 6752 giants
integer*4 nr__2
parameter (nr__2=361) ! Number of records
character*109 ar__2 ! Full-size record
character*7 Species_2 ! Atomic species
real*8 Lambda_2 ! (0.1nm) Spectral line wavelength
character*1 l_L5529 ! *[<b] Limiting character for L5529
integer*4 L5529 ! *[]? EW for 47 Tuc object L5529
character*1 l_R211 ! [<b] Limiting character for R211
integer*4 R211 ! (10-4nm) []? EW for NGC 6397 object R211
character*1 l_R469 ! [<b] Limiting character for R469
integer*4 R469 ! (10-4nm) []? EW for NGC 6397 object R469
character*1 l_I12 ! [<b] Limiting character for I12
integer*4 I12 ! (10-4nm) []? EW for M22 object I-12
character*1 l_I57 ! [<b] Limiting character for I57
integer*4 I57 ! (10-4nm) []? EW for M22 object I-57
character*1 l_I86 ! [<b] Limiting character for I86
integer*4 I86 ! (10-4nm) []? EW for M22 object I-86
character*1 l_III12 ! [<b] Limiting character for III12
integer*4 III12 ! (10-4nm) []? EW for M22 object III-12
character*1 l_III14 ! [<b] Limiting character for III14
integer*4 III14 ! (10-4nm) []? EW for M22 object III-14
character*1 l_III96 ! [<b] Limiting character for III96
integer*4 III96 ! (10-4nm) []? EW for M22 object III-96
character*1 l_IV20 ! [<b] Limiting character for IV20
integer*4 IV20 ! (10-4nm) []? EW for M22 object IV-20
character*1 l_IV76 ! [<b] Limiting character for IV76
integer*4 IV76 ! (10-4nm) []? EW for M22 object IV-76
character*1 l_IV88 ! [<b] Limiting character for IV88
integer*4 IV88 ! (10-4nm) []? EW for M22 object IV-88
character*1 l_IV102 ! [<b] Limiting character for IV102
integer*4 IV102 ! (10-4nm) []? EW for M22 object IV-102
character*1 l_A29 ! [<b] Limiting character for A29
integer*4 A29 ! (10-4nm) []? EW for NGC 6752 object A29
character*1 l_A45 ! [<b] Limiting character for A45
integer*4 A45 ! (10-4nm) []? EW for NGC 6752 object A45
character*1 l_CS3 ! [<b] Limiting character for CS3
integer*4 CS3 ! (10-4nm) []? EW for NGC 6752 object CS3
character*1 l_C1015 ! [<b] Limiting character for C1015
integer*4 C1015 ! (10-4nm) []? EW for NGC 6752 object C1015
character*1 l_C1066 ! [<b] Limiting character for C1066
integer*4 C1066 ! (10-4nm) []? EW for NGC 6752 object C1066
character*1 l_C1089 ! [<b] Limiting character for C1089
integer*4 C1089 ! (10-4nm) []? EW for NGC 6752 object C1089
*Note on l_L5529:
* The limiting characters for L5529 and all other equivalent width
* fields are: '<' if the EW is an upper limit; 'b' if the line
* appeared to be a blend or to have a profile which is not conducive
* to line strength measurement.
*Note on L5529:
* For L5529 and all other equivalent width fields, no data value is
* given in the case of a blend (see the comment for l_L5529) or when no
* attempt was made to measure the line (usually because it fell outside
* the detector, fell in a proscribed wavelength range, or was
* contaminated by terrestrial water vapor).
C=============================================================================
C Loading file 'table1' ! *Equivalent widths (mA) and atomic data for
* Alpha Bootis and Omega Centauri giants
C Format for file interpretation
1 format(
+ A7,F7.2,1X,F5.2,1X,F5.2,3X,I3,1X,A1,I3,1X,A1,I3,1X,A1,I3,1X,
+ A1,I3,1X,A1,I3,1X,A1,I3,1X,A1,I3,1X,A1,I3,1X,A1,I3,1X,A1,I3,
+ 1X,A1,I3,1X,A1,I3,1X,A1,I3,1X,A1,I3,1X,A1,I3,1X,A1,I3,1X,A1,I3)
C Effective file loading
open(unit=1,status='old',file=
+'table1')
write(6,*) '....Loading file: table1'
do i__=1,361
read(1,'(A117)')ar__
read(ar__,1)
+ Species,Lambda,Chi,gf,AlpBoo,l_EW40,EW40,l_EW42,EW42,l_EW43,
+ EW43,l_EW46,EW46,l_EW48,EW48,l_EW53,EW53,l_EW58,EW58,l_EW74,
+ EW74,l_EW84,EW84,l_EW94,EW94,l_EW100,EW100,l_EW102,EW102,
+ l_EW132,EW132,l_EW144,EW144,l_EW150,EW150,l_EW155,EW155,
+ l_EW159,EW159
if(ar__(22:26) .EQ. '') gf = rNULL__
if(ar__(30:32) .EQ. '') AlpBoo = iNULL__
if(ar__(35:37) .EQ. '') EW40 = iNULL__
if(ar__(40:42) .EQ. '') EW42 = iNULL__
if(ar__(45:47) .EQ. '') EW43 = iNULL__
if(ar__(50:52) .EQ. '') EW46 = iNULL__
if(ar__(55:57) .EQ. '') EW48 = iNULL__
if(ar__(60:62) .EQ. '') EW53 = iNULL__
if(ar__(65:67) .EQ. '') EW58 = iNULL__
if(ar__(70:72) .EQ. '') EW74 = iNULL__
if(ar__(75:77) .EQ. '') EW84 = iNULL__
if(ar__(80:82) .EQ. '') EW94 = iNULL__
if(ar__(85:87) .EQ. '') EW100 = iNULL__
if(ar__(90:92) .EQ. '') EW102 = iNULL__
if(ar__(95:97) .EQ. '') EW132 = iNULL__
if(ar__(100:102) .EQ. '') EW144 = iNULL__
if(ar__(105:107) .EQ. '') EW150 = iNULL__
if(ar__(110:112) .EQ. '') EW155 = iNULL__
if(ar__(115:117) .EQ. '') EW159 = iNULL__
c ..............Just test output...........
write(6,1)
+ Species,Lambda,Chi,gf,AlpBoo,l_EW40,EW40,l_EW42,EW42,l_EW43,
+ EW43,l_EW46,EW46,l_EW48,EW48,l_EW53,EW53,l_EW58,EW58,l_EW74,
+ EW74,l_EW84,EW84,l_EW94,EW94,l_EW100,EW100,l_EW102,EW102,
+ l_EW132,EW132,l_EW144,EW144,l_EW150,EW150,l_EW155,EW155,
+ l_EW159,EW159
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2' ! *Equivalent widths (mA) and atomic data for
* Omega Centauri giants
C Format for file interpretation
2 format(
+ A7,F7.2,1X,F5.2,1X,F5.2,2X,A1,I3,1X,A1,I3,1X,A1,I3,1X,A1,I3,
+ 1X,A1,I3,1X,A1,I3,1X,A1,I3,1X,A1,I3,1X,A1,I3,1X,A1,I3,1X,A1,
+ I3,1X,A1,I3,1X,A1,I3,1X,A1,I3,1X,A1,I3,1X,A1,I3,1X,A1,I3,1X,
+ A1,I3)
C Effective file loading
open(unit=1,status='old',file=
+'table2')
write(6,*) '....Loading file: table2'
do i__=1,361
read(1,'(A117)')ar__1
read(ar__1,2)
+ Species_1,Lambda_1,Chi_1,gf_1,l_EW161,EW161,l_EW162,EW162,
+ l_EW171,EW171,l_EW179,EW179,l_EW182,EW182,l_EW201,EW201,
+ l_EW213,EW213,l_EW219,EW219,l_EW231,EW231,l_EW234,EW234,
+ l_EW248,EW248,l_EW252,EW252,l_EW253,EW253,l_EW279,EW279,
+ l_EW287,EW287,l_EW357,EW357,l_EW371,EW371,l_EW480,EW480
if(ar__1(22:26) .EQ. '') gf_1 = rNULL__
if(ar__1(30:32) .EQ. '') EW161 = iNULL__
if(ar__1(35:37) .EQ. '') EW162 = iNULL__
if(ar__1(40:42) .EQ. '') EW171 = iNULL__
if(ar__1(45:47) .EQ. '') EW179 = iNULL__
if(ar__1(50:52) .EQ. '') EW182 = iNULL__
if(ar__1(55:57) .EQ. '') EW201 = iNULL__
if(ar__1(60:62) .EQ. '') EW213 = iNULL__
if(ar__1(65:67) .EQ. '') EW219 = iNULL__
if(ar__1(70:72) .EQ. '') EW231 = iNULL__
if(ar__1(75:77) .EQ. '') EW234 = iNULL__
if(ar__1(80:82) .EQ. '') EW248 = iNULL__
if(ar__1(85:87) .EQ. '') EW252 = iNULL__
if(ar__1(90:92) .EQ. '') EW253 = iNULL__
if(ar__1(95:97) .EQ. '') EW279 = iNULL__
if(ar__1(100:102) .EQ. '') EW287 = iNULL__
if(ar__1(105:107) .EQ. '') EW357 = iNULL__
if(ar__1(110:112) .EQ. '') EW371 = iNULL__
if(ar__1(115:117) .EQ. '') EW480 = iNULL__
c ..............Just test output...........
write(6,2)
+ Species_1,Lambda_1,Chi_1,gf_1,l_EW161,EW161,l_EW162,EW162,
+ l_EW171,EW171,l_EW179,EW179,l_EW182,EW182,l_EW201,EW201,
+ l_EW213,EW213,l_EW219,EW219,l_EW231,EW231,l_EW234,EW234,
+ l_EW248,EW248,l_EW252,EW252,l_EW253,EW253,l_EW279,EW279,
+ l_EW287,EW287,l_EW357,EW357,l_EW371,EW371,l_EW480,EW480
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3' ! *Equivalent widths (mA) for 47 Tucanae, NGC 6397,
* M22, and NGC 6752 giants
C Format for file interpretation
3 format(
+ A7,F7.2,1X,A1,I3,1X,A1,I3,1X,A1,I3,1X,A1,I3,1X,A1,I3,1X,A1,I3,
+ 1X,A1,I3,1X,A1,I3,1X,A1,I3,1X,A1,I3,1X,A1,I3,1X,A1,I3,1X,A1,
+ I3,1X,A1,I3,1X,A1,I3,1X,A1,I3,1X,A1,I3,1X,A1,I3,1X,A1,I3)
C Effective file loading
open(unit=1,status='old',file=
+'table3')
write(6,*) '....Loading file: table3'
do i__=1,361
read(1,'(A109)')ar__2
read(ar__2,3)
+ Species_2,Lambda_2,l_L5529,L5529,l_R211,R211,l_R469,R469,
+ l_I12,I12,l_I57,I57,l_I86,I86,l_III12,III12,l_III14,III14,
+ l_III96,III96,l_IV20,IV20,l_IV76,IV76,l_IV88,IV88,l_IV102,
+ IV102,l_A29,A29,l_A45,A45,l_CS3,CS3,l_C1015,C1015,l_C1066,
+ C1066,l_C1089,C1089
if(ar__2(17:19) .EQ. '') L5529 = iNULL__
if(ar__2(22:24) .EQ. '') R211 = iNULL__
if(ar__2(27:29) .EQ. '') R469 = iNULL__
if(ar__2(32:34) .EQ. '') I12 = iNULL__
if(ar__2(37:39) .EQ. '') I57 = iNULL__
if(ar__2(42:44) .EQ. '') I86 = iNULL__
if(ar__2(47:49) .EQ. '') III12 = iNULL__
if(ar__2(52:54) .EQ. '') III14 = iNULL__
if(ar__2(57:59) .EQ. '') III96 = iNULL__
if(ar__2(62:64) .EQ. '') IV20 = iNULL__
if(ar__2(67:69) .EQ. '') IV76 = iNULL__
if(ar__2(72:74) .EQ. '') IV88 = iNULL__
if(ar__2(77:79) .EQ. '') IV102 = iNULL__
if(ar__2(82:84) .EQ. '') A29 = iNULL__
if(ar__2(87:89) .EQ. '') A45 = iNULL__
if(ar__2(92:94) .EQ. '') CS3 = iNULL__
if(ar__2(97:99) .EQ. '') C1015 = iNULL__
if(ar__2(102:104) .EQ. '') C1066 = iNULL__
if(ar__2(107:109) .EQ. '') C1089 = iNULL__
c ..............Just test output...........
write(6,3)
+ Species_2,Lambda_2,l_L5529,L5529,l_R211,R211,l_R469,R469,
+ l_I12,I12,l_I57,I57,l_I86,I86,l_III12,III12,l_III14,III14,
+ l_III96,III96,l_IV20,IV20,l_IV76,IV76,l_IV88,IV88,l_IV102,
+ IV102,l_A29,A29,l_A45,A45,l_CS3,CS3,l_C1015,C1015,l_C1066,
+ C1066,l_C1089,C1089
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end