Lines Matching refs:lhs
41 SUBROUTINE svLS_SOLVE (lhs, ls, dof, Ri, Val, incL, res) argument
45 TYPE(svLS_lhsType), INTENT(INOUT) :: lhs local
48 REAL*8, INTENT(INOUT) :: Ri(dof,lhs%nNo)
49 REAL*8, INTENT(INOUT) :: Val(dof*dof,lhs%nnz)
50 INTEGER, INTENT(IN), OPTIONAL :: incL(lhs%nFaces)
51 REAL*8, INTENT(IN), OPTIONAL :: res(lhs%nFaces)
57 nNo = lhs%nNo
58 nnz = lhs%nnz
59 nFaces = lhs%nFaces
61 IF (lhs%nFaces .NE. 0) THEN
62 lhs%face%incFlag = .TRUE.
64 DO faIn=1, lhs%nFaces
65 IF (incL(faIn) .EQ. 0) lhs%face(faIn)%incFlag = .FALSE.
69 flag = ANY(lhs%face%bGrp.EQ.BC_TYPE_Neu)
73 DO faIn=1, lhs%nFaces
74 lhs%face(faIn)%coupledFlag = .FALSE.
75 IF (.NOT.lhs%face(faIn)%incFlag) CYCLE
76 flag = lhs%face(faIn)%bGrp .EQ. BC_TYPE_Neu
78 lhs%face(faIn)%res = res(faIn)
79 lhs%face(faIn)%coupledFlag = .TRUE.
86 R(:,lhs%map(a)) = Ri(:,a)
89 CALL COMMUV(dof, nNo, lhs%commu, lhs%cS, R)
90 CALL PRECOND(nFaces, dof, nNo, nnz, lhs%commu, lhs%cS,
91 2 lhs%face, lhs%rowPtr, lhs%colPtr, lhs%diagPtr, Val, R, W)
95 CALL NSSOLVER(nFaces, lhs%gnNo, dof, nNo, nnz, lhs%mynNo,
96 2 lhs%commu, lhs%cS, lhs%face, ls, lhs%rowPtr, lhs%colPtr,
99 CALL GMRESV(nFaces, dof, nNo, nnz, lhs%mynNo, lhs%commu,
100 2 lhs%cS, lhs%face, ls%RI, lhs%rowPtr, lhs%colPtr, Val, R)
103 CALL CGRADS(nNo, nnz, lhs%mynNo, lhs%commu, lhs%cS,
104 2 ls%RI, lhs%rowPtr, lhs%colPtr, Val, R)
106 CALL CGRADV(dof, nNo, nnz, lhs%mynNo, lhs%commu, lhs%cS,
107 2 ls%RI, lhs%rowPtr, lhs%colPtr, Val, R)
116 Ri(:,a) = R(:,lhs%map(a))