SUBROUTINE MGDRAW ( ICODE, MREG )

       INCLUDE '(DBLPRC)'
       INCLUDE '(DIMPAR)'
       INCLUDE '(IOUNIT)'
       INCLUDE '(CASLIM)'
       INCLUDE '(COMPUT)'
       INCLUDE '(SOURCM)'
       INCLUDE '(FHEAVY)'
       INCLUDE '(FLKSTK)'
       INCLUDE '(GENSTK)'
       INCLUDE '(MGDDCM)'
       INCLUDE '(PAPROP)'
       INCLUDE '(QUEMGD)'
       INCLUDE '(SUMCOU)'
       INCLUDE '(TRACKR)'
*
       DIMENSION DTQUEN ( MXTRCK, MAXQMG )
*
       CHARACTER*20 FILNAM
       LOGICAL LFCOPE
       SAVE LFCOPE
       DATA LFCOPE / .FALSE. /
*
       RETURN
*
*======================================================================*
*                                                                      *
*     Boundary-(X)crossing DRAWing:                                    *
*                                                                      *
*     Icode = 1x: call from Kaskad                                     *
*             19: boundary crossing                                    *
*     Icode = 2x: call from Emfsco                                     *
*             29: boundary crossing                                    *
*     Icode = 3x: call from Kasneu                                     *
*             39: boundary crossing                                    *
*     Icode = 4x: call from Kashea                                     *
*             49: boundary crossing                                    *
*     Icode = 5x: call from Kasoph                                     *
*             59: boundary crossing                                    *
*                                                                      *
*======================================================================*
*                                                                      *
       ENTRY BXDRAW ( ICODE, MREG, NEWREG, XSCO, YSCO, ZSCO )
       IF(MREG.EQ.3.AND.NEWREG.EQ.2) THEN ! select boundary of interest
          IF(JTRACK.EQ.1) THEN ! select proton
               IF(ETRACK.GT.AM(JTRACK)) THEN ! proton has survived
*                   WRITE(41,*) ETRACK-AM(JTRACK), XSCO, YSCO, ZSCO,
*     &                        CXTRCK, CYRCK, CZTRCK, WTRACK
                    WRITE(41,*) XFLK, YFLK, ZFLK, !x, y, z
      &                         TXFLK, TYFLK, TZFLK, TKEFLK !coseni ed energia cinetica
               ENDIF
           ENDIF
       ENDIF

       RETURN
*
*======================================================================*
*                                                                      *
*     Event End DRAWing:                                               *
*                                                                      *
*======================================================================*
*                                                                      *
       ENTRY EEDRAW ( ICODE )
       RETURN
*
*======================================================================*
*                                                                      *
*     ENergy deposition DRAWing:                                       *
*                                                                      *
*======================================================================*
*                                                                      *
       ENTRY ENDRAW ( ICODE, MREG, RULL, XSCO, YSCO, ZSCO )
       RETURN
*
*======================================================================*
*                                                                      *
*     SOurce particle DRAWing:                                         *
*                                                                      *
*======================================================================*
*
       ENTRY SODRAW
       RETURN
*
*======================================================================*
*                                                                      *
*     USer dependent DRAWing:                                          *
*                                                                      *
*======================================================================*
*
       ENTRY USDRAW ( ICODE, MREG, XSCO, YSCO, ZSCO )
       RETURN
*
*
       END