Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/345/629 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-Apr-20 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/345/629 Abundance gradients in planetary nebulae (Maciel+, 1999) *================================================================================ *Abundance gradients in the outer galactic disk from planetary nebulae * Maciel W.J., Quireza C. * <Astron. Astrophys. 345, 629 (1999)> * =1999A&A...345..629M (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Data for disk planetary nebulae integer*4 nr__ parameter (nr__=130) ! Number of records character*57 ar__ ! Full-size record character*9 Name (nr__) ! Common name of the nebula character*10 PNG (nr__) ! PNG catalogue number real*4 Dist (nr__) ! (kpc) Distance real*4 GDist (nr__) ! (kpc) Galactocentric distance real*4 O_H (nr__) ! O/H abundance in the form: log (O/H) + 12 real*4 Ne_H (nr__) ! Ne/H abundance in the form: log (Ne/H) + 12 real*4 S_H (nr__) ! S/H abundance in the form: log (S/H) + 12 real*4 Ar_H (nr__) ! Ar/H abundance in the form: log (Ar/H) + 12 character*5 Ref (nr__) ! Reference of the abundances (1) *Note (1): 1 - Maciel and Koeppen (1994, Cat. <J/A+A/282/436>) * 2 - Costa et al. (1996A&AS..116..249C) * 3 - Costa et al. (1997, in: Advances in stellar evolution, * Rood, R.T., Renzini, A. (eds.), CUP, Cambridge, 159) * 4 - Corradi et al. (1997A&A...322..975C) * 5 - Hajian et al. (1997ApJ...487..304H) * 6 - Kingsburgh and Barlow (1994MNRAS.271..257K) * 7 - Perinotto et al. (1994A&AS..107..481P) * 8 - Perinotto (1991ApJS...76..687P) * 9 - Koeppen et al. (1991A&A...248..197K) C============================================================================= C Loading file 'table1.dat' ! Data for disk planetary nebulae C Format for file interpretation 1 format( + A9,1X,A10,1X,F4.1,1X,F5.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2,1X, + A5) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,130 read(1,'(A57)')ar__ read(ar__,1) + Name(i__),PNG(i__),Dist(i__),GDist(i__),O_H(i__),Ne_H(i__), + S_H(i__),Ar_H(i__),Ref(i__) c ..............Just test output........... write(6,1) + Name(i__),PNG(i__),Dist(i__),GDist(i__),O_H(i__),Ne_H(i__), + S_H(i__),Ar_H(i__),Ref(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end