extrapolate_u.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	extrapolate_u (yi, yn, ipkon, inum, kon, lakon, nfield, nk, ne, mi, ndim, orab, ielorien, co, iorienloc, cflag, vold, force, ielmat, thicke, ielprop, prop, i)

Function/Subroutine Documentation

extrapolate_u()

subroutine extrapolate_u	(	real*8, dimension(ndim,mi(1),*)	yi,
		real*8, dimension(nfield,*)	yn,
		integer, dimension(*)	ipkon,
		integer, dimension(*)	inum,
		integer, dimension(*)	kon,
		character*8, dimension(*)	lakon,
		integer	nfield,
		integer	nk,
		integer	ne,
		integer, dimension(*)	mi,
		integer	ndim,
		real*8, dimension(7,*)	orab,
		integer, dimension(mi(3),*)	ielorien,
		real*8, dimension(3,*)	co,
		integer	iorienloc,
		character*1	cflag,
		real*8, dimension(0:mi(2),*)	vold,
		logical	force,
		integer, dimension(mi(3),*)	ielmat,
		real*8, dimension(mi(3),*)	thicke,
		integer, dimension(*)	ielprop,
		real*8, dimension(*)	prop,
		integer	i
	)

!
!     extrapolates nfield values at the integration points to the 
!     nodes for user element i
!
      implicit none
!
      logical force
!
      character*1 cflag
      character*8 lakon(*)
!
      integer ipkon(*),inum(*),kon(*),mi(*),ne,nfield,nk,i,ndim,
     &  iorienloc,ielorien(mi(3),*),ielmat(mi(3),*),ielprop(*)
!
      real*8 yi(ndim,mi(1),*),yn(nfield,*),orab(7,*),co(3,*),prop(*),
     &  vold(0:mi(2),*),thicke(mi(3),*)
!
      if(lakon(i)(2:3).eq.'1 ') then
         call extrapolate_u1(yi,yn,ipkon,inum,kon,lakon,nfield,nk,
     &        ne,mi,ndim,orab,ielorien,co,iorienloc,cflag,
     &        vold,force,ielmat,thicke,ielprop,prop,i)
      endif
!
      return