需要用动力隐式算法计算结果的受力，荷载设置时受力区域如图红色部分所示。希望能够利用DLOAD子程序模拟两小块矩形均布荷载从结构左边沿着红色的荷载带均匀移动到右边，并且计算每一步移动时，结构的受力情况。我写的DLOAD程序如下所示：

 SUBROUTINE DLOAD (F,KSTEP,KINC,TIME,NOEL,NPT,LAYER,KSPT ,1 COORDS,JLTYP,SNAME)

      INCLUDE 'ABA_PARAM.INC'

      PARAMETER (ZINI = 4.778,VEL=5.56,DLEN=0.192,PRESSURE=0.7D6)

      DIMENSION TIME (2), COORDS (3)

      CHARACTER *80 SNAME

      DISTAN=VEL * TIME（2)

      ZC=ZINI-DISTAN

      ZMAX=ZC

      ZMIN=ZMAX-DLEN

      IF(COORDS (3).LT.ZMAX.AND.COORDS (3).GE.ZMIN) THEN 

            F = PRESSURE

      ELSE

            F = 0

      END IF

      RETURN

      END

使用了TIME（2）这个总时间参数，但我对这个参数也不是很清楚。TIME（2）的最终值是和我设置的分析步中的时间长度一致的嘛？如图中的0.1。想设置成匀速移动，是用TIME（2）这个参数吗？

还有就是增量步类型应该怎么设置？我如果想控制荷载移动的步数，例如从左边移动到右边共i20步，这个怎么控制呢？是在场输出和历史进程中进行控制吗？

希望有懂得老师能够帮助，谢谢！！