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

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

!||    intvo3          ../engine/source/interfaces/inter3d/intvo3.F

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

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

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

!||    i3cor3          ../engine/source/interfaces/inter3d/i3cor3.F

!||    i3cst3          ../engine/source/interfaces/inter3d/i3cst3.F

!||    i3dis3          ../engine/source/interfaces/inter3d/i3dis3.F

!||    i3for3          ../engine/source/interfaces/inter3d/i3for3.F

!||    i3fri3          ../engine/source/interfaces/inter3d/i3fri3.F

!||    i3gap3          ../engine/source/interfaces/inter3d/i3gap3.F

!||    i3loc3          ../engine/source/interfaces/inter3d/i3loc3.F

!||    i3msr3          ../engine/source/interfaces/inter3d/i3msr3.F

!||    i5for3          ../engine/source/interfaces/inter3d/i5for3.F

!||    i5fri3          ../engine/source/interfaces/inter3d/i3fri3.F

!||    i5impk3         ../engine/source/interfaces/inter3d/i5impk3.F

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

!||    h3d_mod         ../engine/share/modules/h3d_mod.F

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

!||    output_mod      ../common_source/modules/output/output_mod.F90

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


      SUBROUTINE intvo3(output, IPARI,X ,A  ,

     2                  ICODT,FSAV ,MWA  ,V ,MS ,

     3                  FSKYI,ISKY ,FCONT,FNCONT,FTCONT,

     4                  ICONTACT,RCONTACT,NUM_IMP,NS_IMP  ,

     5                  NE_IMP  ,STIFN,ITAB,INTBUF_TAB,H3D_DATA)

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

C   M o d u l e s

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

      use output_mod

      USE intbufdef_mod

      USE h3d_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      "parit_c.inc"

#include      "impl1_c.inc"

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

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

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

      type(output_), intent(inout) :: output

      INTEGER IPARI(*), ICODT(*), MWA(*), ISKY(*),

     .        ICONTACT(*)

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

C     REAL

      my_real

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

     .   fskyi(lskyi,nfskyi),fcont(3,*), fncont(3,*), ftcont(3,*),

     .   rcontact(*),stifn(*)


      TYPE(intbuf_struct_) INTBUF_TAB

      TYPE(H3D_DATABASE) :: H3D_DATA


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

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

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


C     REAL

      my_real

     .   dist(mvsiz)

      INTEGER IBC, NCIMP, NRTM4, NOINT, NGROUS, NGROUM, NG,IGIMP

      INTEGER MFROT, IBAG, IADM, IFORM, IFT0


      INTEGER, DIMENSION(MVSIZ) :: IX11,IX12,IX13,IX14

      my_real, DIMENSION(MVSIZ) :: x11,x12,x13,x14,xi

      my_real, DIMENSION(MVSIZ) :: y11,y12,y13,y14,yi

      my_real, DIMENSION(MVSIZ) :: z11,z12,z13,z14,zi

      my_real, DIMENSION(MVSIZ) :: xface,n1,n2,n3

      my_real, DIMENSION(MVSIZ) :: ssc,ttc,area,thk,alp

      my_real, DIMENSION(MVSIZ) :: x0,y0,z0,ans,stif

      my_real, DIMENSION(MVSIZ) :: xx1,xx2,xx3,xx4

      my_real, DIMENSION(MVSIZ) :: yy1,yy2,yy3,yy4

      my_real, DIMENSION(MVSIZ) :: zz1,zz2,zz3,zz4

      my_real, DIMENSION(MVSIZ) :: xi1,xi2,xi3,xi4

      my_real, DIMENSION(MVSIZ) :: yi1,yi2,yi3,yi4

      my_real, DIMENSION(MVSIZ) :: zi1,zi2,zi3,zi4

      my_real, DIMENSION(MVSIZ) :: xn1,xn2,xn3,xn4

      my_real, DIMENSION(MVSIZ) :: yn1,yn2,yn3,yn4

      my_real, DIMENSION(MVSIZ) :: zn1,zn2,zn3,zn4

      my_real, DIMENSION(MVSIZ) :: xp,yp,zp

      my_real, DIMENSION(MVSIZ) :: h1,h2,h3,h4

