SUBROUTINE DLOAD(F,KSTEP,KINC,TIME,NOEL,NPT,LAYER,KSPT,
     1COORDS,JLTYP,SNAME)
C
C
      INCLUDE 'ABA_PARAM.INC'
C
C
      DIMENSION TIME(2), COORDS(3)
      CHARACTER*80 SNAME 
      F=2.7E7*time(1)
      RETURN
      END