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.

Functions/Subroutines

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 OpenAircraft.com, (Michigan UAV, LLC)