i11ke3_8F_source.html

Copyright>        OpenRadioss

Copyright>        Copyright (C) 1986-2025 Altair Engineering Inc.

Copyright>

Copyright>        This program is free software: you can redistribute it and/or modify

Copyright>        it under the terms of the GNU Affero General Public License as published by

Copyright>        the Free Software Foundation, either version 3 of the License, or

Copyright>        (at your option) any later version.

Copyright>

Copyright>        This program is distributed in the hope that it will be useful,

Copyright>        but WITHOUT ANY WARRANTY; without even the implied warranty of

Copyright>        MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

Copyright>        GNU Affero General Public License for more details.

Copyright>

Copyright>        You should have received a copy of the GNU Affero General Public License

Copyright>        along with this program.  If not, see <https://www.gnu.org/licenses/>.

Copyright>

Copyright>

Copyright>        Commercial Alternative: Altair Radioss Software

Copyright>

Copyright>        As an alternative to this open-source version, Altair also offers Altair Radioss

Copyright>        software under a commercial license.  Contact Altair to discuss further if the

Copyright>        commercial version may interest you: https://www.altair.com/radioss/.

!||====================================================================

!||    i11ke3          ../engine/source/interfaces/int11/i11ke3.F

!||--- called by ------------------------------------------------------

!||    imp_int_k       ../engine/source/implicit/imp_int_k.F

!||--- calls      -----------------------------------------------------

!||    ass_spmd11      ../engine/source/implicit/assem_int.F

!||    assem_int11     ../engine/source/implicit/assem_int.F

!||    i11cor3         ../engine/source/interfaces/int11/i11cor3.F

!||    i11dstk3        ../engine/source/interfaces/int11/i11dstk3.F

!||    i11keg3         ../engine/source/interfaces/int11/i11keg3.F

!||--- uses       -----------------------------------------------------

!||    intbufdef_mod   ../common_source/modules/interfaces/intbufdef_mod.F90

!||====================================================================


      SUBROUTINE i11ke3(

     1      A         ,V        ,MS        ,IPARI   ,INTBUF_TAB,

     2      X        ,NIN       ,NUM_IMP ,CAND_N    ,

     3      CAND_E    ,IDDL     ,K_DIAG    ,K_LT    ,IADK      ,

     4      JDIK     ,GAP_IMP   ,LREM      ,ITAB    )

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   G l o b a l   P a r a m e t e r s

C-----------------------------------------------

#include      "mvsiz_p.inc"

C-----------------------------------------------

C   C o m m o n   B l o c k s

C-----------------------------------------------

#include      "com01_c.inc"

#include      "com08_c.inc"

#include      "param_c.inc"

#include      "impl2_c.inc"

C-----------------------------------------------

C   D u m m y   A r g u m e n t s

C-----------------------------------------------

      INTEGER IPARI(*)

      INTEGER NUM_IMP,CAND_N(*),CAND_E(*),NIN,IDDL(*),

     .        IADK(*) ,JDIK(*),LREM,ITAB(*)

C     REAL

      my_real dt2t,

     .   x(*), a(3,*), v(3,*),ms(*),

     .   k_diag(*),k_lt(*),gap_imp


      TYPE(intbuf_struct_) INTBUF_TAB

C-----------------------------------------------

C   L o c a l   V a r i a b l e s

C-----------------------------------------------

      INTEGER NOINT,I, I_STOK, NSEG,JLT , NFT, JLT_NEW, IGAP,

     .        I_STOK_LOC,DEBUT,IDESAC, IGSTI, IBID

      INTEGER N1(MVSIZ), N2(MVSIZ), M1(MVSIZ), M2(MVSIZ)

C     REAL

      my_real

     .   startt, fric, gap, stopt,stiglo, gapmin, kmin, kmax

C-----------------------------------------------

C     REAL

      my_real

     .     nx(mvsiz),ny(mvsiz),nz(mvsiz),

     .     hs1(mvsiz), hs2(mvsiz), hm1(mvsiz), hm2(mvsiz),

     .     stif(mvsiz),gapv(mvsiz),

     .     xxs1(mvsiz), xxs2(mvsiz), xys1(mvsiz), xys2(mvsiz),

     .     xzs1(mvsiz), xzs2(mvsiz), xxm1(mvsiz), xxm2(mvsiz),

     .     xym1(mvsiz), xym2(mvsiz), xzm1(mvsiz), xzm2(mvsiz),

     .     vxs1(mvsiz), vxs2(mvsiz), vys1(mvsiz), vys2(mvsiz),

     .     vzs1(mvsiz), vzs2(mvsiz), vxm1(mvsiz), vxm2(mvsiz),

     .     vym1(mvsiz), vym2(mvsiz), vzm1(mvsiz), vzm2(mvsiz),

     .     ms1(mvsiz),  ms2(mvsiz),  mm1(mvsiz),  mm2(mvsiz) ,

     .     k1i11(9,mvsiz),k1j11(9,mvsiz),k2i11(9,mvsiz),

     .     k2j11(9,mvsiz),k1i12(9,mvsiz),k1j12(9,mvsiz),

     .     k2i12(9,mvsiz),k2j12(9,mvsiz),off(mvsiz),bid(mvsiz)

      INTEGER :: NRTS

