intti2v_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/.

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

!||    intti2v         ../engine/source/interfaces/interf/intti2v.F

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

!||    intti2          ../engine/source/interfaces/interf/intti2.F

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

!||    i2curvv         ../engine/source/interfaces/interf/i2curvv.F

!||    i2rot10         ../engine/source/interfaces/interf/i2vit10.F

!||    i2rot3          ../engine/source/interfaces/interf/i2vit3.F

!||    i2virot3        ../engine/source/interfaces/interf/i2vit3.F

!||    i2vit10         ../engine/source/interfaces/interf/i2vit10.F

!||    i2vit27         ../engine/source/interfaces/interf/i2vit27.F

!||    i2vit28         ../engine/source/interfaces/interf/i2vit28.F

!||    i2vit3          ../engine/source/interfaces/interf/i2vit3.F

!||    i2vit3n         ../engine/source/interfaces/interf/i2vit3.F

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

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

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


      SUBROUTINE intti2v(IPARI,X    ,V   ,

     .                   A    ,VR   ,AR   ,MS  ,IN   ,

     .                   WEIGHT,INTBUF_TAB)

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(*), WEIGHT(*)

C     REAL

      my_real

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

     .   ms(*),in(*),ar(*),vr(*)


      TYPE(intbuf_struct_) INTBUF_TAB

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

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

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

#include      "com01_c.inc"

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

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

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

      INTEGER NSN,NMN,NRTS,NRTM,ILEV,IDEL2

C=======================================================================

      nrts  = ipari(3)

      nrtm  = ipari(4)

      nsn   = ipari(5)

      nmn   = ipari(6)

      ilev  = ipari(20)

      idel2 = ipari(17)

C

      IF (ilev == 25 .or. ilev == 26) THEN

        CONTINUE

      ELSEIF (ilev == 27) THEN

        CALL i2vit27(intbuf_tab,ipari,weight,nsn     ,

     .                   x    ,v   ,a    ,vr   ,ar   ,

     .                   ms  ,in   )

c

      ELSEIF (ilev == 28) THEN

        CALL i2vit28(intbuf_tab,ipari,weight,nsn     ,

     .                   x    ,v   ,a    ,vr   ,ar   ,

     .                   ms  ,in   )

c

      ELSEIF (ilev == 1.AND.iroddl /= 0) THEN

C

C       FORMULATION SANS MOMENT SUR MAIN

C

        CALL i2virot3(nsn       ,nmn       ,

     2 a         ,intbuf_tab%IRECTM,

     3 intbuf_tab%DPARA,intbuf_tab%MSR,intbuf_tab%NSV,intbuf_tab%IRTLM,

     4 v         ,ms        ,ar        ,vr        ,

     5 x         ,weight)

      ELSEIF(ilev == 2)THEN

C

C       FORMULATION AVEC MOMENT SUR MAIN

C

        CALL i2vit3(nsn       ,nmn       ,

     2 a         ,intbuf_tab%IRECTM,

     3 intbuf_tab%CSTS,intbuf_tab%MSR,intbuf_tab%NSV,intbuf_tab%IRTLM,

     4 v         ,ms        ,weight    ,intbuf_tab%NMAS)

C

        IF(iroddl /= 0)THEN

          CALL i2rot3(nsn       ,nmn       ,

     2   ar        ,intbuf_tab%IRECTM,

     3   intbuf_tab%CSTS,intbuf_tab%MSR,intbuf_tab%NSV,intbuf_tab%IRTLM,

     4   vr        ,in        ,a         ,v         ,

     5   x         )

        ENDIF

C

      ELSEIF(ilev == 4)THEN

C

C       FORMULATION decouplant les ddl rot

C

        CALL i2vit3(nsn       ,nmn       ,

     2 a         ,intbuf_tab%IRECTM,

     3 intbuf_tab%CSTS,intbuf_tab%MSR,intbuf_tab%NSV,intbuf_tab%IRTLM,

     4 v         ,ms        ,weight    ,intbuf_tab%NMAS)

C

      ELSEIF (ilev >= 10 .AND. ilev < 23) THEN

