C      ________________________________________________________
C     |                                                        |
C     |      PRINT ABSOLUTE DIFFERENCE, ITERATION NUMBER,      |
C     |                   AND STOP CRITERION                   |
C     |________________________________________________________|
C
      SUBROUTINE WHATIS(DIF,T)
      REAL DIF,S,T
      INTEGER I
      S = ABS(DIF)
      I = ABS(T)/3.
      WRITE(6,10) I,S
10    FORMAT(' ITERATION:',I7,'  DIF:',E10.2)
      I = ABS(T) - 3*I + 1
      GOTO(60,20,40), I
20    WRITE(6,30)
30    FORMAT(/' ERROR BELOW TOLERANCE'/)
      GOTO 60
40    WRITE(6,50)
50    FORMAT(/' ITERATIONS AT LIMIT'/)
60    RETURN
      END