i14cmp.F

Go to the documentation of this file.

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/.
!||====================================================================
!||    i14cmp          ../engine/source/interfaces/int14/i14cmp.F
!||--- called by ------------------------------------------------------
!||    intfop1         ../engine/source/interfaces/interf/intfop1.F
!||--- calls      -----------------------------------------------------
!||    i14can          ../engine/source/interfaces/int14/i14can.F
!||    i14dmp          ../engine/source/interfaces/int14/i14dmp.F
!||    i14ela          ../engine/source/interfaces/int14/i14ela.F
!||    i14frt          ../engine/source/interfaces/int14/i14frt.F
!||--- uses       -----------------------------------------------------
!||    groupdef_mod    ../common_source/modules/groupdef_mod.F
!||    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 i14cmp(OUTPUT,IPARI ,INTBUF_TAB ,IGRSURF ,BUFSF ,
     2            A ,X ,V ,WA ,FSAV ,
     3            IN ,STIFN ,FCONT , MS ,FSKYI , 
     4            ISKY ,NPC ,PLD   ,H3D_DATA)
C-----------------------------------------------
C   M o d u l e s
C----------------------------------------------- 
      USE output_mod, ONLY : output_
      USE intbufdef_mod
      USE h3d_mod
      USE groupdef_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      "com04_c.inc"
#include      "param_c.inc"
#include      "parit_c.inc"
C-----------------------------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER IPARI(NPARI),ISKY(*), NPC(*)
C     REAL
      my_real
     .   bufsf(*) ,
     .   a(3,*) ,x(3,*) ,v(3,*) ,fsav(nthvki) ,
     .   wa(*)  ,in(*) ,stifn(*),fcont(3,*),ms(*),
     .   fskyi(lsky,nfskyi),
     .   pld(*)
 
      TYPE(intbuf_struct_) INTBUF_TAB
      TYPE(OUTPUT_) :: OUTPUT
      TYPE(H3D_DATABASE) :: H3D_DATA
      TYPE (SURF_)   , DIMENSION(NSURF)   :: IGRSURF
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER N,K,IGI,IGS,IM,NSN,NSC,NSP
      INTEGER NLO,NFRIC,NDAMP1,NDAMP2
C-----------------------------------------------
C     REAL
      my_real
     .   stfac, gapmin, fric, visc, stf
C-----------------------------------------------
      nsn =ipari(5)
      gapmin=intbuf_tab%VARIABLES(2)
      CALL i14can(nsn,intbuf_tab%NSV,x,intbuf_tab%KSURF(1),igrsurf,
     2      bufsf,gapmin,nsc,wa(1),nsp,
     3      wa(numnod+1),intbuf_tab%IMPACT,intbuf_tab%CIMP,intbuf_tab%NIMP,
     4      wa(2*numnod+1))
C-----------------------------------------------
      stfac  =intbuf_tab%STFAC(1)
      nlo    =ipari(8)
      fric   =intbuf_tab%VARIABLES(1)
      nfric  =ipari(9)
      visc   =intbuf_tab%VARIABLES(14)
      ndamp1 =ipari(10)
      ndamp2 =ipari(11)
C-----------------------------------------------
      CALL i14ela(x  ,intbuf_tab%KSURF ,igrsurf  ,bufsf ,nsc    ,
     2      wa(1) ,nsp ,wa(numnod+1) ,intbuf_tab%NSV,intbuf_tab%IMPACT,
     3      intbuf_tab%CIMP ,intbuf_tab%NIMP   ,stfac ,nlo ,gapmin   ,
     4      npc ,pld   ,wa(2*numnod+1) ,stf  )
C-----------------------------------------------
      CALL i14dmp(x    ,v     ,intbuf_tab%KSURF   ,igrsurf  ,bufsf ,
     2      nsc ,wa(1) ,nsp   ,wa(numnod+1) ,intbuf_tab%NSV    ,
     3      intbuf_tab%IMPACT,intbuf_tab%CIMP,intbuf_tab%NIMP,visc,ndamp1,
     4      ndamp2     ,gapmin     ,npc        ,pld   ,ms     ,
     5      wa(2*numnod+1) ,wa(3*numnod+1) ,stf )
C-----------------------------------------------
C     Frottement calcule apres amortissement.
      CALL i14frt(output,a  ,x     ,v     ,intbuf_tab%KSURF ,igrsurf  ,
     2      bufsf ,nsc  ,wa(1) ,nsp   ,wa(numnod+1) ,
     3      intbuf_tab%NSV,intbuf_tab%IMPACT,intbuf_tab%CIMP,intbuf_tab%NIMP,
     4      fric   ,nfric ,npc    ,pld  ,gapmin ,stf  ,
     5      wa(2*numnod+1),wa(3*numnod+1),intbuf_tab%VARIABLES(9),ms,stifn ,
     6      fsav   ,fcont  ,fskyi ,isky  ,h3d_data)
C-----------------------------------------------
9999  CONTINUE
      RETURN
      END