C     REAL

      my_real

     . startt, fric, gap, stopt,

     .   visc,viscf,fnor,depth

      INTEGER :: NMN, NTY, NSN

      INTEGER :: LFT, LLT, NFT

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

C----

      nsn    = ipari(5)

      nmn    = ipari(6)

      nty   = ipari(7)

      ibc   =ipari(11)

      ncimp =ipari(13)

      nrtm4 =ipari(14)

      noint =ipari(15)

      mfrot =ipari(30)

      ibag =ipari(32)

      iadm =ipari(44)

      iform=ipari(48)

      ift0 =ipari(50)

      ngrous=1+(nsn-1)/nvsiz

      ngroum=1+(nmn-1)/nvsiz

C

      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)

      visc =intbuf_tab%VARIABLES(14)

      viscf=intbuf_tab%VARIABLES(15)

      fnor =intbuf_tab%VARIABLES(4)

      depth=intbuf_tab%VARIABLES(5)

C

      dist = zero

C

      IF(nty==3)THEN

       DO 100 ng=1,ngrous

       nft=(ng-1)*nvsiz

       lft=1

       llt=min0(nvsiz,nsn-nft)

       CALL i3loc3(

     1   x,                intbuf_tab%IRECTM,intbuf_tab%LMSR,  intbuf_tab%MSR,

     2   intbuf_tab%NSV,   intbuf_tab%ILOCS, intbuf_tab%NSEGM, xi,

     3   yi,               zi,               xface,            lft,

     4   llt,              nft)

       CALL i3msr3(

     1   x,                intbuf_tab%IRECTM,intbuf_tab%LMSR,  intbuf_tab%MSR,

     2   intbuf_tab%NSV,   intbuf_tab%ILOCS, intbuf_tab%IRTLM, intbuf_tab%NSEGM,

     3   xface,            lft,              llt,              nft)

       CALL i3cor3(

     1   x,                intbuf_tab%IRECTM,intbuf_tab%MSR,   intbuf_tab%NSV,

     2   intbuf_tab%IRTLM, ix11,             ix12,             ix13,

     3   ix14,             x11,              x12,              x13,

     4   x14,              y11,              y12,              y13,

     5   y14,              z11,              z12,              z13,

     6   z14,              lft,              llt,              nft)

       CALL i3cst3(

     1   x11,     x12,     x13,     x14,

     2   xi,      y11,     y12,     y13,

     3   y14,     yi,      z11,     z12,

     4   z13,     z14,     zi,      xface,

     5   n1,      n2,      n3,      ssc,

     6   ttc,     x0,      y0,      z0,

     7   xx1,     xx2,     xx3,     xx4,

     8   yy1,     yy2,     yy3,     yy4,

     9   zz1,     zz2,     zz3,     zz4,

     a   xi1,     xi2,     xi3,     xi4,

     b   yi1,     yi2,     yi3,     yi4,

     c   zi1,     zi2,     zi3,     zi4,

     d   xn1,     xn2,     xn3,     xn4,

     e   yn1,     yn2,     yn3,     yn4,

     f   zn1,     zn2,     zn3,     zn4,

     g   area,    lft,     llt)

       CALL i3gap3(

     1   gap,     area,    thk,     alp,

     2   lft,     llt)

       CALL i3dis3(

     1   igimp,   nty,     dist,    x11,

     2   x12,     x13,     x14,     xi,

     3   y11,     y12,     y13,     y14,

     4   yi,      z11,     z12,     z13,

     5   z14,     zi,      xface,   n1,

     6   n2,      n3,      ssc,     ttc,

     7   alp,     ans,     xp,      yp,

     8   zp,      h1,      h2,      h3,

     9   h4,      lft,     llt)

       IF(igimp==0)GOTO 100

       CALL i3for3(output,lft   ,llt   ,nft   ,

     2      a ,intbuf_tab%MSR,intbuf_tab%NSV,intbuf_tab%IRTLM,intbuf_tab%STFM,

     3      intbuf_tab%STFNS,ibc ,icodt  ,1   ,fsav ,

     4      igimp     ,fskyi     ,isky      ,fcont  ,h3d_data,

     5      n1    ,n2    ,n3    ,ix11  ,ix12     ,

     6      ix13  ,ix14  ,ans   ,

     7      thk   ,h1    ,h2    ,h3    ,h4       ,

     8      xface ,stif  ,xx3   ,yy3   ,zz3      ,

     7      xx4   ,yy4   ,yi1   ,yi2   ,yi3      ,

     8      zz4   ,zi1   ,zi2   ,zi3   ,xi1      ,

     9      xi2   ,xi3   ,xi4)

       IF(fric==0.)GOTO 100

       IF(igimp==0)GOTO 100

       CALL i3fri3(output,lft   ,llt   ,nft   ,x ,a  ,

     2      intbuf_tab%IRECTM,intbuf_tab%MSR,intbuf_tab%NSV,intbuf_tab%IRTLM,

     3      nty,intbuf_tab%CSTS,intbuf_tab%IRTLOM,intbuf_tab%FRICOS,

     4      intbuf_tab%VARIABLES(1),1,fsav,fskyi,isky,

     5      fcont,h3d_data,n1   ,n2    ,n3    ,

     6      ix11  ,ix12  ,ix13  ,ix14  ,h1    ,

     7      h2    ,h3    ,h4    ,ssc   ,ttc   ,

     8      xface ,stif  ,xp    ,yp    ,zp    ,

     9      xx3   )

 100   CONTINUE

       DO 130 ng=1,ngroum

       nft=(ng-1)*nvsiz

       lft=1

       llt=min0(nvsiz,nmn-nft)

       CALL i3loc3(

     1   x,                intbuf_tab%IRECTS,intbuf_tab%LNSV,  intbuf_tab%NSV,

     2   intbuf_tab%MSR,   intbuf_tab%ILOCM, intbuf_tab%NSEGS, xi,

     3   yi,               zi,               xface,            lft,

     4   llt,              nft)

       CALL i3msr3(

     1   x,                intbuf_tab%IRECTS,intbuf_tab%LNSV,  intbuf_tab%NSV,

     2   intbuf_tab%MSR,   intbuf_tab%ILOCM, intbuf_tab%IRTLS, intbuf_tab%NSEGS,

     3   xface,            lft,              llt,              nft)

       CALL i3cor3(

     1   x,                intbuf_tab%IRECTS,intbuf_tab%NSV,   intbuf_tab%MSR,

     2   intbuf_tab%IRTLS, ix11,             ix12,             ix13,

     3   ix14,             x11,              x12,              x13,

     4   x14,              y11,              y12,              y13,

     5   y14,              z11,              z12,              z13,

     6   z14,              lft,              llt,              nft)

       CALL i3cst3(

     1   x11,     x12,     x13,     x14,

     2   xi,      y11,     y12,     y13,

     3   y14,     yi,      z11,     z12,

     4   z13,     z14,     zi,      xface,

     5   n1,      n2,      n3,      ssc,

     6   ttc,     x0,      y0,      z0,

     7   xx1,     xx2,     xx3,     xx4,

     8   yy1,     yy2,     yy3,     yy4,

     9   zz1,     zz2,     zz3,     zz4,

     a   xi1,     xi2,     xi3,     xi4,

     b   yi1,     yi2,     yi3,     yi4,

     c   zi1,     zi2,     zi3,     zi4,

     d   xn1,     xn2,     xn3,     xn4,

     e   yn1,     yn2,     yn3,     yn4,

     f   zn1,     zn2,     zn3,     zn4,

     g   area,    lft,     llt)

       CALL i3gap3(

     1   gap,     area,    thk,     alp,

     2   lft,     llt)

       CALL i3dis3(

     1   igimp,   nty,     dist,    x11,

     2   x12,     x13,     x14,     xi,

     3   y11,     y12,     y13,     y14,

     4   yi,      z11,     z12,     z13,

     5   z14,     zi,      xface,   n1,

     6   n2,      n3,      ssc,     ttc,

     7   alp,     ans,     xp,      yp,

     8   zp,      h1,      h2,      h3,

     9   h4,      lft,     llt)

       IF(igimp==0)GOTO 130

       CALL i3for3(output, lft   ,llt   ,nft   , a  ,

     2      intbuf_tab%NSV,intbuf_tab%MSR,intbuf_tab%IRTLS,intbuf_tab%STFS,

     3      intbuf_tab%STFNM,ibc  ,icodt        ,-1        ,fsav      ,

     4      igimp  ,fskyi     ,isky      ,fcont     ,h3d_data,

     5      n1    ,n2    ,n3    ,ix11  ,ix12     ,

     6      ix13  ,ix14  ,ans   ,

     7      thk   ,h1    ,h2    ,h3    ,h4       ,

     8      xface ,stif  ,xx3   ,yy3   ,zz3      ,

     7      xx4   ,yy4   ,yi1   ,yi2   ,yi3      ,

     8      zz4   ,zi1   ,zi2   ,zi3   ,xi1      ,

     9      xi2   ,xi3   ,xi4)

       IF(fric==0.)GOTO 130

       IF(igimp==0)GOTO 130

       ipari(29) = 1

       CALL i3fri3(output, lft   ,llt   ,nft   ,x      ,a    ,

     2      intbuf_tab%IRECTS,intbuf_tab%NSV,intbuf_tab%MSR,intbuf_tab%IRTLS,

     3      nty,intbuf_tab%CSTM,intbuf_tab%IRTLOS,intbuf_tab%FRICOM,

     4      intbuf_tab%VARIABLES(1),-1  ,fsav  ,fskyi  ,isky  ,fcont,h3d_data  ,n1   ,n2    ,n3    ,

     6      ix11  ,ix12  ,ix13  ,ix14  ,h1    ,

     7      h2    ,h3    ,h4    ,ssc   ,ttc   ,

     8      xface ,stif  ,xp    ,yp    ,zp    ,

     9      xx3   )


 130   CONTINUE

