Lines Matching refs:face
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))
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)
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)