c
c     user subroutine for traction load
c
      subroutine utracload(alpha,t_user,kstep,kinc,times,noel,npt,
     $     coords,dircos,jltyp,surface_name)
c
* UnusedArgument alpha meng
* UnusedArgument t_user meng
* UnusedArgument kstep meng
* UnusedArgument kinc meng
* UnusedArgument times meng
* UnusedArgument noel meng
* UnusedArgument npt meng
* UnusedArgument coords meng
* UnusedArgument dircos meng
* UnusedArgument jltyp meng
* UnusedArgument surface_name meng
c
      include 'aba_param.inc'
c
      dimension t_user(3),times(*),coords(*), dircos(3,*)
      character*80 surface_name
c
c      call stdu_callallutils('USER SUBROUTINE UTRACLOAD IS MISSING')
c
      alpha=1.0*times(1)
c
      t_user(1)=0.0
      t_user(2)=0.0
      t_user(3)=1.0

      return
      end