C-----------------------------------------------

      IF(NUM_IMP==0) return

      ibid=0

C

      nrts  =ipari(3)

      noint =ipari(15)

      igap  =ipari(21)

      igsti =ipari(34)

C

      stiglo=-intbuf_tab%STFAC(1)

      startt=intbuf_tab%VARIABLES(3)

      stopt =intbuf_tab%VARIABLES(11)

      IF(startt>tt) RETURN

      IF(tt>stopt)  RETURN

C

      fric =intbuf_tab%VARIABLES(1)

      gap  =intbuf_tab%VARIABLES(2)

      gapmin=intbuf_tab%VARIABLES(13)

      kmin =intbuf_tab%VARIABLES(17)

      kmax =intbuf_tab%VARIABLES(18)

C------pour evider la desactivation des noeuds secnds------

      gap_imp=min(gap_imp,zep9*gapmin)

      idesac = 0

C

        i_stok = num_imp

C  90c1        LREM=0

C

        DO nft = 0 , i_stok - 1 , nvsiz

          jlt = min( nvsiz, i_stok - nft )

          CALL i11cor3(

     1  jlt          ,intbuf_tab%IRECTS,intbuf_tab%IRECTM,x    ,v      ,

     2  cand_n(nft+1),cand_e(nft+1),intbuf_tab%STFS,intbuf_tab%STFM,gapmin ,

     3  intbuf_tab%GAP_S,intbuf_tab%GAP_M,igap   ,gapv         ,ms     ,

     4  stif         ,xxs1         ,xxs2         ,xys1         ,xys2   ,

     5  xzs1         ,xzs2         ,xxm1         ,xxm2         ,xym1   ,

     6  xym2         ,xzm1         ,xzm2         ,vxs1         ,vxs2   ,

     7  vys1         ,vys2         ,vzs1         ,vzs2         ,vxm1   ,

     8  vxm2         ,vym1         ,vym2         ,vzm1         ,vzm2   ,

     9  ms1          ,ms2          ,mm1          ,mm2          ,n1     ,

     a  n2           ,m1           ,m2           ,nrts         ,nin    ,

     b  igsti        ,kmin         ,kmax         ,ibid         ,ibid   ,

     c  intbuf_tab%GAP_SL,intbuf_tab%GAP_ML,ibid ,bid          ,bid    ,

     d  bid          ,bid          ,bid      ,intbuf_tab%AREAS ,bid    ,

     e  bid          ,ibid         ,ibid   ,intbuf_tab%IELEC,intbuf_tab%IELES  ,

     f  ibid         ,itab         ,ibid   ,ibid               ,ibid   ,

     g  ibid         ,ibid         )

          CALL i11dstk3(

     1        jlt    ,cand_n(nft+1),cand_e(nft+1),hs1   ,hs2   ,

     2        hm1    , hm2  ,nx    ,ny    ,nz    ,

     3        stif   ,n1    ,n2    ,m1    ,m2    ,

     4        xxs1   ,xxs2  ,xys1  ,xys2  ,

     5        xzs1   ,xzs2  ,xxm1  ,xxm2  ,xym1  ,

     6        xym2   ,xzm1  ,xzm2  ,vxs1  ,vxs2  ,

     7        vys1   ,vys2  ,vzs1  ,vzs2  ,vxm1  ,

     8        vxm2   ,vym1  ,vym2  ,vzm1  ,vzm2  ,

     9        ms1    ,ms2   ,mm1   ,mm2   ,gapv  )

          CALL i11keg3(

     1  jlt          ,a      ,v         ,gap     ,fric              ,

     2  ms           ,cand_n(nft+1),cand_e(nft+1),stiglo  ,stif     ,

     3  hs1          ,hs2          ,hm1          ,hm2     ,nx       ,

     4  ny           ,nz           ,gapv,intbuf_tab%PENIS,intbuf_tab%PENIM,

     5  ipari(22)    ,nrts         ,ms1      ,ms2     ,mm1          ,

     6  mm2          ,vxs1         ,vys1     ,vzs1    ,vxs2         ,

     7  vys2         ,vzs2         ,vxm1     ,vym1    ,vzm1         ,

     8  vxm2         ,vym2         ,vzm2     ,k1i11   ,k1i12        ,

     9  k1j11        ,k1j12        ,k2i11    ,k2i12   ,k2j11        ,

     a  k2j12        ,n1           ,n2       ,nin     ,lrem         ,

     b  off          ,sk_int       ,idesac   )

