41       SUBROUTINE svLS_LHS_CREATE(lhs, commu, gnNo, nNo, nnz, gNodes,   argument
48       INTEGER, INTENT(IN) :: gnNo, nNo, nnz  local
49       INTEGER, INTENT(IN) :: gNodes(nNo), rowPtr(nNo+1), colPtr(nnz)
66       lhs%nNo    = nNo
75       ALLOCATE (lhs%colPtr(nnz), lhs%rowPtr(2,nNo), lhs%diagPtr(nNo),
76      2   lhs%map(nNo), lhs%cS(nTasks), lhs%face(nFaces))
82          DO Ac=1, nNo
99          lhs%mynNo = nNo
103       CALL MPI_ALLREDUCE (nNo, maxnNo, 1, mpint, MPI_MAX, comm, ierr)
106      2   disp(nTasks), gtlPtr(gnNo), ltg(nNo))
109       part(1:nNo) = gNodes
120       DO a=1, nNo
178       DO a=1, nNo
182       DO a=1, nNo
189       DO a=1, nNo
199       DO Ac=1, nNo
295       lhs%nNo    = 0
307       SUBROUTINE svLS_LHS_CREATE_C(pLHS, commu, gnNo, nNo, nnz, gNodes,  argument
314       INTEGER, INTENT(IN) :: gnNo, nNo, nnz  local
315       INTEGER, INTENT(IN) :: gNodes(nNo), rowPtr(nNo+1), colPtr(nnz)
320       CALL svLS_LHS_CREATE(lhs, commu, gnNo, nNo, nnz, gNodes,