removed Koen's loading subroutine from abaqus interface

code/mpie_cpfem_abaqus.f

@@ -215,61 +215,3 @@ subroutine UMAT(STRESS,STATEV,DDSDDE,SSE,SPD,SCD,&
 
  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
-!