C

           IF (nspmd>1) THEN

            lrem = lrem + jlt

            CALL ass_spmd11(3      ,n1       ,n2        ,m1       ,

     1         m2       ,jlt       ,iddl     ,k_diag    ,k_lt     ,

     2         iadk     ,jdik      ,k1i11    ,k1i12     ,k1j11    ,

     9         k1j12    ,k2i11     ,k2i12    ,k2j11     ,k2j12    ,

     a         off      ,nin       ,cand_n(nft+1),nrts  )

            lrem = lrem - jlt

           ENDIF

            CALL assem_int11(3     ,n1        ,n2        ,m1       ,

     1         m2       ,jlt       ,iddl      ,k_diag    ,k_lt     ,

     2         iadk     ,jdik      ,k1i11    ,k1i12     ,k1j11    ,

     9         k1j12    ,k2i11     ,k2i12    ,k2j11     ,k2j12    ,

     a         off      )

        ENDDO

C

        IF(idesac>0)  gap_imp=-noint

C

      RETURN


      END

!||====================================================================

!||    i11forcf3       ../engine/source/interfaces/int11/i11ke3.F

!||--- called by ------------------------------------------------------

!||    i7mainfr        ../engine/source/interfaces/int07/i7ke3.F

!||--- calls      -----------------------------------------------------

!||    i11corp3        ../engine/source/interfaces/int11/i11corp3.F

!||    i11frf3         ../engine/source/interfaces/int11/i11keg3.F

!||--- uses       -----------------------------------------------------

!||    intbufdef_mod   ../common_source/modules/interfaces/intbufdef_mod.F90

!||====================================================================


      SUBROUTINE i11forcf3(  A     ,V      ,MS   ,X       ,D       ,

     1                    IPARI   ,INTBUF_TAB,NIN     ,

     2                    NUM_IMP ,CAND_N ,CAND_E)

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   G l o b a l   P a r a m e t e r s

C-----------------------------------------------

#include      "mvsiz_p.inc"

C-----------------------------------------------

C   C o m m o n   B l o c k s

C-----------------------------------------------

#include      "com08_c.inc"

#include      "param_c.inc"

#include      "impl2_c.inc"

C-----------------------------------------------

C   D u m m y   A r g u m e n t s

C-----------------------------------------------

      INTEGER IPARI(*)

      INTEGER NUM_IMP,CAND_N(*),CAND_E(*),NIN

C     REAL

      my_real

     .  A(3,*), MS(*), V(3,*),D(3,*),X(*)


      TYPE(intbuf_struct_) INTBUF_TAB

C-----------------------------------------------

C   L o c a l   V a r i a b l e s

C-----------------------------------------------

      INTEGER I, I_STOK, JLT_NEW, JLT , NFT,

     .        INACTI, NRTS,NTY,L

      INTEGER N1(MVSIZ), N2(MVSIZ), M1(MVSIZ), M2(MVSIZ)

C     REAL

      my_real

     .   STARTT, FRIC, STOPT

      my_real

     .   hs1(mvsiz), hs2(mvsiz), hm1(mvsiz), hm2(mvsiz),

     .   nx(mvsiz), ny(mvsiz), nz(mvsiz), stif(mvsiz),

     .   ms1(mvsiz),ms2(mvsiz),mm1(mvsiz),mm2(mvsiz),

     .   vxs1(mvsiz),vys1(mvsiz),vzs1(mvsiz),vxs2(mvsiz),vys2(mvsiz),

     .   vzs2(mvsiz),vxm1(mvsiz),vym1(mvsiz),vzm1(mvsiz),vxm2(mvsiz),

     .   vym2(mvsiz),vzm2(mvsiz),dxs1(mvsiz),dys1(mvsiz),dzs1(mvsiz),

     .   dxs2(mvsiz),dys2(mvsiz),dzs2(mvsiz),dxm1(mvsiz),dym1(mvsiz),

     .   dzm1(mvsiz),dxm2(mvsiz),dym2(mvsiz),dzm2(mvsiz)

C-----------------------------------------------

C     REAL

C----------------------------------------------

      IF(num_imp==0) RETURN

C

      nrts  =ipari(3)

      nty   =ipari(7)

      startt=intbuf_tab%VARIABLES(3)

      stopt =intbuf_tab%VARIABLES(11)

      IF(startt>tt) RETURN

      IF(tt>stopt)  RETURN

      fric  =intbuf_tab%VARIABLES(1)

C

        i_stok = num_imp

        l = 0

