Lines Matching refs:m

49       INTEGER m, ipv, i, j  local
65       DO m=1,N-1
66          ipv = m
67          pivot = ABS(C(m,m))
68          DO i=m+1,N
69             IF (ABS(C(i,m)) .GT. pivot) THEN
71                pivot = ABS(C(i,m))
78          IF (ipv .NE. m) THEN
79             DO j=m, N+1
80                saveEl = C(m,j)
81                C(m,j) = C(ipv,j)
84             DO j=1, m-1
88          DO i=m+1,N
89             saveEl = C(i,m)/C(m,m)
90             C(i,m) = 0D0
91             DO j=m+1,N+1
92                C(i,j) = C(i,j) - saveEl*C(m,j)