removed Koen's loading subroutine from abaqus interface
This commit is contained in:
parent
0a34da292e
commit
2c1a610b14
|
@ -214,62 +214,4 @@ subroutine UMAT(STRESS,STATEV,DDSDDE,SSE,SPD,SCD,&
|
||||||
integer(pInt) mpie_error
|
integer(pInt) mpie_error
|
||||||
|
|
||||||
call xit
|
call xit
|
||||||
end subroutine
|
end subroutine
|
||||||
|
|
||||||
!############################################################################
|
|
||||||
!
|
|
||||||
|
|
||||||
! include "KJ_Disp.f"
|
|
||||||
subroutine disp(u,kstep,kinc,time,node,noel,jdof,coords)
|
|
||||||
|
|
||||||
! hardwired aba_param.inc
|
|
||||||
implicit real*8(a-h,o-z)
|
|
||||||
parameter (nprecd=2)
|
|
||||||
!
|
|
||||||
dimension u(3),time(2), coords(3)
|
|
||||||
|
|
||||||
real ktime,ktcl,ktmax,ktmin,ktdeltaup,ktdeltadown
|
|
||||||
real klmin,klmax,kldelta,klbegincycle
|
|
||||||
real kdeltau, kru, kret
|
|
||||||
! When using stdb_abqerr for debugging
|
|
||||||
! dimension intv(2),realv(4)
|
|
||||||
! character*8 charv(1)
|
|
||||||
|
|
||||||
! ratchet displacement per cycle
|
|
||||||
kru = 0.1
|
|
||||||
! ratcheting ends at time kret
|
|
||||||
kret = 400.
|
|
||||||
! displacement amplitude
|
|
||||||
kdeltau = 0.5
|
|
||||||
! time cycle length:
|
|
||||||
ktcl = 4.
|
|
||||||
ktmax = ktcl/4
|
|
||||||
ktmin = 3.*ktmax
|
|
||||||
ktdeltadown = ktmin - ktmax
|
|
||||||
ktdeltaup = ktcl - ktdeltadown
|
|
||||||
! load minimum & maximum:
|
|
||||||
klmin = -kdeltau
|
|
||||||
klmax = kdeltau
|
|
||||||
kldelta = klmax - klmin
|
|
||||||
klbegincycle = klmin + kldelta * (ktcl-ktmin) / ktdeltaup
|
|
||||||
! load as a function of (total time); trianglar loading cycle
|
|
||||||
ktime = time(2)
|
|
||||||
kru = kru * MIN(kret, ktime) / ktcl
|
|
||||||
if ( ktime .lt. ktmax ) then
|
|
||||||
! special case for path to first maximum
|
|
||||||
u(1) = kru + (ktime/ktmax) * klmax
|
|
||||||
else
|
|
||||||
do while ( ktime .ge. ktcl )
|
|
||||||
ktime = ktime - ktcl
|
|
||||||
end do
|
|
||||||
if ( ktime .le. ktmax ) then
|
|
||||||
u(1) = kru + klbegincycle + ktime * (klmax-klbegincycle) / ktmax
|
|
||||||
else if ( ktime .lt. ktmin ) then
|
|
||||||
u(1) = kru + klmax - (ktime-ktmax) * kldelta / (ktmin-ktmax)
|
|
||||||
else
|
|
||||||
u(1) = kru + klmin + (ktime-ktmin) * (klbegincycle-klmin)/(ktcl-ktmin)
|
|
||||||
end if
|
|
||||||
endif
|
|
||||||
return
|
|
||||||
end
|
|
||||||
!
|
|
Loading…
Reference in New Issue