Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/129/809 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-Mar-29 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/AJ/129/809 B-star rotational velocities in h and {chi} Persei (Strom+, 2005) *================================================================================ *B star rotational velocities in h and {chi} Persei: a probe of initial *conditions during the star formation epoch. * Strom S.E., Wolff S.C., Dror D.H.A. * <Astron. J., 129, 809-828 (2005)> * =2005AJ....129..809S C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Data for stars in h and {chi} Persei integer*4 nr__ parameter (nr__=216) ! Number of records character*71 ar__ ! Full-size record integer*4 v_SHM2002_ ! Star identification number (1) integer*4 ONum ! ? The Oosterhoff number real*4 VMAG ! (mag) Absolute visual magnitude (1) real*4 logT ! (K) Log of the effective temperature (1) character*7 SpType ! MK Spectral type real*4 Mass ! (solMass) Mass in solar units (1) integer*4 vsini ! (km/s) Derived rotational velocity integer*4 Group ! ? Evolutionay stage (G1) real*4 c0 ! (mag) ? Stromgren c_0_ index real*4 beta ! (mag) ? Stromgren {beta} index character*16 Bin ! Spectroscopic binary with velocity amplitude * K>30km/s? *Note (1): From Slesnick, Hillenbrand, & Massey (2002, Cat. <J/ApJ/576/880>). c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! Data for field stars integer*4 nr__1 parameter (nr__1=474) ! Number of records character*54 ar__1 ! Full-size record integer*4 Group_1 ! Evolutionay stage (G1) integer*4 HR ! The HR number integer*4 HD ! The HD number character*11 SpType_1 ! MK Spectral type integer*4 vsini_1 ! (km/s) Derived rotational velocity real*4 beta_1 ! (mag) Stromgren {beta} index real*4 c0_1 ! (mag) Stromgren c_0_ index character*3 r_BType ! [ALG] Flag on BType (1) character*3 BType ! [sb1 sb2] Binary type (2) integer*4 K ! (km/s) ? Amplitude of the velocity variation *Note (1): ALG indicates that the only evidence for binarity is the report of * double lines in Cat. <J/ApJ/573/359>. *Note (2): Binary type, defined as follows: * sb1 = single-lined binary * sb2 = doubled-lined binary c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! Data for field stars integer*4 nr__2 parameter (nr__2=75) ! Number of records character*54 ar__2 ! Full-size record integer*4 Group_2 ! Evolutionay stage (G1) integer*4 HR_1 ! The HR number integer*4 HD_1 ! The HD number character*11 SpType_2 ! MK Spectral type integer*4 vsini_2 ! (km/s) Derived rotational velocity real*4 beta_2 ! (mag) Stromgren {beta} index real*4 c0_2 ! (mag) Stromgren c_0_ index character*3 r_BType_1 ! [ALG] Flag on BType (1) character*3 BType_1 ! [sb1 sb2] Binary type (2) integer*4 K_1 ! (km/s) ? Amplitude of the velocity variation *Note (1): ALG indicates that the only evidence for binarity is the report of * double lines in Cat. <J/ApJ/573/359>. *Note (2): Binary type, defined as follows: * sb1 = single-lined binary * sb2 = doubled-lined binary C============================================================================= C Loading file 'table1.dat' ! Data for stars in h and {chi} Persei C Format for file interpretation 1 format( + I4,1X,I4,1X,F5.2,1X,F5.3,1X,A7,1X,F4.1,1X,I3,1X,I1,1X,F6.3,1X, + F5.3,1X,A16) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,216 read(1,'(A71)')ar__ read(ar__,1) + v_SHM2002_,ONum,VMAG,logT,SpType,Mass,vsini,Group,c0,beta,Bin if(ar__(6:9) .EQ. '') ONum = iNULL__ if(ar__(40:40) .EQ. '') Group = iNULL__ if(ar__(42:47) .EQ. '') c0 = rNULL__ if(ar__(49:53) .EQ. '') beta = rNULL__ c ..............Just test output........... write(6,1) + v_SHM2002_,ONum,VMAG,logT,SpType,Mass,vsini,Group,c0,beta,Bin c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table2.dat' ! Data for field stars C Format for file interpretation 2 format( + I1,1X,I4,1X,I6,1X,A11,1X,I3,1X,F5.3,1X,F6.3,1X,A3,1X,A3,1X,I3) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,474 read(1,'(A54)')ar__1 read(ar__1,2) + Group_1,HR,HD,SpType_1,vsini_1,beta_1,c0_1,r_BType,BType,K if(ar__1(52:54) .EQ. '') K = iNULL__ c ..............Just test output........... write(6,2) + Group_1,HR,HD,SpType_1,vsini_1,beta_1,c0_1,r_BType,BType,K c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table3.dat' ! Data for field stars C Format for file interpretation 3 format( + I1,1X,I4,1X,I6,1X,A11,1X,I3,1X,F5.3,1X,F6.3,1X,A3,1X,A3,1X,I3) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,75 read(1,'(A54)')ar__2 read(ar__2,3) + Group_2,HR_1,HD_1,SpType_2,vsini_2,beta_2,c0_2,r_BType_1, + BType_1,K_1 if(ar__2(52:54) .EQ. '') K_1 = iNULL__ c ..............Just test output........... write(6,3) + Group_2,HR_1,HD_1,SpType_2,vsini_2,beta_2,c0_2,r_BType_1, + BType_1,K_1 c .......End.of.Just test output........... end do close(1) C============================================================================= stop end