Lines Matching refs:C

51       REAL*8, ALLOCATABLE :: C(:,:)  local
60       ALLOCATE(C(N,N+1))
62       C(:N,:N) = A
63       C(:,N+1) = B
67          pivot = ABS(C(m,m))
69             IF (ABS(C(i,m)) .GT. pivot) THEN
71                pivot = ABS(C(i,m))
80                saveEl = C(m,j)
81                C(m,j) = C(ipv,j)
82                C(ipv,j) = saveEl
89             saveEl = C(i,m)/C(m,m)
90             C(i,m) = 0D0
92                C(i,j) = C(i,j) - saveEl*C(m,j)
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)
104       B = C(:,N+1)
106       DEALLOCATE(C)