!DEC$ FREEFORM
!-----------------------------------------------------------------------------------
!-----------------------------------------------------------------------------------
! actual Element definition
!
! OPEN:- should firstly be extended to explicit type declaration (IMPLICIT NONE)
!      - possibly it is usefull to change the interface from assumed size declarations
!       (*) to assumed shape declarations (:) to reduce the interface a little bit
!       since variables like NRHS, NSVARS, NPROPS might not be necessary then anymore
!
! Geralf Hütter, 2013/09/04
!-----------------------------------------------------------------------------------
!-----------------------------------------------------------------------------------

SUBROUTINE UEL(RHS,AMATRX,SVARS,ENERGY,NDOFEL,NRHS,NSVARS, PROPS,NPROPS,COORDS,MCRD,NNODE,U,DU,V,A,JTYPE,TIME,DTIME, &
 KSTEP,KINC,JELEM,PARAMS,NDLOAD,JDLTYP,ADLMAG,PREDEF,NPREDF, LFLAGS,MLVARX,DDLMAG,MDLOAD,PNEWDT,JPROPS,NJPROP,PERIOD)
  USE ABQinterface
  USE MATH
!  IMPLICIT NONE
  INCLUDE 'ABA_PARAM.INC'

  DIMENSION RHS(MLVARX,*),AMATRX(NDOFEL,NDOFEL),PROPS(*), SVARS(*),ENERGY(8),COORDS(MCRD,NNODE),U(NDOFEL),&
   DU(MLVARX,*),V(NDOFEL),A(NDOFEL),TIME(2),PARAMS(*), JDLTYP(MDLOAD,*),ADLMAG(MDLOAD,*),DDLMAG(MDLOAD,*), &
   PREDEF(2,NPREDF,NNODE),LFLAGS(*),JPROPS(*)


!! Declaration of interface and variables

!! Loop over Gauß-point
!! Usage of ShapeFuncDispl, BMatrix and so on
!! Call of Material Routine
!   CALL UXMAT(Params)

END SUBROUTINE