C

        DO nft = 0 , i_stok - 1 , nvsiz

          jlt = min( nvsiz, i_stok - nft )

            jlt_new=0

           CALL i11corp3(jlt   ,x     ,intbuf_tab%IRECTS,intbuf_tab%IRECTM,

     1                   cand_e(nft+1),cand_n(nft+1),stif ,hs1 ,

     2                   hs2   ,hm1   ,hm2   ,nx      ,ny      ,

     3                   nz    ,n1    ,n2    ,m1      ,m2      ,

     4                   vxs1  ,vys1  ,vzs1  ,vxs2    ,vys2    ,

     5                   vzs2  ,vxm1  ,vym1  ,vzm1    ,vxm2    ,

     6                   vym2  ,vzm2  ,dxs1  ,dys1    ,dzs1    ,

     7                   dxs2  ,dys2  ,dzs2  ,dxm1    ,dym1    ,

     8                   dzm1  ,dxm2  ,dym2  ,dzm2    ,ms1     ,

     9                   ms2   ,mm1   ,mm2   ,ms      ,d       ,

     a                   v     ,nrts  ,nin   ,jlt_new ,l       )

            l = l +jlt_new

            jlt=jlt_new

            CALL i11frf3(jlt    ,a      ,v      ,fric   ,hs1    ,

     1                  hs2     ,hm1    ,hm2    ,nx     ,ny     ,

     2                  nz      ,ms1    ,ms2    ,mm1    ,mm2    ,

     3                  vxs1    ,vys1   ,vzs1   ,vxs2   ,vys2   ,

     4                  vzs2    ,vxm1   ,vym1   ,vzm1   ,vxm2   ,

     5                  vym2    ,vzm2   ,n1     ,n2     ,m1     ,

     6                   m2     ,dxs1   ,dys1   ,dzs1   ,dxs2   ,

     7                   dys2   ,dzs2   ,dxm1   ,dym1   ,dzm1   ,

     8                   dxm2   ,dym2   ,dzm2   ,stif   , nin   ,

     9                   sk_int )

        ENDDO

C

      RETURN


      END

!||====================================================================

!||    imp_i11mainf    ../engine/source/interfaces/int11/i11ke3.f

!||--- called by ------------------------------------------------------

!||    imp_tripi       ../engine/source/implicit/imp_int_k.f

!||--- calls      -----------------------------------------------------

!||    i11cdcor3       ../engine/source/interfaces/int11/i11cdcor3.F

!||    i11cor3         ../engine/source/interfaces/int11/i11cor3.F

!||    i11dstk3        ../engine/source/interfaces/int11/i11dstk3.F

!||    i11dstr3        ../engine/source/interfaces/int11/i11dstk3.F

!||--- uses       -----------------------------------------------------

!||    intbufdef_mod   ../common_source/modules/interfaces/intbufdef_mod.F90

!||====================================================================


      SUBROUTINE imp_i11mainf(

     1       IPARI  ,INTBUF_TAB,X         ,

     2       V      ,MS        ,NIN       ,LINDMAX  ,

     5       JTASK  ,NUM_IMP   ,NS_IMP    ,NE_IMP   ,

     6       ITAB   )

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   G l o b a l   P a r a m e t e r s

C-----------------------------------------------

#include      "mvsiz_p.inc"

C-----------------------------------------------

C   C o m m o n   B l o c k s

C-----------------------------------------------

#include      "com08_c.inc"

#include      "param_c.inc"

#include      "task_c.inc"

C-----------------------------------------------

C   D u m m y   A r g u m e n t s

C-----------------------------------------------

      INTEGER IPARI(*), NIN,JTASK,LINDMAX

      INTEGER NUM_IMP,NS_IMP(*),NE_IMP(*),ITAB(*)

C     REAL

      my_real

     .  MS(*), V(3,*),X(*)


      TYPE(INTBUF_STRUCT_) INTBUF_TAB

C-----------------------------------------------

C   L o c a l   V a r i a b l e s

C-----------------------------------------------

      INTEGER NOINT,I, I_STOK, NSEG,JLT , NFT, JLT_NEW, IGAP,

     .        i_stok_loc,debut,lrem,idesac,nb_loc, igsti, ibid

      INTEGER N1(MVSIZ), N2(MVSIZ), M1(MVSIZ), M2(MVSIZ),

     .        cs_loc(mvsiz),cm_loc(mvsiz),index2(lindmax)

C     REAL

      my_real

     .   startt, fric, gap, stopt,stiglo, gapmin, kmin, kmax

C-----------------------------------------------

C     REAL

      my_real

     .     nx(mvsiz),ny(mvsiz),nz(mvsiz),

     .     hs1(mvsiz), hs2(mvsiz), hm1(mvsiz), hm2(mvsiz),

     .     stif(mvsiz),gapv(mvsiz),

     .     xxs1(mvsiz), xxs2(mvsiz), xys1(mvsiz), xys2(mvsiz),

     .     xzs1(mvsiz), xzs2(mvsiz), xxm1(mvsiz), xxm2(mvsiz),

     .     xym1(mvsiz), xym2(mvsiz), xzm1(mvsiz), xzm2(mvsiz),

     .     vxs1(mvsiz), vxs2(mvsiz), vys1(mvsiz), vys2(mvsiz),

     .     vzs1(mvsiz), vzs2(mvsiz), vxm1(mvsiz), vxm2(mvsiz),

     .     vym1(mvsiz), vym2(mvsiz), vzm1(mvsiz), vzm2(mvsiz),

     .     ms1(mvsiz),  ms2(mvsiz),  mm1(mvsiz),  mm2(mvsiz),

     .     bid(mvsiz)

      INTEGER :: NRTS

C-----------------------------------------------

      IF(NUM_IMP==0) return

C

      ibid=0

C

      nrts  =ipari(3)

      noint =ipari(15)

      igap  =ipari(21)

      igsti =ipari(34)

C

      stiglo=-intbuf_tab%STFAC(1)

      startt=intbuf_tab%VARIABLES(3)

      stopt =intbuf_tab%VARIABLES(11)

      IF(startt>tt) RETURN

      IF(tt>stopt)  RETURN

