Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/368/912 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.5, on 2013-May-26
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__
ter (rNULL__=-1.e37) ! NULL real number
parameter (iNULL__=-2147483647) ! NULL int number
C=============================================================================
Cat. J/A+A/368/912 Polarization and rotational velocities of Be stars (Yudin, 2001)
*================================================================================
*Statistical analysis of intrinsic polarization, IR excess and projected
*rotational velocity distributions of classical Be stars.
* Yudin R.V.
* <Astron. Astrophys. 368, 912 (2001)>
* =2001A&A...368..912Y
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'appen1.dat' ! Observational data of classical Be stars
integer*4 nr__
parameter (nr__=628) ! Number of records
character*103 ar__ ! Full-size record
character*11 Name ! HD (<III/135>), BD (<I/119>) or CPD (<I/108>)
* name
integer*4 HR ! ? HR (<V/50>) number
character*1 m_HR ! [AB] Multiplicity index on HR
integer*4 MWC ! ? MWC (Merrill & Burwell, 1933ApJ....78...87M,
* 1943ApJ....98..153M, 1949ApJ...110..387M)
* number
character*12 SpType ! MK spectral type
character*1 u_E_V_L ! [~] Indicates an approximate E(V-L)
real*4 E_V_L ! (mag) ? Calculated colour excess E(V-L) (G1)
character*1 l_Pintr ! Limit flag on Pintr
real*4 Pintr ! (%) ? Calculated intrinsic V band polarization (G1)
character*1 n_Pintr ! [+] +: observed polarization
integer*4 v_vsini_ ! (km/s) ? Weighted average projected rotational
* velocity (G1)
integer*4 e__vsini_ ! (km/s) ? rms uncertainty on <vsini>
real*4 E_V_12um ! (mag) ? Average far IR excess E(V-12um) at 12{mu}m
character*22 Names ! Other names
character*15 Rem ! Remarks
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'appen2.dat' ! Observed interstellar and intrinsic polarization
integer*4 nr__1
parameter (nr__1=498) ! Number of records
character*57 ar__1 ! Full-size record
character*11 Name_1 ! HD (<III/135>), BD (<I/119>) or CPD (<I/108>)
* name
real*4 Dist ! (pc) ? Distance
character*1 Note ! [*] *: no objects in 3{deg}-vicinity (1)
real*4 Pobs ! (%) ? Observed polarisation
real*4 e_Pobs ! (%) ? rms uncertainty on Pobs
real*4 PAobs ! (deg) ? Position angle of observed polarisation
real*4 Pinst ! (%) ? Interstellar polarization
integer*4 PAinst ! (deg) ? Position angle of interstellar polarization
character*1 l_Pintr_1 ! Limit flag on Pintr
real*4 Pintr_1 ! (%) Intrinsic polarization
character*1 r_Pintr ! [+os] Notes on Pintr (1)
integer*4 PAintr ! (deg) ? Position angle of intrinsic polarization
*Note (1): Symbols used:
* *: no objects in 3{deg}-vicinity, from Ghosh et al. (1999AJ....118.1061G)
* +: observed polarization
* o: Pintr from Ghosh et al. (1999AJ....118.1061G)
* s: Pintr from McLean & Brown (1978A&A....69..291M) reduced to V band
C=============================================================================
C Loading file 'appen1.dat' ! Observational data of classical Be stars
C Format for file interpretation
1 format(
+ A11,1X,I4,A1,1X,I4,1X,A12,2X,A1,F5.2,1X,A1,F4.2,A1,1X,I3,1X,
+ I3,1X,F5.2,1X,A22,1X,A15)
C Effective file loading
open(unit=1,file='appen1.dat', status='old')
write(6,*) '....Loading file: appen1.dat'
do i__=1,628
read(1,'(A103)')ar__
read(ar__,1)
+ Name,HR,m_HR,MWC,SpType,u_E_V_L,E_V_L,l_Pintr,Pintr,n_Pintr,
+ v_vsini_,e__vsini_,E_V_12um,Names,Rem
if(ar__(13:16) .EQ. '') HR = iNULL__
if(ar__(19:22) .EQ. '') MWC = iNULL__
if(ar__(39:43) .EQ. '') E_V_L = rNULL__
if(ar__(46:49) .EQ. '') Pintr = rNULL__
if(ar__(52:54) .EQ. '') v_vsini_ = iNULL__
if(ar__(56:58) .EQ. '') e__vsini_ = iNULL__
if(ar__(60:64) .EQ. '') E_V_12um = rNULL__
c ..............Just test output...........
write(6,1)
+ Name,HR,m_HR,MWC,SpType,u_E_V_L,E_V_L,l_Pintr,Pintr,n_Pintr,
+ v_vsini_,e__vsini_,E_V_12um,Names,Rem
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'appen2.dat' ! Observed interstellar and intrinsic polarization
C Format for file interpretation
2 format(
+ A11,3X,F6.1,A1,F4.2,1X,F4.2,1X,F5.1,1X,F4.2,1X,I3,1X,A1,F4.2,
+ A1,1X,I3)
C Effective file loading
open(unit=1,file='appen2.dat', status='old')
write(6,*) '....Loading file: appen2.dat'
do i__=1,498
read(1,'(A57)')ar__1
read(ar__1,2)
+ Name_1,Dist,Note,Pobs,e_Pobs,PAobs,Pinst,PAinst,l_Pintr_1,
+ Pintr_1,r_Pintr,PAintr
if(ar__1(15:20) .EQ. '') Dist = rNULL__
if(ar__1(22:25) .EQ. '') Pobs = rNULL__
if(ar__1(27:30) .EQ. '') e_Pobs = rNULL__
if(ar__1(32:36) .EQ. '') PAobs = rNULL__
if(ar__1(38:41) .EQ. '') Pinst = rNULL__
if(ar__1(43:45) .EQ. '') PAinst = iNULL__
if(ar__1(54:56) .EQ. '') PAintr = iNULL__
c ..............Just test output...........
write(6,2)
+ Name_1,Dist,Note,Pobs,e_Pobs,PAobs,Pinst,PAinst,l_Pintr_1,
+ Pintr_1,r_Pintr,PAintr
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end