C       FORMULATION AVEC RUPTURE

C

         CALL i2vit10(

     1       nsn       ,nmn       ,ms        ,v         ,a         ,

     2       ar        ,vr        ,x         ,intbuf_tab%IRECTM,intbuf_tab%NSV,

     3       intbuf_tab%MSR,intbuf_tab%IRTLM,intbuf_tab%CSTS,intbuf_tab%IRUPT,weight   )

         IF(iroddl /= 0) THEN

           CALL i2rot10(

     1        nsn       ,nmn       ,ms        ,v         ,a         ,

     2        ar        ,vr        ,x         ,intbuf_tab%IRECTM,intbuf_tab%NSV,

     3        intbuf_tab%MSR,intbuf_tab%IRTLM,intbuf_tab%CSTS,intbuf_tab%IRUPT,weight )

         ENDIF

      ELSEIF (ilev == 30 .AND. iroddl /= 0) THEN

C       Formulation avec courbure du main

         CALL i2curvv(

     1       nsn       ,nmn       ,ms        ,v         ,a         ,

     2       ar        ,vr        ,x         ,intbuf_tab%IRECTM,intbuf_tab%NSV,

     3       intbuf_tab%MSR,intbuf_tab%IRTLM,intbuf_tab%CSTS,weight    )

C

      ELSEIF(ilev == 0.OR.iroddl == 0)THEN

C       FORMULATION AVEC MOMENT SUR MAIN

C

        CALL i2vit3n(nsn       ,nmn       ,

     2 a         ,intbuf_tab%IRECTM,

     3 intbuf_tab%CSTS,intbuf_tab%MSR,intbuf_tab%NSV,intbuf_tab%IRTLM,

     4 v         ,ms        ,weight    ,intbuf_tab%NMAS)

C

        IF(iroddl /= 0)THEN

          CALL i2rot3(nsn       ,nmn       ,

     2   ar        ,intbuf_tab%IRECTM,

     3   intbuf_tab%CSTS,intbuf_tab%MSR,intbuf_tab%NSV,intbuf_tab%IRTLM,

     4   vr        ,in        ,a         ,v         ,

     5   x         )

        ENDIF

      ENDIF

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

      RETURN


      END

my_real
#define my_real
Definition cppsort.cpp:32

i2curvv
subroutine i2curvv(nsn, nmn, ms, v, a, ar, vr, x, irect, nsv, msr, irtl, crst, weight)
Definition i2curvv.F:36

i2vit10
subroutine i2vit10(nsn, nmn, ms, v, a, ar, vr, x, irect, nsv, msr, irtl, crst, irupt, weight)
Definition i2vit10.F:32

i2rot10
subroutine i2rot10(nsn, nmn, ms, v, a, ar, vr, x, irect, nsv, msr, irtl, crst, irupt, weight)
Definition i2vit10.F:107

i2vit27
subroutine i2vit27(intbuf_tab, ipari, weight, nsn, x, v, a, vr, ar, ms, in)
Definition i2vit27.F:36

i2vit28
subroutine i2vit28(intbuf_tab, ipari, weight, nsn, x, v, a, vr, ar, ms, in)
Definition i2vit28.F:35

i2vit3
subroutine i2vit3(nsn, nmn, a, irect, crst, msr, nsv, irtl, v, ms, weight, mmass)
Definition i2vit3.F:119

i2virot3
subroutine i2virot3(nsn, nmn, a, irect, dpara, msr, nsv, irtl, v, ms, ar, vr, x, weight)
Definition i2vit3.F:319

i2vit3n
subroutine i2vit3n(nsn, nmn, a, irect, crst, msr, nsv, irtl, v, ms, weight, mmass)
Definition i2vit3.F:32

i2rot3
subroutine i2rot3(nsn, nmn, ar, irect, crst, msr, nsv, irtl, vr, in, a, v, x)
Definition i2vit3.F:213

intti2v
subroutine intti2v(ipari, x, v, a, vr, ar, ms, in, weight, intbuf_tab)
Definition intti2v.F:43