Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/465/815 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-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/465/815 Abundances of Sgr dSph stars (Sbordone+, 2007) *================================================================================ *The exotic chemical composition of the Sagittarius dwarf spheroidal galaxy. * Sbordone L., Bonifacio P., Buonanno R., Marconi G., Monaco L., Zaggia S. * <Astron. Astrophys., 465, 815-824 (2007)> * =2007A&A...465..815S C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Photometry and atmospheric parameters for the studied stars integer*4 nr__ parameter (nr__=17) ! Number of records character*41 ar__ ! Full-size record character*4 Parent ! Sgr or Ter7 integer*4 Star ! Star number (G1) real*4 Vmag ! (mag) V magnitude real*4 v_V_I_0 ! (mag) ? Dereddened V-I colour index (Sgr stars only) real*4 v_B_V_0 ! (mag) ? Dereddened B-V colour index (Ter7 stars only) integer*4 Teff ! (K) Effective temperature real*4 logg ! ([cm/s2]) Surface gravity real*4 xi ! (km/s) Turbulent velocity c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tablea.dat' ! Equivalent widths and abundances integer*4 nr__1 parameter (nr__1=2083) ! Number of records character*41 ar__1 ! Full-size record integer*4 Star_1 ! Star number (G1) character*4 Ion ! Ion name real*8 Lambda ! (nm) Line laboratory wavelength (2) real*4 loggf ! line oscillator strength character*4 r_loggf ! References for employed loggf real*4 EW ! (pm) ?=0.0 Equivalent width (3) real*4 Abund ! ?=0.0 Abundance *Note (2): Where HFS has been taken into account, the wavelength is provided * with 0.01nm precision only, for the feature is actually not a * single line. *Note (3): All "real" values are above 1.0pm here. * -- A value of 0.01 indicates that the abundance has been derived by * fitting agains a synthetic spectrum due to line blending. * -- A value of 0.02 indicates synthetic spectrum fitting taking into * account HFS. * -- A value of 0.0 indicates the line has not been measured for this * star. In this case the abundance is also put to 0.0. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'refs.dat' ! References integer*4 nr__2 parameter (nr__2=25) ! Number of records character*119 ar__2 ! Full-size record character*4 Ref ! Reference code character*19 BibCode ! BibCode character*20 Aut ! Author's name character*71 Com ! Comments C============================================================================= C Loading file 'table1.dat' ! Photometry and atmospheric parameters for the * studied stars C Format for file interpretation 1 format(A4,1X,I4,1X,F6.3,1X,F5.3,1X,F5.3,I4,1X,F3.1,1X,F4.2) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,17 read(1,'(A41)')ar__ read(ar__,1)Parent,Star,Vmag,v_V_I_0,v_B_V_0,Teff,logg,xi if(ar__(18:22) .EQ. '') v_V_I_0 = rNULL__ if(ar__(24:28) .EQ. '') v_B_V_0 = rNULL__ c ..............Just test output........... write(6,1)Parent,Star,Vmag,v_V_I_0,v_B_V_0,Teff,logg,xi c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'tablea.dat' ! Equivalent widths and abundances C Format for file interpretation 2 format(I4,1X,A4,1X,F8.4,1X,F6.3,1X,A4,1X,F5.2,1X,F4.2) C Effective file loading open(unit=1,status='old',file= +'tablea.dat') write(6,*) '....Loading file: tablea.dat' do i__=1,2083 read(1,'(A41)')ar__1 read(ar__1,2)Star_1,Ion,Lambda,loggf,r_loggf,EW,Abund c ..............Just test output........... write(6,2)Star_1,Ion,Lambda,loggf,r_loggf,EW,Abund c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'refs.dat' ! References C Format for file interpretation 3 format(A4,1X,A19,1X,A20,3X,A71) C Effective file loading open(unit=1,status='old',file= +'refs.dat') write(6,*) '....Loading file: refs.dat' do i__=1,25 read(1,'(A119)')ar__2 read(ar__2,3)Ref,BibCode,Aut,Com c ..............Just test output........... write(6,3)Ref,BibCode,Aut,Com c .......End.of.Just test output........... end do close(1) C============================================================================= stop end