Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/597/A22 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/A+A/597/A22 Massive O- and B-type stars velocities (Simon-Diaz+, 2017) *================================================================================ *The IACOB project. *III. New observational clues to understand macroturbulent broadening in *massive O- and B-type stars. * Simon-Diaz S., Godart M., Castro N., Herrero A., Aerts C., Puls J., * Telting J., Grassitelli L. * <Astron. Astrophys. 597, A22 (2017)> * =2017A&A...597A..22S (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablea1.dat' ! List of stars considered for this paper integer*4 nr__ parameter (nr__=431) ! Number of records character*80 ar__ ! Full-size record character*13 Target ! HD number of the star character*17 SpType ! Spectral type (1) character*5 Line ! Line used to determine the line-broadening * parameters integer*4 S_Nc ! Signal-to-noise ratio of the adjacent continuum integer*4 EW ! (0.1pm) Equivalent width of the line integer*4 vsiniF ! (km/s) Projected rotational velocity as derived from * the Fourier transform (FT) approach integer*4 vsiniG ! (km/s) Projected rotational velocity as derived from * the goodness of fit (GOF) approach character*1 l_vmac ! Limit flag on vmac integer*4 vmac ! (km/s) Macroturbulent velocity as derived from the * goodness of fit (GOF) approach real*4 RSk ! Relative skewness of the line profile as * derived using Eq. 1 in the paper (2) real*4 e_RSk ! rms uncertainty on RSk real*4 logTeff ! ([K]) ?=- Effective temperature real*4 logL ! ([Lsun]) ?=- Luminosity (L=Teff^4^/g) *Note (1): Spectral classifications must be handled with caution since they come * from various sources, not all of which are equally reliable. *Note (2): Relative skewness, RSk=<v^3^>/(<v^2^>^3/2^), where v^2^ and v^3^ are * the second and third normalized central moments of a spectral line, * see Equation (1), Sect. 3.2 of the paper. C============================================================================= C Loading file 'tablea1.dat' ! List of stars considered for this paper C Format for file interpretation 1 format( + A13,1X,A17,1X,A5,2X,I3,1X,I3,1X,I3,1X,I3,1X,A1,I3,1X,F5.2,1X, + F4.2,1X,F4.2,1X,F4.2) C Effective file loading open(unit=1,status='old',file= +'tablea1.dat') write(6,*) '....Loading file: tablea1.dat' do i__=1,431 read(1,'(A80)')ar__ read(ar__,1) + Target,SpType,Line,S_Nc,EW,vsiniF,vsiniG,l_vmac,vmac,RSk, + e_RSk,logTeff,logL if (idig(ar__(72:75)).EQ.0) logTeff = rNULL__ if (idig(ar__(77:80)).EQ.0) logL = rNULL__ c ..............Just test output........... write(6,1) + Target,SpType,Line,S_Nc,EW,vsiniF,vsiniG,l_vmac,vmac,RSk, + e_RSk,logTeff,logL c .......End.of.Just test output........... end do close(1) C============================================================================= stop end C Locate position of first digit in string; or return 0 integer function idig(c) character*(*) c character*1 c1 integer lc,i lc=len(c) idig=0 do i=1,lc if(c(i:i).ne.' ') go to 1 end do 1 if(i.gt.lc) return c1=c(i:i) if(c1.eq.'.'.or.c1.eq.'-'.or.c1.eq.'+') i=i+1 if(i.gt.lc) return c1=c(i:i) if(c1.ge.'0'.and.c1.le.'9') idig=i return end