ComputeFace_to_TreeIDcheck Subroutine

  1. tem_parallel_singlelevel_test.f90
  2. tem_face_test
  3. ComputeFace_to_TreeIDcheck

subroutine ComputeFace_to_TreeIDcheck(leftID, rightID, rank, proc, faces)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: leftID
integer, intent(in) :: rightID
integer, intent(in) :: rank
type(tem_comm_env_type), intent(in) :: proc
type(tem_face_type) :: faces(:)

Calls

proc~~computeface_to_treeidcheck~~CallsGraph proc~computeface_to_treeidcheck ComputeFace_to_TreeIDcheck proc~tem_abort tem_abort proc~computeface_to_treeidcheck->proc~tem_abort mpi_abort mpi_abort proc~tem_abort->mpi_abort

Called by

proc~~computeface_to_treeidcheck~~CalledByGraph proc~computeface_to_treeidcheck ComputeFace_to_TreeIDcheck proc~check_parallel_singlelevel_facedesc check_parallel_singlelevel_faceDesc proc~check_parallel_singlelevel_facedesc->proc~computeface_to_treeidcheck program~tem_face_test tem_face_test program~tem_face_test->proc~check_parallel_singlelevel_facedesc

Contents

Source Code

ComputeFace_to_TreeIDcheck

Source Code

   subroutine ComputeFace_to_TreeIDcheck(leftID, rightID, rank, proc, faces)
   !--------------------------------------------------------------------------
   integer, intent(in) :: rank
   integer, intent(in) :: leftID
   integer, intent(in) :: rightID
   type(tem_comm_env_type), intent(in) :: proc
   type(tem_face_type) :: faces(:)
   !--------------------------------------------------------------------------
   integer :: i, nfaces
   integer :: temp, found
   !--------------------------------------------------------------------------

   found = 0
   if(proc%rank.eq.rank) then
   nfaces=size(faces(1)%faces(3)%computeFace%facePos)
   do i=1,nfaces
      temp=faces(1)%faces(3)%computeFace%facePos(i)
      if(faces(1)%faces(3)%faceList%faceId%val(temp).eq.leftID) then
         found=1
         if(faces(1)%faces(3)%faceList%rightElemId%val(temp).eq.rightID) then
            write(*,*) 'SUCCESS in ComputeFace_to_TreeIDcheck : '//&
                        & 'found face',leftID,rightID,'in face list'
         else
            write(*,*) 'ERROR in ComputeFace_to_TreeIDcheck  : '//&
                        & 'Right ElemID', rightID, 'not found in FaceList'
            call tem_abort()
         end if
      end if
   end do
 
   if(found.ne.1) then
      write(*,*) 'ERROR in ComputeFace_to_TreeIDcheck : '//&
                  & 'Left ElemID', leftID, 'not found in Process', rank
      call tem_abort()
   end if

   end if


   end subroutine ComputeFace_to_TreeIDcheck