Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/464/953 into FORTRAN code for loading all data files into arrays.
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/464/953 Abundances of red giants in NGC 6441 (Gratton+, 2007) *================================================================================ *Na-O anticorrelation and horizontal branches. *V. The Na-O anticorrelation in NGC 6441 from Giraffe spectra. * Gratton R.G., LucatelloS., Bragaglia A., Carretta E., Cassisi S., * Momany Y., Pancino E., Valenti E., Caloi V., Claudi R., D'Antona F., * Desidera S., Francois P., James G., Moehler S., Ortolani S., Pasquini L., * Piotto G., Recio-Blanco A. * <Astron. Astrophys. 464, 953 (2007)> * =2007A&A...464..953G C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! Photometry and spectroscopic data for stars observed with Giraffe integer*4 nr__ parameter (nr__=25) ! Number of records character*76 ar__ ! Full-size record C J2000 position composed of: RAdeg DEdeg integer*4 Star (nr__) ! Sequential number of the star character*5 Gratings (nr__) ! [11+13 ] Grating(s) used real*8 RAdeg (nr__) ! (deg) Right ascension (J2000) in decimal degrees real*8 DEdeg (nr__) ! (deg) Declination (J2000) in decimal degrees integer*4 Dist (nr__) ! (arcsec) Distance from the cluster center real*4 Vmag (nr__) ! (mag) Johnson V magnitude real*4 V_Ic (nr__) ! (mag) Johnson-Cousins V-Ic colour index real*4 V_K (nr__) ! (mag) ? Johnson V-K colour index real*4 RV (nr__) ! (km/s) Radial velocity integer*4 S_NHR11 (nr__) ! ? HR11 signal-to-noise ratio integer*4 S_NHR13 (nr__) ! ? HR13 signal-to-noise ratio real*4 e_EW (nr__) ! (0.1pm) rms uncertainty on equivalent width (m{AA}) real*4 v_Fe_H_ (nr__) ! ([Sun]) Metallicity c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! Equivalent Widths from Giraffe spectra integer*4 nr__1 parameter (nr__1=2375) ! Number of records character*38 ar__1 ! Full-size record integer*4 Star_1 (nr__1) ! Sequential number of the star real*4 Ion (nr__1) ! Element and ionisation stage, e.g. 26.1 = FeI real*8 Lambda (nr__1) ! (0.1nm) Wavelength of the line real*4 EP (nr__1) ! (eV) Potential energy real*4 loggf (nr__1) ! Oscillator strength real*4 EW (nr__1) ! (0.1pm) ? Equivalent width (m{AA}) C============================================================================= C Loading file 'table2.dat' ! Photometry and spectroscopic data for stars * observed with Giraffe C Format for file interpretation 1 format( + I7,1X,A5,1X,F8.4,1X,F8.4,1X,I3,1X,F6.3,1X,F5.3,1X,F5.3,1X, + F4.1,1X,I2,1X,I2,1X,F4.1,1X,F5.2) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,25 read(1,'(A76)')ar__ read(ar__,1) + Star(i__),Gratings(i__),RAdeg(i__),DEdeg(i__),Dist(i__), + Vmag(i__),V_Ic(i__),V_K(i__),RV(i__),S_NHR11(i__), + S_NHR13(i__),e_EW(i__),v_Fe_H_(i__) if(ar__(50:54) .EQ. '') V_K(i__) = rNULL__ if(ar__(61:62) .EQ. '') S_NHR11(i__) = iNULL__ if(ar__(64:65) .EQ. '') S_NHR13(i__) = iNULL__ c ..............Just test output........... write(6,1) + Star(i__),Gratings(i__),RAdeg(i__),DEdeg(i__),Dist(i__), + Vmag(i__),V_Ic(i__),V_K(i__),RV(i__),S_NHR11(i__), + S_NHR13(i__),e_EW(i__),v_Fe_H_(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table3.dat' ! Equivalent Widths from Giraffe spectra C Format for file interpretation 2 format(I7,1X,F4.1,1X,F7.2,1X,F4.2,1X,F6.2,1X,F5.1) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,2375 read(1,'(A38)')ar__1 read(ar__1,2) + Star_1(i__),Ion(i__),Lambda(i__),EP(i__),loggf(i__),EW(i__) if(ar__1(34:38) .EQ. '') EW(i__) = rNULL__ c ..............Just test output........... write(6,2) + Star_1(i__),Ion(i__),Lambda(i__),EP(i__),loggf(i__),EW(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end