C

      ELSEIF(nty==4)THEN

C

      ELSEIF(nty==5)THEN

        IF (impl_s==1) THEN

         num_imp = 0

         visc  =zero

         viscf =zero

        ENDIF

        DO 150 ng=1,ngrous

        nft=(ng-1)*nvsiz

        lft=1

        llt=min0(nvsiz,nsn-nft)

        CALL i3loc3(

     1   x,                intbuf_tab%IRECTM,intbuf_tab%LMSR,  intbuf_tab%MSR,

     2   intbuf_tab%NSV,   intbuf_tab%ILOCS, intbuf_tab%NSEGM, xi,

     3   yi,               zi,               xface,            lft,

     4   llt,              nft)

        CALL i3msr3(

     1   x,                intbuf_tab%IRECTM,intbuf_tab%LMSR,  intbuf_tab%MSR,

     2   intbuf_tab%NSV,   intbuf_tab%ILOCS, intbuf_tab%IRTLM, intbuf_tab%NSEGM,

     3   xface,            lft,              llt,              nft)

        CALL i3cor3(

     1   x,                intbuf_tab%IRECTM,intbuf_tab%MSR,   intbuf_tab%NSV,

     2   intbuf_tab%IRTLM, ix11,             ix12,             ix13,

     3   ix14,             x11,              x12,              x13,

     4   x14,              y11,              y12,              y13,

     5   y14,              z11,              z12,              z13,

     6   z14,              lft,              llt,              nft)

        CALL i3cst3(

     1   x11,     x12,     x13,     x14,

     2   xi,      y11,     y12,     y13,

     3   y14,     yi,      z11,     z12,

     4   z13,     z14,     zi,      xface,

     5   n1,      n2,      n3,      ssc,

     6   ttc,     x0,      y0,      z0,

     7   xx1,     xx2,     xx3,     xx4,

     8   yy1,     yy2,     yy3,     yy4,

     9   zz1,     zz2,     zz3,     zz4,

     a   xi1,     xi2,     xi3,     xi4,

     b   yi1,     yi2,     yi3,     yi4,

     c   zi1,     zi2,     zi3,     zi4,

     d   xn1,     xn2,     xn3,     xn4,

     e   yn1,     yn2,     yn3,     yn4,

     f   zn1,     zn2,     zn3,     zn4,

     g   area,    lft,     llt)

        CALL i3gap3(

     1   gap,     area,    thk,     alp,

     2   lft,     llt)

        CALL i3dis3(

     1   igimp,   nty,     dist,    x11,

     2   x12,     x13,     x14,     xi,

     3   y11,     y12,     y13,     y14,

     4   yi,      z11,     z12,     z13,

     5   z14,     zi,      xface,   n1,

     6   n2,      n3,      ssc,     ttc,

     7   alp,     ans,     xp,      yp,

     8   zp,      h1,      h2,      h3,

     9   h4,      lft,     llt)

        IF(igimp==0)GOTO 150

        CALL i5for3(output, lft   ,llt   ,nft   , a ,

     2          intbuf_tab%MSR,intbuf_tab%NSV,intbuf_tab%IRTLM,intbuf_tab%STFM,

     3          intbuf_tab%STFNS,ibc   ,icodt     ,fsav      ,igimp     ,

     4          fskyi     ,isky     ,fcont     ,fncont    ,icontact  ,

     5          ibag      ,iadm    ,h3d_data,

     6          ix11  ,ix12  ,ix13    ,ix14   ,n1    ,

     7          n2    ,n3    ,xface   ,h1     ,h2    ,

     8          h3    ,h4    ,thk     ,ans    ,stif  ,

     9          xx3 )

        IF (impl_s==1) THEN

         CALL i5impk3(

     1   intbuf_tab%IRECTM,intbuf_tab%MSR,   intbuf_tab%NSV,   intbuf_tab%IRTLM,

     2   num_imp,          ns_imp,           ne_imp,           ans,

     3   lft,              llt,              nft)

        ENDIF

        IF(fric==0.AND.mfrot==0)GOTO 150

        IF(igimp==0)GOTO 150

        ipari(29) = 1

        CALL i5fri3(output, lft    ,llt    ,nft    ,ipari  ,x      ,a      ,

     2          intbuf_tab%IRECTM,intbuf_tab%MSR,intbuf_tab%NSV,intbuf_tab%IRTLM,

     3          nty          ,intbuf_tab%CSTS,intbuf_tab%IRTLOM,intbuf_tab%FRICOS,

     4          fric         ,1            ,fsav         ,fskyi        ,

     5          isky         ,fcont        ,v          ,intbuf_tab%VARIABLES(4),

     6          intbuf_tab%FRIC_P,intbuf_tab%XFILTR,intbuf_tab%FTSAV,ftcont,h3d_data ,

     7          n1    ,n2    ,

     7          n3    ,ix11  ,ix12    ,ix13  ,ix14  ,

     8          xp    ,yp    ,zp      ,ssc   ,ttc   ,

     9          xface ,stif  ,h1      ,h2    ,h3    ,

     1          h4    ,area  ,xx3)

 150    CONTINUE

