Conversion of standardized ReadMe file for
file /./ftp/cats/J/MNRAS/381/1035 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-28 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/MNRAS/381/1035 Spectroscopy in Shapley supercluster (Smith+, 2007) *================================================================================ *A deep AAOmega survey of low-luminosity galaxies in the Shapley supercluster: *stellar population trends. * Smith R.J., Lucey J.R., Hudson M.J. * <Mon. Not. R. Astron. Soc., 381, 1035-1052 (2007)> * =2007MNRAS.381.1035S C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'tables.dat' ! Basic data, principal and supplementary line-strength indices for the sample galaxies (tables 2, 3 and 4 of the paper) integer*4 nr__ parameter (nr__=232) ! Number of records character*232 ar__ ! Full-size record character*16 NFP (nr__) ! NFP galaxy designation (JHHMMSS.s+DDMMSS) integer*4 S_N (nr__) ! Signal-to-noise ratio measured over a * rest-frame interval of 4500-5500{AA} integer*4 cz (nr__) ! (km/s) Heliocentric radial velocity real*4 Rmag (nr__) ! (mag) Total (Harris) R magnitude from NFPS photometry real*4 Bmag (nr__) ! (mag) Total (Harris) B magnitude from NFPS photometry real*4 logSv (nr__) ! ([km/s]) ? Velocity dispersion (2) (1) real*4 e_logSv (nr__) ! ([km/s]) ? rms uncertainty on logsigma real*4 Mgb5177 (nr__) ! Non-degenerate absorption-line index * Mgb5177 (3) (2) real*4 e_Mgb5177 (nr__) ! rms uncertainty on Mgb5177 real*4 Fe5015 (nr__) ! ?=- Non-degenerate absorption-line index * Fe5015 (2) (3) real*4 e_Fe5015 (nr__) ! ?=- rms uncertainty on Fe5015 real*4 HgF (nr__) ! ?=- Non-degenerate absorption-line index * HgF (2) (3) real*4 e_HgF (nr__) ! ?=- rms uncertainty on HgF real*4 HdA (nr__) ! HdA line-strength index real*4 e_HdA (nr__) ! rms uncertainty on HdA real*4 HdF (nr__) ! HdF line-strength index real*4 e_HdF (nr__) ! rms uncertainty on HdF real*4 CN1 (nr__) ! CN1 line-strength index real*4 e_CN1 (nr__) ! rms uncertainty on CN1 real*4 CN2 (nr__) ! CN2 line-strength index real*4 e_CN2 (nr__) ! rms uncertainty on CN2 real*4 Ca4227 (nr__) ! Ca4227 line-strength index real*4 e_Ca4227 (nr__) ! rms uncertainty on Ca4227 real*4 G4300 (nr__) ! G4300 line-strength index real*4 e_G4300 (nr__) ! rms uncertainty on G4300 real*4 HgA (nr__) ! ?=- HgA line-strength index real*4 e_HgA (nr__) ! ?=- rms uncertainty on HgA real*4 Fe4383 (nr__) ! ?=- Fe4383 line-strength index real*4 e_Fe4383 (nr__) ! ?=- rms uncertainty on Fe4383 real*4 Ca4455 (nr__) ! ?=- Ca4455 line-strength index real*4 e_Ca4455 (nr__) ! ?=- rms uncertainty on Ca4455 real*4 Fe4531 (nr__) ! ?=- Fe4531 line-strength index real*4 e_Fe4531 (nr__) ! ?=- rms uncertainty on Fe4531 real*4 Fe4668 (nr__) ! ?=- Fe4668 line-strength index real*4 e_Fe4668 (nr__) ! ?=- rms uncertainty on Fe4668 real*4 Hbeta (nr__) ! H{beta} line-strength index real*4 e_Hbeta (nr__) ! rms uncertainty on Hbeta real*4 Fe5406 (nr__) ! Fe5406 line-strength index real*4 e_Fe5406 (nr__) ! rms uncertainty on Fe5406 *Note (1): Galaxies with missing data in this column are those for which * the dispersion was unresolved. *Note (2): Velocity dispersions and line indices are as observed through * a 142-140 aperture, corresponding to 1.9kpc in our adopted cosmology *Note (3): Indices have been corrected to the Lick resolution and to zero * intrinsic velocity broadening. C============================================================================= C Loading file 'tables.dat' ! Basic data, principal and supplementary * line-strength indices for the sample galaxies * (tables 2, 3 and 4 of the paper) C Format for file interpretation 1 format( + 3X,A16,1X,I3,1X,I5,1X,F5.2,1X,F5.2,1X,F5.3,1X,F5.3,1X,F5.3,1X, + F5.3,1X,F5.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F5.2,1X,F4.2,1X,F5.2, + 1X,F4.2,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F5.2,1X,F4.2,1X, + F4.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2, + 1X,F5.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F5.2,1X, + F4.2) C Effective file loading open(unit=1,status='old',file= +'tables.dat') write(6,*) '....Loading file: tables.dat' do i__=1,232 read(1,'(A232)')ar__ read(ar__,1) + NFP(i__),S_N(i__),cz(i__),Rmag(i__),Bmag(i__),logSv(i__), + e_logSv(i__),Mgb5177(i__),e_Mgb5177(i__),Fe5015(i__), + e_Fe5015(i__),HgF(i__),e_HgF(i__),HdA(i__),e_HdA(i__), + HdF(i__),e_HdF(i__),CN1(i__),e_CN1(i__),CN2(i__),e_CN2(i__), + Ca4227(i__),e_Ca4227(i__),G4300(i__),e_G4300(i__),HgA(i__), + e_HgA(i__),Fe4383(i__),e_Fe4383(i__),Ca4455(i__), + e_Ca4455(i__),Fe4531(i__),e_Fe4531(i__),Fe4668(i__), + e_Fe4668(i__),Hbeta(i__),e_Hbeta(i__),Fe5406(i__), + e_Fe5406(i__) if(ar__(43:47) .EQ. '') logSv(i__) = rNULL__ if(ar__(49:53) .EQ. '') e_logSv(i__) = rNULL__ if (idig(ar__(67:71)).EQ.0) Fe5015(i__) = rNULL__ if (idig(ar__(73:77)).EQ.0) e_Fe5015(i__) = rNULL__ if (idig(ar__(79:84)).EQ.0) HgF(i__) = rNULL__ if (idig(ar__(86:90)).EQ.0) e_HgF(i__) = rNULL__ if (idig(ar__(161:165)).EQ.0) HgA(i__) = rNULL__ if (idig(ar__(167:170)).EQ.0) e_HgA(i__) = rNULL__ if (idig(ar__(172:175)).EQ.0) Fe4383(i__) = rNULL__ if (idig(ar__(177:180)).EQ.0) e_Fe4383(i__) = rNULL__ if (idig(ar__(182:185)).EQ.0) Ca4455(i__) = rNULL__ if (idig(ar__(187:190)).EQ.0) e_Ca4455(i__) = rNULL__ if (idig(ar__(192:196)).EQ.0) Fe4531(i__) = rNULL__ if (idig(ar__(198:201)).EQ.0) e_Fe4531(i__) = rNULL__ if (idig(ar__(203:206)).EQ.0) Fe4668(i__) = rNULL__ if (idig(ar__(208:211)).EQ.0) e_Fe4668(i__) = rNULL__ c ..............Just test output........... write(6,1) + NFP(i__),S_N(i__),cz(i__),Rmag(i__),Bmag(i__),logSv(i__), + e_logSv(i__),Mgb5177(i__),e_Mgb5177(i__),Fe5015(i__), + e_Fe5015(i__),HgF(i__),e_HgF(i__),HdA(i__),e_HdA(i__), + HdF(i__),e_HdF(i__),CN1(i__),e_CN1(i__),CN2(i__),e_CN2(i__), + Ca4227(i__),e_Ca4227(i__),G4300(i__),e_G4300(i__),HgA(i__), + e_HgA(i__),Fe4383(i__),e_Fe4383(i__),Ca4455(i__), + e_Ca4455(i__),Fe4531(i__),e_Fe4531(i__),Fe4668(i__), + e_Fe4668(i__),Hbeta(i__),e_Hbeta(i__),Fe5406(i__), + e_Fe5406(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end C Locate position of first digit in string; or return 0 integer function idig(c) character*(*) c character*1 c1 integer lc,i lc=len(c) idig=0 do i=1,lc if(c(i:i).ne.' ') go to 1 end do 1 if(i.gt.lc) return c1=c(i:i) if(c1.eq.'.'.or.c1.eq.'-'.or.c1.eq.'+') i=i+1 if(i.gt.lc) return c1=c(i:i) if(c1.ge.'0'.and.c1.le.'9') idig=i return end