***
*     sucode.f
***

*+PATCH,SUCODE.
*CMZ :  1.00/00 04/09/90  14.29.30  by  Nick van Eijndhoven (CERN)
*+DECK,BLANK.
*CMZ :  1.00/00 04/09/90  14.29.30  by  Nick van Eijndhoven (CERN)
*-- Author :    Nick van Eijndhoven (CERN)   04/09/90
C ********************************************************************
C ***     Dummy versions of the user routines for test purposes    ***
C ********************************************************************
*+DECK,SUINIT
*CMZ :  1.00/00 06/09/90  16.52.00  by  Nick van Eijndhoven (CERN)
*-- Author :    Nick van Eijndhoven (CERN)   04/09/90
      SUBROUTINE SUINIT
C
C *** INITIALISATION AT THE BEGINNING OF A RUN ***
C *** THIS IS A DUMMY ROUTINE ***
C *** NVE 04-SEP-1990 CERN GENEVA ***
C
C CALLED BY : SXINIT
C ORIGIN    : NICK VAN EIJNDHOVEN
C
      RETURN
      END

*+DECK,SUMATE
*CMZ :  2.05/14 20/05/95  08.55.08  by  Hal Kalechofsky
*CMZ :  1.00/00 04/09/90  14.29.30  by  Nick van Eijndhoven (CERN)
*-- Author :    Nick van Eijndhoven (CERN)   04/09/90
      SUBROUTINE SUMATE
C
C *** DEFINITION OF VARIOUS MATERIALS ***
C *** THIS IS A DUMMY ROUTINE ***
C *** NVE 04-SEP-1990 CERN GENEVA ***
C
C CALLED BY : SXMATE
C ORIGIN    : NICK VAN EIJNDHOVEN
C
      RETURN
      END

*+DECK,SUTMED
*CMZ :  1.00/00 04/09/90  14.29.30  by  Nick van Eijndhoven (CERN)
*-- Author :    Nick van Eijndhoven (CERN)   04/09/90
      SUBROUTINE SUTMED
C
C *** DEFINITION OF TRACKING PARAMETERS IN VARIOUS MEDIA ***
C *** THIS IS A DUMMY ROUTINE ***
C *** NVE 04-SEP-1990 CERN GENEVA ***
C
C CALLED BY : SXTMED
C ORIGIN    : NICK VAN EIJNDHOVEN
C
      RETURN
      END

*+DECK,SUGEOM
*CMZ :  1.00/00 04/09/90  14.29.30  by  Nick van Eijndhoven (CERN)
*-- Author :    Nick van Eijndhoven (CERN)   04/09/90
      SUBROUTINE SUGEOM
C
C *** DEFINITION OF GEOMETRY ***
C *** THIS IS A DUMMY ROUTINE ***
C *** NVE 04-SEP-1990 CERN GENEVA ***
C
C CALLED BY : SXGEOM
C ORIGIN    : NICK VAN EIJNDHOVEN
C
      RETURN
      END

*+DECK,SUSENS
*CMZ :  1.00/00 04/09/90  14.29.30  by  Nick van Eijndhoven (CERN)
*-- Author :    Nick van Eijndhoven (CERN)   04/09/90
      SUBROUTINE SUSENS
C
C *** DEFINITION OF SENSITIVE DETECTOR ELEMENTS ***
C *** THIS IS A DUMMY ROUTINE ***
C *** NVE 04-SEP-1990 CERN GENEVA ***
C
C CALLED BY : SXSENS
C ORIGIN    : NICK VAN EIJNDHOVEN
C
      RETURN
      END

*+DECK,SUDRAW.
*CMZ :  1.00/00 20/09/90  12.04.10  by  Nick van Eijndhoven (CERN)
*-- Author :    Nick van Eijndhoven (CERN)   04/09/90
      SUBROUTINE SUDRAW
C
C *** DRAWING OF DETECTOR LAYOUT ***
C *** THIS IS A DUMMY ROUTINE ***
C *** NVE 04-SEP-1990 CERN GENEVA ***
C
C CALLED BY : SXDRAW
C ORIGIN    : NICK VAN EIJNDHOVEN
C
      RETURN
      END