Lines Matching refs:nsd
56 INTEGER i, j, k, iB, iBB, nB, nsd local
62 nsd = dof - 1
65 ALLOCATE(Rm(nsd,nNo), Rc(nNo), Rmi(nsd,nNo), Rci(nNo),
66 2 U(nsd,nNo,iB), P(nNo,iB), MU(nsd,nNo,nB), MP(nNo,nB),
69 Rmi = Ri(1:nsd,:)
76 eps = SQRT(NORMV(nsd, mynNo, commu, Rm)**2D0
95 CALL GMRES(nFaces, nsd, nNo, nnz, mynNo, commu, cS, face,
98 CALL SPARMULVS(nsd, nNo, nnz, commu, cS,
102 CALL CGRAD(nFaces, nsd, nNo, nnz, mynNo, commu, cS, face,
105 CALL SPARMULSV(nsd, nNo, nnz, commu, cS,
109 CALL GMRES(nFaces, nsd, nNo, nnz, mynNo, commu, cS, face,
112 CALL SPARMULVV(nsd, nNo, nnz, commu, cS,
115 CALL ADDBCMUL(BCOP_TYPE_ADD, nFaces, nsd, nNo, mynNo, commu,
121 CALL SPARMULVS(nsd, nNo, nnz, commu, cS,
126 A(j,k) = DOTV(nsd, mynNo, commu, MU(:,:,j), MU(:,:,k))
130 A(k,k) = NORMV(nsd, mynNo, commu, MU(:,:,k))**2D0
132 B(k) = DOTV (nsd, mynNo, commu, MU(:,:,k), Rmi)
179 Ri(1:nsd,:) = Rmi
199 ALLOCATE(mK(nsd*nsd,nnz), mG(nsd,nnz), mD(nsd,nnz), mL(nnz),
200 2 Gt(nsd,nnz), tmp((nsd+1)*(nsd+1)))
202 IF (nsd .EQ. 2) THEN
219 ELSE IF(nsd .EQ. 3) THEN
244 PRINT *, "Not defined nsd for DEPART", nsd
275 IF (.NOT.ALLOCATED(v)) ALLOCATE(v(nsd,nNo))
279 DO i=1, nsd
283 face(faIn)%nS = NORMV(nsd, mynNo, commu, v)**2D0
288 DO i=1, nsd