animig3d.F File Reference

#include "implicit_f.inc"
#include "mvsiz_p.inc"
#include "vect01_c.inc"
#include "com01_c.inc"
#include "com04_c.inc"
#include "param_c.inc"
#include "scr17_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	animig3d (elbuf_tab, iparg, x, d, v, a, wige, kxig3d, ixig3d, ig3dsolid, nanim3d_l, x_temp, d_temp, v_temp, a_temp, tabstresl, igeo, knot, itab, ipartig3d, ipart, cont, cont_temp, fint, fint_temp, fext, fext_temp, freac, freac_temp, knotlocpc, knotlocel)

Function/Subroutine Documentation

animig3d()

subroutine animig3d	(	type (elbuf_struct_), dimension(ngroup), target	elbuf_tab,
		integer, dimension(nparg,*)	iparg,
			x,
			d,
			v,
			a,
			wige,
		integer, dimension(nixig3d,*)	kxig3d,
		integer, dimension(*)	ixig3d,
		integer, dimension(8,27,*)	ig3dsolid,
		integer	nanim3d_l,
			x_temp,
			d_temp,
			v_temp,
			a_temp,
			tabstresl,
		integer, dimension(npropgi,*)	igeo,
			knot,
		integer, dimension(*)	itab,
		integer, dimension(*)	ipartig3d,
		integer, dimension(lipart1,*)	ipart,
			cont,
			cont_temp,
			fint,
			fint_temp,
			fext,
			fext_temp,
			freac,
			freac_temp,
			knotlocpc,
			knotlocel )

Definition at line 33 of file animig3d.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE elbufdef_mod  
      USE message_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      "vect01_c.inc"
#include      "com01_c.inc"
#include      "com04_c.inc"
#include      "param_c.inc"
#include      "scr17_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER KXIG3D(NIXIG3D,*),IXIG3D(*),IGEO(NPROPGI,*),
     .        NANIM3D_L, IPARG(NPARG,*), ITAB(*)  ! DISCUTER AVEC SEB DE COMMENT RENVOYER NANIM3D_L
      INTEGER IG3DSOLID(8,27,*),IPARTIG3D(*),IPART(LIPART1,*)
      TYPE (ELBUF_STRUCT_), TARGET, DIMENSION(NGROUP) :: ELBUF_TAB
      my_real
     .   x(3,*),d(3,*),v(3,*),a(3,*),wige(*),knot(*),
     .   x_temp(3,*),d_temp(3,*),v_temp(3,*),
     .   a_temp(3,*),tabstresl(6,*),cont(3,*),cont_temp(3,*),
     .   fint(3,*),fint_temp(3,*),fext(3,*),fext_temp(3,*),
     .   freac(6,*),freac_temp(3,*),knotlocpc(*),knotlocel(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER NISOELCUT, NG, NBG, NCTRL, ITEST, NEL_P, I, PX,PY,PZ
C----------------------------------------------------------
      nisoelcut = 0
      ng=1
      DO WHILE (ng<=ngroup)
       nel_p = 0
       itest = 0
       IF (iparg(5,ng)==101) THEN 
        nft=iparg(3,ng)
        IF (ng==ngroup) THEN
         nel_p = iparg(2,ng)
        ELSE
         i=nft+1
         nel_p=nel_p+1
         DO WHILE (i<numelig3d)
          IF (ipartig3d(i+1)==ipartig3d(i)) THEN
            nel_p=nel_p+1
            i=i+1
          ELSE
            EXIT
          END IF
         END DO
        ENDIF
        nbg  = (nel_p-1)/nvsiz + 1
        nctrl = iparg(75,ng)
        px = igeo(41,iparg(62,ng))
        py = igeo(42,iparg(62,ng))
        pz = igeo(43,iparg(62,ng))
        CALL projecig3d(elbuf_tab, iparg    , x     , d, v,a,
     .                  wige     , kxig3d   , ixig3d,
     .                  ig3dsolid, nanim3d_l, x_temp, d_temp, v_temp,a_temp,
     .                  tabstresl, igeo     , knot  ,
     .                  ng       , nbg      , nisoelcut,
     .                  nctrl    , nel_p    , itab  ,cont , cont_temp,
     .                  fint, fint_temp, fext, fext_temp, freac, freac_temp,
     .                  px, py, pz,knotlocpc,knotlocel)
        ng=ng+nbg
       ELSE
        ng=ng+1
       ENDIF
      ENDDO
C-----------
      RETURN