Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/455/271 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-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/455/271 Abundances of red giants in NGC 6441 (Gratton+, 2006) *================================================================================ *Na-O anticorrelation and HB. *III. The abundances of NGC 6441 from FLAMES-UVES spectra. * Gratton R.G., Lucatello S., Bragaglia A., Carretta E., Momany Y., * Pancino E., Valenti E. * <Astron. Astrophys. 455, 271 (2006)> * =2006A&A...455..271G C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! Photometry and spectroscopic data for stars observed with UVES integer*4 nr__ parameter (nr__=13) ! Number of records character*80 ar__ ! Full-size record C J2000 position composed of: RAdeg DEdeg integer*4 Seq ! Sequential number integer*4 Fib ! [1/2] Fiber configuration real*8 RAdeg ! (deg) Right ascension in decimal degrees (J2000) real*8 DEdeg ! (deg) Declination in decimal degrees (J2000) integer*4 Dist ! (arcsec) Distance from the cluster center real*4 Vmag ! (mag) Johnson V magnitude real*4 V_Ic ! (mag) Johnson-Cousins V-I colour index real*4 V_K ! (mag) ? Johnson V-K colour index real*4 RV ! (km/s) Radial velocity integer*4 S_N ! Signal-to-noise ratio real*4 e_EW ! (0.1pm) ? rms uncertainty on EW real*4 v_Fe_H_ ! ([Sun]) ? Metallicity character*9 Note ! Notes c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! Equivalent Widths for the cluster members integer*4 nr__1 parameter (nr__1=800) ! Number of records character*43 ar__1 ! Full-size record integer*4 Seq_1 ! Sequential number character*4 El ! Element real*8 Lambda ! (0.1nm) Wavelength real*4 Ep ! (eV) Excitation potential real*4 log_gf ! log Oscillator strength real*4 EW ! (0.1pm) ? Equivalent width real*4 logAbund ! ? log Abundance c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table4.dat' ! Equivalent Widths for field stars integer*4 nr__2 parameter (nr__2=1183) ! Number of records character*43 ar__2 ! Full-size record integer*4 Seq_2 ! Sequential number character*4 El_1 ! Element real*8 Lambda_1 ! (0.1nm) Wavelength real*4 Ep_1 ! (eV) Excitation potential real*4 log_gf_1 ! log Oscillator strength real*4 EW_1 ! (0.1pm) ? Equivalent width real*4 logAbund_1 ! ? log Abundance C============================================================================= C Loading file 'table2.dat' ! Photometry and spectroscopic data for stars * observed with UVES C Format for file interpretation 1 format( + I7,1X,I1,1X,F7.3,1X,F8.4,1X,I3,1X,F6.3,1X,F5.3,1X,F5.3,1X, + F6.1,1X,I2,1X,F4.1,1X,F5.2,1X,A9) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,13 read(1,'(A80)')ar__ read(ar__,1) + Seq,Fib,RAdeg,DEdeg,Dist,Vmag,V_Ic,V_K,RV,S_N,e_EW,v_Fe_H_, + Note if(ar__(45:49) .EQ. '') V_K = rNULL__ if(ar__(61:64) .EQ. '') e_EW = rNULL__ if(ar__(66:70) .EQ. '') v_Fe_H_ = rNULL__ c ..............Just test output........... write(6,1) + Seq,Fib,RAdeg,DEdeg,Dist,Vmag,V_Ic,V_K,RV,S_N,e_EW,v_Fe_H_, + Note c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table3.dat' ! Equivalent Widths for the cluster members C Format for file interpretation 2 format(I7,1X,A4,1X,F7.2,1X,F4.2,1X,F6.2,1X,F5.1,1X,F4.2) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,800 read(1,'(A43)')ar__1 read(ar__1,2)Seq_1,El,Lambda,Ep,log_gf,EW,logAbund if(ar__1(34:38) .EQ. '') EW = rNULL__ if(ar__1(40:43) .EQ. '') logAbund = rNULL__ c ..............Just test output........... write(6,2)Seq_1,El,Lambda,Ep,log_gf,EW,logAbund c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table4.dat' ! Equivalent Widths for field stars C Format for file interpretation 3 format(I7,1X,A4,1X,F7.2,1X,F4.2,1X,F6.2,1X,F5.1,1X,F4.2) C Effective file loading open(unit=1,status='old',file= +'table4.dat') write(6,*) '....Loading file: table4.dat' do i__=1,1183 read(1,'(A43)')ar__2 read(ar__2,3)Seq_2,El_1,Lambda_1,Ep_1,log_gf_1,EW_1,logAbund_1 if(ar__2(34:38) .EQ. '') EW_1 = rNULL__ if(ar__2(40:43) .EQ. '') logAbund_1 = rNULL__ c ..............Just test output........... write(6,3)Seq_2,El_1,Lambda_1,Ep_1,log_gf_1,EW_1,logAbund_1 c .......End.of.Just test output........... end do close(1) C============================================================================= stop end