*DECK DUTERR
      SUBROUTINE DUTERR (METHOD, IERR, IOUT, NFAIL, ISTDO, ITER, ERR)
C***BEGIN PROLOGUE  DUTERR
C***SUBSIDIARY
C***PURPOSE  Output error messages for the SLAP Quick Check.
C***LIBRARY   SLATEC (SLAP)
C***TYPE      DOUBLE PRECISION (OUTERR-S, DUTERR-D)
C***AUTHOR  Seager, Mark K., (LLNL)
C             Lawrence Livermore National Laboratory
C             PO BOX 808, L-300
C             Livermore, CA 94550 (510) 423-3141
C             seager@llnl.gov
C***ROUTINES CALLED  (NONE)
C***REVISION HISTORY  (YYMMDD)
C   890404  DATE WRITTEN
C   890920  Converted prologue to SLATEC 4.0 format.  (FNF)
C   920511  Added complete declaration section.  (WRB)
C   921021  Changed E's to 1P,D's in output formats.  (FNF)
C***END PROLOGUE  DUTERR
C     .. Scalar Arguments ..
      DOUBLE PRECISION ERR
      INTEGER IERR, IOUT, ISTDO, ITER, NFAIL
      CHARACTER METHOD*6
C***FIRST EXECUTABLE STATEMENT  DUTERR
      IF( IERR.NE.0 ) NFAIL = NFAIL + 1
      IF( IOUT.EQ.1 .AND. IERR.NE.0 ) THEN
         WRITE(ISTDO,1000) METHOD
      ENDIF
      IF( IOUT.EQ.2 ) THEN
         IF( IERR.EQ.0 ) THEN
            WRITE(ISTDO,1010) METHOD
         ELSE
            WRITE(ISTDO,1020) METHOD,IERR,ITER,ERR
         ENDIF
      ENDIF
      IF( IOUT.GE.3 ) THEN
         IF( IERR.EQ.0 ) THEN
            WRITE(ISTDO,1030) METHOD,IERR,ITER,ERR
         ELSE
            WRITE(ISTDO,1020) METHOD,IERR,ITER,ERR
         ENDIF
      ENDIF
      RETURN
 1000 FORMAT( 1X,A6,' : **** FAILURE ****')
 1010 FORMAT( 1X,A6,' : **** PASSED  ****')
 1020 FORMAT(' **************** WARNING ***********************'/
     $       ' **** ',A6,' Quick Test FAILED: IERR = ',I5,' ****'/
     $       ' **************** WARNING ***********************'/
     $       ' Iteration Count = ',I3,' Stop Test = ',1P,D12.6)
 1030 FORMAT(' ***************** PASSED ***********************'/
     $       ' **** ',A6,' Quick Test PASSED: IERR = ',I5,' ****'/
     $       ' ***************** PASSED ***********************'/
     $       ' Iteration Count = ',I3,' Stop Test = ',1P,D12.6)
C------------- LAST LINE OF DUTERR FOLLOWS ----------------------------
      END