pro commonblx

;-------------------------------------
; SCF common blocks established.
;-------------------------------------

common dev_block,spec1,spec0,vpeak1,vdisp0,q,vpeak0,tau,stau,$
        fitparams,outdata,vdisppt,vpeakpt,mask,res,err,tol,s2n,smw,$
        flag2,flag3,flag4,flag5,mapparams

common data_block,      data0,nx0,ny0,nv0, $
                        x0,y0,v0,dx0,dy0,dv0,i0,j0,k0
common thin_vel,        x_thin,y_thin,v_thin
common header_block,    naxis1,crpix1,cdelt1,crval1,ctype1, $
                        naxis2,crpix2,cdelt2,crval2,ctype2, $
                        naxis3,crpix3,cdelt3,crval3,ctype3
common GUI_BLOCK,	outputs,progress,whichfunc,outdata1,fitparams1,$
			outfilenorm,outfilerand,mval
;----------------------------------------------------------
; Establish some default values
;----------------------------------------------------------

outputs={qval:3.,s2n:5.,smooth:'Yes',toler:1,resn:5.,rando:'Yes'}
progress=fltarr(6)
tol=0.01
flag2=1
flag3=1
res=5.
@dmask
mask=(mask le (float(res)-1.)/2.)
smw=0 
whichfunc=fltarr(4)+1.
outfilenorm='scf.orig.data'
outfilerand='scf.rand.data'
mval='Circular'
return
end