w_irivet.F File Reference

#include "implicit_f.inc"
#include "com04_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	w_irivet (ixri, nodlocal, proc, len_ia)

Function/Subroutine Documentation

w_irivet()

subroutine w_irivet	(	integer, dimension(4,*)	ixri,
		integer, dimension(*)	nodlocal,
		integer	proc,
		integer	len_ia )

Definition at line 30 of file w_irivet.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------  
 
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "com04_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
       INTEGER  PROC, LEN_IA,
     .          IXRI(4,*), NODLOCAL(*)
C-----------------------------------------------
C   F u n c t i o n
C-----------------------------------------------
      INTEGER  NLOCAL
      EXTERNAL nlocal    
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER N_L, N, N1, N2, IXRI_L(4,NRIVET)
C
      n_l = 0
      DO n = 1, nrivet
        n1=ixri(2,n)
        n2=ixri(3,n)
        IF(nlocal(n1,proc+1)==1.AND.
     +     nlocal(n2,proc+1)==1)THEN
          ixri_l(1,n) = ixri(1,n)
          ixri_l(2,n) = nodlocal(n1)
          ixri_l(3,n) = nodlocal(n2)
          ixri_l(4,n) = ixri(4,n)
        ELSE
          ixri_l(1,n) = ixri(1,n)
          ixri_l(2,n) = -n1
          ixri_l(3,n) = n2
          ixri_l(4,n) = ixri(4,n)
        ENDIF
      ENDDO
C
      CALL write_i_c(ixri_l,nrivet*4)
      len_ia = len_ia + nrivet*4
C
      RETURN