From 2c1a610b1413dfd9c3636b6d89d9e18d4c4b326e Mon Sep 17 00:00:00 2001
From: Franz	Roters <f.roters@mpie.de>
Date: Tue, 13 Oct 2009 06:55:15 +0000
Subject: [PATCH] removed Koen's loading subroutine from abaqus interface

---
 code/mpie_cpfem_abaqus.f | 60 +---------------------------------------
 1 file changed, 1 insertion(+), 59 deletions(-)

diff --git a/code/mpie_cpfem_abaqus.f b/code/mpie_cpfem_abaqus.f
index 4238b9a1b..5deef1163 100644
--- a/code/mpie_cpfem_abaqus.f
+++ b/code/mpie_cpfem_abaqus.f
@@ -214,62 +214,4 @@ subroutine UMAT(STRESS,STATEV,DDSDDE,SSE,SPD,SCD,&
  integer(pInt) mpie_error
 
  call xit
- 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
-!
+ end subroutine
\ No newline at end of file