5 * Revision 1.1.1.1 1996/04/01 15:02:32 mclareni
10 SUBROUTINE BAKVEC(NM,N,T,E,M,Z,IERR)
11 INTEGER I,J,M,N,NM,IERR
12 REAL T(NM,3),E(N),Z(NM,M)
15 IF (N .EQ. 1) GO TO 1001
17 IF (E(I) .NE. 0.0) GO TO 80
18 IF (T(I,1) .NE. 0.0 .OR. T(I-1,3) .NE. 0.0) GO TO 1000
21 80 E(I) = E(I-1) * E(I) / T(I-1,3)
25 Z(I,J) = Z(I,J) * E(I)