Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/660/1151 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-Mar-29 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/660/1151 Morphology of galaxies in 10 EDisCS clusters (Desai+, 2007) *================================================================================ *The morphological content of 10 EDisCS clusters at 0.5 < z < 0.8. * Desai V., Dalcanton J.J., Aragon-Salamanca A., Jablonka P., Poggianti B., * Gogarten S.M., Simard L., Milvang-Jensen B., Rudnick G., Zaritsky D., * Clowe D., Halliday C., Pello R., Saglia R., White S. * <Astrophys. J., 660, 1151-1164 (2007)> * =2007ApJ...660.1151D C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! The EDisCS (ESO Distant Cluster Survey) HST sample integer*4 nr__ parameter (nr__=10) ! Number of records character*66 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 Seq ! Sequential number character*11 Cluster ! Name of EDisCS Cluster Field (clHHMM+DDMM, * ClG JHHMM+DDMM in Simbad) character*1 m_Cluster ! [b] Multiplicity index on Cluster 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 z ! Redshift integer*4 sigma ! (km/s) Velocity dispersion integer*4 E_sigma ! (km/s) Error on sigma (upper limit) integer*4 e_sigma_1 ! (km/s) Error on sigma (lower limit) real*4 R200_1 ! (Mpc) Virial radius, R200, computed with eq. (1) in * Poggianti et al. (2006ApJ...642..188P) using * the classic cosmology real*4 R200_2 ! (Mpc) Virial radius, R200, computed with eq. (1) in * Poggianti et al. (2006ApJ...642..188P) using * the WMAP cosmology c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! The Morphological Catalogs integer*4 nr__1 parameter (nr__1=9243) ! Number of records character*293 ar__1 ! Full-size record C J2000 position composed of: RAdeg DEdeg character*11 Cluster_1 ! Name of EDisCS Cluster Field (clHHMM+DDMM, * ClG JHHMM+DDMM in Simbad) character*16 EDCSN ! The EDisCS identification, JHHMMSSs+DDMMSSs real*8 RAdeg_1 ! (deg) Right Ascension in decimal degrees (J2000) real*8 DEdeg_1 ! (deg) Declination in decimal degrees (J2000) real*4 Imag ! (mag) Total I band magnitude (1) integer*4 Type ! Object type (2) integer*4 Disk ! The SO disk flag (3) integer*4 Bar ! Bar flag (4) integer*4 E_on ! The Edge-on flag (5) integer*4 Small ! Small galaxy flag (6) integer*4 LSB ! Low-surface-brightness flag (7) integer*4 Defect ! Defective galaxy image flag (8) integer*4 Dust ! Dust in galaxy flag (9) integer*4 Disturb ! Disturbed galaxy flag (10) character*199 Com ! Additional classifier comment(s) (11) *Note (1): * SExtractor MAG_AUTO parameter measured from ground-based I-band images *Note (2): Object type as follows: * -7 = star * -6 = non-stellar but too compact to see structure * -5 = E * -2 = S0 * 1 = Sa * 2 = Sab * 3 = Sb * 4 = Sbc * 5 = Sc * 6 = Scd * 7 = Sd * 8 = Sdm * 9 = Sm * 10 = Im * 11 = Irr * 88 = Not explained (for 2 galaxies) * 111 = no HST data corresponding to ground-based object * 66 = unclassifiable * 999 = Not explained (for 10 galaxies) * 1011 = Not explained (for 1 galaxy) *Note (3): SO disk flag as follows: * 1 = A classifier noted that the Bulge/Disk ratio is small * but the disk is featureless * 0 = A classifier did not note that the Bulge/Disk ratio is small * but the disk is featureless * 111 = No HST data corresponding to ground-based object *Note (4): Bar flag as follows: * 1 = A classifier noted the presence of a bar * 0 = criterion is not met * 111 = No HST data corresponding to ground-based object *Note (5): Edge-on flag as follows: * 1 = A classifier noted that this galaxy is edge-on * 0 = criterion is not met * 111 = No HST data corresponding to ground-based object *Note (6): Small galaxy flag as follows: * 1 = A classifier noted that this galaxy is small * 0 = criterion is not met * 111 = No HST data corresponding to ground-based object *Note (7): Low-surface-brightness flag as follows: * 1 = A classifier noted that this galaxy is low-surface-brightness * 0 = criterion is not met * 111 = No HST data corresponding to ground-based object *Note (8): Defective galaxy image flag as follows: * 1 = A classifier noted that the image of this galaxy was defective, * due for example to cosmic rays or incomplete coverage * 0 = criterion is not met * 111 = No HST data corresponding to ground-based object *Note (9): Dust in galaxy flag as follows: * 1 = A classifier noted the presence of dust in the galaxy * 0 = criterion is not met * 111 = No HST data corresponding to ground-based object *Note (10): Disturbed galaxy flag as follows: * 1 = A classifier noted that this galaxy is disturbed * 0 = criterion is not met * 111 = No HST data corresponding to ground-based object *Note (11): 111 for No HST data corresponding to ground-based object C============================================================================= C Loading file 'table1.dat' ! The EDisCS (ESO Distant Cluster Survey) HST sample C Format for file interpretation 1 format( + I2,1X,A11,A1,1X,I2,1X,I2,1X,F4.1,1X,A1,I2,1X,I2,1X,F4.1,1X, + F4.2,1X,I4,1X,I3,1X,I3,1X,F4.2,1X,F4.2) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,10 read(1,'(A66)')ar__ read(ar__,1) + Seq,Cluster,m_Cluster,RAh,RAm,RAs,DE_,DEd,DEm,DEs,z,sigma, + E_sigma,e_sigma_1,R200_1,R200_2 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) + Seq,Cluster,m_Cluster,RAh,RAm,RAs,DE_,DEd,DEm,DEs,z,sigma, + E_sigma,e_sigma_1,R200_1,R200_2 write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table2.dat' ! The Morphological Catalogs C Format for file interpretation 2 format( + A11,6X,A16,1X,F7.3,1X,F8.4,1X,F5.2,1X,I4,1X,I3,1X,I3,1X,I3,1X, + I3,1X,I3,1X,I3,1X,I3,1X,I3,1X,A199) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,9243 read(1,'(A293)')ar__1 read(ar__1,2) + Cluster_1,EDCSN,RAdeg_1,DEdeg_1,Imag,Type,Disk,Bar,E_on,Small, + LSB,Defect,Dust,Disturb,Com c ..............Just test output........... write(6,2) + Cluster_1,EDCSN,RAdeg_1,DEdeg_1,Imag,Type,Disk,Bar,E_on,Small, + LSB,Defect,Dust,Disturb,Com c .......End.of.Just test output........... end do close(1) C============================================================================= stop end