count_nb_elem_edge.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	count_nb_elem_edge (mode, size_buffer, buffer, shoot_struct, chunk)

Function/Subroutine Documentation

count_nb_elem_edge()

subroutine count_nb_elem_edge	(	integer	mode,
		integer, intent(in)	size_buffer,
		integer, dimension(size_buffer), intent(inout)	buffer,
		type(shooting_node_type), intent(inout)	shoot_struct,
		integer, intent(in)	chunk )

Definition at line 30 of file count_nb_elem_edge.F.

!$COMMENT
!       COUNT_NB_ELEM_EDGE description
!           count the number of element associated to an edge
!           mode=1 : secondary node / mode=2 : main node
!       COUNT_NB_ELEM_EDGE organization
!$ENDCOMMENT
        USE shooting_node_mod
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
        INTEGER :: MODE     ! mode = 1 --> main node / mode = 2 --> secondary node
        INTEGER, INTENT(in) :: CHUNK ! chunk size : 1-> interface id, 2-> surface id, 3:6-> node id (for type11, 5&6 values are equal to 0)
        TYPE(shooting_node_type), INTENT(inout) :: SHOOT_STRUCT ! structure for shooting node algo
        INTEGER, INTENT(in) :: SIZE_BUFFER  ! size of buffer array
        INTEGER, DIMENSION(SIZE_BUFFER), INTENT(inout) :: BUFFER ! list of nin/edge id/number of remote element 
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
        INTEGER :: I
        INTEGER :: NIN
        INTEGER :: IRECT_ID,NB_REMOTE_ELEM
C-----------------------------------------------
 
        DO i=1,size_buffer,chunk
            nin = buffer(i)
            irect_id = buffer(i+1)
            nb_remote_elem = buffer(i+2)
            IF(mode==1) THEN
                shoot_struct%INTER(nin)%REMOTE_ELM_M(irect_id) = shoot_struct%INTER(nin)%REMOTE_ELM_M(irect_id) + nb_remote_elem
            ELSE
                shoot_struct%INTER(nin)%REMOTE_ELM_S(irect_id) = shoot_struct%INTER(nin)%REMOTE_ELM_S(irect_id) + nb_remote_elem
            ENDIF
        ENDDO
 
        RETURN