Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJS/82/197 into FORTRAN code for loading all data files into arrays.
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/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 (nr__) ! [2,57] Row number in uvgroups.fit data array.
character*10 SpGr (nr__) ! Spectral group name (range of temperature and
* luminosity classes; includes "mp" and "mr"
* for metal-poor and meta-rich group).
integer*4 Nst (nr__) ! Number of stars used to construct the group.
real*4 VMAG (nr__) ! (mag) Adopted absolute visual magnitude derived from
* Schmidt-Kaler (1982) and Humphreys & McElroy
* (1984ApJ...284..565H).
real*4 M (nr__) ! (Msun) Adopted mass determined from the same sources.
real*4 v_Fe_H_ (nr__) ! ([Sun]) Mean group metallicity (1)
real*4 B_V (nr__) ! (mag) Adopted intrinsic (B-V) color (2)
real*4 U_B (nr__) ! (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 (nr__1) ! Group Name
real*4 B_V_1 (nr__1) ! (mag) ?=-9.999 Optical broad-band color
real*4 v14_V (nr__1) ! (mag) ?=-9.999 1400-V UV-optical color (G1)
real*4 v17_V (nr__1) ! (mag) ?=-9.999 1700-V UV-optical color (G1)
real*4 BL1302 (nr__1) ! (mag) ?=-9.999 BL 1302 line blanketing index (G1)
real*4 Si1397 (nr__1) ! (mag) ?=-9.999 SiIV 1397 line index (G1)
real*4 BL1425 (nr__1) ! (mag) ?=-9.999 BL 1425 line blanketing index (G1)
real*4 Fe1453 (nr__1) ! (mag) ?=-9.999 FeV 1453 line index (G1)
real*4 C1540 (nr__1) ! (mag) ?=-9.999 CIV 1540 abs line index (G1)
real*4 C1550 (nr__1) ! (mag) ?=-9.999 CIV 1550 cent line index (G1)
real*4 C1560 (nr__1) ! (mag) ?=-9.999 CIV 1560 emiss line index (G1)
real*4 CPcyg (nr__1) ! (mag) ?=-9.999 CIV PCyg line index (G1)
real*4 BL1627 (nr__1) ! (mag) ?=-9.999 BL 1627 line blanketing index (G1)
real*4 BL1664 (nr__1) ! (mag) ?=-9.999 BL 1664 line blanketing index (G1)
real*4 BL1719 (nr__1) ! (mag) ?=-9.999 BL 1719 line blanketing index (G1)
real*4 BL1853 (nr__1) ! (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 (nr__2) ! Group Name
real*4 B_V_2 (nr__2) ! (mag) ?=-9.999 Optical broad-band color
real*4 v26_V (nr__2) ! (mag) ?=-9.999 2600-V UV-optical color (G1)
real*4 v30_V (nr__2) ! (mag) ?=-9.999 3000-V UV-optical color (G1)
real*4 BR26 (nr__2) ! (mag) ?=-9.999 2600{AA} spectral break index (G1)
real*4 BR29 (nr__2) ! (mag) ?=-9.999 2900{AA} spectral break index (G1)
real*4 Fe2402 (nr__2) ! (mag) ?=-9.999 FeII 2402 line index (G1)
real*4 BL2538 (nr__2) ! (mag) ?=-9.999 BL 2538 line blanketing index (G1)
real*4 Fe2609 (nr__2) ! (mag) ?=-9.999 FeII 2609 line index (G1)
real*4 MgII (nr__2) ! (mag) ?=-9.999 MgII 2800 line index (G1)
real*4 MgI (nr__2) ! (mag) ?=-9.999 MgI 2852 line index (G1)
real*4 MgW (nr__2) ! (mag) ?=-9.999 Mg Wide (MgI + MgII) line index (G1)
real*4 Fe3000 (nr__2) ! (mag) ?=-9.999 FeI 3000 line index (G1)
real*4 BL3096 (nr__2) ! (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(i__),SpGr(i__),Nst(i__),VMAG(i__),M(i__),v_Fe_H_(i__),
+ B_V(i__),U_B(i__)
c ..............Just test output...........
write(6,1)
+ Row(i__),SpGr(i__),Nst(i__),VMAG(i__),M(i__),v_Fe_H_(i__),
+ B_V(i__),U_B(i__)
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(i__),B_V_1(i__),v14_V(i__),v17_V(i__),BL1302(i__),
+ Si1397(i__),BL1425(i__),Fe1453(i__),C1540(i__),C1550(i__),
+ C1560(i__),CPcyg(i__),BL1627(i__),BL1664(i__),BL1719(i__),
+ BL1853(i__)
c ..............Just test output...........
write(6,2)
+ SpGr_1(i__),B_V_1(i__),v14_V(i__),v17_V(i__),BL1302(i__),
+ Si1397(i__),BL1425(i__),Fe1453(i__),C1540(i__),C1550(i__),
+ C1560(i__),CPcyg(i__),BL1627(i__),BL1664(i__),BL1719(i__),
+ BL1853(i__)
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(i__),B_V_2(i__),v26_V(i__),v30_V(i__),BR26(i__),
+ BR29(i__),Fe2402(i__),BL2538(i__),Fe2609(i__),MgII(i__),
+ MgI(i__),MgW(i__),Fe3000(i__),BL3096(i__)
c ..............Just test output...........
write(6,3)
+ SpGr_2(i__),B_V_2(i__),v26_V(i__),v30_V(i__),BR26(i__),
+ BR29(i__),Fe2402(i__),BL2538(i__),Fe2609(i__),MgII(i__),
+ MgI(i__),MgW(i__),Fe3000(i__),BL3096(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end