Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/365/471 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/ApJ/365/471 Planetary nebulae as standard candles. VI. (Jacoby+, 1990) *================================================================================ *Planetary nebulae as standard candles. VI. A test in the Magellanic Clouds. * Jacoby G.H., Walker A.R., Ciardullo R. * <Astrophys. J. 365, 471 (1990)> * =1990ApJ...365..471J C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! LMC planetary nebula photometry integer*4 nr__ parameter (nr__=102) ! Number of records character*36 ar__ ! Full-size record character*7 PN (nr__) ! PN designation (1) character*1 l_m5007 (nr__) ! Limit flag on m5007 real*4 m5007 (nr__) ! (mag) m5007 magnitude (-2.5logF(5007) - 13.74) character*1 l_logF5007 (nr__) ! Limit flag on logF5007 real*8 logF5007 (nr__) ! ([Jy]) Flux at 5007{AA} integer*4 RV (nr__) ! (km/s) ? Radial velocity real*4 Diam (nr__) ! (arcsec) ? FWHM diameter for objects which appear * slightly nonstellar *Note (1): PN designation: * SMP NNN: Sanduleak, MacConnell & Philip, 1978PASP...90..621S; * Table 2: SMP LMC NNN in Simbad, Table 3: SMP SMC NNN in Simbad * SP NN: Sanduleak & Peach, 1981PASP...93..431S (SMP SMC NN in Simbad) * L NNN: Lindsay, 1961AJ.....66..169L (Lin NNN in Simnad) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! SMC planetary nebula photometry integer*4 nr__1 parameter (nr__1=31) ! Number of records character*36 ar__1 ! Full-size record character*7 PN_1 (nr__1) ! PN designation (1) character*1 l_m5007_1 (nr__1) ! Limit flag on m5007 real*4 m5007_1 (nr__1) ! (mag) m5007 magnitude (-2.5logF(5007) - 13.74) character*1 l_logF5007_1(nr__1) ! Limit flag on logF5007 real*8 logF5007_1 (nr__1) ! ([Jy]) Flux at 5007{AA} integer*4 RV_1 (nr__1) ! (km/s) ? Radial velocity real*4 Diam_1 (nr__1) ! (arcsec) ? FWHM diameter for objects which appear * slightly nonstellar *Note (1): PN designation: * SMP NNN: Sanduleak, MacConnell & Philip, 1978PASP...90..621S; * Table 2: SMP LMC NNN in Simbad, Table 3: SMP SMC NNN in Simbad * SP NN: Sanduleak & Peach, 1981PASP...93..431S (SMP SMC NN in Simbad) * L NNN: Lindsay, 1961AJ.....66..169L (Lin NNN in Simnad) C============================================================================= C Loading file 'table2.dat' ! LMC planetary nebula photometry C Format for file interpretation 1 format(A7,1X,A1,F5.2,2X,A1,F7.3,1X,I3,5X,F3.1) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,102 read(1,'(A36)')ar__ read(ar__,1) + PN(i__),l_m5007(i__),m5007(i__),l_logF5007(i__),logF5007(i__), + RV(i__),Diam(i__) if(ar__(26:28) .EQ. '') RV(i__) = iNULL__ if(ar__(34:36) .EQ. '') Diam(i__) = rNULL__ c ..............Just test output........... write(6,1) + PN(i__),l_m5007(i__),m5007(i__),l_logF5007(i__),logF5007(i__), + RV(i__),Diam(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table3.dat' ! SMC planetary nebula photometry C Format for file interpretation 2 format(A7,1X,A1,F5.2,2X,A1,F7.3,1X,I3,5X,F3.1) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,31 read(1,'(A36)')ar__1 read(ar__1,2) + PN_1(i__),l_m5007_1(i__),m5007_1(i__),l_logF5007_1(i__), + logF5007_1(i__),RV_1(i__),Diam_1(i__) if(ar__1(26:28) .EQ. '') RV_1(i__) = iNULL__ if(ar__1(34:36) .EQ. '') Diam_1(i__) = rNULL__ c ..............Just test output........... write(6,2) + PN_1(i__),l_m5007_1(i__),m5007_1(i__),l_logF5007_1(i__), + logF5007_1(i__),RV_1(i__),Diam_1(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end