SUBROUTINE DWRRRN(TITLE,NRA,NCA,A,LDA,ITRING)
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      CHARACTER*(*) TITLE
      DIMENSION A(LDA,*)
      IF (ITRING.EQ.0) THEN
         WRITE(6,*) TITLE
         DO 10 I=1,NRA
            WRITE(6,999) (A(I,J),J=1,NCA)
 10         CONTINUE
      ENDIF
      IF (ITRING.EQ.1) THEN
         WRITE(6,991) TITLE
         DO 20 I=1,NRA
            WRITE(6,999) (A(I,J),J=I,NCA)
 20         CONTINUE
      ENDIF
      IF (ITRING.EQ.-1) THEN
         WRITE(6,992) TITLE
         DO 30 I=1,NRA
            WRITE(6,999) (A(I,J),J=1,I)
 30      CONTINUE
      ENDIF
      IF (ITRING.EQ.2) THEN
         WRITE(6,993) TITLE
         DO 40 I=1,NRA
            WRITE(6,999) (A(I,J),J=I+1,NCA)
 40         CONTINUE
      ENDIF
      IF (ITRING.EQ.-2) THEN
         WRITE(6,994) TITLE
         DO 50 I=1,NRA
            WRITE(6,999) (A(I,J),J=1,I-1)
 50         CONTINUE
      ENDIF      
 999  FORMAT(1X,15(1X,F8.5))
 991  FORMAT(1X,'THE UPPER TRIANGULAR PART OF ',A5,/,'
     +  :INCLUDING DIAGONAL')
 992  FORMAT(1X,'THE LOWER TRIANGULAR PART OF ',A5,/,'
     +  :INCLUDING DIAGONAL')
 993  FORMAT(1X,'THE UPPER TRIANGULAR PART OF ',A5,/,'
     +  :EXCLUDING DIAGONAL')
 994  FORMAT(1X,'THE LOWER TRIANGULAR PART OF ',A5,/,'
     +  :EXCLUDING DIAGONAL')
        RETURN  
      END