Conversion of standardized ReadMe file for
file /./ftp/cats/J/MNRAS/292/499 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 2026-Oct-14
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/292/499 EFAR photometric data (Saglia+, 1997)
*================================================================================
*The peculiar motions of early-type galaxies in two distant regions -
*III. The photometric data.
* Saglia R.P., Burstein D., Baggley G., Bertschinger E., Colless M.M.,
* Davies R.L., McMahan R.K.Jr, Wegner G.
* <Mon. Not. R. Astron. Soc. 292, 499 (1997)>
* =1997MNRAS.292..499S
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! Galaxy parameters
integer*4 nr__
parameter (nr__=762) ! Number of records
character*183 ar__ ! Full-size record
integer*4 GIN (nr__) ! Galaxy Identification Number
character*7 Name (nr__) ! Galaxy name
character*3 m_Name (nr__) ! Multiplicity index on Name
character*4 Type (nr__) ! Galaxy Type
integer*4 Nimage (nr__) ! Number of images
integer*4 Nphot (nr__) ! Number of photoelectric calibrations
integer*4 Nccd (nr__) ! Number of CCD calibrations
integer*4 Nphoti (nr__) ! Number of indirect photoelectric
* calibrations
integer*4 Nccdi (nr__) ! Number of indirect CCD calibrations
integer*4 Nsecon (nr__) ! Number of second order calibrations
integer*4 Nthird (nr__) ! Number of third order calibrations
integer*4 Nbad (nr__) ! Number of bad calibrations
character*1 n_Fit (nr__) ! [*] Note on fit (1)
character*4 Fit (nr__) ! Fit type (1)
integer*4 QE (nr__) ! Q_E_ quality parameter of the fit
integer*4 QC (nr__) ! Q_{chi}^2^_ quality parameter of the fit
integer*4 QR (nr__) ! Q_max_ quality parameter of the fit
integer*4 QF (nr__) ! Q_{Gamma}_ quality parameter of the fit
integer*4 QN (nr__) ! Q_S/N_ parameter quality parameter of
* the fit
integer*4 QS (nr__) ! Q_{delta}Sky_ quality parameter of the fit
integer*4 QB (nr__) ! Q_Sky_ quality parameter of the fit
integer*4 Qtot (nr__) ! Global quality of the fit (5)
real*4 Rap (nr__) ! (arcsec) Radius of the aperture of the calibration
* magnitude Rmag
real*4 Rmag (nr__) ! (mag) R-band calibration magnitude inside the
* aperture of radius Rap (kron-Cousins)
real*4 Dn (nr__) ! (arcsec) Diameter of the galaxy
real*4 e_Dn (nr__) ! (arcsec) ? Photometric calibration error on Dn
real*4 Re (nr__) ! (arcsec) Half-luminosity radius
real*4 v_SBe_ (nr__) ! (mag/arcsec+2) Average effective surface brightness in
* Rmag/arcsec^2^ (2)
real*4 BTot (nr__) ! (mag) Total luminosity in R (3)
real*4 SBe (nr__) ! (mag/arcsec+2) Effective surface brightness
* in Rmag/arcsec^2^ (2)
real*4 e_SBe (nr__) ! (mag/arcsec+2) ? Photometric calibration error on SBe
real*4 B_R (nr__) ! (mag) ? B-R colour index from Colless et al.
* (1993MNRAS.262..475C) (4)
real*4 AR (nr__) ! (mag) R-band Galactic absorption
real*4 KR (nr__) ! (mag) R-band K correction
real*4 KB (nr__) ! (mag) B-band K correction
real*4 KSB (nr__) ! Cosmological surface brightness dimming
* correction
character*1 note (nr__) ! [*] *: no redshift is available
real*4 h_Reb (nr__) ! ? Ratio of Disk to Bulge scale-lengths
real*4 D_B (nr__) ! ? Disk to Bulge ratio of the fits
real*4 ReB (nr__) ! (arcsec) ? Half-luminosity radius of the Bulge
* component
real*4 mueB (nr__) ! (mag/arcsec2) ? Surface brightness at R_eB_ in
* Rmag/arcsec^2^ of the Bulge component (2)
real*4 h (nr__) ! (arcsec) ? Exponential scale-length of the Disk
* component
real*4 mu0 (nr__) ! (mag/arcsec2) ? Central surface brightness in
* Rmag/arcsec^2^ of the Disk component (2)
*Note (1): the fit type is indicated as follows:
* B = R^1/4^ law fit
* D = exponential fit
* BD = R^1/4^ plus exponential fit
* N = if also specified, the mean sky correction has been set to
* zero rather than using the algorithm sky correction
* * = marks the two-component fits where the fitted exponential
* component should not be interpreted as a physical disk
*Note (2): Galactic absorption corrections, K_R_ corrections and
* corrections for cosmological dimming have been applied
*Note (3): Galactic absorption and K_R_ corrections have been applied
*Note (4): B-R index including Galactic absorption and K_R_, K_B_
* corrections. The photoelectric magnitudes given in Colless et al.
* (1993MNRAS.262..475C) of GIN=117, 266, 687, 695, 697, 733 have been
* discarded because a star is in the aperture.
*Note (5): The Q parameter of the following galaxies has been downgraded:
* GIN=175, 182, 338, 527, 657
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'notes.dat' ! Objects with problems
integer*4 nr__1
parameter (nr__1=27) ! Number of records
character*79 ar__1 ! Full-size record
integer*4 GIN_1 (nr__1) ! Galaxy Identification Number
character*75 Note_1 (nr__1) ! Text of the note
C=============================================================================
C Loading file 'table4.dat' ! Galaxy parameters
C Format for file interpretation
1 format(
+ 1X,I3,1X,A7,1X,A3,1X,A4,1X,I2,1X,I1,1X,I1,1X,I2,1X,I2,1X,I2,
+ 1X,I2,1X,I1,1X,A1,A4,1X,I1,1X,I1,1X,I1,1X,I1,1X,I1,1X,I1,1X,
+ I1,1X,I1,1X,F5.2,1X,F5.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F5.2,1X,
+ F5.2,1X,F5.2,1X,F4.2,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,
+ 1X,A1,1X,F4.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=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,762
read(1,'(A183)')ar__
read(ar__,1)
+ GIN(i__),Name(i__),m_Name(i__),Type(i__),Nimage(i__),
+ Nphot(i__),Nccd(i__),Nphoti(i__),Nccdi(i__),Nsecon(i__),
+ Nthird(i__),Nbad(i__),n_Fit(i__),Fit(i__),QE(i__),QC(i__),
+ QR(i__),QF(i__),QN(i__),QS(i__),QB(i__),Qtot(i__),Rap(i__),
+ Rmag(i__),Dn(i__),e_Dn(i__),Re(i__),v_SBe_(i__),BTot(i__),
+ SBe(i__),e_SBe(i__),B_R(i__),AR(i__),KR(i__),KB(i__),KSB(i__),
+ note(i__),h_Reb(i__),D_B(i__),ReB(i__),mueB(i__),h(i__),
+ mu0(i__)
if(ar__(84:87) .EQ. '') e_Dn(i__) = rNULL__
if(ar__(113:116) .EQ. '') e_SBe(i__) = rNULL__
if(ar__(118:122) .EQ. '') B_R(i__) = rNULL__
if(ar__(150:153) .EQ. '') h_Reb(i__) = rNULL__
if(ar__(155:159) .EQ. '') D_B(i__) = rNULL__
if(ar__(161:165) .EQ. '') ReB(i__) = rNULL__
if(ar__(167:171) .EQ. '') mueB(i__) = rNULL__
if(ar__(173:177) .EQ. '') h(i__) = rNULL__
if(ar__(179:183) .EQ. '') mu0(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ GIN(i__),Name(i__),m_Name(i__),Type(i__),Nimage(i__),
+ Nphot(i__),Nccd(i__),Nphoti(i__),Nccdi(i__),Nsecon(i__),
+ Nthird(i__),Nbad(i__),n_Fit(i__),Fit(i__),QE(i__),QC(i__),
+ QR(i__),QF(i__),QN(i__),QS(i__),QB(i__),Qtot(i__),Rap(i__),
+ Rmag(i__),Dn(i__),e_Dn(i__),Re(i__),v_SBe_(i__),BTot(i__),
+ SBe(i__),e_SBe(i__),B_R(i__),AR(i__),KR(i__),KB(i__),KSB(i__),
+ note(i__),h_Reb(i__),D_B(i__),ReB(i__),mueB(i__),h(i__),
+ mu0(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'notes.dat' ! Objects with problems
C Format for file interpretation
2 format(I3,1X,A75)
C Effective file loading
open(unit=1,status='old',file=
+'notes.dat')
write(6,*) '....Loading file: notes.dat'
do i__=1,27
read(1,'(A79)')ar__1
read(ar__1,2)GIN_1(i__),Note_1(i__)
c ..............Just test output...........
write(6,2)GIN_1(i__),Note_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end