Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJS/82/197 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/82/197 Mean UV Spectra of Stellar Groups (Fanelli+ 1992)
*================================================================================
*Spectral Synthesis in the Ultraviolet IV. A Library of Mean Stellar Groups
* Fanelli M.N., O'Connell R.W., Burstein D., Wu C.-C.
* <Astrophys. J. Suppl. Ser. 82, 197 (1992)>
* =1992ApJS...82..197F
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'groups.dat' ! Definition of the 56 groups
integer*4 nr__
parameter (nr__=56) ! Number of records
character*69 ar__ ! Full-size record
integer*4 Row ! [2,57] Row number in uvgroups.fit data array.
character*10 SpGr ! Spectral group name (range of temperature and
* luminosity classes; includes "mp" and "mr"
* for metal-poor and meta-rich group).
integer*4 Nst ! Number of stars used to construct the group.
real*4 VMAG ! (mag) Adopted absolute visual magnitude derived from
* Schmidt-Kaler (1982) and Humphreys & McElroy
* (1984ApJ...284..565H).
real*4 M ! (Msun) Adopted mass determined from the same sources.
real*4 v_Fe_H_ ! ([Sun]) Mean group metallicity (1)
real*4 B_V ! (mag) Adopted intrinsic (B-V) color (2)
real*4 U_B ! (mag) Adopted U-B color, derived as for B-V.
*Note (1): the average is derived from all group members with a measured
* abundance. Since abundance information is complete for only a few
* groups, these values are only indicative of the true mean group
* metallicity. Entries of 0.00 indicate that the stars are probably
* near solar abundance but that individual estimates are not available.
*Note (2): for stellar types O3 to F3, V-III and all supergiants this value
* is the mean intrinsic color tabulated by Schmidt-Kaler (1982). For
* types F5 to M3, V-III the given value is the mean observed (B-V)
* color, averaged over all members of the group. No extinction
* corrections are applied to the latter SEDs.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'fuvind.dat' ! Far-UV spectral indices
integer*4 nr__1
parameter (nr__1=56) ! Number of records
character*162 ar__1 ! Full-size record
character*10 SpGr_1 ! Group Name
real*4 B_V_1 ! (mag) ?=-9.999 Optical broad-band color
real*4 v14_V ! (mag) ?=-9.999 1400-V UV-optical color (G1)
real*4 v17_V ! (mag) ?=-9.999 1700-V UV-optical color (G1)
real*4 BL1302 ! (mag) ?=-9.999 BL 1302 line blanketing index (G1)
real*4 Si1397 ! (mag) ?=-9.999 SiIV 1397 line index (G1)
real*4 BL1425 ! (mag) ?=-9.999 BL 1425 line blanketing index (G1)
real*4 Fe1453 ! (mag) ?=-9.999 FeV 1453 line index (G1)
real*4 C1540 ! (mag) ?=-9.999 CIV 1540 abs line index (G1)
real*4 C1550 ! (mag) ?=-9.999 CIV 1550 cent line index (G1)
real*4 C1560 ! (mag) ?=-9.999 CIV 1560 emiss line index (G1)
real*4 CPcyg ! (mag) ?=-9.999 CIV PCyg line index (G1)
real*4 BL1627 ! (mag) ?=-9.999 BL 1627 line blanketing index (G1)
real*4 BL1664 ! (mag) ?=-9.999 BL 1664 line blanketing index (G1)
real*4 BL1719 ! (mag) ?=-9.999 BL 1719 line blanketing index (G1)
real*4 BL1853 ! (mag) ?=-9.999 BL 1853 line blanketing index (G1)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'muvind.dat' ! Mid-UV spectral indices
integer*4 nr__2
parameter (nr__2=56) ! Number of records
character*142 ar__2 ! Full-size record
character*10 SpGr_2 ! Group Name
real*4 B_V_2 ! (mag) ?=-9.999 Optical broad-band color
real*4 v26_V ! (mag) ?=-9.999 2600-V UV-optical color (G1)
real*4 v30_V ! (mag) ?=-9.999 3000-V UV-optical color (G1)
real*4 BR26 ! (mag) ?=-9.999 2600{AA} spectral break index (G1)
real*4 BR29 ! (mag) ?=-9.999 2900{AA} spectral break index (G1)
real*4 Fe2402 ! (mag) ?=-9.999 FeII 2402 line index (G1)
real*4 BL2538 ! (mag) ?=-9.999 BL 2538 line blanketing index (G1)
real*4 Fe2609 ! (mag) ?=-9.999 FeII 2609 line index (G1)
real*4 MgII ! (mag) ?=-9.999 MgII 2800 line index (G1)
real*4 MgI ! (mag) ?=-9.999 MgI 2852 line index (G1)
real*4 MgW ! (mag) ?=-9.999 Mg Wide (MgI + MgII) line index (G1)
real*4 Fe3000 ! (mag) ?=-9.999 FeI 3000 line index (G1)
real*4 BL3096 ! (mag) ?=-9.999 BL 3096 line blanketing index (G1)
C=============================================================================
C Loading file 'groups.dat' ! Definition of the 56 groups
C Format for file interpretation
1 format(
+ 4X,I2,5X,A10,3X,I2,6X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2,3X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'groups.dat')
write(6,*) '....Loading file: groups.dat'
do i__=1,56
read(1,'(A69)')ar__
read(ar__,1)Row,SpGr,Nst,VMAG,M,v_Fe_H_,B_V,U_B
c ..............Just test output...........
write(6,1)Row,SpGr,Nst,VMAG,M,v_Fe_H_,B_V,U_B
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'fuvind.dat' ! Far-UV spectral indices
C Format for file interpretation
2 format(
+ 1X,A10,5X,F5.2,5X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,
+ F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,
+ 4X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'fuvind.dat')
write(6,*) '....Loading file: fuvind.dat'
do i__=1,56
read(1,'(A162)')ar__1
read(ar__1,2)
+ SpGr_1,B_V_1,v14_V,v17_V,BL1302,Si1397,BL1425,Fe1453,C1540,
+ C1550,C1560,CPcyg,BL1627,BL1664,BL1719,BL1853
c ..............Just test output...........
write(6,2)
+ SpGr_1,B_V_1,v14_V,v17_V,BL1302,Si1397,BL1425,Fe1453,C1540,
+ C1550,C1560,CPcyg,BL1627,BL1664,BL1719,BL1853
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'muvind.dat' ! Mid-UV spectral indices
C Format for file interpretation
3 format(
+ 1X,A10,5X,F5.2,5X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,
+ F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'muvind.dat')
write(6,*) '....Loading file: muvind.dat'
do i__=1,56
read(1,'(A142)')ar__2
read(ar__2,3)
+ SpGr_2,B_V_2,v26_V,v30_V,BR26,BR29,Fe2402,BL2538,Fe2609,MgII,
+ MgI,MgW,Fe3000,BL3096
c ..............Just test output...........
write(6,3)
+ SpGr_2,B_V_2,v26_V,v30_V,BR26,BR29,Fe2402,BL2538,Fe2609,MgII,
+ MgI,MgW,Fe3000,BL3096
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end