-~ ~  ~~~*inau 'uw- - in.-,. *-.     ~        -   -   -

-ilA-I  -i ll-~l~l   -H  HI  -HM-

-m ~ L~2

healsu ~ a t..ah  a~ m il n~m n  et.  d.  ...& mmo
0

SUrOUTIrE IAOf

74/175 OPTZO

FTN 5.0*508

81/12/07. 12.15.58

400 CONTINUE
I
C     PRINT  ITERATION  INFO
C
IF('JCATPR(9).LE.1) GOTO 450
wRITIE 6,2010)  N U'PI T fLsMAX
2010  FOPAT(SX9"ITERATION  NO."*I5,"  EPSILON  ="E20.49"  EMAX  ="sE20.45
ERRCO0 = 0
IFINUMIT.LT.4AXIT) GOTO 450
ERpCOD = 1!
6010 901
450 CONT INUE
C
C     CHECK FOR CONVERGENCF, PASS THRU AGAIN IF NOT CLOSED
C
IFE.GT.TOL) GOT3 115
C     NORMAL EXIT
000 RETURN
C    ITERATION LOOP ERROR
001   STOP
END

-            .         . ,-....

*  I,  ..  .  *        A..                                         .

I-   *

286
288
289
20
2
9.5
295 ,
196
28 0
0 
.5 

PAGE     6

)d

mm          owg

'j  -A
77 i: ,