SUBROUTINE ORIENT(T,NOEL,NPT,LAYER,KSPT,COORDS,BASIS,ANAME,
     1 NNODES,CNODES,JNNUM)
      
      include 'aba_param.inc'
C
      CHARACTER*80 ANAME
      DIMENSION T(3,3),COORDS(3),BASIS(3,3),CNODES(3,NNODES)
      DIMENSION JNNUM(NNODES)
C
      parameter(zero=0.d0,one=1.d0,two=2.d0,half=one/two,p1=0.86603d0)
      T(1,1)=p1
      T(2,1)=half
      T(3,1)=zero
      T(1,2)=-half
      T(2,2)=p1
      T(3,2)=zero
      T(1,3)=zero
      T(2,3)=zero
      T(3,3)=one
C
      RETURN
      END