DPMJET/flukapro/(EMGTRN)

   1 *$ CREATE EMGTRN.ADD
   2 *COPY EMGTRN
   3 *
   4 *=== emgtrn ==========================================================*
   5 *
   6 *---------------------------------------------------------------------*
   7 *                                                                     *
   8 *     Module Emgtrn:                                                  *
   9 *                                                                     *
  10 *          Last change A. Ferrari 02-nov-1993                         *
  11 *          Created on 26-05-1991   by A. Ferrari, Infn-Milan          *
  12 *                                                                     *
  13 *          Included in:                                               *
  14 *                               BDNOPT                                *
  15 *                               ELECTR                                *
  16 *                               KASKAD                                *
  17 *                               MAGNEW                                *
  18 *                               MAGEAS                                *
  19 *                               MAGMOV                                *
  20 *                               MULEMF                                *
  21 *                               MULHAD                                *
  22 *                                                                     *
  23 *---------------------------------------------------------------------*
  24 *
  25       LOGICAL LMCSMG
  26       COMMON / EMGTRN / UMCSMG, VMCSMG, WMCSMG, LMCSMG
  27