subroutine get_geom(geom1,geom2,geom3,geom4,geom5,geom6)
c
c CONTACT: ap@marc.de
c      
c
c PURPOSE
c   This subroutine returns the geometry input data
c   for the current element in the loop.
c   It can be used in any element subroutine (i.e. a
c   user subroutine that is called in an element loop;
c   such routines are e.g. "elevar", "plotv", "hooklw",
c   etc., etc.). It gets the element number of the
c   current element in the loop through a common block.
c
c INPUT
c   none
c
c OUTPUT
c   geom1 = value of 1st geometry field of GEOMETRY input
c   geom2 = value of 2nd geometry field of GEOMETRY input
c   geom3 = value of 3rd geometry field of GEOMETRY input
c   geom4 = value of 4th geometry field of GEOMETRY input
c   geom5 = value of 5th geometry field of GEOMETRY input
c   geom6 = value of 6th geometry field of GEOMETRY input
c
c   all values are for the current element in the loop.
c
c NOTE
c   Please do not attempt to overwrite the values in the
c   MARC data structure (i.e. in the vars-fields)
c
      implicit real*8(a-h,o-z)
c
      include '../common/space'
      include '../common/heat'
      include '../common/arrays'
      include '../common/lass'
c
      lofr = (n-1)*nelstr
c
      igeomx = igeomr+lofr
c
      geom1 = vars(igeomx+0)
      geom2 = vars(igeomx+1)
      geom3 = vars(igeomx+2)
      geom4 = vars(igeomx+3)
      geom5 = vars(igeomx+4)
      geom6 = vars(igeomx+5)
c
      return
c
      end