37 integer*4 :: i, ne, nel, find
38 integer*4 :: nnz_bc, n1, n2, n3, n4, ie_surf
40 integer*4,
dimension(:),
allocatable :: vet
41 integer*4,
dimension(0:nnz_bc) :: cs_bc
48 nel = cs_bc(i) - cs_bc(i-1) - 1
51 vet = cs_bc(cs_bc(i-1) + 1 : cs_bc(i) - 1 )
53 if (find(nel, vet, n1) .eq. 1 .and. &
54 find(nel, vet, n2) .eq. 1 .and. &
55 find(nel, vet, n3) .eq. 1 .and. &
56 find(nel, vet, n4) .eq. 1 )
then
subroutine get_elem_from_surf(nnz_bc, cs_bc, n1, n2, n3, n4, ie_surf)
Find element index from verteces number.