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

Go to the source code of this file.


subroutine adjustcontactnodes (tieset, ntie, itietri, cg, straight, co, vold, xo, yo, zo, x, y, z, nx, ny, nz, istep, iinc, iit, mi, imastop, nslavnode, islavnode, set, nset, istartset, iendset, ialset, tietol, clearini, clearslavnode, itiefac, ipkon, kon, lakon, islavsurf)

Function/Subroutine Documentation

subroutine adjustcontactnodes ( character*81, dimension(3,*)  tieset,
integer  ntie,
integer, dimension(2,ntie)  itietri,
real*8, dimension(3,*)  cg,
real*8, dimension(16,*)  straight,
real*8, dimension(3,*)  co,
real*8, dimension(0:mi(2),*)  vold,
real*8, dimension(*)  xo,
real*8, dimension(*)  yo,
real*8, dimension(*)  zo,
real*8, dimension(*)  x,
real*8, dimension(*)  y,
real*8, dimension(*)  z,
integer, dimension(*)  nx,
integer, dimension(*)  ny,
integer, dimension(*)  nz,
integer  istep,
integer  iinc,
integer  iit,
integer, dimension(*)  mi,
integer, dimension(3,*)  imastop,
integer, dimension(*)  nslavnode,
integer, dimension(*)  islavnode,
character*81, dimension(*)  set,
integer  nset,
integer, dimension(*)  istartset,
integer, dimension(*)  iendset,
integer, dimension(*)  ialset,
real*8, dimension(3,*)  tietol,
real*8, dimension(3,9,*)  clearini,
real*8, dimension(3,*)  clearslavnode,
integer, dimension(2,*)  itiefac,
integer, dimension(*)  ipkon,
integer, dimension(*)  kon,
character*8, dimension(*)  lakon,
integer, dimension(2,*)  islavsurf 
Hosted by, (Michigan UAV, LLC)