      SUBROUTINE ORIENT(T,NOEL,NPT,LAYER,KSPT,COORDS,BASIS,ANAME,
     1 NNODES,CNODES,JNNUM)
C
      INCLUDE 'ABA_PARAM.INC'
C
      CHARACTER*80 ANAME
      DIMENSION T(3,3),COORDS(3),BASIS(3,3),CNODES(3,NNODES)
      DIMENSION JNNUM(NNODES)
      XLEN=SQRT(COORDS(1)**2+COORDS(2)**2)
      T(1,1)=COORDS(1)/XLEN
      T(2,1)=COORDS(2)/XLEN
      T(3,1)=0.0
      T(1,2)=-COORDS(2)/XLEN
      T(2,2)=COORDS(1)/XLEN
      T(3,2)=0.0
      T(1,3)=0.0
      T(2,3)=0.0
      T(3,3)=1.0
      RETURN
      END
