acctube_one.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	acctube_one (node1, node2, nodem, nelem, lakon, kon, ipkon, nactdog, identity, ielprop, prop, iflag, v, xflow, f, nodef, idirf, df, cp, r, physcon, dvi, numf, set, mi, ider, ttime, time, iaxial)

Function/Subroutine Documentation

acctube_one()

subroutine acctube_one	(	integer	node1,
		integer	node2,
		integer	nodem,
		integer	nelem,
		character*8, dimension(*)	lakon,
		integer, dimension(*)	kon,
		integer, dimension(*)	ipkon,
		integer, dimension(0:3,*)	nactdog,
		logical	identity,
		integer, dimension(*)	ielprop,
		real*8, dimension(*)	prop,
		integer	iflag,
		real*8, dimension(0:mi(2),*)	v,
		real*8	xflow,
		real*8	f,
		integer, dimension(5)	nodef,
		integer, dimension(5)	idirf,
		real*8, dimension(5)	df,
		real*8	cp,
		real*8	r,
		real*8, dimension(*)	physcon,
		real*8	dvi,
		integer	numf,
		character*81, dimension(*)	set,
		integer, dimension(*)	mi,
		integer	ider,
		real*8	ttime,
		real*8	time,
		integer	iaxial
	)

!
!     An element representing an ACC tube
!     The holes in the PDM are handled here
!     Written by Stefanie Asenbauer
!     For an explanation of some of the parameters see tee.f
!
      implicit none
!
      logical identity
      character*8 lakon(*)
      character*81 set(*)
!
      integer node1,node2,nodem,nelem,kon(*),ipkon(*),nactdog(0:3,*),
     &  ielprop(*),iflag,nodef(5),idirf(5),numf,mi(*),ider,iaxial
!
      real*8 prop(*),v(0:mi(2),*),xflow,f,df(5),cp,r,physcon(*),dvi,
     &   ttime,time
!
      return