      SUBROUTINE DLOAD(F,KSTEP,KINC,TIME,NOEL,NPT,LAYER,KSPT,COORDS,
     1                 JLTYP,SNAME)
C
C     EXPONENTIAL PRESSURE LOAD
C
      INCLUDE 'ABA_PARAM.INC'
C
      DIMENSION COORDS(3),TIME(2)
      CHARACTER*80 SNAME
      DATA TEN,ONE,CONST /10.,1.,-230.3/
      F=TEN*(ONE-(EXP(CONST*TIME(1))))
      IF(NPT.EQ.1) WRITE(6,*) ' LOAD APPLIED',F,'AT TIME=',TIME(1)
      RETURN
      END

