resultsmech_u.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	resultsmech_u (co, kon, ipkon, lakon, ne, v, stx, elcon, nelcon, rhcon, nrhcon, alcon, nalcon, alzero, ielmat, ielorien, norien, orab, ntmat_, t0, t1, ithermal, prestr, iprestr, eme, iperturb, fn, iout, qa, vold, nmethod, veold, dtime, time, ttime, plicon, nplicon, plkcon, nplkcon, xstateini, xstiff, xstate, npmat_, matname, mi, ielas, icmd, ncmat_, nstate_, stiini, vini, ener, eei, enerini, istep, iinc, reltime, calcul_fn, calcul_qa, calcul_cauchy, nener, ikin, nal, ne0, thicke, emeini, nelem, ielprop, prop)

Function/Subroutine Documentation

resultsmech_u()

subroutine resultsmech_u	(	real*8, dimension(3,*), intent(in)	co,
		integer, dimension(*), intent(in)	kon,
		integer, dimension(*), intent(in)	ipkon,
		character*8, dimension(*), intent(in)	lakon,
		integer, intent(in)	ne,
		real*8, dimension(0:mi(2),*), intent(in)	v,
		real*8, dimension(6,mi(1),*), intent(inout)	stx,
		real*8, dimension(0:ncmat_,ntmat_,*), intent(in)	elcon,
		integer, dimension(2,*), intent(in)	nelcon,
		real*8, dimension(0:1,ntmat_,*), intent(in)	rhcon,
		integer, dimension(*), intent(in)	nrhcon,
		real*8, dimension(0:6,ntmat_,*), intent(in)	alcon,
		integer, dimension(2,*), intent(in)	nalcon,
		real*8, dimension(*), intent(in)	alzero,
		integer, dimension(mi(3),*), intent(in)	ielmat,
		integer, dimension(mi(3),*), intent(in)	ielorien,
		integer, intent(in)	norien,
		real*8, dimension(7,*), intent(in)	orab,
		integer, intent(in)	ntmat_,
		real*8, dimension(*), intent(in)	t0,
		real*8, dimension(*), intent(in)	t1,
		integer, dimension(2), intent(in)	ithermal,
		real*8, dimension(6,mi(1),*), intent(in)	prestr,
		integer, intent(in)	iprestr,
		real*8, dimension(6,mi(1),*), intent(inout)	eme,
		integer, dimension(*), intent(in)	iperturb,
		real*8, dimension(0:mi(2),*), intent(inout)	fn,
		integer, intent(in)	iout,
		real*8, dimension(*), intent(inout)	qa,
		real*8, dimension(0:mi(2),*), intent(in)	vold,
		integer, intent(in)	nmethod,
		real*8, dimension(0:mi(2),*), intent(in)	veold,
		real*8, intent(in)	dtime,
		real*8, intent(in)	time,
		real*8, intent(in)	ttime,
		real*8, dimension(0:2*npmat_,ntmat_,*), intent(in)	plicon,
		integer, dimension(0:ntmat_,*), intent(in)	nplicon,
		real*8, dimension(0:2*npmat_,ntmat_,*), intent(in)	plkcon,
		integer, dimension(0:ntmat_,*), intent(in)	nplkcon,
		real*8, dimension(nstate_,mi(1),*), intent(in)	xstateini,
		real*8, dimension(27,mi(1),*), intent(inout)	xstiff,
		real*8, dimension(nstate_,mi(1),*), intent(in)	xstate,
		integer, intent(in)	npmat_,
		character*80, dimension(*), intent(in)	matname,
		integer, dimension(*), intent(in)	mi,
		integer, intent(in)	ielas,
		integer, intent(in)	icmd,
		integer, intent(in)	ncmat_,
		integer, intent(in)	nstate_,
		real*8, dimension(6,mi(1),*), intent(in)	stiini,
		real*8, dimension(0:mi(2),*), intent(in)	vini,
		real*8, dimension(mi(1),*), intent(inout)	ener,
		real*8, dimension(6,mi(1),*), intent(inout)	eei,
		real*8, dimension(mi(1),*), intent(in)	enerini,
		integer, intent(in)	istep,
		integer, intent(in)	iinc,
		real*8, intent(in)	reltime,
		integer, intent(in)	calcul_fn,
		integer, intent(in)	calcul_qa,
		integer, intent(in)	calcul_cauchy,
		integer, intent(in)	nener,
		integer, intent(in)	ikin,
		integer, intent(inout)	nal,
		integer, intent(in)	ne0,
		real*8, dimension(mi(3),*), intent(in)	thicke,
		real*8, dimension(6,mi(1),*), intent(in)	emeini,
		integer, intent(in)	nelem,
		integer, dimension(*), intent(in)	ielprop,
		real*8, dimension(*), intent(in)	prop
	)