C

      ELSEIF(nty==6)THEN

C

      ELSEIF(nty==7.OR.nty==22)THEN

C

      ELSEIF(nty==8)THEN


C

      ENDIF


      RETURN


      END

my_real
#define my_real
Definition cppsort.cpp:32

area
subroutine area(d1, x, x2, y, y2, eint, stif0)
Definition hm_read_prop32.F:567

i3cor3
subroutine i3cor3(x, irect, msr, nsv, irtl, ix1, ix2, ix3, ix4, x1, x2, x3, x4, y1, y2, y3, y4, z1, z2, z3, z4, lft, llt, nft)
Definition i3cor3.F:36

i3cst3
subroutine i3cst3(x1, x2, x3, x4, xi, y1, y2, y3, y4, yi, z1, z2, z3, z4, zi, xface, n1, n2, n3, ssc, ttc, x0, y0, z0, xx1, xx2, xx3, xx4, yy1, yy2, yy3, yy4, zz1, zz2, zz3, zz4, xi1, xi2, xi3, xi4, yi1, yi2, yi3, yi4, zi1, zi2, zi3, zi4, xn1, xn2, xn3, xn4, yn1, yn2, yn3, yn4, zn1, zn2, zn3, zn4, area, lft, llt)
Definition i3cst3.F:50