C

      fric =intbuf_tab%VARIABLES(1)

      gap  =intbuf_tab%VARIABLES(2)

      gapmin=intbuf_tab%VARIABLES(13)

      kmin =intbuf_tab%VARIABLES(17)

      kmax =intbuf_tab%VARIABLES(18)

C

        i_stok = intbuf_tab%I_STOK(1)

C decoupage statique

        nb_loc = i_stok / nthread

        IF (jtask==nthread) THEN

          i_stok_loc = i_stok-nb_loc*(nthread-1)

        ELSE

          i_stok_loc = nb_loc

        ENDIF

        debut = (jtask-1)*nb_loc

        i_stok = 0

C

        num_imp = 0

C recalcul du istok

        DO i = debut+1, debut+i_stok_loc

          IF(intbuf_tab%CAND_N(i)<0) THEN

            i_stok = i_stok + 1

            index2(i_stok) = i

C inbuf == cand_S

            intbuf_tab%CAND_N(i) = -intbuf_tab%CAND_N(i)

          ENDIF

        ENDDO

C

        DO nft = 0 , i_stok - 1 , nvsiz

          jlt = min( nvsiz, i_stok - nft )

C preparation candidats retenus

          CALL i11cdcor3(

     1         jlt,index2(nft+1),intbuf_tab%CAND_E,intbuf_tab%CAND_N,cm_loc,

     2         cs_loc)

          CALL i11cor3(

     1  jlt          ,intbuf_tab%IRECTS,intbuf_tab%IRECTM,x    ,v      ,

     2  cs_loc       ,cm_loc       ,intbuf_tab%STFS,intbuf_tab%STFM,gapmin ,

     3  intbuf_tab%GAP_S,intbuf_tab%GAP_M,igap   ,gapv         ,ms     ,

     4  stif         ,xxs1         ,xxs2         ,xys1         ,xys2   ,

     5  xzs1         ,xzs2         ,xxm1         ,xxm2         ,xym1   ,

     6  xym2         ,xzm1         ,xzm2         ,vxs1         ,vxs2   ,

     7  vys1         ,vys2         ,vzs1         ,vzs2         ,vxm1   ,

     8  vxm2         ,vym1         ,vym2         ,vzm1         ,vzm2   ,

     9  ms1          ,ms2          ,mm1          ,mm2          ,n1     ,

     a  n2           ,m1           ,m2           ,nrts         ,nin    ,

     b  igsti        ,kmin         ,kmax         ,ibid         ,ibid   ,

     c  intbuf_tab%GAP_SL,intbuf_tab%GAP_ML ,ibid,bid          ,bid    ,

     d  bid          ,bid          ,bid      ,intbuf_tab%AREAS ,bid    ,

     e  bid          ,ibid         ,ibid   ,intbuf_tab%IELEC,intbuf_tab%IELES  ,

     f  ibid         ,itab         ,ibid   ,ibid               ,ibid   ,

     g  ibid         ,ibid         )

          CALL i11dstk3(

     1        jlt    ,cs_loc,cm_loc,hs1   ,hs2   ,

     2        hm1    , hm2  ,nx    ,ny    ,nz    ,

     3        stif   ,n1    ,n2    ,m1    ,m2    ,

     4        xxs1   ,xxs2  ,xys1  ,xys2  ,

     5        xzs1   ,xzs2  ,xxm1  ,xxm2  ,xym1  ,

     6        xym2   ,xzm1  ,xzm2  ,vxs1  ,vxs2  ,

     7        vys1   ,vys2  ,vzs1  ,vzs2  ,vxm1  ,

     8        vxm2   ,vym1  ,vym2  ,vzm1  ,vzm2  ,

     9        ms1    ,ms2   ,mm1   ,mm2   ,gapv  )

         CALL i11dstr3(

     1                 jlt   ,cs_loc,cm_loc,stif   ,gapv   ,

     2                 nx    ,ny    ,nz    ,jlt_new)

C

            DO i = 1 ,jlt_new

             ns_imp(i+num_imp)=cs_loc(i)

             ne_imp(i+num_imp)=cm_loc(i)

            ENDDO

            num_imp=num_imp+jlt_new

        ENDDO

C

      RETURN


      END

!||====================================================================

!||    i11fku3         ../engine/source/interfaces/int11/i11ke3.F

!||--- called by ------------------------------------------------------

!||    int_fku3        ../engine/source/implicit/imp_int_k.F

!||--- calls      -----------------------------------------------------

!||    i11cor3         ../engine/source/interfaces/int11/i11cor3.F

!||    i11corkp3       ../engine/source/interfaces/int11/i11corp3.F

!||    i11dstk3        ../engine/source/interfaces/int11/i11dstk3.F

!||    i11kfor3        ../engine/source/interfaces/int11/i11keg3.F

!||--- uses       -----------------------------------------------------

!||    intbufdef_mod   ../common_source/modules/interfaces/intbufdef_mod.F90

