i11edge.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	i11edge (ipari, intbuf_tab)

Function/Subroutine Documentation

i11edge()

subroutine i11edge	(	integer, dimension(*)	ipari,
		type(intbuf_struct_)	intbuf_tab )

Definition at line 30 of file i11edge.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE intbufdef_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 IPARI(*)
 
      TYPE(INTBUF_STRUCT_) INTBUF_TAB
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER NRTS, NRTM, NSN, NMN, I
C
      nrts=ipari(3)
      nrtm=ipari(4)
      nsn =ipari(5)
      nmn =ipari(6)
C
      !compact IRTS on 2*NRTS
      DO i = 1, nrts !KD(10)
        intbuf_tab%IRECTS(2*(i-1)+1) = intbuf_tab%IRECTS(4*(i-1)+1)
        intbuf_tab%IRECTS(2*(i-1)+2) = intbuf_tab%IRECTS(4*(i-1)+2)
      ENDDO
 
      intbuf_tab%S_IRECTS = 2*nrts
C
      !compact IRTM on 2*NRTM
      DO i = 1, nrtm !(KD(11)
        intbuf_tab%IRECTM(2*(i-1)+1) = intbuf_tab%IRECTM(4*(i-1)+1)
        intbuf_tab%IRECTM(2*(i-1)+2) = intbuf_tab%IRECTM(4*(i-1)+2)
      ENDDO
 
      intbuf_tab%S_IRECTM = 2*nrtm
C
      RETURN