Lines Matching refs:j
49 INTEGER m, ipv, i, j local
79 DO j=m, N+1
80 saveEl = C(m,j)
81 C(m,j) = C(ipv,j)
82 C(ipv,j) = saveEl
84 DO j=1, m-1
91 DO j=m+1,N+1
92 C(i,j) = C(i,j) - saveEl*C(m,j)
97 DO j=N,1,-1
98 DO i=j+1,N
99 C(j,N+1) = C(j,N+1) - C(j,i)*C(i,N+1)
101 C(j,N+1) = C(j,N+1)/C(j,j)