!
!     calculates nal,qa,fn,xstiff,ener,eme,eei,stx for user elements
!
      implicit none
!
      character*8 lakon(*)
      character*80 matname(*)
!
      integer kon(*),mi(*),
     &  nelcon(2,*),nrhcon(*),nalcon(2,*),ielmat(mi(3),*),
     &  ielorien(mi(3),*),ntmat_,ipkon(*),ne0,
     &  istep,iinc,ne,ithermal(2),iprestr,
     &  nener,norien,iperturb(*),iout,
     &  nal,icmd,nmethod,ielas,
     &  ncmat_,nstate_,ikin,ielprop(*),
     &  nplicon(0:ntmat_,*),nplkcon(0:ntmat_,*),npmat_,calcul_fn,
     &  calcul_cauchy,calcul_qa,nelem
!
      real*8 co(3,*),v(0:mi(2),*),stiini(6,mi(1),*),
     &  stx(6,mi(1),*),prop(*),
     &  elcon(0:ncmat_,ntmat_,*),rhcon(0:1,ntmat_,*),
     &  alcon(0:6,ntmat_,*),vini(0:mi(2),*),
     &  alzero(*),orab(7,*),fn(0:mi(2),*),
     &  t0(*),t1(*),prestr(6,mi(1),*),eme(6,mi(1),*),
     &  vold(0:mi(2),*),ener(mi(1),*),eei(6,mi(1),*),enerini(mi(1),*),
     &  veold(0:mi(2),*),qa(*),dtime,time,ttime,
     &  plicon(0:2*npmat_,ntmat_,*),plkcon(0:2*npmat_,ntmat_,*),
     &  xstiff(27,mi(1),*),xstate(nstate_,mi(1),*),
     &  xstateini(nstate_,mi(1),*),reltime,
     &  thicke(mi(3),*),emeini(6,mi(1),*)
!
      intent(in) co,kon,ipkon,lakon,ne,v,
     &  elcon,nelcon,rhcon,nrhcon,alcon,nalcon,alzero,
     &  ielmat,ielorien,norien,orab,ntmat_,t0,t1,ithermal,prestr,
     &  iprestr,iperturb,iout,vold,nmethod,
     &  veold,dtime,time,ttime,plicon,nplicon,plkcon,nplkcon,
     &  xstateini,xstate,npmat_,matname,mi,ielas,icmd,
     &  ncmat_,nstate_,stiini,vini,enerini,istep,iinc,
     &  reltime,calcul_fn,calcul_qa,calcul_cauchy,nener,
     &  ikin,ne0,thicke,emeini,nelem,ielprop,prop
!
      intent(inout) nal,qa,fn,xstiff,ener,eme,eei,stx
!
      if(lakon(nelem)(2:2).eq.'1') then
         call resultsmech_u1(co,kon,ipkon,lakon,ne,v,
     &        stx,elcon,nelcon,rhcon,nrhcon,alcon,nalcon,alzero,
     &        ielmat,ielorien,norien,orab,ntmat_,t0,t1,ithermal,prestr,
     &        iprestr,eme,iperturb,fn,iout,qa,vold,nmethod,
     &        veold,dtime,time,ttime,plicon,nplicon,plkcon,nplkcon,
     &        xstateini,xstiff,xstate,npmat_,matname,mi,ielas,icmd,
     &        ncmat_,nstate_,stiini,vini,ener,eei,enerini,istep,iinc,
     &        reltime,calcul_fn,calcul_qa,calcul_cauchy,nener,
     &        ikin,nal,ne0,thicke,emeini,nelem,ielprop,prop)
      else
         write(*,*) '*ERROR in resultsmech_u.f: user element'
         write(*,*) '       ',lakon(nelem)(1:5),' is not defined'
         call exit(201)
      endif
!
      return