*file member=ft1_fitter_trm library=snoman language=fortran77
*file date=24:Nov:1994
subroutine ft1_fitter_trm(iretc)
:
:
:
HEADER
:
:
:
* Local Variable Declarations:-
* ===========================
* None.
iretc = KSU_OK
** Print short summary to log file.
write (iqprnt,90000) ift1_retcs
write (iqlog,90000) ift1_retcs
return
90000 format(/,
+ ' FT1: User Fitter 1 Processing Statistics:-' , / ,
+ i10 , ' No operation (output already exists)' , / ,
+ i10 , ' O.K.' , / ,
+ i10 , ' Unsupported operation' , / ,
+ i10 , ' Not enough data to fit' , / ,
+ i10 , ' Too much data to fit' , / ,
+ i10 , ' Fit failed' )
end
*endfile member=ft1_fitter_trm
A summary of the fit statistics for the run is sent to the screen and to the log file. The user need change nothing.