i2_imp0.F File Reference

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

Go to the source code of this file.

Functions/Subroutines
subroutine	i2_imp0 (nint2, iint2, ipari, intbuf_tab, x, ms, in, nmc2, imij2, itab, nsc2, isij2, nss2, iss2, weight, ikc, ndof, nddl, iddl, iadk, jdik, diag_k, lt_k, b)
subroutine	i2_impi (nint2, iint2, ipari, intbuf_tab, x, ms, in, nss2, iss2, weight, ikc, ndof, nddl, iddl, iadk, jdik, diag_k, lt_k, iaint2, b, itab)

Function/Subroutine Documentation

i2_imp0()

subroutine i2_imp0	(	integer	nint2,
		integer, dimension(*)	iint2,
		integer, dimension(npari,*)	ipari,
		type(intbuf_struct_), dimension(*)	intbuf_tab,
			x,
			ms,
			in,
		integer	nmc2,
		integer, dimension(*)	imij2,
		integer, dimension(*)	itab,
		integer, dimension(*)	nsc2,
		integer, dimension(*)	isij2,
		integer, dimension(*)	nss2,
		integer, dimension(*)	iss2,
		integer, dimension(*)	weight,
		integer, dimension(*)	ikc,
		integer, dimension(*)	ndof,
		integer	nddl,
		integer, dimension(*)	iddl,
		integer, dimension(*)	iadk,
		integer, dimension(*)	jdik,
			diag_k,
			lt_k,
			b )

Definition at line 33 of file i2_imp0.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(*),
     .        NINT2 ,IINT2(*),NSC2(*),ISIJ2(*),NSS2(*),ISS2(*),
     .        NMC2,IMIJ2(*),ITAB(*)
      INTEGER NDDL,IADK(*),JDIK(*),NDOF(*),IDDL(*),IKC(*)
C     REAL
      my_real
     .   x(*), ms(*),in(*),diag_k(*),lt_k(*),b(*)
 
      TYPE(INTBUF_STRUCT_) INTBUF_TAB(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER N, NTY, JI, JB, NSN, I, K,NK,NN,J
C-----------------------------------------------
        k=1
        nk=1
        nn=1
        DO i=1,nint2
          n=iint2(i)
         ji=ipari(1,n)
         jb=ipari(2,n)
         nsn =ipari(5,n)
         CALL i2_imp1(ipari(1,n),intbuf_tab(n),itab   ,
     .                nsc2(i),isij2(nk),nss2(k),iss2(nn),
     .                x  ,ms  ,  in,weight,
     .                ikc ,ndof ,nddl,iddl    ,iadk  ,
     .                jdik ,diag_k ,lt_k  ,b  )
          DO j=1,nsn
           nn  = nn  + nss2(k+j-1)
          ENDDO 
          k  = k  + nsn
          nk  = nk  + 2*nsc2(i)
        ENDDO 
        IF (nmc2>0) 
     .  CALL i2_impm(ipari     ,intbuf_tab,nmc2   ,imij2  , 
     .                x        ,ms     ,     in,weight,
     .                ndof     ,nddl     ,iddl   ,iadk   ,jdik  ,
     .                lt_k     ,diag_k   )
C
      RETURN

i2_impi()

subroutine i2_impi	(	integer	nint2,
		integer, dimension(*)	iint2,
		integer, dimension(npari,*)	ipari,
		type(intbuf_struct_), dimension(*)	intbuf_tab,
			x,
			ms,
			in,
		integer, dimension(*)	nss2,
		integer, dimension(*)	iss2,
		integer, dimension(*)	weight,
		integer, dimension(*)	ikc,
		integer, dimension(*)	ndof,
		integer	nddl,
		integer, dimension(*)	iddl,
		integer, dimension(*)	iadk,
		integer, dimension(*)	jdik,
			diag_k,
			lt_k,
		integer, dimension(*)	iaint2,
			b,
		integer, dimension(*)	itab )

Definition at line 104 of file i2_imp0.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(*),
     .        NINT2 ,IINT2(*),NSS2(*),ISS2(*),IAINT2(*),ITAB(*)
      INTEGER NDDL,IADK(*),JDIK(*),NDOF(*),IDDL(*),IKC(*)
C     REAL
      my_real
     .   x(*), ms(*),in(*),diag_k(*),lt_k(*),b(*)
 
      TYPE(INTBUF_STRUCT_) INTBUF_TAB(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER N, JI, JB, NSN, I, K,J,NN,NSC2,ISIJ2
C-----------------------------------------------
        k=1
        nn=1
        nsc2=0
        DO i=1,nint2
         IF (iaint2(i)==1) THEN
          n=iint2(i)
          ji=ipari(1,n)
          jb=ipari(2,n)
          nsn =ipari(5,n)
          CALL i2_imp1(ipari(1,n),intbuf_tab(n) ,itab  ,
     .                nsc2,isij2,nss2(k),iss2(nn),
     .                x  ,ms  ,  in,weight,
     .                ikc ,ndof ,nddl,iddl    ,iadk  ,
     .                jdik ,diag_k ,lt_k  ,b  )
         DO j=1,nsn
           nn  = nn  + nss2(k+j-1)
         ENDDO 
         k  = k  + nsn
         ENDIF 
        ENDDO 
C
      RETURN