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