57 B(I-2) = -(CON + A(I-2) * AT + C(K+1)) / BT 



58 DO 140 J = 2, I 



59 C0EF(I,J,3) = C0EF(I,J,3) + A(I-2) • C0EF(I,J,2) + B(I-2) 



60 * C0EF(I,J,1) 



61 140 CONTINUE 



62 PRINT 20, A, B, CHECK 



63 160 FORMAT (5G20.9) 



64 K = -2 



65 J = 



66 DO 30 M = 1 , 18,3 



67 J = J + 3 



68 K = K + 3 



69 PUNCH 200, (A(I), I = K, J) 



70 PUNCH 200, (Bd), I = K, d) 



71 30 CONTINUE 



72 200 FORMAT (5X, 1H*, 3(E21.15, 1H, )) 



73 END 



92 



