Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/281/161 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-19
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/A+A/281/161 Radio emission from stars at 250GHz (Altenhoff+, 1994)
*================================================================================
*Radio emission from stars: a survey at 250 GHz
* Altenhoff W.J., Thum C., Wendker H.J.
* <Astron. Astrophys. 281, 161 (1994)>
* =1994A&A...281..161A
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! O and B stars
integer*4 nr__
parameter (nr__=21) ! Number of records
character*98 ar__ ! Full-size record
character*15 Name (nr__) ! Star name
character*11 SpType (nr__) ! MK spectral type (table8 only)
character*1 l_S_250 (nr__) ! Limit flag on S(250)
real*4 S_250 (nr__) ! (mJy) ? Flux in continuum at 250GHz
real*4 e_S_250 (nr__) ! (mJy) ? rms uncertainty on S(250)
character*8 Sess (nr__) ! List of session numbers
character*1 l_alf (nr__) ! [><~] Limit flag on spectral index
real*4 alf (nr__) ! ? Spectral index (S({nu}){prop.to}{nu}^-{alf}^)
real*4 e_alf (nr__) ! ? rms uncertainty on spectral index
character*1 u_alf (nr__) ! [?] Uncertainty flag on alf
character*33 Rem (nr__) ! Remarks
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! WR stars
integer*4 nr__1
parameter (nr__1=24) ! Number of records
character*98 ar__1 ! Full-size record
character*15 Name_1 (nr__1) ! Star name
character*11 SpType_1 (nr__1) ! MK spectral type (table8 only)
character*1 l_S_250_1 (nr__1) ! Limit flag on S(250)
real*4 S_250_1 (nr__1) ! (mJy) ? Flux in continuum at 250GHz
real*4 e_S_250_1 (nr__1) ! (mJy) ? rms uncertainty on S(250)
character*8 Sess_1 (nr__1) ! List of session numbers
character*1 l_alf_1 (nr__1) ! [><~] Limit flag on spectral index
real*4 alf_1 (nr__1) ! ? Spectral index (S({nu}){prop.to}{nu}^-{alf}^)
real*4 e_alf_1 (nr__1) ! ? rms uncertainty on spectral index
character*1 u_alf_1 (nr__1) ! [?] Uncertainty flag on alf
character*33 Rem_1 (nr__1) ! Remarks
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6.dat' ! Early-type stars with shelles
integer*4 nr__2
parameter (nr__2=10) ! Number of records
character*98 ar__2 ! Full-size record
character*15 Name_2 (nr__2) ! Star name
character*11 SpType_2 (nr__2) ! MK spectral type (table8 only)
character*1 l_S_250_1 (nr__2) ! Limit flag on S(250)
real*4 S_250_1 (nr__2) ! (mJy) ? Flux in continuum at 250GHz
real*4 e_S_250_1 (nr__2) ! (mJy) ? rms uncertainty on S(250)
character*8 Sess_2 (nr__2) ! List of session numbers
character*1 l_alf_2 (nr__2) ! [><~] Limit flag on spectral index
real*4 alf_2 (nr__2) ! ? Spectral index (S({nu}){prop.to}{nu}^-{alf}^)
real*4 e_alf_2 (nr__2) ! ? rms uncertainty on spectral index
character*1 u_alf_2 (nr__2) ! [?] Uncertainty flag on alf
character*33 Rem_2 (nr__2) ! Remarks
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table7.dat' ! Pre-main sequence stars
integer*4 nr__3
parameter (nr__3=42) ! Number of records
character*98 ar__3 ! Full-size record
character*15 Name_3 (nr__3) ! Star name
character*11 SpType_3 (nr__3) ! MK spectral type (table8 only)
character*1 l_S_250_1 (nr__3) ! Limit flag on S(250)
real*4 S_250_1 (nr__3) ! (mJy) ? Flux in continuum at 250GHz
real*4 e_S_250_1 (nr__3) ! (mJy) ? rms uncertainty on S(250)
character*8 Sess_3 (nr__3) ! List of session numbers
character*1 l_alf_3 (nr__3) ! [><~] Limit flag on spectral index
real*4 alf_3 (nr__3) ! ? Spectral index (S({nu}){prop.to}{nu}^-{alf}^)
real*4 e_alf_3 (nr__3) ! ? rms uncertainty on spectral index
character*1 u_alf_3 (nr__3) ! [?] Uncertainty flag on alf
character*33 Rem_3 (nr__3) ! Remarks
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table8.dat' ! Stellar disks (giants+supergiants)
integer*4 nr__4
parameter (nr__4=95) ! Number of records
character*98 ar__4 ! Full-size record
character*15 Name_4 (nr__4) ! Star name
character*11 SpType_4 (nr__4) ! MK spectral type (table8 only)
character*1 l_S_250_1 (nr__4) ! Limit flag on S(250)
real*4 S_250_1 (nr__4) ! (mJy) ? Flux in continuum at 250GHz
real*4 e_S_250_1 (nr__4) ! (mJy) ? rms uncertainty on S(250)
character*8 Sess_4 (nr__4) ! List of session numbers
character*1 l_alf_4 (nr__4) ! [><~] Limit flag on spectral index
real*4 alf_4 (nr__4) ! ? Spectral index (S({nu}){prop.to}{nu}^-{alf}^)
real*4 e_alf_4 (nr__4) ! ? rms uncertainty on spectral index
character*1 u_alf_4 (nr__4) ! [?] Uncertainty flag on alf
character*33 Rem_4 (nr__4) ! Remarks
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table9.dat' ! Stars with determined radii
integer*4 nr__5
parameter (nr__5=28) ! Number of records
character*53 ar__5 ! Full-size record
character*10 Name_5 (nr__5) ! Star name
character*11 SpType_5 (nr__5) ! MK spectral type
real*4 R_UD (nr__5) ! (mas) Stellar radius
character*5 Refs (nr__5) ! References (1)
character*1 l_S_250_1 (nr__5) ! Limit flag on S(250)
real*4 S_250_1 (nr__5) ! (mJy) Flux in continuum at 250GHz
character*1 l_T_disk (nr__5) ! Limit flag on disk temperature
integer*4 T_disk (nr__5) ! (K) Disk temperature
*Note (1): references are numbered as follows:
* 1 = Mozurkewich et al. 1991AJ....101.2207M
* 2 = di Benedetto & Rabbia 1987A&A...188..114D
* 3 = Hutter et al. 1989ApJ...340.1103H
* 4 = this article (see text)
* 5 = Fracassini et al. 1981A&AS...45..145F
* 6 = Hanbury Brown et al. 1974MNRAS.167..121H
* 7 = di Benedetto & Foy 1986A&A...166..204D
* 8 = Christou & Worden 1980AJ.....85..302C
* 9 = di Benedetto & Ferluga 1990A&A...236..449D
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table10.dat' ! Variable stars
integer*4 nr__6
parameter (nr__6=76) ! Number of records
character*98 ar__6 ! Full-size record
character*15 Name_6 (nr__6) ! Star name
character*11 SpType_6 (nr__6) ! MK spectral type (table8 only)
character*1 l_S_250_1 (nr__6) ! Limit flag on S(250)
real*4 S_250_1 (nr__6) ! (mJy) ? Flux in continuum at 250GHz
real*4 e_S_250_1 (nr__6) ! (mJy) ? rms uncertainty on S(250)
character*8 Sess_5 (nr__6) ! List of session numbers
character*1 l_alf_5 (nr__6) ! [><~] Limit flag on spectral index
real*4 alf_5 (nr__6) ! ? Spectral index (S({nu}){prop.to}{nu}^-{alf}^)
real*4 e_alf_5 (nr__6) ! ? rms uncertainty on spectral index
character*1 u_alf_5 (nr__6) ! [?] Uncertainty flag on alf
character*33 Rem_5 (nr__6) ! Remarks
C=============================================================================
C Loading file 'table4.dat' ! O and B stars
C Format for file interpretation
1 format(
+ A15,1X,A11,1X,A1,F6.1,1X,F5.1,1X,A8,2X,A1,F5.2,1X,F4.2,A1,1X,
+ A33)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,21
read(1,'(A98)')ar__
read(ar__,1)
+ Name(i__),SpType(i__),l_S_250(i__),S_250(i__),e_S_250(i__),
+ Sess(i__),l_alf(i__),alf(i__),e_alf(i__),u_alf(i__),Rem(i__)
if(ar__(30:35) .EQ. '') S_250(i__) = rNULL__
if(ar__(37:41) .EQ. '') e_S_250(i__) = rNULL__
if(ar__(54:58) .EQ. '') alf(i__) = rNULL__
if(ar__(60:63) .EQ. '') e_alf(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ Name(i__),SpType(i__),l_S_250(i__),S_250(i__),e_S_250(i__),
+ Sess(i__),l_alf(i__),alf(i__),e_alf(i__),u_alf(i__),Rem(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table5.dat' ! WR stars
C Format for file interpretation
2 format(
+ A15,1X,A11,1X,A1,F6.1,1X,F5.1,1X,A8,2X,A1,F5.2,1X,F4.2,A1,1X,
+ A33)
C Effective file loading
open(unit=1,status='old',file=
+'table5.dat')
write(6,*) '....Loading file: table5.dat'
do i__=1,24
read(1,'(A98)')ar__1
read(ar__1,2)
+ Name_1(i__),SpType_1(i__),l_S_250_1(i__),S_250_1(i__),
+ e_S_250_1(i__),Sess_1(i__),l_alf_1(i__),alf_1(i__),
+ e_alf_1(i__),u_alf_1(i__),Rem_1(i__)
if(ar__1(30:35) .EQ. '') S_250_1(i__) = rNULL__
if(ar__1(37:41) .EQ. '') e_S_250_1(i__) = rNULL__
if(ar__1(54:58) .EQ. '') alf_1(i__) = rNULL__
if(ar__1(60:63) .EQ. '') e_alf_1(i__) = rNULL__
c ..............Just test output...........
write(6,2)
+ Name_1(i__),SpType_1(i__),l_S_250_1(i__),S_250_1(i__),
+ e_S_250_1(i__),Sess_1(i__),l_alf_1(i__),alf_1(i__),
+ e_alf_1(i__),u_alf_1(i__),Rem_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table6.dat' ! Early-type stars with shelles
C Format for file interpretation
3 format(
+ A15,1X,A11,1X,A1,F6.1,1X,F5.1,1X,A8,2X,A1,F5.2,1X,F4.2,A1,1X,
+ A33)
C Effective file loading
open(unit=1,status='old',file=
+'table6.dat')
write(6,*) '....Loading file: table6.dat'
do i__=1,10
read(1,'(A98)')ar__2
read(ar__2,3)
+ Name_2(i__),SpType_2(i__),l_S_250_1(i__),S_250_1(i__),
+ e_S_250_1(i__),Sess_2(i__),l_alf_2(i__),alf_2(i__),
+ e_alf_2(i__),u_alf_2(i__),Rem_2(i__)
if(ar__2(30:35) .EQ. '') S_250_1(i__) = rNULL__
if(ar__2(37:41) .EQ. '') e_S_250_1(i__) = rNULL__
if(ar__2(54:58) .EQ. '') alf_2(i__) = rNULL__
if(ar__2(60:63) .EQ. '') e_alf_2(i__) = rNULL__
c ..............Just test output...........
write(6,3)
+ Name_2(i__),SpType_2(i__),l_S_250_1(i__),S_250_1(i__),
+ e_S_250_1(i__),Sess_2(i__),l_alf_2(i__),alf_2(i__),
+ e_alf_2(i__),u_alf_2(i__),Rem_2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table7.dat' ! Pre-main sequence stars
C Format for file interpretation
4 format(
+ A15,1X,A11,1X,A1,F6.1,1X,F5.1,1X,A8,2X,A1,F5.2,1X,F4.2,A1,1X,
+ A33)
C Effective file loading
open(unit=1,status='old',file=
+'table7.dat')
write(6,*) '....Loading file: table7.dat'
do i__=1,42
read(1,'(A98)')ar__3
read(ar__3,4)
+ Name_3(i__),SpType_3(i__),l_S_250_1(i__),S_250_1(i__),
+ e_S_250_1(i__),Sess_3(i__),l_alf_3(i__),alf_3(i__),
+ e_alf_3(i__),u_alf_3(i__),Rem_3(i__)
if(ar__3(30:35) .EQ. '') S_250_1(i__) = rNULL__
if(ar__3(37:41) .EQ. '') e_S_250_1(i__) = rNULL__
if(ar__3(54:58) .EQ. '') alf_3(i__) = rNULL__
if(ar__3(60:63) .EQ. '') e_alf_3(i__) = rNULL__
c ..............Just test output...........
write(6,4)
+ Name_3(i__),SpType_3(i__),l_S_250_1(i__),S_250_1(i__),
+ e_S_250_1(i__),Sess_3(i__),l_alf_3(i__),alf_3(i__),
+ e_alf_3(i__),u_alf_3(i__),Rem_3(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table8.dat' ! Stellar disks (giants+supergiants)
C Format for file interpretation
5 format(
+ A15,1X,A11,1X,A1,F6.1,1X,F5.1,1X,A8,2X,A1,F5.2,1X,F4.2,A1,1X,
+ A33)
C Effective file loading
open(unit=1,status='old',file=
+'table8.dat')
write(6,*) '....Loading file: table8.dat'
do i__=1,95
read(1,'(A98)')ar__4
read(ar__4,5)
+ Name_4(i__),SpType_4(i__),l_S_250_1(i__),S_250_1(i__),
+ e_S_250_1(i__),Sess_4(i__),l_alf_4(i__),alf_4(i__),
+ e_alf_4(i__),u_alf_4(i__),Rem_4(i__)
if(ar__4(30:35) .EQ. '') S_250_1(i__) = rNULL__
if(ar__4(37:41) .EQ. '') e_S_250_1(i__) = rNULL__
if(ar__4(54:58) .EQ. '') alf_4(i__) = rNULL__
if(ar__4(60:63) .EQ. '') e_alf_4(i__) = rNULL__
c ..............Just test output...........
write(6,5)
+ Name_4(i__),SpType_4(i__),l_S_250_1(i__),S_250_1(i__),
+ e_S_250_1(i__),Sess_4(i__),l_alf_4(i__),alf_4(i__),
+ e_alf_4(i__),u_alf_4(i__),Rem_4(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table9.dat' ! Stars with determined radii
C Format for file interpretation
6 format(A10,1X,A11,1X,F5.2,4X,A5,2X,A1,F5.1,2X,A1,I5)
C Effective file loading
open(unit=1,status='old',file=
+'table9.dat')
write(6,*) '....Loading file: table9.dat'
do i__=1,28
read(1,'(A53)')ar__5
read(ar__5,6)
+ Name_5(i__),SpType_5(i__),R_UD(i__),Refs(i__),l_S_250_1(i__),
+ S_250_1(i__),l_T_disk(i__),T_disk(i__)
c ..............Just test output...........
write(6,6)
+ Name_5(i__),SpType_5(i__),R_UD(i__),Refs(i__),l_S_250_1(i__),
+ S_250_1(i__),l_T_disk(i__),T_disk(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table10.dat' ! Variable stars
C Format for file interpretation
7 format(
+ A15,1X,A11,1X,A1,F6.1,1X,F5.1,1X,A8,2X,A1,F5.2,1X,F4.2,A1,1X,
+ A33)
C Effective file loading
open(unit=1,status='old',file=
+'table10.dat')
write(6,*) '....Loading file: table10.dat'
do i__=1,76
read(1,'(A98)')ar__6
read(ar__6,7)
+ Name_6(i__),SpType_6(i__),l_S_250_1(i__),S_250_1(i__),
+ e_S_250_1(i__),Sess_5(i__),l_alf_5(i__),alf_5(i__),
+ e_alf_5(i__),u_alf_5(i__),Rem_5(i__)
if(ar__6(30:35) .EQ. '') S_250_1(i__) = rNULL__
if(ar__6(37:41) .EQ. '') e_S_250_1(i__) = rNULL__
if(ar__6(54:58) .EQ. '') alf_5(i__) = rNULL__
if(ar__6(60:63) .EQ. '') e_alf_5(i__) = rNULL__
c ..............Just test output...........
write(6,7)
+ Name_6(i__),SpType_6(i__),l_S_250_1(i__),S_250_1(i__),
+ e_S_250_1(i__),Sess_5(i__),l_alf_5(i__),alf_5(i__),
+ e_alf_5(i__),u_alf_5(i__),Rem_5(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end