41       SUBROUTINE svLS_BC_CREATE (lhs, faIn, nNo, dof, BC_type, gNodes,  argument
46       TYPE(svLS_lhsType), INTENT(INOUT) :: lhs  local
55       IF (faIn .GT. lhs%nFaces) THEN
57      2      "face:", lhs%nFaces, ">", faIn
65       IF (lhs%face(faIn)%foC) THEN
70       lhs%face(faIn)%nNo  = nNo
71       lhs%face(faIn)%dof  = dof
72       lhs%face(faIn)%bGrp = BC_type
74       ALLOCATE(lhs%face(faIn)%glob(nNo), lhs%face(faIn)%val(dof,nNo),
75      2   lhs%face(faIn)%valM(dof,nNo))
78          Ac = lhs%map(gNodes(a))
79          lhs%face(faIn)%glob(a) = Ac
84             lhs%face(faIn)%val(:,a) = Val(:,a)
87          lhs%face(faIn)%val = 0D0
90       IF (lhs%commu%nTasks .GT. 1) THEN
92          IF (lhs%face(faIn)%nNo .NE. 0) a = 1
94      2        MPI_SUM, lhs%commu%comm, i)
96             lhs%face(faIn)%sharedFlag = .TRUE.
97             IF (.NOT.ALLOCATED(v)) ALLOCATE(v(dof,lhs%nNo))
100                Ac = lhs%face(faIn)%glob(a)
101                v(:,Ac) = lhs%face(faIn)%val(:,a)
103             CALL COMMUV(dof, lhs%nNo, lhs%commu, lhs%cS, v)
106                Ac = lhs%face(faIn)%glob(a)
107                lhs%face(faIn)%val(:,a) = v(:,Ac)
117       SUBROUTINE svLS_BC_FREE (lhs, faIn)  argument
121       TYPE(svLS_lhsType), INTENT(INOUT) :: lhs  local
124       IF (.NOT.lhs%face(faIn)%foC) THEN
129       lhs%face(faIn)%foC        = .FALSE.
130       lhs%face(faIn)%nNo        = 0
131       lhs%face(faIn)%bGrp       = BC_TYPE_Dir
132       lhs%face(faIn)%res        = 0D0
133       lhs%face(faIn)%sharedFlag = .FALSE.
135       DEALLOCATE(lhs%face(faIn)%glob, lhs%face(faIn)%val,
136      2   lhs%face(faIn)%valM)