Lines Matching refs:dof
41 SUBROUTINE PRECOND(nFaces, dof, nNo, nnz, commu, cS, face, argument
46 INTEGER, INTENT(IN) :: nFaces, dof, nNo, nnz local
51 REAL*8, INTENT(INOUT) :: Val(dof*dof,nnz), R(dof,nNo)
52 REAL*8, INTENT(OUT) :: W(dof,nNo)
56 SELECT CASE (dof)
85 DO i=1, dof
86 W(i,Ac) = Val(i*dof-dof+i,d)
91 CALL COMMUV(dof, nNo, commu, cS, W)
95 DO i=1, dof
98 Val(i*dof-dof+i,d) = 1D0
106 i = MIN(face(faIn)%dof,dof)
115 SELECT CASE (dof)
150 DO i=1, dof
151 j = i*dof - dof + 1
152 Val(j:i*dof,a:b) = Val(j:i*dof,a:b)*W(i,Ac)
157 SELECT CASE (dof)
196 DO b=1, dof
197 j = dof*(dof-1) + b
198 Val(b:j:dof,i) = Val(b:j:dof,i)*W(b,a)
206 DO a=1, dof
207 b = (a-1)*dof + a
216 DO i=1, MIN(face(faIn)%dof,dof)