DLOAD subroutine

------------------------------------------
Ruhr-University
Bochum
Germany

Hello,

here is how to define a distributed load on a beam element that varies with position (COORDS(1)) and time (zero at 20 sec and 30 sec with peak load at 25 sec.). Step two lasts from 20 sec to 25 sec and step three from 25 sec to 30 sec.

In the input-file the relevant command is
*DLOAD
BEAM,PYNU
in steps two and three.

Here is the Fortran-code for the subroutine:

      SUBROUTINE DLOAD(F,KSTEP,KINC,TIME,NOEL,NPT,LAYER,KSPT,COORDS,
     1                 JLTYP,SNAME)
      INCLUDE 'ABA_PARAM.INC'
      DIMENSION TIME(2), COORDS(3)
      CHARACTER*80 SNAME
C
      IF ((KSTEP.eq.2) .OR. (KSTEP.eq.3)) THEN
      F = -(2.5d+04)*(1.0d0-Abs((TIME(2)-25.0d0)/5.0d0))*               &
     &    COS(65.7237d0*(-0.0239d0+COORDS(1)))
      END IF
C
      RETURN
      END