SUBROUTINE DLOAD(F,KSTEP,KINC,TIME,NOEL,NPT,LAYER,KSPT,COORDS,
     1                 JLTYP,SNAME)
C
C     SIMPLE PRESSURE LOAD
C
      INCLUDE 'ABA_PARAM.INC'
C
      DIMENSION COORDS(3),TIME(2)
      CHARACTER*80 SNAME
C
      DATA P_OBEN /5./
      DATA P_SEITE /30./
C
      IF(SNAME.EQ.'ASSEMBLY_SURF-OBEN') F=P_OBEN*TIME(1)
      IF(SNAME.EQ.'ASSEMBLY_SURF-SEITE') F=P_SEITE*TIME(1)
C
      IF(TIME(1).EQ.1 .AND. NPT.EQ.1) WRITE(6,*) ' LOAD APPLIED',F,'AT TIME=',TIME(1),' at element ',NOEL,' at ',SNAME
C      
      RETURN
      END