CalculiX  2.8
A Free Software Three-Dimensional Structural Finite Element Program
 All Classes Files Functions Variables Macros
multistages.f File Reference

Go to the source code of this file.


subroutine multistages (nkon, set, istartset, iendset, ialset, nset, tieset, tietol, co, nk, ipompc, nodempc, coefmpc, nmpc, nmpc_, ikmpc, ilmpc, mpcfree, xind, yind, ics, nx, ny, xind0, yind0, ncs_, cs, labmpc, ntie, mcs, rcscg, rcs0cg, zcscg, zcs0cg, nrcg, nzcg, jcs, kontri, straight, ne, ipkon, kon, lakon, lcs, ifacetet, inodface)
subroutine mprod (M, v_in, v_out, size)
subroutine invert3d (M, Minv, size)

Function/Subroutine Documentation

subroutine invert3d ( real*8, dimension(3,3)  M,
real*8, dimension(3,3)  Minv,
integer  size 
subroutine mprod ( real*8, dimension(size,size)  M,
real*8, dimension(size)  v_in,
real*8, dimension(size)  v_out,
integer  size 
subroutine multistages ( integer  nkon,
character*81, dimension(*)  set,
integer, dimension(*)  istartset,
integer, dimension(*)  iendset,
integer, dimension(*)  ialset,
integer  nset,
character*81, dimension(3,*)  tieset,
real*8, dimension(3,*)  tietol,
real*8, dimension(3,* )  co,
integer  nk,
integer, dimension(*)  ipompc,
integer, dimension(3,*)  nodempc,
real*8, dimension(*)  coefmpc,
integer  nmpc,
integer  nmpc_,
integer, dimension(*)  ikmpc,
integer, dimension(*)  ilmpc,
integer  mpcfree,
real*8, dimension(*)  xind,
real*8, dimension(*)  yind,
integer, dimension(*)  ics,
integer, dimension(*)  nx,
integer, dimension(*)  ny,
real*8, dimension(*)  xind0,
real*8, dimension(*)  yind0,
integer  ncs_,
real*8, dimension(17,*)  cs,
character*20, dimension(*)  labmpc,
integer  ntie,
integer  mcs,
real*8, dimension(*)  rcscg,
real*8, dimension(*)  rcs0cg,
real*8, dimension(*)  zcscg,
real*8, dimension(*)  zcs0cg,
integer, dimension(*)  nrcg,
integer, dimension(*)  nzcg,
integer, dimension(*)  jcs,
integer, dimension(3,*)  kontri,
real*8, dimension(9,*)  straight,
integer  ne,
integer, dimension(*)  ipkon,
integer, dimension(*)  kon,
character*8, dimension(*)  lakon,
integer, dimension(*)  lcs,
integer, dimension(*)  ifacetet,
integer, dimension(*)  inodface 
Hosted by, (Michigan UAV, LLC)