!||====================================================================


      SUBROUTINE i11fku3(

     1      A         ,V         ,MS        ,D        ,

     2      IPARI     ,INTBUF_TAB,X        ,NIN     ,

     3      NUM_IMP   ,CAND_N    ,CAND_E    ,IUPD   )

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   G l o b a l   P a r a m e t e r s

C-----------------------------------------------

#include      "mvsiz_p.inc"

C-----------------------------------------------

C   C o m m o n   B l o c k s

C-----------------------------------------------

#include      "com08_c.inc"

#include      "param_c.inc"

#include      "impl2_c.inc"

C-----------------------------------------------

C   D u m m y   A r g u m e n t s

C-----------------------------------------------

      INTEGER IPARI(*)

      INTEGER NUM_IMP,CAND_N(*),CAND_E(*),NIN,IUPD

C     REAL

      my_real DT2T,

     .   X(*), A(3,*),V(3,*),D(3,*),MS(*)


      TYPE(INTBUF_STRUCT_) INTBUF_TAB

C-----------------------------------------------

C   L o c a l   V a r i a b l e s

C-----------------------------------------------

      INTEGER I, I_STOK, NSEG,JLT , NFT, JLT_NEW, IGAP,

     .        I_STOK_LOC,DEBUT,LREM,IDESAC, IGSTI, IBID

      INTEGER N1(MVSIZ), N2(MVSIZ), M1(MVSIZ), M2(MVSIZ)

C     REAL

      my_real

     .   startt, fric, gap, stopt,stiglo, gapmin, kmin, kmax

C-----------------------------------------------

C     REAL

      my_real

     .     nx(mvsiz),ny(mvsiz),nz(mvsiz),

     .     hs1(mvsiz), hs2(mvsiz), hm1(mvsiz), hm2(mvsiz),

     .     stif(mvsiz),gapv(mvsiz),

     .     xxs1(mvsiz), xxs2(mvsiz), xys1(mvsiz), xys2(mvsiz),

     .     xzs1(mvsiz), xzs2(mvsiz), xxm1(mvsiz), xxm2(mvsiz),

     .     xym1(mvsiz), xym2(mvsiz), xzm1(mvsiz), xzm2(mvsiz),

     .     vxs1(mvsiz), vxs2(mvsiz), vys1(mvsiz), vys2(mvsiz),

     .     vzs1(mvsiz), vzs2(mvsiz), vxm1(mvsiz), vxm2(mvsiz),

     .     vym1(mvsiz), vym2(mvsiz), vzm1(mvsiz), vzm2(mvsiz),

     .     ms1(mvsiz),  ms2(mvsiz),  mm1(mvsiz),  mm2(mvsiz) ,

     .     dxs1(mvsiz),dys1(mvsiz),dzs1(mvsiz),

     .     dxs2(mvsiz),dys2(mvsiz),dzs2(mvsiz),bid(mvsiz)

      INTEGER :: NRTS

C-----------------------------------------------

      IF(NUM_IMP==0) return

C

      ibid=0

C

      nrts  =ipari(3)

      igap  =ipari(21)

      igsti =ipari(34)

C

      stiglo=-intbuf_tab%STFAC(1)

      startt=intbuf_tab%VARIABLES(3)

      stopt =intbuf_tab%VARIABLES(11)

      IF(startt>tt) RETURN

      IF(tt>stopt)  RETURN

C

      fric =intbuf_tab%VARIABLES(1)

      gap  =intbuf_tab%VARIABLES(2)

      gapmin=intbuf_tab%VARIABLES(13)

      kmin =intbuf_tab%VARIABLES(17)

      kmax =intbuf_tab%VARIABLES(18)

      idesac = 0

C

        i_stok = num_imp

