" @(#)t1 14.1 12/08/98 Copyright (c) 1991-1996 Varian Assoc.,Inc. All Rights Reserved "
" ******************************************* 	"
" **** t1	-	t1 analysis	 **** 	"
" ******************************************* 	"

$x='  '
if $#>=1 then
   if (typeof('$1')) then
      substr($1,1,1):$ch
      if ($1='corr') or ($ch='c') then 
         $x='corr'
      endif
   endif
endif
"if $x='corr' t1 values are corrected by .03 sec for housekeeping errors"
analyze('expfit','relaxT','T1','list',$x)
cat(curexp+'/analyze.list')
