Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/108/1276 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/AJ/108/1276 Clusters in GEHRs (Mayya, 1994) *================================================================================ *Embedded clusters in giant extragalactic HII Regions. I. BVRHalpha photometry * Mayya Y.D. * <Astron. J. 108, 1276 (1994)> * =1994AJ....108.1276M (SIMBAD/NED Reference) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3' ! Photometric catalogue of H II regions integer*4 nr__ parameter (nr__=186) ! Number of records character*93 ar__ ! Full-size record character*12 Gal ! Galaxies name (g for groups) integer*4 ID ! H II region numbers (1) integer*4 Xpos ! (pix) X pixel coordinate (2) integer*4 Ypos ! (pix) Y coordinate (2) character*1 dirRA ! [EW] Direction of RA position (3) integer*4 posRA ! (arcsec) ? Approximate right ascension position (3) character*1 dirDE ! [NS] Direction of DE position (3) integer*4 posDE ! (arcsec) ? Approximate declination position (3) real*4 Diam ! (arcsec) Diam. of aperture for mag. extractions character*1 l_Vmag ! [>] Limiting character for V real*4 Vmag ! (mag) V magnitude (4) real*4 B_V ! (mag) []? B-V color (4) real*4 V_R ! (mag) []? V-R color (4) real*4 Salpha ! ([mW/m2]) Log of observed H_alpha+[N II] flux character*1 l_W_Ha ! Limiting character for W(Ha) integer*4 W_Ha ! (0.1nm) Emission equivalent width (5) integer*4 Qual ! Index of photometric quality (6) character*14 OtherID ! Id. from other authors when available (7) *Note (1): H II region numbers as identified on the charts in the printed paper. *Note (2): X and Y pixel coordinates on the aligned CCD images, which are the * same as that appearing on the grid around identification charts. * For NGC 4449 the grids contain different pixel numbers than that * given in these columns for the reasons mentioned in the text. *Note (3): Approximate position of the H II region, along Right Ascension and * declination in seconds of arc, with respect to the galactic nucleus. * These were obtained by transforming X and Y assuming that the RA-DEC * axis is aligned with X-Y axis of the CCD. Since the alignment during * observations is only approximate (<=5deg), RA and DEC values away * from the center are less accurate, compared to those near the center * of the CCD. Thus the positions should be used only for identification * purposes. E, W, N, and S preceeding the numbers indicate respectively * whether the H II region is to the east, west, north or south of the * nucleus of the galaxy. *Note (4): V Magnitude, B-V and V-R colors of H II regions after subtracting * assumed background. The rms errors on the measured magnitudes are * in the range 0.05-0.10, as estimated from measurements on multiple * frames. *Note (5): H_alpha + [N II] emission equivalent width in A with R magnitude as * an estimate for the continuum at H_alpha, computed using the equation * W(Ha)=1.633E-11*F_alpha/10**(-0.4(R+48.6)) * where, F_alpha is the H_alpha + [N II] flux in mW/m^2 (erg/s/cm^2). * The measurement errors are <20A. Note that the R band magnitudes used * in the above definition include emission from the nebular continuum * and lines. *Note (6): An index of photometric quality. It is an integer between 1 and 4 * and gives a measure of the background domination for BVR * measurements. Higher the index, more sensitive are the colors to the * background measurement. See printed paper for details. *Note (7): Identification from other authors when available. For measurements * with bigger apertures, individual GEHRs enclosed within the aperture * are indicated. The notations used for identifications are: * CM Crillon and Monnet 1969, =1969A&A.....1..449C * HK Hodge and Kennicutt 1983, =1983AJ.....88..296H * HP Hawley and Phillips 1980, =1980ApJ...235..783H * AN Alloin and Nieto 1982, =1982A&AS...50..491A * Oka Oka et. al 1974, PASJ, 26, 289 * Tpp Prabhu 1980, ApSpSci., 68, 519 * L Lindblad, P.O. see Alloin et. al, 1981A&A...101..377A * M McCall, Rybski, and Shields 1985, =1985ApJS...57....1M * RW Roy and Walsh: 1986MNRAS.223...39R; 1987MNRAS.228..883R; * 1988MNRAS.234..977R * WR Walsh and Roy: 1989MNRAS.239..297W; 1989ApJ...341..722W C============================================================================= C Loading file 'table3' ! Photometric catalogue of H II regions C Format for file interpretation 1 format( + A12,1X,I2,2X,I3,1X,I3,2X,A1,I3,1X,A1,I3,2X,F4.1,1X,A1,F5.2,1X, + F5.2,1X,F5.2,2X,F6.2,1X,A1,I4,2X,I1,2X,A14) C Effective file loading open(unit=1,status='old',file= +'table3') write(6,*) '....Loading file: table3' do i__=1,186 read(1,'(A93)')ar__ read(ar__,1) + Gal,ID,Xpos,Ypos,dirRA,posRA,dirDE,posDE,Diam,l_Vmag,Vmag,B_V, + V_R,Salpha,l_W_Ha,W_Ha,Qual,OtherID if(ar__(28:30) .EQ. '') posRA = iNULL__ if(ar__(33:35) .EQ. '') posDE = iNULL__ if(ar__(50:54) .EQ. '') B_V = rNULL__ if(ar__(56:60) .EQ. '') V_R = rNULL__ c ..............Just test output........... write(6,1) + Gal,ID,Xpos,Ypos,dirRA,posRA,dirDE,posDE,Diam,l_Vmag,Vmag,B_V, + V_R,Salpha,l_W_Ha,W_Ha,Qual,OtherID c .......End.of.Just test output........... end do close(1) C============================================================================= stop end