C

        DO nft = 0 , i_stok - 1 , nvsiz

          jlt = min( nvsiz, i_stok - nft )

          CALL i11cor3(

     1  jlt          ,intbuf_tab%IRECTS,intbuf_tab%IRECTM,x      ,v     ,

     2  cand_n(nft+1),cand_e(nft+1),intbuf_tab%STFS,intbuf_tab%STFM,gapmin ,

     3  intbuf_tab%GAP_S,intbuf_tab%GAP_M,igap         ,gapv         ,ms     ,

     4  stif         ,xxs1         ,xxs2         ,xys1         ,xys2   ,

     5  xzs1         ,xzs2         ,xxm1         ,xxm2         ,xym1   ,

     6  xym2         ,xzm1         ,xzm2         ,vxs1         ,vxs2   ,

     7  vys1         ,vys2         ,vzs1         ,vzs2         ,vxm1   ,

     8  vxm2         ,vym1         ,vym2         ,vzm1         ,vzm2   ,

     9  ms1          ,ms2          ,mm1          ,mm2          ,n1     ,

     a  n2           ,m1           ,m2           ,nrts         ,nin    ,

     b  igsti        ,kmin         ,kmax         ,ibid         ,ibid   ,

     c  intbuf_tab%GAP_SL,intbuf_tab%GAP_ML ,ibid,bid          ,bid    ,

     d  bid          ,bid          ,bid      ,intbuf_tab%AREAS ,bid    ,

     e  bid          ,ibid         ,ibid   ,intbuf_tab%IELEC,intbuf_tab%IELES  ,

     f  ibid         ,ibid         ,ibid   ,ibid               ,ibid   ,

     g  ibid         ,ibid         )

         CALL i11corkp3(jlt   ,

     1                    xxs1   ,xxs2    ,xys1    ,xys2   ,xzs1   ,

     2                    xzs2   ,dxs1    ,dys1    ,dzs1   ,dxs2   ,

     3                    dys2   ,dzs2    ,d       ,cand_n(nft+1),nrts ,

     4                    n1     ,n2      ,nin     ,iupd   )

          CALL i11dstk3(

     1        jlt    ,cand_n(nft+1),cand_e(nft+1),hs1   ,hs2   ,

     2        hm1    , hm2  ,nx    ,ny    ,nz    ,

     3        stif   ,n1    ,n2    ,m1    ,m2    ,

     4        xxs1   ,xxs2  ,xys1  ,xys2  ,

     5        xzs1   ,xzs2  ,xxm1  ,xxm2  ,xym1  ,

     6        xym2   ,xzm1  ,xzm2  ,vxs1  ,vxs2  ,

     7        vys1   ,vys2  ,vzs1  ,vzs2  ,vxm1  ,

     8        vxm2   ,vym1  ,vym2  ,vzm1  ,vzm2  ,

     9        ms1    ,ms2   ,mm1   ,mm2   ,gapv  )

         CALL i11kfor3(

     1        jlt    ,a       ,v       ,gap    ,ms     ,

     2        cand_n(nft+1),cand_e(nft+1),stif    ,fric   ,

     3        hs1    ,hs2     ,hm1    ,hm2    ,nx     ,

     4        ny     ,nz     ,gapv    ,intbuf_tab%PENIS,intbuf_tab%PENIM,

     5        ipari(22)    ,nrts   ,ms1     ,ms2    ,mm1    ,

     6        mm2    ,vxs1   ,vys1    ,vzs1   ,vxs2   ,

     7        vys2   ,vzs2   ,vxm1    ,vym1   ,vzm1   ,

     8        vxm2   ,vym2   ,vzm2    ,n1      ,n2    ,

     9        m1     ,m2     ,nin     ,dxs1    ,dys1  ,

     a        dzs1   ,dxs2   ,dys2    ,dzs2    ,d     ,

     b        sk_int)

        END DO

C

      RETURN


      END

ass_spmd11
subroutine ass_spmd11(nd, n1, n2, m1, m2, nel, iddl, k_diag, k_lt, iadk, jdik, k1i11, k1i12, k1j11, k1j12, k2i11, k2i12, k2j11, k2j12, off, nin, ns, nrts)
Definition assem_int.F:267

assem_int11
subroutine assem_int11(nd, n1, n2, m1, m2, nel, iddl, k_diag, k_lt, iadk, jdik, k1i11, k1i12, k1j11, k1j12, k2i11, k2i12, k2j11, k2j12, off)
Definition assem_int.F:210

my_real
#define my_real
Definition cppsort.cpp:32

i11cdcor3
subroutine i11cdcor3(jlt, index, cand_m, cand_s, cand_m_n, cand_s_n)
Definition i11cdcor3.F:32

i11cor3
subroutine i11cor3(jlt, irects, irectm, x, v, cand_s, cand_m, stfs, stfm, gap, gap_s, gap_m, igap, gapv, ms, stif, xxs1, xxs2, xys1, xys2, xzs1, xzs2, xxm1, xxm2, xym1, xym2, xzm1, xzm2, vxs1, vxs2, vys1, vys2, vzs1, vzs2, vxm1, vxm2, vym1, vym2, vzm1, vzm2, ms1, ms2, mm1, mm2, n1, n2, m1, m2, nrts, nin, igsti, kmin, kmax, nodnx_sms, nsms, gap_s_l, gap_m_l, intth, temp, tempi1, tempi2, tempm1, tempm2, areas, aream, areac, ieleci, ielesi, ielec, ieles, iform, itab, intfric, ipartfrics, ipartfricsi, ipartfricm, ipartfricmi)
Definition i11cor3.F:50

i11corp3
subroutine i11corp3(jlt, x, irects, irectm, cand_e, cand_n, stif, hs1, hs2, hm1, hm2, nx, ny, nz, n1, n2, m1, m2, vxs1, vys1, vzs1, vxs2, vys2, vzs2, vxm1, vym1, vzm1, vxm2, vym2, vzm2, dxs1, dys1, dzs1, dxs2, dys2, dzs2, dxm1, dym1, dzm1, dxm2, dym2, dzm2, ms1, ms2, mm1, mm2, ms, d, v, nrts, nin, jlt_new, lrem)
Definition i11corp3.F:42

i11corkp3
subroutine i11corkp3(jlt, xxs1, xxs2, xys1, xys2, xzs1, xzs2, dxs1, dys1, dzs1, dxs2, dys2, dzs2, d, cand_n, nrts, n1, n2, nin, iupd)
Definition i11corp3.F:150

