Conversion of standardized ReadMe file for
file /./ftp/cats/J/MNRAS/382/1342 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/MNRAS/382/1342 Compact stellar systems around NGC 1399 (Firth+, 2007) *================================================================================ *Compact stellar systems around NGC 1399. * Firth P., Drinkwater M.J., Evstigneeva E.A., Gregg M.D., Karick A.M., * Jones J.B., Phillipps S. * <Mon. Not. R. Astron. Soc., 382, 1342-1352 (2007)> * =2007MNRAS.382.1342F (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! *Bound and unbound compact stellar systems (CSS) integer*4 nr__ parameter (nr__=63) ! Number of records character*108 ar__ ! Full-size record C J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs real*8 RAdeg ! (deg) Right Ascension J2000 real*8 DEdeg ! (deg) Declination J2000 C ---------------------------------- ! (position vector(s) in degrees) integer*4 Type ! [1/3] Type of cluster (1) integer*4 RAh ! (h) Right ascension (J2000) integer*4 RAm ! (min) Right ascension (J2000) real*4 RAs ! (s) Right ascension (J2000) character*1 DE_ ! Declination sign (J2000) integer*4 DEd ! (deg) Declination (J2000) integer*4 DEm ! (arcmin) Declination (J2000) real*4 DEs ! (arcsec) Declination (J2000) real*4 g_mag ! (mag) Deredenned CTIO g' magnitude real*4 r_mag ! (mag) Deredenned CTIO r' magnitude real*4 i_mag ! (mag) Deredenned CTIO i' magnitude real*4 SGC_r ! Stellarity index (2) character*1 n_SGC_r ! [cde] Note on SGC-r (3) integer*4 cz1 ! (km/s) ? 2dF heliocentric recessional velocity (4) integer*4 e_cz1 ! (km/s) ? rms uncertainty on cz1 integer*4 cz2 ! (km/s) ? FCOS heliocentric recessional velocity (5) integer*4 e_cz2 ! (km/s) ? rms uncertainty on cz2 integer*4 cz3 ! (km/s) ? Bergond heliocentric recessional velocity (6) integer*4 e_cz3 ! (km/s) ? rms uncertainty on cz3 integer*4 cz4 ! (km/s) ? VLT-FLAMES heliocentric recessional velocity integer*4 e_cz4 ! (km/s) ? rms uncertainty on cz4 real*4 R ! ? VLT-FLAMES cross-correlation R value character*1 n_R ! [)] ) indicates value from the previously * published redshift measurement with the * lowest error margin character*11 Galaxy ! Associated galaxy name real*4 DV_V ! ? Ratio of the recessional velocity difference * (between the CSS and its potentially * associated galaxy) and the escape velocity at * the projected radius (7) character*1 n_DV_V ! [a] bound to a prominent cluster (8) *Note (1): Type of cluster as follows: * 1 = known Fornax cluster galaxies * 2 = known Fornax cluster compact stellar systems (CSS) * 3 = new Fornax cluster compact stellar systems (CSS) *Note (2): The stellarity index (SGC-r), derived by SExtractor from r' band * photometry (Karick, 2005, PhD thesis, Univ. Melbourne), compares the * target light profile to a point-spread function (0 = extended object; * 1 = point source) *Note (3): Note on SGC-r as follows: * c = Photometry of these CSS has been affected by partial blending * with adjacent stars. * d = UCD3 is known to have an extended stellar halo (De Propris et al. * 2005ApJ...623L.105D), and may be eventually classified as a * dE,N galaxy (see full version of table). * e = Photometry of this CSS has been affected by blending with a * background galaxy *Note (4): 2dF revised velocity data are derived from Drinkwater et al. * (2000PASA...17..227D) and Gregg (in preparation). *Note (5): FCOS data are from the Fornax Compact Object Survey (Mieske et * al., 2004, Cat. J/A+A/418/445). FCOS catalogue identifiers (as * sequenced in the table): 1-017, 2-0231, 2-078, 4-2028, 2-073, 0-2025, * 3-2027, 1-2053, 1-060, 3-2004, 1-2083 and 3-2019. *Note (6): Bergond data are from VLT-FLAMES spectroscopy (Bergond et al., * 2006, Cat. J/A+A/448/155). *Note (7): Therefore, a ratio less than 1 implies they are gravitationally * bound. *Note (8): 'a' quotes CSS considered to be gravitationally bound to a * prominent cluster galaxy other than NGC 1399 - see analysis in * the text. C============================================================================= C Loading file 'table2.dat' ! *Bound and unbound compact stellar systems (CSS) C Format for file interpretation 1 format( + I1,1X,I2,1X,I2,1X,F5.2,1X,A1,I2,1X,I2,1X,F4.1,1X,F5.2,1X,F5.2, + 1X,F5.2,1X,F4.2,A1,1X,I4,1X,I3,1X,I4,1X,I3,1X,I4,1X,I3,1X,I4, + 1X,I2,1X,F5.2,A1,1X,A11,1X,F3.1,A1) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,63 read(1,'(A108)')ar__ read(ar__,1) + Type,RAh,RAm,RAs,DE_,DEd,DEm,DEs,g_mag,r_mag,i_mag,SGC_r, + n_SGC_r,cz1,e_cz1,cz2,e_cz2,cz3,e_cz3,cz4,e_cz4,R,n_R,Galaxy, + DV_V,n_DV_V if(ar__(51:54) .EQ. '') cz1 = iNULL__ if(ar__(56:58) .EQ. '') e_cz1 = iNULL__ if(ar__(60:63) .EQ. '') cz2 = iNULL__ if(ar__(65:67) .EQ. '') e_cz2 = iNULL__ if(ar__(69:72) .EQ. '') cz3 = iNULL__ if(ar__(74:76) .EQ. '') e_cz3 = iNULL__ if(ar__(78:81) .EQ. '') cz4 = iNULL__ if(ar__(83:84) .EQ. '') e_cz4 = iNULL__ if(ar__(86:90) .EQ. '') R = rNULL__ if(ar__(105:107) .EQ. '') DV_V = rNULL__ RAdeg = rNULL__ DEdeg = rNULL__ c Derive coordinates RAdeg and DEdeg from input data c (RAdeg and DEdeg are set to rNULL__ when unknown) if(RAh .GT. -180) RAdeg=RAh*15. if(RAm .GT. -180) RAdeg=RAdeg+RAm/4. if(RAs .GT. -180) RAdeg=RAdeg+RAs/240. if(DEd .GE. 0) DEdeg=DEd if(DEm .GE. 0) DEdeg=DEdeg+DEm/60. if(DEs .GE. 0) DEdeg=DEdeg+DEs/3600. if(DE_.EQ.'-'.AND.DEdeg.GE.0) DEdeg=-DEdeg c ..............Just test output........... write(6,1) + Type,RAh,RAm,RAs,DE_,DEd,DEm,DEs,g_mag,r_mag,i_mag,SGC_r, + n_SGC_r,cz1,e_cz1,cz2,e_cz2,cz3,e_cz3,cz4,e_cz4,R,n_R,Galaxy, + DV_V,n_DV_V write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg c .......End.of.Just test output........... end do close(1) C============================================================================= stop end