Conversion of standardized ReadMe file for
file /./ftp/cats/II/253A 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.5, on 2013-May-21
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. II/253A Chandra Deep Field South: multi-colour data (Wolf+, 2008)
*================================================================================
*A catalogue of the Chandra Deep Field South with multi-colour classification
*and photometric redshifts from COMBO-17.
* Wolf C., Meisenheimer K., Kleinheinrich M., Borch A., Dye S., Gray M.,
* Wisotzki L., Bell E.F., Rix H.-W., Cimatti A., Hasinger G., Szokoly G.
* <Astron. Astrophys., 421, 913-936 (2004)>
* =2004A&A...421..913W
* =2008A&A...492..933W
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! *Multi-colour data, classification and photometric
redshifts in a 31.5'x30' field around the
Chandra Deep Field South
integer*4 nr__
parameter (nr__=63501) ! Number of records
character*997 ar__ ! Full-size record
real*8 RA_ ! (deg) Right Ascension J2000
real*8 Dec ! (deg) Declination J2000
integer*4 Seq ! Sequential number (unique object ID)
integer*4 RAh ! (h) Right ascension (J2000)
integer*4 RAm ! (min) Right ascension (J2000)
real*4 RAs ! (s) Right ascension (J2000) (1)
character*1 DE_ ! Declination sign (J2000)
integer*4 DEd ! (deg) Declination (J2000)
integer*4 DEm ! (arcmin) Declination (J2000)
real*4 DEs ! (arcsec) Declination (J2000) (1)
real*8 Xpos ! (pix) x-coordinate on image cdfs_r.fit
real*8 Ypos ! (pix) y-coordinate on image cdfs_r.fit
real*4 Rmag ! (mag) Total magnitude in R
real*4 e_Rmag ! (mag) Mean error (1-{sigma}) of Rmag
real*4 ApRmag ! (mag) ? Aperture magnitude in R
real*8 ApDRmag ! (mag) ? Aperture difference of Rmag (2)
real*4 mumax ! (mag/arcsec2) Central surface brightness in Rmag
real*4 MajAxis ! (arcsec) ? Major axis (3)
real*4 MinAxis ! (arcsec) ? Minor axis (3)
real*4 PA ! (deg) ? Position angle, measured West to North
integer*4 Phot ! Flags on photometry (4)
integer*4 Var ! Variability flag (0=not variable)(5)
real*4 Stel ! ? Stellarity index from SExtractor
* (0 for galaxy, 1 for star)
*--------------------------------------------------------------------------------
* Classification Results
*--------------------------------------------------------------------------------
character*15 MCclass ! Multi-colour class (6)
real*4 MCz ! ? Mean redshift in distribution of p(z)
real*4 e_MCz ! ? Mean error (1-{sigma}) of MCz
real*4 MCz2 ! ? Alternative redshift if p(z) bimodal
real*4 e_MCz2 ! ? Mean error (1-{sigma}) of MCz2
real*4 MCzml ! ? Peak of redshift distribution p(z)
real*8 dl ! (Mpc) ? Luminosity distance of MCz (7)
real*8 chi2red ! Reduced Chi^2 of best-fitting template
*--------------------------------------------------------------------------------
* Total object restframe luminosities
*--------------------------------------------------------------------------------
real*4 UjMAG ! (mag) ? Absolute Magnitude in Johnson U (8)
real*8 e_UjMAG ! (mag) ? Mean error (1-{sigma}) of UjMag
real*4 BjMAG ! (mag) ? Absolute Magnitude in Johnson B (8)
real*8 e_BjMAG ! (mag) ? Mean error (1-{sigma}) of BjMag
real*4 VjMAG ! (mag) ? Absolute Magnitude in Johnson V (8)
real*8 e_VjMAG ! (mag) ? Mean error (1-{sigma}) of VjMag
real*4 usMAG ! (mag) ? Absolute Magnitude in SDSS u (8)
real*8 e_usMAG ! (mag) ? Mean error (1-{sigma}) of usMag
real*4 gsMAG ! (mag) ? Absolute Magnitude in SDSS g (8)
real*8 e_gsMAG ! (mag) ? Mean error (1-{sigma}) of gsMag
real*4 rsMAG ! (mag) ? Absolute Magnitude in SDSS r (8)
real*8 e_rsMAG ! (mag) ? Mean error (1-{sigma}) of rsMag
real*4 UbMAG ! (mag) ? Absolute Magnitude in Bessell U (8)
real*4 e_UbMAG ! (mag) ? Mean error (1-{sigma}) of UbMag
real*4 BbMAG ! (mag) ? Absolute Magnitude in Bessell B (8)
real*8 e_BbMAG ! (mag) ? Mean error (1-{sigma}) of BbMag
real*4 VbMAG ! (mag) ? Absolute Magnitude in Bessell V (8)
real*8 e_VbMAG ! (mag) ? Mean error (1-{sigma}) of VbMag
real*4 S280MAG ! (mag) ? Absolute Magnitue in 280/40nm (8)(9)
real*8 e_S280MAG ! (mag) ? Mean error (1-{sigma}) of S280Mag
real*4 S145MAG ! (mag) ? Absolute Magnitude in 145/10nm (10)
real*4 e_S145MAG ! (mag) ? Mean error (1-{sigma}) of S145Mag
*--------------------------------------------------------------------------------
* Observed seeing-adaptive aperture fluxes
*--------------------------------------------------------------------------------
real*4 W420FE ! (ct/m+2/s/nm) ? Flux in filter 420/30nm in run E (11)
real*4 e_W420FE ! (ct/m+2/s/nm) ? Mean error (1-{sigma}) of W420FE
real*4 W462FE ! (ct/m+2/s/nm) ? Flux in filter 462/14nm in run E (11)
real*4 e_W462FE ! (ct/m+2/s/nm) ? Mean error (1-{sigma}) of W462FE
real*4 W485FD ! (ct/m+2/s/nm) ? Flux in filter 485/31nm in run D (11)
real*4 e_W485FD ! (ct/m+2/s/nm) ? Mean error (1-{sigma}) of W485FD
real*4 W518FE ! (ct/m+2/s/nm) ? Flux in filter 518/16nm in run E (11)
real*4 e_W518FE ! (ct/m+2/s/nm) ? Mean error (1-{sigma}) of W518FE
real*4 W571FD ! (ct/m+2/s/nm) ? Flux in filter 571/25nm in run D (11)
real*4 e_W571FD ! (ct/m+2/s/nm) ? Mean error (1-{sigma}) of W571FD
real*4 W571FE ! (ct/m+2/s/nm) ? Flux in filter 571/25nm in run E (11)
real*4 e_W571FE ! (ct/m+2/s/nm) ? Mean error (1-{sigma}) of W571FE
real*4 W571FS ! (ct/m+2/s/nm) ? Combined flux in filter 571/25nm(11)(12)
real*4 e_W571FS ! (ct/m+2/s/nm) ? Mean error (1-{sigma}) of W571FS
real*4 W604FE ! (ct/m+2/s/nm) ? Flux in filter 604/21nm in run E (11)
real*4 e_W604FE ! (ct/m+2/s/nm) ? Mean error (1-{sigma}) of W604FE
real*4 W646FD ! (ct/m+2/s/nm) ? Flux in filter 646/27nm in run D (11)
real*4 e_W646FD ! (ct/m+2/s/nm) ? Mean error (1-{sigma}) of W646FD
real*4 W696FE ! (ct/m+2/s/nm) ? Flux in filter 696/20nm in run E (11)
real*4 e_W696FE ! (ct/m+2/s/nm) ? Mean error (1-{sigma}) of W696FE
real*4 W753FE ! (ct/m+2/s/nm) ? Flux in filter 753/18nm in run E (11)
real*4 e_W753FE ! (ct/m+2/s/nm) ? Mean error (1-{sigma}) of W753FE
real*4 W815FE ! (ct/m+2/s/nm) ? Flux in filter 815/20nm in run E (11)
real*4 e_W815FE ! (ct/m+2/s/nm) ? Mean error (1-{sigma}) of W815FE
real*4 W815FG ! (ct/m+2/s/nm) ? Flux in filter 815/20nm in run G (11)
real*4 e_W815FG ! (ct/m+2/s/nm) ? Mean error (1-{sigma}) of W815FG
real*4 W815FS ! (ct/m+2/s/nm) ? Combined flux in filter 815/20nm(11)(12)
real*4 e_W815FS ! (ct/m+2/s/nm) ? Mean error (1-{sigma}) of W815FS
real*4 W856FD ! (ct/m+2/s/nm) ? Flux in filter 856/14nm in run D (11)
real*4 e_W856FD ! (ct/m+2/s/nm) ? Mean error (1-{sigma}) of W856FD
real*4 W914FD ! (ct/m+2/s/nm) ? Flux in filter 914/27nm in run D (11)
real*4 e_W914FD ! (ct/m+2/s/nm) ? Mean error (1-{sigma}) of W914FD
real*4 W914FE ! (ct/m+2/s/nm) ? Flux in filter 914/27nm in run E (11)
real*4 e_W914FE ! (ct/m+2/s/nm) ? Mean error (1-{sigma}) of W914FE
real*4 UFF ! (ct/m+2/s/nm) ? Flux in filter U in run F (11)
real*4 e_UFF ! (ct/m+2/s/nm) ? Mean error (1-{sigma}) of UFF
real*4 UFG ! (ct/m+2/s/nm) ? Flux in filter U in run G (11)
real*4 e_UFG ! (ct/m+2/s/nm) ? Mean error (1-{sigma}) of UFG
real*4 UFS ! (ct/m+2/s/nm) ? Combined flux in filter U (11)(12)
real*4 e_UFS ! (ct/m+2/s/nm) ? Mean error (1-{sigma}) of UFS
real*4 BFD ! (ct/m+2/s/nm) ? Flux in filter B in run D (11)
real*4 e_BFD ! (ct/m+2/s/nm) ? Mean error (1-{sigma}) of BFD
real*4 BFF ! (ct/m+2/s/nm) ? Flux in filter B in run F (11)
real*4 e_BFF ! (ct/m+2/s/nm) ? Mean error (1-{sigma}) of BFF
real*4 BFS ! (ct/m+2/s/nm) ? Combined flux in filter B (11)(12)
real*4 e_BFS ! (ct/m+2/s/nm) ? Mean error (1-{sigma}) of BFS
real*4 VFD ! (ct/m+2/s/nm) ? Flux in filter V in run D (11)
real*4 e_VFD ! (ct/m+2/s/nm) ? Mean error (1-{sigma}) of VFD
real*4 RFD ! (ct/m+2/s/nm) ? Flux in filter R in run D (11)
real*4 e_RFD ! (ct/m+2/s/nm) ? Mean error (1-{sigma}) of RFD
real*4 RFE ! (ct/m+2/s/nm) ? Flux in filter R in run E (11)
real*4 e_RFE ! (ct/m+2/s/nm) ? Mean error (1-{sigma}) of RFE
real*4 RFF ! (ct/m+2/s/nm) ? Flux in filter R in run F (11)
real*4 e_RFF ! (ct/m+2/s/nm) ? Mean error (1-{sigma}) of RFF
real*4 RFG ! (ct/m+2/s/nm) ? Flux in filter R in run G (11)
real*4 e_RFG ! (ct/m+2/s/nm) ? Mean error (1-{sigma}) of RFG
real*4 RFS ! (ct/m+2/s/nm) ? Combined flux in filter R (11)(12)
real*4 e_RFS ! (ct/m+2/s/nm) ? Mean error (1-{sigma}) of RFS
real*4 IFD ! (ct/m+2/s/nm) ? Flux in filter I in run D (11)
real*4 e_IFD ! (ct/m+2/s/nm) ? Mean error (1-{sigma}) of IFD
*Note (1): Internal accuracy 0.15"
*Note (2): Aperture difference on Rmag (=Rmag-ApRmag, zero for point sources)
*Note (3): As observed in 1" seeing
*Note (4): Flags to be read as bits (from right to left):
* * bits 0-7 (corresponding to values 0-128) are original SExtractor flags,
* * bits 9-11 (corresponding to values 512-2048) set by COMBO-17 photometry:
* . bit 9 indicates only potential problem from bright neighbours or
* reflexes from the optics (check images);
* . bit 10 indicates uncorrected hot pixels,
* . bit 11 is set interactively when photometry is erroneous
*Note (5): Flag only set for objects which are detected with high S/N
* and which show clear variability between different observing runs
* (magnitude difference greater 0.15 mag, at least one magnitude has to
* be measured with 10{sigma}, difference has to be at least 6{sigma})
*Note (6): Definition of classes:
* Star = stars (colour of star, stellar shape),
* WDwarf = WD/BHB/sdB star (colour of WD/BHB/sdB, stellar shape),
* Galaxy = galaxies (colour of galaxy, shape irrelevant),
* Galaxy (Star?) = most likely galaxy at z<0.15
* (but overlap in colour space with stars),
* Galaxy (Uncl!) = colour undecided (statistically almost always a galaxy),
* QSO = QSOs (colour of QSO, stellar shape),
* QSO (Gal?) = colour of QSOs, extended shape (usually Seyfert 1),
* Strange Objects = very strange spectrum
* (very unusual intrinsic spectrum or strong photometric
* artifacts or uncorrected strong variability)
*Note (7): H0=100km/s/Mpc, {Omega}_m_=0.3, {Omega}_{Lambda}_=0.7
*Note (8): Absolute restframe magnitude
* calculated from redshifted best_fit template, depending on redshift
* and filter extrapolation outside the COMBO-17 filter set can be
* necessary, only calculated for objects classified as galaxies
*Note (9): Synthetic UV continuum rectangular passband at 260-300nm
*Note (10): Absolute restframe magnitude in a synthetic narrow
* rectangular passband at 140-150nm calculated from redshifted best_fit
* template, only calculated for objects classified as quasars.
*Note (11): Coding of observing runs:
* D = 1999-10-07 to 1999-10-22
* E = 2000-01-28 to 2000-02-11
* F = 2000-09-21 to 2000-09-30
* G = 2001-01-19 to 2001-01-20
* medium-band filters at the WFI are denoted by (central wavelength/FWHM)
* The unit of the flux is photons per unit area, second and wavelength
* interval, it is already corrected for the gain of the CCD
*Note (12): Only applied to objects without variability flag
C=============================================================================
C Loading file 'table3.dat' ! *Multi-colour data, classification and photometric
* redshifts in a 31.5'x30' field around the
* Chandra Deep Field South
C Format for file interpretation
1 format(
+ I5,1X,I2,1X,I2,1X,F6.3,1X,A1,I2,1X,I2,1X,F5.2,1X,F7.2,1X,F7.2,
+ 1X,F6.3,1X,F5.3,1X,F6.3,1X,F7.3,1X,F6.3,1X,F6.2,1X,F6.2,1X,
+ F5.3,1X,I4,1X,I1,1X,F5.3,1X,A15,1X,F5.3,1X,F5.3,1X,F5.3,1X,
+ F5.3,1X,F5.3,1X,F7.1,1X,F7.2,1X,F6.2,1X,F7.2,1X,F6.2,1X,F7.2,
+ 1X,F6.2,1X,F7.2,1X,F6.2,1X,F7.2,1X,F6.2,1X,F7.2,1X,F6.2,1X,
+ F7.2,1X,F6.2,1X,F5.2,1X,F6.2,1X,F7.2,1X,F6.2,1X,F7.2,1X,F6.2,
+ 1X,F7.2,1X,F6.2,1X,F4.2,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,
+ 1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,
+ E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,
+ 1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,
+ E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,
+ 1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,
+ E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,
+ 1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,
+ E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4,
+ 1X,E10.4,1X,E10.4,1X,E10.4,1X,E10.4)
C Effective file loading
open(unit=1,file='table3.dat', status='old')
write(6,*) '....Loading file: table3.dat'
do i__=1,63501
read(1,'(A997)')ar__
read(ar__,1)
+ Seq,RAh,RAm,RAs,DE_,DEd,DEm,DEs,Xpos,Ypos,Rmag,e_Rmag,ApRmag,
+ ApDRmag,mumax,MajAxis,MinAxis,PA,Phot,Var,Stel,MCclass,MCz,
+ e_MCz,MCz2,e_MCz2,MCzml,dl,chi2red,UjMAG,e_UjMAG,BjMAG,
+ e_BjMAG,VjMAG,e_VjMAG,usMAG,e_usMAG,gsMAG,e_gsMAG,rsMAG,
+ e_rsMAG,UbMAG,e_UbMAG,BbMAG,e_BbMAG,VbMAG,e_VbMAG,S280MAG,
+ e_S280MAG,S145MAG,e_S145MAG,W420FE,e_W420FE,W462FE,e_W462FE,
+ W485FD,e_W485FD,W518FE,e_W518FE,W571FD,e_W571FD,W571FE,
+ e_W571FE,W571FS,e_W571FS,W604FE,e_W604FE,W646FD,e_W646FD,
+ W696FE,e_W696FE,W753FE,e_W753FE,W815FE,e_W815FE,W815FG,
+ e_W815FG,W815FS,e_W815FS,W856FD,e_W856FD,W914FD,e_W914FD,
+ W914FE,e_W914FE,UFF,e_UFF,UFG,e_UFG,UFS,e_UFS,BFD,e_BFD,BFF,
+ e_BFF,BFS,e_BFS,VFD,e_VFD,RFD,e_RFD,RFE,e_RFE,RFF,e_RFF,RFG,
+ e_RFG,RFS,e_RFS,IFD,e_IFD
if(ar__(62:67) .EQ. '') ApRmag = rNULL__
if(ar__(69:75) .EQ. '') ApDRmag = rNULL__
if(ar__(84:89) .EQ. '') MajAxis = rNULL__
if(ar__(91:96) .EQ. '') MinAxis = rNULL__
if(ar__(98:102) .EQ. '') PA = rNULL__
if(ar__(111:115) .EQ. '') Stel = rNULL__
if(ar__(133:137) .EQ. '') MCz = rNULL__
if(ar__(139:143) .EQ. '') e_MCz = rNULL__
if(ar__(145:149) .EQ. '') MCz2 = rNULL__
if(ar__(151:155) .EQ. '') e_MCz2 = rNULL__
if(ar__(157:161) .EQ. '') MCzml = rNULL__
if(ar__(163:169) .EQ. '') dl = rNULL__
if(ar__(179:184) .EQ. '') UjMAG = rNULL__
if(ar__(186:192) .EQ. '') e_UjMAG = rNULL__
if(ar__(194:199) .EQ. '') BjMAG = rNULL__
if(ar__(201:207) .EQ. '') e_BjMAG = rNULL__
if(ar__(209:214) .EQ. '') VjMAG = rNULL__
if(ar__(216:222) .EQ. '') e_VjMAG = rNULL__
if(ar__(224:229) .EQ. '') usMAG = rNULL__
if(ar__(231:237) .EQ. '') e_usMAG = rNULL__
if(ar__(239:244) .EQ. '') gsMAG = rNULL__
if(ar__(246:252) .EQ. '') e_gsMAG = rNULL__
if(ar__(254:259) .EQ. '') rsMAG = rNULL__
if(ar__(261:267) .EQ. '') e_rsMAG = rNULL__
if(ar__(269:274) .EQ. '') UbMAG = rNULL__
if(ar__(276:280) .EQ. '') e_UbMAG = rNULL__
if(ar__(282:287) .EQ. '') BbMAG = rNULL__
if(ar__(289:295) .EQ. '') e_BbMAG = rNULL__
if(ar__(297:302) .EQ. '') VbMAG = rNULL__
if(ar__(304:310) .EQ. '') e_VbMAG = rNULL__
if(ar__(312:317) .EQ. '') S280MAG = rNULL__
if(ar__(319:325) .EQ. '') e_S280MAG = rNULL__
if(ar__(327:332) .EQ. '') S145MAG = rNULL__
if(ar__(334:337) .EQ. '') e_S145MAG = rNULL__
if(ar__(339:348) .EQ. '') W420FE = rNULL__
if(ar__(350:359) .EQ. '') e_W420FE = rNULL__
if(ar__(361:370) .EQ. '') W462FE = rNULL__
if(ar__(372:381) .EQ. '') e_W462FE = rNULL__
if(ar__(383:392) .EQ. '') W485FD = rNULL__
if(ar__(394:403) .EQ. '') e_W485FD = rNULL__
if(ar__(405:414) .EQ. '') W518FE = rNULL__
if(ar__(416:425) .EQ. '') e_W518FE = rNULL__
if(ar__(427:436) .EQ. '') W571FD = rNULL__
if(ar__(438:447) .EQ. '') e_W571FD = rNULL__
if(ar__(449:458) .EQ. '') W571FE = rNULL__
if(ar__(460:469) .EQ. '') e_W571FE = rNULL__
if(ar__(471:480) .EQ. '') W571FS = rNULL__
if(ar__(482:491) .EQ. '') e_W571FS = rNULL__
if(ar__(493:502) .EQ. '') W604FE = rNULL__
if(ar__(504:513) .EQ. '') e_W604FE = rNULL__
if(ar__(515:524) .EQ. '') W646FD = rNULL__
if(ar__(526:535) .EQ. '') e_W646FD = rNULL__
if(ar__(537:546) .EQ. '') W696FE = rNULL__
if(ar__(548:557) .EQ. '') e_W696FE = rNULL__
if(ar__(559:568) .EQ. '') W753FE = rNULL__
if(ar__(570:579) .EQ. '') e_W753FE = rNULL__
if(ar__(581:590) .EQ. '') W815FE = rNULL__
if(ar__(592:601) .EQ. '') e_W815FE = rNULL__
if(ar__(603:612) .EQ. '') W815FG = rNULL__
if(ar__(614:623) .EQ. '') e_W815FG = rNULL__
if(ar__(625:634) .EQ. '') W815FS = rNULL__
if(ar__(636:645) .EQ. '') e_W815FS = rNULL__
if(ar__(647:656) .EQ. '') W856FD = rNULL__
if(ar__(658:667) .EQ. '') e_W856FD = rNULL__
if(ar__(669:678) .EQ. '') W914FD = rNULL__
if(ar__(680:689) .EQ. '') e_W914FD = rNULL__
if(ar__(691:700) .EQ. '') W914FE = rNULL__
if(ar__(702:711) .EQ. '') e_W914FE = rNULL__
if(ar__(713:722) .EQ. '') UFF = rNULL__
if(ar__(724:733) .EQ. '') e_UFF = rNULL__
if(ar__(735:744) .EQ. '') UFG = rNULL__
if(ar__(746:755) .EQ. '') e_UFG = rNULL__
if(ar__(757:766) .EQ. '') UFS = rNULL__
if(ar__(768:777) .EQ. '') e_UFS = rNULL__
if(ar__(779:788) .EQ. '') BFD = rNULL__
if(ar__(790:799) .EQ. '') e_BFD = rNULL__
if(ar__(801:810) .EQ. '') BFF = rNULL__
if(ar__(812:821) .EQ. '') e_BFF = rNULL__
if(ar__(823:832) .EQ. '') BFS = rNULL__
if(ar__(834:843) .EQ. '') e_BFS = rNULL__
if(ar__(845:854) .EQ. '') VFD = rNULL__
if(ar__(856:865) .EQ. '') e_VFD = rNULL__
if(ar__(867:876) .EQ. '') RFD = rNULL__
if(ar__(878:887) .EQ. '') e_RFD = rNULL__
if(ar__(889:898) .EQ. '') RFE = rNULL__
if(ar__(900:909) .EQ. '') e_RFE = rNULL__
if(ar__(911:920) .EQ. '') RFF = rNULL__
if(ar__(922:931) .EQ. '') e_RFF = rNULL__
if(ar__(933:942) .EQ. '') RFG = rNULL__
if(ar__(944:953) .EQ. '') e_RFG = rNULL__
if(ar__(955:964) .EQ. '') RFS = rNULL__
if(ar__(966:975) .EQ. '') e_RFS = rNULL__
if(ar__(977:986) .EQ. '') IFD = rNULL__
if(ar__(988:997) .EQ. '') e_IFD = rNULL__
c Derive coordinates RA_ and Dec from input data
c (RA_ and Dec are set to rNULL_ when unknown)
RA_ = RAh
if(RAh .GE. 0) RA_=RAh*15.
if(RAm .GE. 0) RA_=RA_+RAm/4.
if(RAs .GE. 0) RA_=RA_+RAs/240.
Dec = DEd
if(DEm .GE. 0) Dec=Dec+DEm/60.
if(DEs .GE. 0) Dec=Dec+DEs/3600.
if(DE_.EQ.'-'.AND.Dec.GE.0) Dec=-Dec
c ..............Just test output...........
write(6,1)
+ Seq,RAh,RAm,RAs,DE_,DEd,DEm,DEs,Xpos,Ypos,Rmag,e_Rmag,ApRmag,
+ ApDRmag,mumax,MajAxis,MinAxis,PA,Phot,Var,Stel,MCclass,MCz,
+ e_MCz,MCz2,e_MCz2,MCzml,dl,chi2red,UjMAG,e_UjMAG,BjMAG,
+ e_BjMAG,VjMAG,e_VjMAG,usMAG,e_usMAG,gsMAG,e_gsMAG,rsMAG,
+ e_rsMAG,UbMAG,e_UbMAG,BbMAG,e_BbMAG,VbMAG,e_VbMAG,S280MAG,
+ e_S280MAG,S145MAG,e_S145MAG,W420FE,e_W420FE,W462FE,e_W462FE,
+ W485FD,e_W485FD,W518FE,e_W518FE,W571FD,e_W571FD,W571FE,
+ e_W571FE,W571FS,e_W571FS,W604FE,e_W604FE,W646FD,e_W646FD,
+ W696FE,e_W696FE,W753FE,e_W753FE,W815FE,e_W815FE,W815FG,
+ e_W815FG,W815FS,e_W815FS,W856FD,e_W856FD,W914FD,e_W914FD,
+ W914FE,e_W914FE,UFF,e_UFF,UFG,e_UFG,UFS,e_UFS,BFD,e_BFD,BFF,
+ e_BFF,BFS,e_BFS,VFD,e_VFD,RFD,e_RFD,RFE,e_RFE,RFF,e_RFF,RFG,
+ e_RFG,RFS,e_RFS,IFD,e_IFD
write(6,'(6H Pos: 2F8.4)') RA_,Dec
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end