i3dis3
subroutine i3dis3(igimp, nty, dist, x1, x2, x3, x4, xi, y1, y2, y3, y4, yi, z1, z2, z3, z4, zi, xface, n1, n2, n3, ssc, ttc, alp, ans, xp, yp, zp, h1, h2, h3, h4, lft, llt)
Definition i3dis3.F:42

i3for3
subroutine i3for3(output, lft, llt, nft, e, msr, nsv, irtl, stf, stfn, ibc, icodt, imast, fsav, igimp, fskyi, isky, fcont, h3d_data, n1, n2, n3, ix1, ix2, ix3, ix4, ans, thk, h1, h2, h3, h4, xface, stif, fni, fxi, fyi, fzi, fx1, fx2, fx3, fx4, fy1, fy2, fy3, fy4, fz1, fz2, fz3, fz4)
Definition i3for3.F:44

i3fri3
subroutine i3fri3(output, lft, llt, nft, x, e, irect, msr, nsv, irtl, nty, cst, irtlo, fric0, fric, imast, fsav, fskyi, isky, fcont, h3d_data, n1, n2, n3, ix1, ix2, ix3, ix4, h1, h2, h3, h4, ssc, ttc, xface, stif, xp, yp, zp, fni)
Definition i3fri3.F:40

i5fri3
subroutine i5fri3(output, lft, llt, nft, ipari, x, e, irect, msr, nsv, irtl, nty, cst, irtlo, fric0, fric, imast, fsav, fskyi, isky, fcont, v, cf, frot_p, freq, ftsav, ftcont, h3d_data, n1, n2, n3, ix1, ix2, ix3, ix4, xp, yp, zp, ssc, ttc, xface, stif, h1, h2, h3, h4, area, fni)
Definition i3fri3.F:428

