Conversion of standardized ReadMe file for
file /./ftp/cats/J/MNRAS/420/926 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.5, on 2013-May-25
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__=-1.e37) ! NULL real number
parameter (iNULL__=-2147483647) ! NULL int number
C=============================================================================
Cat. J/MNRAS/420/926 Morphology of galaxies in WINGS clusters (Fasano+, 2012)
*================================================================================
*Morphology of galaxies in the WINGS clusters.
* Fasano G., Vanzella E., Dressler A., Poggianti B.M., Moles M.,
* Bettoni D., Valentinuzzi T., Moretti A., D'Onofrio M., Varela J.,
* Couch W.J., Kjaergaard P., Fritz J., Omizzolo A., Cava A.
* <Mon. Not. R. Astron. Soc. 420, 926 (2012)>
* =2012MNRAS.420..926F
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'morphot.dat' ! Morphological types for 39923 galaxies in
76 WINGS clusters (0.04<z<0.07)
integer*4 nr__
parameter (nr__=39923) ! Number of records
character*108 ar__ ! Full-size record
character*19 WINGS (nr__) ! Object identification, JHHMMSS.ss+DDMMSS.s
character*7 Cluster (nr__) ! Cluster name
real*4 MT_ML (nr__) ! ?=-999 Maximum Likelihood morphological type (1)
real*4 b_MT_ML (nr__) ! ?=-999 Lower confidence limit for MTypeML (1)
real*4 B_MT_ML_1 (nr__) ! ?=-999 Upper confidence limit for MTypeML (1)
real*4 MT_NN (nr__) ! ?=-999 Neural Network morphological type (1)
real*4 b_MT_NN (nr__) ! ?=-999 Lower confidence limit for MTypeNN (1)
real*4 B_MT_NN_1 (nr__) ! ?=-999 Upper confidence limit for MTypeNN (1)
real*4 MT_M (nr__) ! ?=-999 MORPHOT morphological type (2)
real*4 b_MT_M (nr__) ! ?=-999 Lower confidence limit for MTypeM (2)
real*4 B_MT_M_1 (nr__) ! ?=-999 Upper confidence limit for MTypeM (2)
real*4 MT_vis (nr__) ! ?=-999 Visual morphological type (1)
real*4 MType (nr__) ! Final morphological type (1)
*Note (1): Everywhere in the catalog not available data are
* indicated with -999.0. MType codes are defined in table1
* [Revised Hubble Type (TRH) and MORPHOT Type (TM) codes]
* ------------------------------------------------------------
* Code TRH TM Note
* ------------------------------------------------------------
* -6 cE cD cE are compact elliptical galaxies
* -5 E E
* -4 cD E/S0
* -3 S0- S0-
* -2 S0 S0
* -1 S0+ S0+
* 0 S0/a S0/a
* 1 Sa Sa
* 2 Sab Sab
* 3 Sb Sb
* 4 Sbc Sbc
* 5 Sc Sc
* 6 Scd Scd
* 7 Sd Sd
* 8 Sdm Sdm
* 9 Sm Sm
* 10 Im Im
* 11 cI cI cI are compact irregular galaxies
* ------------------------------------------------------------
*Note (2): MTypeM is evaluated as (MTypeML + MTypeNN)/2; similarly
* b_MTypeM = (b_MTypeML + b_MTypeNN)/2
* B_MTypeM = (B_MTypeML + B_MTypeNN)/2
C=============================================================================
C Loading file 'morphot.dat' ! Morphological types for 39923 galaxies in
* 76 WINGS clusters (0.04<z<0.07)
C Format for file interpretation
1 format(
+ 5X,A19,1X,A7,1X,F6.1,1X,F6.1,1X,F6.1,1X,F6.1,1X,F6.1,1X,F6.1,
+ 1X,F6.1,1X,F6.1,1X,F6.1,1X,F6.1,1X,F5.1)
C Effective file loading
open(unit=1,file='morphot.dat', status='old')
write(6,*) '....Loading file: morphot.dat'
do i__=1,39923
read(1,'(A108)')ar__
read(ar__,1)
+ WINGS(i__),Cluster(i__),MT_ML(i__),b_MT_ML(i__),
+ B_MT_ML_1(i__),MT_NN(i__),b_MT_NN(i__),B_MT_NN_1(i__),
+ MT_M(i__),b_MT_M(i__),B_MT_M_1(i__),MT_vis(i__),MType(i__)
c ..............Just test output...........
write(6,1)
+ WINGS(i__),Cluster(i__),MT_ML(i__),b_MT_ML(i__),
+ B_MT_ML_1(i__),MT_NN(i__),b_MT_NN(i__),B_MT_NN_1(i__),
+ MT_M(i__),b_MT_M(i__),B_MT_M_1(i__),MT_vis(i__),MType(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end