41       SUBROUTINE svLS_BC_CREATE (lhs, faIn, nNo, dof, BC_type, gNodes,  argument
47       INTEGER, INTENT(IN) :: faIn, nNo, dof  local
55       IF (faIn .GT. lhs%nFaces) THEN
57      2      "face:", lhs%nFaces, ">", faIn
60       IF (faIn .LT. 0) THEN
65       IF (lhs%face(faIn)%foC) THEN
66          PRINT *, "BC(", faIn,") is not free"
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))
79          lhs%face(faIn)%glob(a) = Ac
84             lhs%face(faIn)%val(:,a) = Val(:,a)
87          lhs%face(faIn)%val = 0D0
92          IF (lhs%face(faIn)%nNo .NE. 0) a = 1
96             lhs%face(faIn)%sharedFlag = .TRUE.
100                Ac = lhs%face(faIn)%glob(a)
101                v(:,Ac) = lhs%face(faIn)%val(:,a)
106                Ac = lhs%face(faIn)%glob(a)
107                lhs%face(faIn)%val(:,a) = v(:,Ac)
117       SUBROUTINE svLS_BC_FREE (lhs, faIn)  argument
122       INTEGER, INTENT(IN) :: faIn  local
124       IF (.NOT.lhs%face(faIn)%foC) THEN
125          PRINT *, 'Cannot free face:', faIn
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)