SUBROUTINE DLOAD(P,KSTEP,KINC,TIME,NOEL,NPT,LAYER,KSPT,COORDS,
     1                 JLTYP,SNAME)
C
      INCLUDE 'ABA_PARAM.INC'
C
      DIMENSION TIME(2),COORDS(3)
      CHARACTER*80 SNAME
      PARAMETER (PLOAD=100.E4)
C
      IF (KSTEP.EQ.1) THEN
         P=PLOAD
      ELSE IF (KSTEP.EQ.2) THEN
         P=COORDS(1)*PLOAD
      ELSE IF (KSTEP.EQ.3) THEN
         P=COORDS(1)**2*PLOAD
      ELSE IF (KSTEP.EQ.4) THEN
         P=COORDS(1)**3*PLOAD
      ELSE IF (KSTEP.EQ.5) THEN
         P=COORDS(1)**4*PLOAD
      END IF
      RETURN
      END