      SUBROUTINE DLOAD(F,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
C
C     SINE-WAVE DISTRIBUTED LOAD: FORCE = P*SIN(PI*X/L)
C
      F=1.0*SIN(3.14159265*COORDS(1)/10.0)
C
      RETURN
      END
