SUBROUTINE DLINRT(N,A,LDA,IPATH,AINV,LDAINV)
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      DIMENSION A(LDA,*),AINV(LDAINV,*)
      DO 10 I=1,N
         DO 20 J=1,N
            AINV(I,J)=A(I,J)
 20         CONTINUE
 10      CONTINUE   
      IF (IPATH.EQ.1) THEN
      CALL DTRTRI('L','N',N,AINV,LDAINV,INFO)
      ELSE
      CALL DTRTRI('U','N',N,AINV,LDAINV,INFO)
      ENDIF
      RETURN
      END