1!
2!     CalculiX - A 3-dimensional finite element program
3!     Copyright (C) 1998-2021 Guido Dhondt
4!
5!     This program is free software; you can redistribute it and/or
6!     modify it under the terms of the GNU General Public License as
7!     published by the Free Software Foundation(version 2);
8!
9!
10!     This program is distributed in the hope that it will be useful,
11!     but WITHOUT ANY WARRANTY; without even the implied warranty of
12!     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13!     GNU General Public License for more details.
14!
15!     You should have received a copy of the GNU General Public License
16!     along with this program; if not, write to the Free Software
17!     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
18!
19      subroutine acctube_one(node1,node2,nodem,nelem,lakon,kon,ipkon,
20     &        nactdog,identity,ielprop,prop,iflag,v,xflow,f,
21     &        nodef,idirf,df,cp,r,physcon,dvi,numf,set,mi,ider,
22     &        ttime,time,iaxial,iplausi)
23!
24!     An element representing an ACC tube
25!     The holes in the PDM are handled here
26!     Written by Stefanie Asenbauer
27!     For an explanation of some of the parameters see tee.f
28!
29      implicit none
30!
31      logical identity
32      character*8 lakon(*)
33      character*81 set(*)
34!
35      integer node1,node2,nodem,nelem,kon(*),ipkon(*),nactdog(0:3,*),
36     &  ielprop(*),iflag,nodef(5),idirf(5),numf,mi(*),ider,iaxial,
37     &  iplausi
38!
39      real*8 prop(*),v(0:mi(2),*),xflow,f,df(5),cp,r,physcon(*),dvi,
40     &   ttime,time
41!
42!
43!
44      return
45      end
46
47
48
49
50
51
52
53
54