Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/497/667 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-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/A+A/497/667 WINGS: Deep optical phot. of 77 nearby clusters (Varela+, 2009)
*================================================================================
*WINGS: A WIde-field Nearby Galaxy-cluster Survey.
*II. Deep optical photometry of 77 nearby clusters.
* Varela J., D'Onofrio M., Marmo C., Fasano G., Bettoni D., Cava A.,
* Couch W. J., Dressler A., Kjaergaard P., Moles M., Pignatelli E.,
* Poggianti B. M., Valentinuzzi T.
* <Astron. Astrophys. 497, 667 (2009)>
* =2009A&A...497..667V
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tabled3.dat' ! Coordinates of the emission peak of the
brightest cluster galaxies (BCG)
integer*4 nr__
parameter (nr__=77) ! Number of records
character*52 ar__ ! Full-size record
C J2000.0 position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg (nr__) ! (deg) Right Ascension J2000.0
real*8 DEdeg (nr__) ! (deg) Declination J2000.0
C ---------------------------------- ! (position vector(s) in degrees)
character*6 Cluster (nr__) ! Cluster name
integer*4 RAh (nr__) ! (h) Brightest galaxy right ascension (J2000.0)
integer*4 RAm (nr__) ! (min) Brightest galaxy right ascension (J2000.0)
real*4 RAs (nr__) ! (s) Brightest galaxy right ascension (J2000.0)
character*1 DE_ (nr__) ! Brightest galaxy declination sign (J2000.0)
integer*4 DEd (nr__) ! (deg) Brightest galaxy declination (J2000.0)
integer*4 DEm (nr__) ! (arcmin) Brightest galaxy declination (J2000.0)
real*4 DEs (nr__) ! (arcsec) Brightest galaxy declination (J2000.0)
character*19 SName (nr__) ! Simbad name of the cluster
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'gal/*' ! Datafiles for galaxies in the field of each Cluster
(files named Cluster_G.dat)
integer*4 nr__1
parameter (nr__1=77) ! Number of records
character*234 ar__1 ! Full-size record
C J2000.0 position composed of: RAdeg DEdeg
character*20 WINGS (nr__1) ! Object identification,
* JHHMMSS.ss+DDMMSS.s (1)
real*8 RAdeg_1 (nr__1) ! (deg) Right Ascention J2000.0, Barycentre
real*8 DEdeg_1 (nr__1) ! (deg) Declination J2000.0, Barycentre
real*8 RApdeg (nr__1) ! (deg) Right Ascention J2000.0, Emission peak
real*8 DEpdeg (nr__1) ! (deg) Declination J2000.0, Emission peak
real*8 Area (nr__1) ! (arcsec+2) Isophotal area
real*4 KronRad (nr__1) ! (arcsec) Kron radius
real*4 FWHM (nr__1) ! (arcsec) Full width at half maximum
real*4 b_a (nr__1) ! Ratio between minor axis and major axis
integer*4 PA (nr__1) ! (deg) [-90/90] Position angle (North=0, Eastwards)
integer*4 Flag (nr__1) ! SExtractor's flags (2)
real*4 SI (nr__1) ! [0/1] SExtractor's Stellarity Index
* (0=galaxy; 1=star)
real*4 Conc (nr__1) ! Concentration parameter (3)
real*4 Contr (nr__1) ! Contrast parameter (4)
real*4 mumax (nr__1) ! (mag/arcsec2) Surface brightness of the emission peak
real*4 Viso (nr__1) ! (mag) ?=99 SExtractor's MAG_ISO in V band (5)
real*4 Visoc (nr__1) ! (mag) ?=99 SExtractor's MAG_ISOCOR in V band (5)
real*4 Vauto (nr__1) ! (mag) ?=99 SExtractor's MAG_AUTO in V band (5)
real*4 V2kpc (nr__1) ! (mag) ?=99 V magnitude in aperture of r=2kpc (5)(6)
real*4 V5kpc (nr__1) ! (mag) ?=99 V magnitude in aperture of r=5kpc (5)(6)
real*4 V10kpc (nr__1) ! (mag) ?=99 V magnitude in aperture of r=10kpc(5)(6)
real*4 Vfib1 (nr__1) ! (mag) ?=99 V magnitude in aperture of r=1.6" (5)
real*4 Vfib2 (nr__1) ! (mag) ?=99 V magnitude in aperture of r=2.0" (5)
real*4 Vfib3 (nr__1) ! (mag) ?=99 V magnitude in aperture of r=2.16"(5)
real*4 Biso (nr__1) ! (mag) ?=99 SExtractor's MAG_ISO in B band (5)
real*4 Bisoc (nr__1) ! (mag) ?=99 SExtractor's MAG_ISOCOR in B band (5)
real*4 Bauto (nr__1) ! (mag) ?=99 SExtractor's MAG_AUTO in B band (5)
real*4 B2kpc (nr__1) ! (mag) ?=99 B magnitude in aperture of r=2kpc (5)(6)
real*4 B5kpc (nr__1) ! (mag) ?=99 B magnitude in aperture of r=5kpc (5)(6)
real*4 B10kpc (nr__1) ! (mag) ?=99 B magnitude in aperture of r=10kpc(5)(6)
real*4 Bfib1 (nr__1) ! (mag) ?=99 B magnitude in aperture of r=1.6" (5)
real*4 Bfib2 (nr__1) ! (mag) ?=99 B magnitude in aperture of r=2.0" (5)
real*4 Bfib3 (nr__1) ! (mag) ?=99 B magnitude in aperture of r=2.16"(5)
*Note (1): The object identification contains the coordinates of the most
* probable centre. For objects brighter than V=17 the peak of emission
* has been chosen while for fainter objects the barycentre position was
* chosen.
*Note (2): SExtractor's flags meaning from SExtractor User's Manual 2.4.
* FLAGS contains, coded in decimal, all the extraction flags as a sum
* of powers of 2:
* 1 = The object has neighbours, bright and close enough to significantly
* bias the MAG AUTO photometry, or bad pixels (more than 10% of the
* integrated area affected),
* 2 = The object was originally blended with another one,
* 4 = At least one pixel of the ob ject is saturated (or very close to),
* 8 = The object is truncated (too close to an image boundary),
* 16 = Object's aperture data are incomplete or corrupted,
* 32 = Object's isophotal data are incomplete or corrupted,
* 64 = A memory overflow occurred during deblending,
* 128 = A memory overflow occurred during extraction.
* For example, an object close to an image border may have FLAGS=16,
* and perhaps FLAGS=8+16+32 = 56.
*Note (3): The concentration given is the ratio between the flux of the 9%
* central pixels and the total flux,
*Note (4): The contrast given is the ratio between the flux of the 30%
* brightest pixels and the total flux.
*Note (5): Magnitudes are not corrected by galactic extinction.
*Note (6): The radius in kpc are computed at the distance of the target cluster.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'star/*' ! Datafiles for stars in the field of each Cluster
(files named Cluster_S.dat)
integer*4 nr__2
parameter (nr__2=77) ! Number of records
character*234 ar__2 ! Full-size record
C J2000.0 position composed of: RAdeg DEdeg
character*20 WINGS_1 (nr__2) ! Object identification,
* JHHMMSS.ss+DDMMSS.s (1)
real*8 RAdeg_2 (nr__2) ! (deg) Right Ascention J2000.0, Barycentre
real*8 DEdeg_2 (nr__2) ! (deg) Declination J2000.0, Barycentre
real*8 RApdeg_1 (nr__2) ! (deg) Right Ascention J2000.0, Emission peak
real*8 DEpdeg_1 (nr__2) ! (deg) Declination J2000.0, Emission peak
real*8 Area_1 (nr__2) ! (arcsec+2) Isophotal area
real*4 KronRad_1 (nr__2) ! (arcsec) Kron radius
real*4 FWHM_1 (nr__2) ! (arcsec) Full width at half maximum
real*4 b_a_1 (nr__2) ! Ratio between minor axis and major axis
integer*4 PA_1 (nr__2) ! (deg) [-90/90] Position angle (North=0, Eastwards)
integer*4 Flag_1 (nr__2) ! SExtractor's flags (2)
real*4 SI_1 (nr__2) ! [0/1] SExtractor's Stellarity Index
* (0=galaxy; 1=star)
real*4 Conc_1 (nr__2) ! Concentration parameter (3)
real*4 Contr_1 (nr__2) ! Contrast parameter (4)
real*4 mumax_1 (nr__2) ! (mag/arcsec2) Surface brightness of the emission peak
real*4 Viso_1 (nr__2) ! (mag) ?=99 SExtractor's MAG_ISO in V band (5)
real*4 Visoc_1 (nr__2) ! (mag) ?=99 SExtractor's MAG_ISOCOR in V band (5)
real*4 Vauto_1 (nr__2) ! (mag) ?=99 SExtractor's MAG_AUTO in V band (5)
real*4 V2kpc_1 (nr__2) ! (mag) ?=99 V magnitude in aperture of r=2kpc (5)(6)
real*4 V5kpc_1 (nr__2) ! (mag) ?=99 V magnitude in aperture of r=5kpc (5)(6)
real*4 V10kpc_1 (nr__2) ! (mag) ?=99 V magnitude in aperture of r=10kpc(5)(6)
real*4 Vfib1_1 (nr__2) ! (mag) ?=99 V magnitude in aperture of r=1.6" (5)
real*4 Vfib2_1 (nr__2) ! (mag) ?=99 V magnitude in aperture of r=2.0" (5)
real*4 Vfib3_1 (nr__2) ! (mag) ?=99 V magnitude in aperture of r=2.16"(5)
real*4 Biso_1 (nr__2) ! (mag) ?=99 SExtractor's MAG_ISO in B band (5)
real*4 Bisoc_1 (nr__2) ! (mag) ?=99 SExtractor's MAG_ISOCOR in B band (5)
real*4 Bauto_1 (nr__2) ! (mag) ?=99 SExtractor's MAG_AUTO in B band (5)
real*4 B2kpc_1 (nr__2) ! (mag) ?=99 B magnitude in aperture of r=2kpc (5)(6)
real*4 B5kpc_1 (nr__2) ! (mag) ?=99 B magnitude in aperture of r=5kpc (5)(6)
real*4 B10kpc_1 (nr__2) ! (mag) ?=99 B magnitude in aperture of r=10kpc(5)(6)
real*4 Bfib1_1 (nr__2) ! (mag) ?=99 B magnitude in aperture of r=1.6" (5)
real*4 Bfib2_1 (nr__2) ! (mag) ?=99 B magnitude in aperture of r=2.0" (5)
real*4 Bfib3_1 (nr__2) ! (mag) ?=99 B magnitude in aperture of r=2.16"(5)
*Note (1): The object identification contains the coordinates of the most
* probable centre. For objects brighter than V=17 the peak of emission
* has been chosen while for fainter objects the barycentre position was
* chosen.
*Note (2): SExtractor's flags meaning from SExtractor User's Manual 2.4.
* FLAGS contains, coded in decimal, all the extraction flags as a sum
* of powers of 2:
* 1 = The object has neighbours, bright and close enough to significantly
* bias the MAG AUTO photometry, or bad pixels (more than 10% of the
* integrated area affected),
* 2 = The object was originally blended with another one,
* 4 = At least one pixel of the ob ject is saturated (or very close to),
* 8 = The object is truncated (too close to an image boundary),
* 16 = Object's aperture data are incomplete or corrupted,
* 32 = Object's isophotal data are incomplete or corrupted,
* 64 = A memory overflow occurred during deblending,
* 128 = A memory overflow occurred during extraction.
* For example, an object close to an image border may have FLAGS=16,
* and perhaps FLAGS=8+16+32 = 56.
*Note (3): The concentration given is the ratio between the flux of the 9%
* central pixels and the total flux,
*Note (4): The contrast given is the ratio between the flux of the 30%
* brightest pixels and the total flux.
*Note (5): Magnitudes are not corrected by galactic extinction.
*Note (6): The radius in kpc are computed at the distance of the target cluster.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'unkno/*' ! Datafiles for objects of unknown type in each
field of the Cluster (files named Cluster_U.dat)
integer*4 nr__3
parameter (nr__3=77) ! Number of records
character*234 ar__3 ! Full-size record
C J2000.0 position composed of: RAdeg DEdeg
character*20 WINGS_2 (nr__3) ! Object identification,
* JHHMMSS.ss+DDMMSS.s (1)
real*8 RAdeg_3 (nr__3) ! (deg) Right Ascention J2000.0, Barycentre
real*8 DEdeg_3 (nr__3) ! (deg) Declination J2000.0, Barycentre
real*8 RApdeg_2 (nr__3) ! (deg) Right Ascention J2000.0, Emission peak
real*8 DEpdeg_2 (nr__3) ! (deg) Declination J2000.0, Emission peak
real*8 Area_2 (nr__3) ! (arcsec+2) Isophotal area
real*4 KronRad_2 (nr__3) ! (arcsec) Kron radius
real*4 FWHM_2 (nr__3) ! (arcsec) Full width at half maximum
real*4 b_a_2 (nr__3) ! Ratio between minor axis and major axis
integer*4 PA_2 (nr__3) ! (deg) [-90/90] Position angle (North=0, Eastwards)
integer*4 Flag_2 (nr__3) ! SExtractor's flags (2)
real*4 SI_2 (nr__3) ! [0/1] SExtractor's Stellarity Index
* (0=galaxy; 1=star)
real*4 Conc_2 (nr__3) ! Concentration parameter (3)
real*4 Contr_2 (nr__3) ! Contrast parameter (4)
real*4 mumax_2 (nr__3) ! (mag/arcsec2) Surface brightness of the emission peak
real*4 Viso_2 (nr__3) ! (mag) ?=99 SExtractor's MAG_ISO in V band (5)
real*4 Visoc_2 (nr__3) ! (mag) ?=99 SExtractor's MAG_ISOCOR in V band (5)
real*4 Vauto_2 (nr__3) ! (mag) ?=99 SExtractor's MAG_AUTO in V band (5)
real*4 V2kpc_2 (nr__3) ! (mag) ?=99 V magnitude in aperture of r=2kpc (5)(6)
real*4 V5kpc_2 (nr__3) ! (mag) ?=99 V magnitude in aperture of r=5kpc (5)(6)
real*4 V10kpc_2 (nr__3) ! (mag) ?=99 V magnitude in aperture of r=10kpc(5)(6)
real*4 Vfib1_2 (nr__3) ! (mag) ?=99 V magnitude in aperture of r=1.6" (5)
real*4 Vfib2_2 (nr__3) ! (mag) ?=99 V magnitude in aperture of r=2.0" (5)
real*4 Vfib3_2 (nr__3) ! (mag) ?=99 V magnitude in aperture of r=2.16"(5)
real*4 Biso_2 (nr__3) ! (mag) ?=99 SExtractor's MAG_ISO in B band (5)
real*4 Bisoc_2 (nr__3) ! (mag) ?=99 SExtractor's MAG_ISOCOR in B band (5)
real*4 Bauto_2 (nr__3) ! (mag) ?=99 SExtractor's MAG_AUTO in B band (5)
real*4 B2kpc_2 (nr__3) ! (mag) ?=99 B magnitude in aperture of r=2kpc (5)(6)
real*4 B5kpc_2 (nr__3) ! (mag) ?=99 B magnitude in aperture of r=5kpc (5)(6)
real*4 B10kpc_2 (nr__3) ! (mag) ?=99 B magnitude in aperture of r=10kpc(5)(6)
real*4 Bfib1_2 (nr__3) ! (mag) ?=99 B magnitude in aperture of r=1.6" (5)
real*4 Bfib2_2 (nr__3) ! (mag) ?=99 B magnitude in aperture of r=2.0" (5)
real*4 Bfib3_2 (nr__3) ! (mag) ?=99 B magnitude in aperture of r=2.16"(5)
*Note (1): The object identification contains the coordinates of the most
* probable centre. For objects brighter than V=17 the peak of emission
* has been chosen while for fainter objects the barycentre position was
* chosen.
*Note (2): SExtractor's flags meaning from SExtractor User's Manual 2.4.
* FLAGS contains, coded in decimal, all the extraction flags as a sum
* of powers of 2:
* 1 = The object has neighbours, bright and close enough to significantly
* bias the MAG AUTO photometry, or bad pixels (more than 10% of the
* integrated area affected),
* 2 = The object was originally blended with another one,
* 4 = At least one pixel of the ob ject is saturated (or very close to),
* 8 = The object is truncated (too close to an image boundary),
* 16 = Object's aperture data are incomplete or corrupted,
* 32 = Object's isophotal data are incomplete or corrupted,
* 64 = A memory overflow occurred during deblending,
* 128 = A memory overflow occurred during extraction.
* For example, an object close to an image border may have FLAGS=16,
* and perhaps FLAGS=8+16+32 = 56.
*Note (3): The concentration given is the ratio between the flux of the 9%
* central pixels and the total flux,
*Note (4): The contrast given is the ratio between the flux of the 30%
* brightest pixels and the total flux.
*Note (5): Magnitudes are not corrected by galactic extinction.
*Note (6): The radius in kpc are computed at the distance of the target cluster.
C=============================================================================
C Loading file 'tabled3.dat' ! Coordinates of the emission peak of the
* brightest cluster galaxies (BCG)
C Format for file interpretation
1 format(A6,2X,I2,1X,I2,1X,F4.1,2X,A1,I2,1X,I2,1X,F4.1,2X,A19)
C Effective file loading
open(unit=1,status='old',file=
+'tabled3.dat')
write(6,*) '....Loading file: tabled3.dat'
do i__=1,77
read(1,'(A52)')ar__
read(ar__,1)
+ Cluster(i__),RAh(i__),RAm(i__),RAs(i__),DE_(i__),DEd(i__),
+ DEm(i__),DEs(i__),SName(i__)
RAdeg(i__) = rNULL__
DEdeg(i__) = rNULL__
c Derive coordinates RAdeg and DEdeg from input data
c (RAdeg and DEdeg are set to rNULL__ when unknown)
if(RAh(i__) .GT. -180) RAdeg(i__)=RAh(i__)*15.
if(RAm(i__) .GT. -180) RAdeg(i__)=RAdeg(i__)+RAm(i__)/4.
if(RAs(i__) .GT. -180) RAdeg(i__)=RAdeg(i__)+RAs(i__)/240.
if(DEd(i__) .GE. 0) DEdeg(i__)=DEd(i__)
if(DEm(i__) .GE. 0) DEdeg(i__)=DEdeg(i__)+DEm(i__)/60.
if(DEs(i__) .GE. 0) DEdeg(i__)=DEdeg(i__)+DEs(i__)/3600.
if(DE_(i__).EQ.'-'.AND.DEdeg(i__).GE.0) DEdeg(i__)=-DEdeg(i__)
c ..............Just test output...........
write(6,1)
+ Cluster(i__),RAh(i__),RAm(i__),RAs(i__),DE_(i__),DEd(i__),
+ DEm(i__),DEs(i__),SName(i__)
write(6,'(6H Pos: 2F8.4)') RAdeg(i__),DEdeg(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'gal/*' ! Datafiles for galaxies in the field of each Cluster
* (files named Cluster_G.dat)
C Format for file interpretation
2 format(
+ 5X,A20,1X,F9.5,1X,F9.5,1X,F9.5,1X,F9.5,1X,F8.2,1X,F6.2,1X,
+ F6.2,1X,F4.2,1X,I3,1X,I3,1X,F4.2,1X,F6.3,1X,F6.3,1X,F5.2,1X,
+ F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,
+ 1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,
+ F5.2,1X,F5.2,1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'gal/*')
write(6,*) '....Loading file: gal/*'
do i__=1,77
read(1,'(A234)')ar__1
read(ar__1,2)
+ WINGS(i__),RAdeg_1(i__),DEdeg_1(i__),RApdeg(i__),DEpdeg(i__),
+ Area(i__),KronRad(i__),FWHM(i__),b_a(i__),PA(i__),Flag(i__),
+ SI(i__),Conc(i__),Contr(i__),mumax(i__),Viso(i__),Visoc(i__),
+ Vauto(i__),V2kpc(i__),V5kpc(i__),V10kpc(i__),Vfib1(i__),
+ Vfib2(i__),Vfib3(i__),Biso(i__),Bisoc(i__),Bauto(i__),
+ B2kpc(i__),B5kpc(i__),B10kpc(i__),Bfib1(i__),Bfib2(i__),
+ Bfib3(i__)
c ..............Just test output...........
write(6,2)
+ WINGS(i__),RAdeg_1(i__),DEdeg_1(i__),RApdeg(i__),DEpdeg(i__),
+ Area(i__),KronRad(i__),FWHM(i__),b_a(i__),PA(i__),Flag(i__),
+ SI(i__),Conc(i__),Contr(i__),mumax(i__),Viso(i__),Visoc(i__),
+ Vauto(i__),V2kpc(i__),V5kpc(i__),V10kpc(i__),Vfib1(i__),
+ Vfib2(i__),Vfib3(i__),Biso(i__),Bisoc(i__),Bauto(i__),
+ B2kpc(i__),B5kpc(i__),B10kpc(i__),Bfib1(i__),Bfib2(i__),
+ Bfib3(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'star/*' ! Datafiles for stars in the field of each Cluster
* (files named Cluster_S.dat)
C Format for file interpretation
3 format(
+ 5X,A20,1X,F9.5,1X,F9.5,1X,F9.5,1X,F9.5,1X,F8.2,1X,F6.2,1X,
+ F6.2,1X,F4.2,1X,I3,1X,I3,1X,F4.2,1X,F6.3,1X,F6.3,1X,F5.2,1X,
+ F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,
+ 1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,
+ F5.2,1X,F5.2,1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'star/*')
write(6,*) '....Loading file: star/*'
do i__=1,77
read(1,'(A234)')ar__2
read(ar__2,3)
+ WINGS_1(i__),RAdeg_2(i__),DEdeg_2(i__),RApdeg_1(i__),
+ DEpdeg_1(i__),Area_1(i__),KronRad_1(i__),FWHM_1(i__),
+ b_a_1(i__),PA_1(i__),Flag_1(i__),SI_1(i__),Conc_1(i__),
+ Contr_1(i__),mumax_1(i__),Viso_1(i__),Visoc_1(i__),
+ Vauto_1(i__),V2kpc_1(i__),V5kpc_1(i__),V10kpc_1(i__),
+ Vfib1_1(i__),Vfib2_1(i__),Vfib3_1(i__),Biso_1(i__),
+ Bisoc_1(i__),Bauto_1(i__),B2kpc_1(i__),B5kpc_1(i__),
+ B10kpc_1(i__),Bfib1_1(i__),Bfib2_1(i__),Bfib3_1(i__)
c ..............Just test output...........
write(6,3)
+ WINGS_1(i__),RAdeg_2(i__),DEdeg_2(i__),RApdeg_1(i__),
+ DEpdeg_1(i__),Area_1(i__),KronRad_1(i__),FWHM_1(i__),
+ b_a_1(i__),PA_1(i__),Flag_1(i__),SI_1(i__),Conc_1(i__),
+ Contr_1(i__),mumax_1(i__),Viso_1(i__),Visoc_1(i__),
+ Vauto_1(i__),V2kpc_1(i__),V5kpc_1(i__),V10kpc_1(i__),
+ Vfib1_1(i__),Vfib2_1(i__),Vfib3_1(i__),Biso_1(i__),
+ Bisoc_1(i__),Bauto_1(i__),B2kpc_1(i__),B5kpc_1(i__),
+ B10kpc_1(i__),Bfib1_1(i__),Bfib2_1(i__),Bfib3_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'unkno/*' ! Datafiles for objects of unknown type in each
* field of the Cluster (files named Cluster_U.dat)
C Format for file interpretation
4 format(
+ 5X,A20,1X,F9.5,1X,F9.5,1X,F9.5,1X,F9.5,1X,F8.2,1X,F6.2,1X,
+ F6.2,1X,F4.2,1X,I3,1X,I3,1X,F4.2,1X,F6.3,1X,F6.3,1X,F5.2,1X,
+ F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,
+ 1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,
+ F5.2,1X,F5.2,1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'unkno/*')
write(6,*) '....Loading file: unkno/*'
do i__=1,77
read(1,'(A234)')ar__3
read(ar__3,4)
+ WINGS_2(i__),RAdeg_3(i__),DEdeg_3(i__),RApdeg_2(i__),
+ DEpdeg_2(i__),Area_2(i__),KronRad_2(i__),FWHM_2(i__),
+ b_a_2(i__),PA_2(i__),Flag_2(i__),SI_2(i__),Conc_2(i__),
+ Contr_2(i__),mumax_2(i__),Viso_2(i__),Visoc_2(i__),
+ Vauto_2(i__),V2kpc_2(i__),V5kpc_2(i__),V10kpc_2(i__),
+ Vfib1_2(i__),Vfib2_2(i__),Vfib3_2(i__),Biso_2(i__),
+ Bisoc_2(i__),Bauto_2(i__),B2kpc_2(i__),B5kpc_2(i__),
+ B10kpc_2(i__),Bfib1_2(i__),Bfib2_2(i__),Bfib3_2(i__)
c ..............Just test output...........
write(6,4)
+ WINGS_2(i__),RAdeg_3(i__),DEdeg_3(i__),RApdeg_2(i__),
+ DEpdeg_2(i__),Area_2(i__),KronRad_2(i__),FWHM_2(i__),
+ b_a_2(i__),PA_2(i__),Flag_2(i__),SI_2(i__),Conc_2(i__),
+ Contr_2(i__),mumax_2(i__),Viso_2(i__),Visoc_2(i__),
+ Vauto_2(i__),V2kpc_2(i__),V5kpc_2(i__),V10kpc_2(i__),
+ Vfib1_2(i__),Vfib2_2(i__),Vfib3_2(i__),Biso_2(i__),
+ Bisoc_2(i__),Bauto_2(i__),B2kpc_2(i__),B5kpc_2(i__),
+ B10kpc_2(i__),Bfib1_2(i__),Bfib2_2(i__),Bfib3_2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end