Conversion of standardized ReadMe file for
catalog 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/136 Optical spectrophotometry of WR C and O Stars (Torres+ 1987)
*================================================================================
*An Atlas of Optical Spectrophotometry of Wolf-Rayet Carbon and Oxygen Stars
* Torres A.V., Massey P.
* <Astrophys. Journ. Suppl. 65, 459 (1987)>
* =1987ApJS...65..459T
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'summary.dat' ! *Infprmation of spectra
integer*4 nr__
parameter (nr__=86) ! Number of records
character*113 ar__ ! Full-size record
character*8 ID ! Star Identification (1)
character*20 Alt ! Other name(s)
character*3 Sp ! Spectral type from Torres; Conti and Massey
* (1986ApJ...300..379T)
character*1 abs ! [+] Absorption line(s) flag
character*3 Instr ! [IRS SIT] Instrument code (2)
integer*4 Np ! [477/2961] Number of data points (3)
character*70 rem ! Comments (4)
*Note (1):
* * WR numbers are from van der Hucht et al. (1981SSRv...28..227V, III/85).
* * BR numbers are from the compilation of W-R stars in the LMC by
* Breysacher 1981A&AS...43..203B).
* * Sk 188 is in the SMC (Azzopardi and Breysacher 1979A&A....75..120A).
*Note (2): instruments are:
* * IRS: Intensified Reticon Scanner on the white spectrograph at the No.1
* 0.9-m telescope at Kitt Peak. The IRS detector package consists of an
* ITT proximity-focused image tube followed by a micro-channel inverter
* image intensifier and a dual Reticon array of 936 pixels with a fiber
* optic window. Only 820 pixels are usable because of distortion and
* vignetting at the edge of the image tube field. The slit of the
* spectrograph is replaced by a pair of circular apertures oriented in
* the east-west direction so that the star and the sky can be observed
* simultaneously.
* * SIT: the majority of the southern hemisphere WC stars were observed by
* Massey at Cerro Tololo Inter-American Observatory between November
* 1981 and February 1985. The SIT-Vidicon detector was used on the
* Cassegrain spectrograph of The 1.5-m telescope. The SIT-Vidicon
* system has a poor dynamic range, and since WC stars have very strong
* emission lines, two exposures were in general necessary: one to get
* good signal to noise on the continuum and weak lines, with the strongest
* lines usually saturated, and one to get the strong lines unsaturated.
* The unsaturated lines were inserted in the final reduction.
*Note (3):
* The number of valid entries to be found in the data file for this
* observation. The number of data points varies from 477 to 2961.
*Note (4):
* If separate blue and red observations have been made, this is noted in
* the comments. All other comments should be self-explanatory.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'sp/*' ! *Individual spectra (3-column tables)
integer*4 nr__1
parameter (nr__1=88) ! Number of records
character*26 ar__1 ! Full-size record
real*4 Wave ! (0.1nm) [3099/7347] Wavelength {lambda} (1)
real*4 Flux ! (cW/m2/nm) Flux (erg/s/cm^2^/{AA}) (2)
real*4 mag ! (mag) Magnitude at {lambda} (3)
*Note (1):
* Wavelength (Angstroemi) of the observed data point in Angstroms.
* Wavelength scale calibration for the IRS observations was determined
* by exposing a He-Ne-Ar comparison source every night. Wavelength scale
* calibration for the SIT-Vidicon detector was determined by taking
* exposures of a He-Ar and a Hg lamp.
*Note (2):
* In units of erg.s^-1^.cm^-2^.{AA}^-1^.
* Several spectrophotometric standard stars were observed each night to
* determine the spectrophotometric calibrations. The user is referred to
* the original paper for detailed discussion of the data reduction.
*Note (3):
* The fluxes (F_{lambda}_) were converted to magnitude units using the
* calibration of Vega by Hayes and Latham (1975ApJ...197..593H), that is,
* m({nu})=-2.51og(F_{nu}_)-48.594, where {nu}F_{nu}_={lambda}F_{lambda}_.
* By plotting the data in magnitudes instead of flux units the relative
* strengths of the lines can be readily compared from the plots, and
* approximate colors at any given wavelength can be read directly.
C=============================================================================
C Loading file 'summary.dat' ! *Infprmation of spectra
C Format for file interpretation
1 format(A8,A20,A3,A1,1X,A3,I6,1X,A70)
C Effective file loading
open(unit=1,status='old',file=
+'summary.dat')
write(6,*) '....Loading file: summary.dat'
do i__=1,86
read(1,'(A113)')ar__
read(ar__,1)ID,Alt,Sp,abs,Instr,Np,rem
c ..............Just test output...........
write(6,1)ID,Alt,Sp,abs,Instr,Np,rem
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'sp/*' ! *Individual spectra (3-column tables)
C Format for file interpretation
2 format(F6.1,E13.5,1X,E6.5)
C Effective file loading
open(unit=1,status='old',file=
+'sp/*')
write(6,*) '....Loading file: sp/*'
do i__=1,88
read(1,'(A26)')ar__1
read(ar__1,2)Wave,Flux,mag
c ..............Just test output...........
write(6,2)Wave,Flux,mag
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end