c
c user subroutine uexpan

      subroutine uexpan(expan,dexpandt,temp,time,dtime,predef,dpred,
     $     statev,cmname,nstatv,noel)
c
      include 'aba_param.inc'
c
      character*80 cmname
c
      dimension expan(*),dexpandt(*),temp(2),time(2),predef(*),
     $     dpred(*),statev(nstatv)
c
	alpha = 1.0d-05
c
	expan(1) = alpha*temp(2)
c
      return
      end