Conversion of standardized ReadMe file for
file /./ftp/cats/J/MNRAS/292/499 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 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 ! Galaxy Identification Number
character*7 Name ! Galaxy name
character*3 m_Name ! Multiplicity index on Name
character*4 Type ! Galaxy Type
integer*4 Nimage ! Number of images
integer*4 Nphot ! Number of photoelectric calibrations
integer*4 Nccd ! Number of CCD calibrations
integer*4 Nphoti ! Number of indirect photoelectric
* calibrations
integer*4 Nccdi ! Number of indirect CCD calibrations
integer*4 Nsecon ! Number of second order calibrations
integer*4 Nthird ! Number of third order calibrations
integer*4 Nbad ! Number of bad calibrations
character*1 n_Fit ! [*] Note on fit (1)
character*4 Fit ! Fit type (1)
integer*4 QE ! Q_E_ quality parameter of the fit
integer*4 QC ! Q_{chi}^2^_ quality parameter of the fit
integer*4 QR ! Q_max_ quality parameter of the fit
integer*4 QF ! Q_{Gamma}_ quality parameter of the fit
integer*4 QN ! Q_S/N_ parameter quality parameter of
* the fit
integer*4 QS ! Q_{delta}Sky_ quality parameter of the fit
integer*4 QB ! Q_Sky_ quality parameter of the fit
integer*4 Qtot ! Global quality of the fit (5)
real*4 Rap ! (arcsec) Radius of the aperture of the calibration
* magnitude Rmag
real*4 Rmag ! (mag) R-band calibration magnitude inside the
* aperture of radius Rap (kron-Cousins)
real*4 Dn ! (arcsec) Diameter of the galaxy
real*4 e_Dn ! (arcsec) ? Photometric calibration error on Dn
real*4 Re ! (arcsec) Half-luminosity radius
real*4 v_SBe_ ! (mag/arcsec+2) Average effective surface brightness in
* Rmag/arcsec^2^ (2)
real*4 BTot ! (mag) Total luminosity in R (3)
real*4 SBe ! (mag/arcsec+2) Effective surface brightness
* in Rmag/arcsec^2^ (2)
real*4 e_SBe ! (mag/arcsec+2) ? Photometric calibration error on SBe
real*4 B_R ! (mag) ? B-R colour index from Colless et al.
* (1993MNRAS.262..475C) (4)
real*4 AR ! (mag) R-band Galactic absorption
real*4 KR ! (mag) R-band K correction
real*4 KB ! (mag) B-band K correction
real*4 KSB ! Cosmological surface brightness dimming
* correction
character*1 note ! [*] *: no redshift is available
real*4 h_Reb ! ? Ratio of Disk to Bulge scale-lengths
real*4 D_B ! ? Disk to Bulge ratio of the fits
real*4 ReB ! (arcsec) ? Half-luminosity radius of the Bulge
* component
real*4 mueB ! (mag/arcsec2) ? Surface brightness at R_eB_ in
* Rmag/arcsec^2^ of the Bulge component (2)
real*4 h ! (arcsec) ? Exponential scale-length of the Disk
* component
real*4 mu0 ! (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 ! Galaxy Identification Number
character*75 Note_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,Name,m_Name,Type,Nimage,Nphot,Nccd,Nphoti,Nccdi,Nsecon,
+ Nthird,Nbad,n_Fit,Fit,QE,QC,QR,QF,QN,QS,QB,Qtot,Rap,Rmag,Dn,
+ e_Dn,Re,v_SBe_,BTot,SBe,e_SBe,B_R,AR,KR,KB,KSB,note,h_Reb,D_B,
+ ReB,mueB,h,mu0
if(ar__(84:87) .EQ. '') e_Dn = rNULL__
if(ar__(113:116) .EQ. '') e_SBe = rNULL__
if(ar__(118:122) .EQ. '') B_R = rNULL__
if(ar__(150:153) .EQ. '') h_Reb = rNULL__
if(ar__(155:159) .EQ. '') D_B = rNULL__
if(ar__(161:165) .EQ. '') ReB = rNULL__
if(ar__(167:171) .EQ. '') mueB = rNULL__
if(ar__(173:177) .EQ. '') h = rNULL__
if(ar__(179:183) .EQ. '') mu0 = rNULL__
c ..............Just test output...........
write(6,1)
+ GIN,Name,m_Name,Type,Nimage,Nphot,Nccd,Nphoti,Nccdi,Nsecon,
+ Nthird,Nbad,n_Fit,Fit,QE,QC,QR,QF,QN,QS,QB,Qtot,Rap,Rmag,Dn,
+ e_Dn,Re,v_SBe_,BTot,SBe,e_SBe,B_R,AR,KR,KB,KSB,note,h_Reb,D_B,
+ ReB,mueB,h,mu0
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,Note_1
c ..............Just test output...........
write(6,2)GIN_1,Note_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end