i3gap3
subroutine i3gap3(gap, area, thk, alp, lft, llt)
Definition i3gap3.F:35

i3loc3
subroutine i3loc3(x, irect, lmsr, msr, nsv, iloc, nseg, xi, yi, zi, xface, lft, llt, nft)
Definition i3loc3.F:35

i3msr3
subroutine i3msr3(x, irect, lmsr, msr, nsv, iloc, irtl, nseg, xface, lft, llt, nft)
Definition i3msr3.F:36

i5for3
subroutine i5for3(output, lft, llt, nft, e, msr, nsv, irtl, stf, stfn, ibc, icodt, fsav, igimp, fskyi, isky, fcont, fncont, icontact, ibag, iadm, h3d_data, ix1, ix2, ix3, ix4, n1, n2, n3, xface, h1, h2, h3, h4, thk, ans, stif, fni)
Definition i5for3.F:42

i5impk3
subroutine i5impk3(irect, msr, nsv, irtl, num_imp, ns_imp, ne_imp, ans, lft, llt, nft)
Definition i5impk3.F:32

intvo3
subroutine intvo3(output, ipari, x, a, icodt, fsav, mwa, v, ms, fskyi, isky, fcont, fncont, ftcont, icontact, rcontact, num_imp, ns_imp, ne_imp, stifn, itab, intbuf_tab, h3d_data)
Definition intvo3.F:49

h3d_mod
Definition h3d_mod.F:311