h3d_solid_tensor.F File Reference

#include "implicit_f.inc"
#include "com01_c.inc"
#include "param_c.inc"
#include "scr17_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	h3d_solid_tensor (elbuf_tab, solid_tensor, iparg, itens, ixs, pm, el2fa, nbf, tens, epsdot, nbpart, x, iadg, ipart, ipartsp, iparts, isph3d, ipm, igeo, id_elem, ity_elem, is_written_solid, layer_input, ir_input, is_input, it_input, h3d_part, info1, keyword, d, solid_tensor_corner, is_corner_data, ixs10, maxnnod, id)

Function/Subroutine Documentation

h3d_solid_tensor()

subroutine h3d_solid_tensor	(	type (elbuf_struct_), dimension(ngroup), target	elbuf_tab,
			solid_tensor,
		integer, dimension(nparg,*)	iparg,
		integer	itens,
		integer, dimension(nixs,*)	ixs,
			pm,
		integer, dimension(*)	el2fa,
		integer	nbf,
			tens,
			epsdot,
		integer	nbpart,
			x,
		integer, dimension(nspmd,*)	iadg,
		integer, dimension(lipart1,*)	ipart,
		integer, dimension(*)	ipartsp,
		integer, dimension(*)	iparts,
		integer	isph3d,
		integer, dimension(npropmi,*)	ipm,
		integer, dimension(npropgi,*)	igeo,
		integer, dimension(*)	id_elem,
		integer, dimension(*)	ity_elem,
		integer, dimension(*)	is_written_solid,
		integer	layer_input,
		integer	ir_input,
		integer	is_input,
		integer	it_input,
		integer, dimension(*)	h3d_part,
		integer	info1,
		character(len=ncharline100)	keyword,
			d,
			solid_tensor_corner,
		integer	is_corner_data,
		integer, dimension(6,*)	ixs10,
		integer	maxnnod,
		integer	id )

Definition at line 37 of file h3d_solid_tensor.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE initbuf_mod
      USE elbufdef_mod    
      USE schlieren_mod 
      USE stack_mod
      USE names_and_titles_mod, ONLY: ncharline100
      use element_mod , only : nixs
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      "com01_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-----------------------------------------------
C     REAL
      my_real
     .   solid_tensor(6,*), tens(6,*),epsdot(6,*),pm(npropm,*),x(3,*),d(3,*),
     .   solid_tensor_corner(6,*)
      INTEGER IPARG(NPARG,*),ITENS, MAXNNOD,
     .   IXS(NIXS,*),EL2FA(*),IADG(NSPMD,*),IPM(NPROPMI,*),IXS10(6,*),
     .   NBF,NBPART,IPART(LIPART1,*),IPARTSP(*),IPARTS(*),
     .   ISPH3D,IGEO(NPROPGI,*),IS_WRITTEN_SOLID(*),ID_ELEM(*),ITY_ELEM(*),
     .   H3D_PART(*),INFO1,LAYER_INPUT,IR_INPUT,IS_INPUT,IT_INPUT,IS_CORNER_DATA,ID
      TYPE (ELBUF_STRUCT_), DIMENSION(NGROUP), TARGET :: ELBUF_TAB
      CHARACTER(LEN=NCHARLINE100) :: KEYWORD
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C----------------------------------------------- 
      INTEGER NG
C-----------------------------------------------
       DO ng=1,ngroup
 
         CALL h3d_solid_tensor_1(
     .                  elbuf_tab,solid_tensor, iparg   ,itens   ,ixs     ,pm       ,
     .                   el2fa    ,nbf     ,tens    ,epsdot  ,
     .                   nbpart   ,x       ,iadg    ,ipart   ,
     .                   ipartsp  ,iparts  ,isph3d  ,ipm     ,igeo    ,id_elem   ,ity_elem  ,
     .                   is_written_solid  ,layer_input ,ir_input  ,is_input  ,it_input,
     .                   h3d_part,info1   ,keyword  ,ng ,d   ,solid_tensor_corner,
     .                   is_corner_data   ,ixs10    ,maxnnod ,id    )
 
       ENDDO
C-----------
      RETURN