      SUBROUTINE DLOAD(F,JSTEP,JINC,TIME,NOEL,NPT,KSLAY,KSPT,
     1                 COORDS,JLTYP,SNAME)
      INCLUDE 'ABA_PARAM.INC'
      DIMENSION COORDS(3),TIME(2)
      CHARACTER*80 SNAME
C  THIS ROUTINE DOES NOTHING BUT IMITATE A UNIFORM DLOAD TYPE
      RETURN
      END

