update_weight_inter_type11.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	update_weight_inter_type11 (nelemint, interface_id, nrts, nrtm, ifiend, irectm, irects, i_stok, cand_e, cand_n, inter_cand)

Function/Subroutine Documentation

update_weight_inter_type11()

subroutine update_weight_inter_type11	(	integer, intent(inout)	nelemint,
		integer, intent(in)	interface_id,
		integer, intent(in)	nrts,
		integer, intent(in)	nrtm,
		integer, intent(inout)	ifiend,
		integer, dimension(2,nrtm)	irectm,
		integer, dimension(2,nrts)	irects,
		integer, intent(in)	i_stok,
		integer, dimension(i_stok), intent(in)	cand_e,
		integer, dimension(i_stok), intent(in)	cand_n,
		type(inter_cand_), intent(inout)	inter_cand )

Parameters

[in]	interface_id	interface id
[in]	nrts	number of S segment
[in]	nrtm	number of M segment
[in,out]	ifiend	???
	irectm	list of M nodes for the NRTM segments
	irects	list of S nodes for the NRTS segments
[in]	i_stok	total number of pair of candidate
[in]	cand_e	pointer to M node of the candidate I
[in]	cand_n	pointer to S node id of the candidate I

Definition at line 30 of file update_weight_inter_type11.F.

!$COMMENT
!       UPDATE_WEIGHT_INTER_TYPE11 description :
!       save the contact data for interface type 11 
!
!       UPDATE_WEIGHT_INTER_TYPE11 organization :
!           for each contact, save :
!            * 2 main node IDs
!            * 1 secondary node ID
!            * 1 segment ID
!            * type of interface
!$ENDCOMMENT
        USE inter_cand_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, INTENT(inout) :: NELEMINT
        INTEGER, INTENT(in) :: INTERFACE_ID !< interface id 
        INTEGER, INTENT(in) :: NRTS !< number of S segment
        INTEGER, INTENT(in) :: NRTM !< number of M segment
        INTEGER, INTENT(inout) :: IFIEND !< ???
        INTEGER, DIMENSION(2,NRTM) :: IRECTM !< list of M nodes for the NRTM segments
        INTEGER, DIMENSION(2,NRTS) :: IRECTS !< list of S nodes for the NRTS segments
        INTEGER, INTENT(in) :: I_STOK !< total number of pair of candidate
        INTEGER, DIMENSION(I_STOK), INTENT(in) :: CAND_E !< pointer to M node of the candidate I
        INTEGER, DIMENSION(I_STOK), INTENT(in) :: CAND_N !< pointer to S node id of the candidate I
        TYPE(INTER_CAND_), INTENT(inout) :: INTER_CAND
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
        INTEGER I
C-----------------------------------------------
        ifiend = ifiend + i_stok
        inter_cand%IXINT(1:inter_cand%S_IXINT_1,nelemint+1:nelemint+i_stok) = 0
        inter_cand%ADDRESS(interface_id) = nelemint ! save the adress of the first pair 
        ! ---------------------------
        DO i = 1, i_stok
          inter_cand%IXINT(1,nelemint+i)=irects(1,cand_n(i))
          inter_cand%IXINT(2,nelemint+i)=irects(2,cand_n(i))
          inter_cand%IXINT(3,nelemint+i)=irectm(1,cand_e(i))
          inter_cand%IXINT(4,nelemint+i)=irectm(2,cand_e(i))
          inter_cand%IXINT(5,nelemint+i)=irects(1,cand_n(i)) ! choose one S node
          inter_cand%IXINT(6,nelemint+i)=11
          inter_cand%IXINT(7,nelemint+i)=cand_e(i)
          inter_cand%IXINT(8,nelemint+i)=interface_id
        ENDDO
        ! ---------------------------
        nelemint=nelemint+i_stok
        inter_cand%ADDRESS(interface_id+1) = nelemint ! save the adress of the last pair
        ! ---------------------------
 
        RETURN