i14cmp.F File Reference

#include "implicit_f.inc"
#include "com04_c.inc"
#include "param_c.inc"
#include "parit_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	i14cmp (output, ipari, intbuf_tab, igrsurf, bufsf, a, x, v, wa, fsav, in, stifn, fcont, ms, fskyi, isky, npc, pld, h3d_data)

Function/Subroutine Documentation

i14cmp()

subroutine i14cmp	(	type(output_)	output,
		integer, dimension(npari)	ipari,
		type(intbuf_struct_)	intbuf_tab,
		type (surf_), dimension(nsurf)	igrsurf,
			bufsf,
			a,
			x,
			v,
			wa,
			fsav,
			in,
			stifn,
			fcont,
			ms,
			fskyi,
		integer, dimension(*)	isky,
		integer, dimension(*)	npc,
			pld,
		type(h3d_database)	h3d_data )

Definition at line 38 of file i14cmp.F.

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