Conversion of standardized ReadMe file for
file /./ftp/cats/III/116 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-18
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. III/116 Spectrophotometric Standards (Massey+ 1988)
*================================================================================
*Spectrophotometric Standards
* Massey P., Strobel K., Barnes J.V., Anderson E.
* <Astrophys. J. 328, 315 (1988)>
* =1988ApJ...328..315M
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! List of stars with spectrophotometry
integer*4 nr__
parameter (nr__=25) ! Number of records
character*88 ar__ ! Full-size record
C 1950 position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg ! (deg) Right Ascension 1950
real*8 DEdeg ! (deg) Declination 1950
C ---------------------------------- ! (position vector(s) in degrees)
character*8 File ! Name of the file which contains the
* spectrophotometry
character*12 Star ! Name of the star
integer*4 RAh ! (h) Right Ascension 1950 (hours)
integer*4 RAm ! (min) Right Ascension 1950 (minutes)
real*4 RAs ! (s) Right Ascension 1950 (seconds)
character*1 DE_ ! Declination 1950 (sign)
integer*4 DEd ! (deg) Declination 1950 (degrees)
integer*4 DEm ! (arcmin) Declination 1950 (minutes)
integer*4 DEs ! (arcsec) Declination 1950 (seconds)
character*4 SpType ! Spectral type
real*4 m5666 ! (mag) Magnitude (1)
real*4 B_V ! (mag) ? colour
character*24 Notes ! Notes concerning the star
*Note (1): All magnitudes are m_5556 except for PG 0934+554 for which V
* is given. For PG 0205+134, PG 0216+032, PG 0310+149, PG 0939+262,
* and PG 1708+602, the g-v indices of Green, Schmidt, and Liebert
* have been substituted for B-V.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'sp01.dat' ! Spectrum of PG 0205+134
integer*4 nr__1
parameter (nr__1=2556) ! Number of records
character*16 ar__1 ! Full-size record
real*8 Lambda ! (0.1nm) Wavelength (Angstroems)
real*4 m_Lambda ! (mag) ?=0.00 Magnitude on the Hayes-Latham system
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'sp02.dat' ! Spectrum of PG 0216+032
integer*4 nr__2
parameter (nr__2=2718) ! Number of records
character*16 ar__2 ! Full-size record
real*8 Lambda_1 ! (0.1nm) Wavelength (Angstroems)
real*4 m_Lambda_1 ! (mag) ?=0.00 Magnitude on the Hayes-Latham system
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'sp03.dat' ! Spectrum of PG 0310+149
integer*4 nr__3
parameter (nr__3=2556) ! Number of records
character*16 ar__3 ! Full-size record
real*8 Lambda_2 ! (0.1nm) Wavelength (Angstroems)
real*4 m_Lambda_1 ! (mag) ?=0.00 Magnitude on the Hayes-Latham system
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'sp04.dat' ! Spectrum of HZ 14
integer*4 nr__4
parameter (nr__4=2729) ! Number of records
character*16 ar__4 ! Full-size record
real*8 Lambda_3 ! (0.1nm) Wavelength (Angstroems)
real*4 m_Lambda_1 ! (mag) ?=0.00 Magnitude on the Hayes-Latham system
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'sp05.dat' ! Spectrum of G 191B2B
integer*4 nr__5
parameter (nr__5=2730) ! Number of records
character*16 ar__5 ! Full-size record
real*8 Lambda_4 ! (0.1nm) Wavelength (Angstroems)
real*4 m_Lambda_1 ! (mag) ?=0.00 Magnitude on the Hayes-Latham system
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'sp06.dat' ! Spectrum of Hiltner 600
integer*4 nr__6
parameter (nr__6=2525) ! Number of records
character*16 ar__6 ! Full-size record
real*8 Lambda_5 ! (0.1nm) Wavelength (Angstroems)
real*4 m_Lambda_1 ! (mag) ?=0.00 Magnitude on the Hayes-Latham system
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'sp07.dat' ! Spectrum of PG 0823+546
integer*4 nr__7
parameter (nr__7=2526) ! Number of records
character*16 ar__7 ! Full-size record
real*8 Lambda_6 ! (0.1nm) Wavelength (Angstroems)
real*4 m_Lambda_1 ! (mag) ?=0.00 Magnitude on the Hayes-Latham system
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'sp08.dat' ! Spectrum of PG 0846+249
integer*4 nr__8
parameter (nr__8=3054) ! Number of records
character*16 ar__8 ! Full-size record
real*8 Lambda_7 ! (0.1nm) Wavelength (Angstroems)
real*4 m_Lambda_1 ! (mag) ?=0.00 Magnitude on the Hayes-Latham system
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'sp09.dat' ! Spectrum of PG 0934+554
integer*4 nr__9
parameter (nr__9=2515) ! Number of records
character*16 ar__9 ! Full-size record
real*8 Lambda_8 ! (0.1nm) Wavelength (Angstroems)
real*4 m_Lambda_1 ! (mag) ?=0.00 Magnitude on the Hayes-Latham system
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'sp10.dat' ! Spectrum of PG 0939+262
integer*4 nr__10
parameter (nr__10=3053) ! Number of records
character*16 ar__10 ! Full-size record
real*8 Lambda_9 ! (0.1nm) Wavelength (Angstroems)
real*4 m_Lambda_1 ! (mag) ?=0.00 Magnitude on the Hayes-Latham system
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'sp11.dat' ! Spectrum of Feige 34
integer*4 nr__11
parameter (nr__11=3461) ! Number of records
character*16 ar__11 ! Full-size record
real*8 Lambda_10 ! (0.1nm) Wavelength (Angstroems)
real*4 m_Lambda_1 ! (mag) ?=0.00 Magnitude on the Hayes-Latham system
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'sp12.dat' ! Spectrum of PG 1121+145
integer*4 nr__12
parameter (nr__12=2931) ! Number of records
character*16 ar__12 ! Full-size record
real*8 Lambda_11 ! (0.1nm) Wavelength (Angstroems)
real*4 m_Lambda_1 ! (mag) ?=0.00 Magnitude on the Hayes-Latham system
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'sp13.dat' ! Spectrum of GD 140
integer*4 nr__13
parameter (nr__13=2516) ! Number of records
character*16 ar__13 ! Full-size record
real*8 Lambda_12 ! (0.1nm) Wavelength (Angstroems)
real*4 m_Lambda_1 ! (mag) ?=0.00 Magnitude on the Hayes-Latham system
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'sp14.dat' ! Spectrum of EG 81
integer*4 nr__14
parameter (nr__14=2533) ! Number of records
character*16 ar__14 ! Full-size record
real*8 Lambda_13 ! (0.1nm) Wavelength (Angstroems)
real*4 m_Lambda_1 ! (mag) ?=0.00 Magnitude on the Hayes-Latham system
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'sp15.dat' ! Spectrum of Feige 66
integer*4 nr__15
parameter (nr__15=2533) ! Number of records
character*16 ar__15 ! Full-size record
real*8 Lambda_14 ! (0.1nm) Wavelength (Angstroems)
real*4 m_Lambda_1 ! (mag) ?=0.00 Magnitude on the Hayes-Latham system
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'sp16.dat' ! Spectrum of Feige 67
integer*4 nr__16
parameter (nr__16=2533) ! Number of records
character*16 ar__16 ! Full-size record
real*8 Lambda_15 ! (0.1nm) Wavelength (Angstroems)
real*4 m_Lambda_1 ! (mag) ?=0.00 Magnitude on the Hayes-Latham system
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'sp17.dat' ! Spectrum of HZ 44
integer*4 nr__17
parameter (nr__17=3345) ! Number of records
character*16 ar__17 ! Full-size record
real*8 Lambda_16 ! (0.1nm) Wavelength (Angstroems)
real*4 m_Lambda_1 ! (mag) ?=0.00 Magnitude on the Hayes-Latham system
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'sp18.dat' ! Spectrum of PG 1545+035
integer*4 nr__18
parameter (nr__18=1863) ! Number of records
character*16 ar__18 ! Full-size record
real*8 Lambda_17 ! (0.1nm) Wavelength (Angstroems)
real*4 m_Lambda_1 ! (mag) ?=0.00 Magnitude on the Hayes-Latham system
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'sp19.dat' ! Spectrum of PG 1708+602
integer*4 nr__19
parameter (nr__19=2433) ! Number of records
character*16 ar__19 ! Full-size record
real*8 Lambda_18 ! (0.1nm) Wavelength (Angstroems)
real*4 m_Lambda_1 ! (mag) ?=0.00 Magnitude on the Hayes-Latham system
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'sp20.dat' ! Spectrum of HD 192281
integer*4 nr__20
parameter (nr__20=2433) ! Number of records
character*16 ar__20 ! Full-size record
real*8 Lambda_19 ! (0.1nm) Wavelength (Angstroems)
real*4 m_Lambda_1 ! (mag) ?=0.00 Magnitude on the Hayes-Latham system
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'sp21.dat' ! Spectrum of Cyg OB2 No.9
integer*4 nr__21
parameter (nr__21=2434) ! Number of records
character*16 ar__21 ! Full-size record
real*8 Lambda_20 ! (0.1nm) Wavelength (Angstroems)
real*4 m_Lambda_1 ! (mag) ?=0.00 Magnitude on the Hayes-Latham system
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'sp22.dat' ! Spectrum of Wolf 1346
integer*4 nr__22
parameter (nr__22=2434) ! Number of records
character*16 ar__22 ! Full-size record
real*8 Lambda_21 ! (0.1nm) Wavelength (Angstroems)
real*4 m_Lambda_1 ! (mag) ?=0.00 Magnitude on the Hayes-Latham system
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'sp23.dat' ! Spectrum of BD +28 4211
integer*4 nr__23
parameter (nr__23=3209) ! Number of records
character*16 ar__23 ! Full-size record
real*8 Lambda_22 ! (0.1nm) Wavelength (Angstroems)
real*4 m_Lambda_1 ! (mag) ?=0.00 Magnitude on the Hayes-Latham system
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'sp24.dat' ! Spectrum of HD 217086
integer*4 nr__24
parameter (nr__24=2433) ! Number of records
character*16 ar__24 ! Full-size record
real*8 Lambda_23 ! (0.1nm) Wavelength (Angstroems)
real*4 m_Lambda_1 ! (mag) ?=0.00 Magnitude on the Hayes-Latham system
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'sp25.dat' ! Spectrum of Feige 110
integer*4 nr__25
parameter (nr__25=2419) ! Number of records
character*16 ar__25 ! Full-size record
real*8 Lambda_24 ! (0.1nm) Wavelength (Angstroems)
real*4 m_Lambda_1 ! (mag) ?=0.00 Magnitude on the Hayes-Latham system
C=============================================================================
C Loading file 'table1.dat' ! List of stars with spectrophotometry
C Format for file interpretation
1 format(
+ A8,2X,A12,1X,I2,1X,I2,1X,F4.1,1X,A1,I2,1X,I2,1X,I2,2X,A4,2X,
+ F5.2,1X,F5.2,2X,A24)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,25
read(1,'(A88)')ar__
read(ar__,1)
+ File,Star,RAh,RAm,RAs,DE_,DEd,DEm,DEs,SpType,m5666,B_V,Notes
if(ar__(58:62) .EQ. '') B_V = rNULL__
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)
+ File,Star,RAh,RAm,RAs,DE_,DEd,DEm,DEs,SpType,m5666,B_V,Notes
write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'sp01.dat' ! Spectrum of PG 0205+134
C Format for file interpretation
2 format(F9.4,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'sp01.dat')
write(6,*) '....Loading file: sp01.dat'
do i__=1,2556
read(1,'(A16)')ar__1
read(ar__1,2)Lambda,m_Lambda
c ..............Just test output...........
write(6,2)Lambda,m_Lambda
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'sp02.dat' ! Spectrum of PG 0216+032
C Format for file interpretation
3 format(F9.4,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'sp02.dat')
write(6,*) '....Loading file: sp02.dat'
do i__=1,2718
read(1,'(A16)')ar__2
read(ar__2,3)Lambda_1,m_Lambda_1
c ..............Just test output...........
write(6,3)Lambda_1,m_Lambda_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'sp03.dat' ! Spectrum of PG 0310+149
C Format for file interpretation
4 format(F9.4,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'sp03.dat')
write(6,*) '....Loading file: sp03.dat'
do i__=1,2556
read(1,'(A16)')ar__3
read(ar__3,4)Lambda_2,m_Lambda_1
c ..............Just test output...........
write(6,4)Lambda_2,m_Lambda_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'sp04.dat' ! Spectrum of HZ 14
C Format for file interpretation
5 format(F9.4,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'sp04.dat')
write(6,*) '....Loading file: sp04.dat'
do i__=1,2729
read(1,'(A16)')ar__4
read(ar__4,5)Lambda_3,m_Lambda_1
c ..............Just test output...........
write(6,5)Lambda_3,m_Lambda_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'sp05.dat' ! Spectrum of G 191B2B
C Format for file interpretation
6 format(F9.4,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'sp05.dat')
write(6,*) '....Loading file: sp05.dat'
do i__=1,2730
read(1,'(A16)')ar__5
read(ar__5,6)Lambda_4,m_Lambda_1
c ..............Just test output...........
write(6,6)Lambda_4,m_Lambda_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'sp06.dat' ! Spectrum of Hiltner 600
C Format for file interpretation
7 format(F9.4,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'sp06.dat')
write(6,*) '....Loading file: sp06.dat'
do i__=1,2525
read(1,'(A16)')ar__6
read(ar__6,7)Lambda_5,m_Lambda_1
c ..............Just test output...........
write(6,7)Lambda_5,m_Lambda_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'sp07.dat' ! Spectrum of PG 0823+546
C Format for file interpretation
8 format(F9.4,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'sp07.dat')
write(6,*) '....Loading file: sp07.dat'
do i__=1,2526
read(1,'(A16)')ar__7
read(ar__7,8)Lambda_6,m_Lambda_1
c ..............Just test output...........
write(6,8)Lambda_6,m_Lambda_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'sp08.dat' ! Spectrum of PG 0846+249
C Format for file interpretation
9 format(F9.4,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'sp08.dat')
write(6,*) '....Loading file: sp08.dat'
do i__=1,3054
read(1,'(A16)')ar__8
read(ar__8,9)Lambda_7,m_Lambda_1
c ..............Just test output...........
write(6,9)Lambda_7,m_Lambda_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'sp09.dat' ! Spectrum of PG 0934+554
C Format for file interpretation
10 format(F9.4,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'sp09.dat')
write(6,*) '....Loading file: sp09.dat'
do i__=1,2515
read(1,'(A16)')ar__9
read(ar__9,10)Lambda_8,m_Lambda_1
c ..............Just test output...........
write(6,10)Lambda_8,m_Lambda_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'sp10.dat' ! Spectrum of PG 0939+262
C Format for file interpretation
11 format(F9.4,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'sp10.dat')
write(6,*) '....Loading file: sp10.dat'
do i__=1,3053
read(1,'(A16)')ar__10
read(ar__10,11)Lambda_9,m_Lambda_1
c ..............Just test output...........
write(6,11)Lambda_9,m_Lambda_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'sp11.dat' ! Spectrum of Feige 34
C Format for file interpretation
12 format(F9.4,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'sp11.dat')
write(6,*) '....Loading file: sp11.dat'
do i__=1,3461
read(1,'(A16)')ar__11
read(ar__11,12)Lambda_10,m_Lambda_1
c ..............Just test output...........
write(6,12)Lambda_10,m_Lambda_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'sp12.dat' ! Spectrum of PG 1121+145
C Format for file interpretation
13 format(F9.4,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'sp12.dat')
write(6,*) '....Loading file: sp12.dat'
do i__=1,2931
read(1,'(A16)')ar__12
read(ar__12,13)Lambda_11,m_Lambda_1
c ..............Just test output...........
write(6,13)Lambda_11,m_Lambda_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'sp13.dat' ! Spectrum of GD 140
C Format for file interpretation
14 format(F9.4,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'sp13.dat')
write(6,*) '....Loading file: sp13.dat'
do i__=1,2516
read(1,'(A16)')ar__13
read(ar__13,14)Lambda_12,m_Lambda_1
c ..............Just test output...........
write(6,14)Lambda_12,m_Lambda_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'sp14.dat' ! Spectrum of EG 81
C Format for file interpretation
15 format(F9.4,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'sp14.dat')
write(6,*) '....Loading file: sp14.dat'
do i__=1,2533
read(1,'(A16)')ar__14
read(ar__14,15)Lambda_13,m_Lambda_1
c ..............Just test output...........
write(6,15)Lambda_13,m_Lambda_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'sp15.dat' ! Spectrum of Feige 66
C Format for file interpretation
16 format(F9.4,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'sp15.dat')
write(6,*) '....Loading file: sp15.dat'
do i__=1,2533
read(1,'(A16)')ar__15
read(ar__15,16)Lambda_14,m_Lambda_1
c ..............Just test output...........
write(6,16)Lambda_14,m_Lambda_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'sp16.dat' ! Spectrum of Feige 67
C Format for file interpretation
17 format(F9.4,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'sp16.dat')
write(6,*) '....Loading file: sp16.dat'
do i__=1,2533
read(1,'(A16)')ar__16
read(ar__16,17)Lambda_15,m_Lambda_1
c ..............Just test output...........
write(6,17)Lambda_15,m_Lambda_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'sp17.dat' ! Spectrum of HZ 44
C Format for file interpretation
18 format(F9.4,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'sp17.dat')
write(6,*) '....Loading file: sp17.dat'
do i__=1,3345
read(1,'(A16)')ar__17
read(ar__17,18)Lambda_16,m_Lambda_1
c ..............Just test output...........
write(6,18)Lambda_16,m_Lambda_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'sp18.dat' ! Spectrum of PG 1545+035
C Format for file interpretation
19 format(F9.4,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'sp18.dat')
write(6,*) '....Loading file: sp18.dat'
do i__=1,1863
read(1,'(A16)')ar__18
read(ar__18,19)Lambda_17,m_Lambda_1
c ..............Just test output...........
write(6,19)Lambda_17,m_Lambda_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'sp19.dat' ! Spectrum of PG 1708+602
C Format for file interpretation
20 format(F9.4,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'sp19.dat')
write(6,*) '....Loading file: sp19.dat'
do i__=1,2433
read(1,'(A16)')ar__19
read(ar__19,20)Lambda_18,m_Lambda_1
c ..............Just test output...........
write(6,20)Lambda_18,m_Lambda_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'sp20.dat' ! Spectrum of HD 192281
C Format for file interpretation
21 format(F9.4,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'sp20.dat')
write(6,*) '....Loading file: sp20.dat'
do i__=1,2433
read(1,'(A16)')ar__20
read(ar__20,21)Lambda_19,m_Lambda_1
c ..............Just test output...........
write(6,21)Lambda_19,m_Lambda_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'sp21.dat' ! Spectrum of Cyg OB2 No.9
C Format for file interpretation
22 format(F9.4,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'sp21.dat')
write(6,*) '....Loading file: sp21.dat'
do i__=1,2434
read(1,'(A16)')ar__21
read(ar__21,22)Lambda_20,m_Lambda_1
c ..............Just test output...........
write(6,22)Lambda_20,m_Lambda_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'sp22.dat' ! Spectrum of Wolf 1346
C Format for file interpretation
23 format(F9.4,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'sp22.dat')
write(6,*) '....Loading file: sp22.dat'
do i__=1,2434
read(1,'(A16)')ar__22
read(ar__22,23)Lambda_21,m_Lambda_1
c ..............Just test output...........
write(6,23)Lambda_21,m_Lambda_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'sp23.dat' ! Spectrum of BD +28 4211
C Format for file interpretation
24 format(F9.4,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'sp23.dat')
write(6,*) '....Loading file: sp23.dat'
do i__=1,3209
read(1,'(A16)')ar__23
read(ar__23,24)Lambda_22,m_Lambda_1
c ..............Just test output...........
write(6,24)Lambda_22,m_Lambda_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'sp24.dat' ! Spectrum of HD 217086
C Format for file interpretation
25 format(F9.4,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'sp24.dat')
write(6,*) '....Loading file: sp24.dat'
do i__=1,2433
read(1,'(A16)')ar__24
read(ar__24,25)Lambda_23,m_Lambda_1
c ..............Just test output...........
write(6,25)Lambda_23,m_Lambda_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'sp25.dat' ! Spectrum of Feige 110
C Format for file interpretation
26 format(F9.4,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'sp25.dat')
write(6,*) '....Loading file: sp25.dat'
do i__=1,2419
read(1,'(A16)')ar__25
read(ar__25,26)Lambda_24,m_Lambda_1
c ..............Just test output...........
write(6,26)Lambda_24,m_Lambda_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end