i2_impd.F File Reference

#include "implicit_f.inc"
#include "param_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	i2_impd (nint2, iint2, ipari, intbuf_tab, x, ms, in, weight, ndof, d, dr)

Function/Subroutine Documentation

i2_impd()

subroutine i2_impd	(	integer	nint2,
		integer, dimension(*)	iint2,
		integer, dimension(npari,*)	ipari,
		type(intbuf_struct_), dimension(*)	intbuf_tab,
			x,
			ms,
			in,
		integer, dimension(*)	weight,
		integer, dimension(*)	ndof,
			d,
			dr )

Definition at line 32 of file i2_impd.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   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "param_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER IPARI(NPARI,*), WEIGHT(*),NDOF(*),
     .        NINT2 ,IINT2(*)
C     REAL
      my_real
     .   x(*), ms(*),in(*),d(3,*), dr(3,*)
 
      TYPE(INTBUF_STRUCT_) INTBUF_TAB(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I,N
C-----------------------------------------------
      DO i=nint2,1,-1
       n=iint2(i)
       CALL int2_imp2(
     .  ipari(1,n),intbuf_tab(n) ,x  ,ms  ,  in,weight,
     .  ndof      ,d    ,dr  )
      ENDDO 
C
      RETURN