umpc_user.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	umpc_user (x, u, f, a, jdof, n, force, iit, idiscon)

Function/Subroutine Documentation

umpc_user()

subroutine umpc_user	(	real*8, dimension(3,*)	x,
		real*8, dimension(3,*)	u,
		real*8	f,
		real*8, dimension(*)	a,
		integer, dimension(*)	jdof,
		integer	n,
		real*8	force,
		integer	iit,
		integer	idiscon
	)

!
!     updates the coefficients in a user mpc
!
!     INPUT:
!
!     x(3,n)             Carthesian coordinates of the nodes in the
!                        user mpc.
!     u(3,n)             Actual displacements of the nodes in the
!                        user mpc.     
!     jdof               Actual degrees of freedom of the mpc terms
!     n                  number of terms in the user mpc
!     force              Actual value of the mpc force
!     iit                iteration number
!
!     OUTPUT:
!
!     f                  Actual value of the mpc. If the mpc is
!                        exactly satisfied, this value is zero
!     a(n)               coefficients of the linearized mpc
!     jdof               Corrected degrees of freedom of the mpc terms
!     idiscon            0: no discontinuity
!                        1: discontinuity
!                        If a discontinuity arises the previous
!                        results are not extrapolated at the start of
!                        a new increment
!
      implicit none
!
      integer jdof(*),n,iit,idiscon
!
      real*8 x(3,*),u(3,*),f,a(*),force
!
!
      return