i11dstr3
subroutine i11dstr3(jlt, cand_s, cand_m, stif, gapv, nx, ny, nz, jlt_new)
Definition i11dstk3.F:187

i11dstk3
subroutine i11dstk3(jlt, cand_s, cand_m, h1s, h2s, h1m, h2m, nx, ny, nz, stif, n1, n2, m1, m2, xxs1, xxs2, xys1, xys2, xzs1, xzs2, xxm1, xxm2, xym1, xym2, xzm1, xzm2, vxs1, vxs2, vys1, vys2, vzs1, vzs2, vxm1, vxm2, vym1, vym2, vzm1, vzm2, ms1, ms2, mm1, mm2, gapv)
Definition i11dstk3.F:40

i11forcf3
subroutine i11forcf3(a, v, ms, x, d, ipari, intbuf_tab, nin, num_imp, cand_n, cand_e)
Definition i11ke3.F:200

imp_i11mainf
subroutine imp_i11mainf(ipari, intbuf_tab, x, v, ms, nin, lindmax, jtask, num_imp, ns_imp, ne_imp, itab)
Definition i11ke3.F:309

i11ke3
subroutine i11ke3(a, v, ms, ipari, intbuf_tab, x, nin, num_imp, cand_n, cand_e, iddl, k_diag, k_lt, iadk, jdik, gap_imp, lrem, itab)
Definition i11ke3.F:41

i11fku3
subroutine i11fku3(a, v, ms, d, ipari, intbuf_tab, x, nin, num_imp, cand_n, cand_e, iupd)
Definition i11ke3.F:468

i11keg3
subroutine i11keg3(jlt, a, v, gap, fric, ms, cs_loc, cm_loc, stiglo, stif, hs1, hs2, hm1, hm2, nx, ny, nz, gapv, penis, penim, inacti, nrts, ms1, ms2, mm1, mm2, vxs1, vys1, vzs1, vxs2, vys2, vzs2, vxm1, vym1, vzm1, vxm2, vym2, vzm2, k1i11, k1i12, k1j11, k1j12, k2i11, k2i12, k2j11, k2j12, n1, n2, nin, lrem, off, scalk, idesac)
Definition i11keg3.F:43

i11frf3
subroutine i11frf3(jlt, a, v, fric, hs1, hs2, hm1, hm2, nx, ny, nz, ms1, ms2, mm1, mm2, vxs1, vys1, vzs1, vxs2, vys2, vzs2, vxm1, vym1, vzm1, vxm2, vym2, vzm2, n1, n2, m1, m2, dxs1, dys1, dzs1, dxs2, dys2, dzs2, dxm1, dym1, dzm1, dxm2, dym2, dzm2, stif, nin, scalk)
Definition i11keg3.F:427

i11kfor3
subroutine i11kfor3(jlt, a, v, gap, ms, cs_loc, cm_loc, stif, fric, hs1, hs2, hm1, hm2, nx, ny, nz, gapv, penis, penim, inacti, nrts, ms1, ms2, mm1, mm2, vxs1, vys1, vzs1, vxs2, vys2, vzs2, vxm1, vym1, vzm1, vxm2, vym2, vzm2, n1, n2, m1, m2, nin, dxs1, dys1, dzs1, dxs2, dys2, dzs2, d, scalk)
Definition i11keg3.F:599

imp_tripi
subroutine imp_tripi(timers, ipari, intbuf_tab, x, d, v, ms, itab, vr, in, imsch, i2msch, isizxv, ilenxv, igrbric, islen7, irlen7, islen11, irlen11, islen17, irlen17, irlen7t, islen7t, iad_elem, fr_elem, nbintc, intlist, itask, kinet, newfront, num_imp, ns_imp, ne_imp, ind_imp, iad, isendto, irecvfrom, retri, weight, ixs, temp, dt2prev, wag, n, nty, irlen20, islen20, irlen20t, islen20t, irlen20e, islen20e, ikine, diag_sms, count_remslv, count_remslve, sensor_tab, xdp, h3d_data, multi_fvm, forneqs, interfaces, nsensor, glob_therm)
Definition imp_int_k.F:1109

imp_int_k
subroutine imp_int_k(a, v, icodt, icodr, iskew, ibfv, npc, tf, vel, nsensor, sensor_tab, xframe, rby, x, skew, lpby, npby, itab, weight, ms, in, nrbyac, irbyac, nss, iss, ipari, intbuf_tab, nint2, iint2, iaint2, nss2, iss2, nddli, nnzi, iadi, jdii, diag_i, lt_i, iddli, nddl, iadk, jdik, ikc, diag_k, lt_k, iddl, num_imp, ns_imp, ne_imp, index2, ndofi, itok, ud, lb, gapmin, dirul, nt_rw, num_imp1, irbe3, lrbe3, frbe3, nss3, iss3, irbe2, lrbe2, nsb2, isb2)
Definition imp_int_k.F:56

min
#define min(a, b)
Definition macros.h:20