Lines Matching refs:N

41       SUBROUTINE GE (N, A, B)  argument
45       INTEGER, INTENT(IN) :: N  local
46       REAL*8, INTENT(IN) :: A(N,N)
47       REAL*8, INTENT(INOUT) :: B(N)
53       IF (N .EQ. 2) THEN
60       ALLOCATE(C(N,N+1))
62       C(:N,:N) = A
63       C(:,N+1) = B
65       DO m=1,N-1
68          DO i=m+1,N
79             DO j=m, N+1
88          DO i=m+1,N
91             DO j=m+1,N+1
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)
104       B = C(:,N+1)