pro altcalcs

; altcalcs is an alternative to the usual processing of the SCF routines
; used when the only desired calculations come from the S^0 function. 
@varld.cb
common GUI_BLOCK
widget_control,/hourglass
moment_params
scf0,q
if flag3 eq 1 then begin
		save,filename=outfilenorm,outdata,fitparams
		randomize2
		scf0,q
		save,filename=outfilerand,outdata,fitparams
		finis1=widget_message(['SCF Calculations are complete.',$
		'Data have been saved in the following files:',$
		outfilenorm+' <-- Original Data',$
		outfilerand+' <-- Randomized Data'],/information)
		progress(4)=1.
endif
return
end