Lines Matching refs:dof
41 SUBROUTINE SPARMULVV(dof, nNo, nnz, commu, cS, rowPtr, colPtr, argument
46 INTEGER, INTENT(IN) :: dof, nNo, nnz local
50 REAL*8, INTENT(IN) :: K(dof*dof,nnz), U(dof,nNo)
51 REAL*8, INTENT(OUT) :: KU(dof,nNo)
56 SELECT CASE (dof)
101 DO l=1, dof
102 e = l*dof
103 s = e - dof + 1
110 CALL COMMUV(dof, nNo, commu, cS, KU)
117 SUBROUTINE SPARMULVS(dof, nNo, nnz, commu, cS, rowPtr, colPtr, argument
122 INTEGER, INTENT(IN) :: dof, nNo, nnz local
126 REAL*8, INTENT(IN) :: K(dof,nnz), U(dof,nNo)
132 SELECT CASE (dof)
177 SUBROUTINE SPARMULSV(dof, nNo, nnz, commu, cS, rowPtr, colPtr, argument
182 INTEGER, INTENT(IN) :: dof, nNo, nnz local
186 REAL*8, INTENT(IN) :: K(dof,nnz), U(nNo)
187 REAL*8, INTENT(OUT) :: KU(dof,nNo)
192 SELECT CASE (dof)
234 CALL COMMUV(dof, nNo, commu, cS, KU)