phasta/svLS/BC.f

41       SUBROUTINE svLS_BC_CREATE (lhs, faIn, nNo, dof, BC_type, gNodes,  argument
47       INTEGER, INTENT(IN) :: faIn, nNo, dof  local
49       INTEGER, INTENT(IN) :: gNodes(nNo)
50       REAL*8, INTENT(IN), OPTIONAL :: Val(dof,nNo)
70       lhs%face(faIn)%nNo  = nNo
74       ALLOCATE(lhs%face(faIn)%glob(nNo), lhs%face(faIn)%val(dof,nNo),
75      2   lhs%face(faIn)%valM(dof,nNo))
77       DO a=1, nNo
83          DO a=1, nNo
92          IF (lhs%face(faIn)%nNo .NE. 0) a = 1
97             IF (.NOT.ALLOCATED(v)) ALLOCATE(v(dof,lhs%nNo))
99             DO a=1, nNo
103             CALL COMMUV(dof, lhs%nNo, lhs%commu, lhs%cS, v)
105             DO a=1, nNo
130       lhs%face(faIn)%nNo        = 0