DPMJET/flukapro/(SFELIN)

   1 *$ CREATE SFELIN.ADD
   2 *COPY SFELIN
   3 *
   4 *=== Sfelin ===========================================================*
   5 *
   6 *----------------------------------------------------------------------*
   7 *                                                                      *
   8 *     Statement Functions for Common ELeINp for EMF                    *
   9 *                                                                      *
  10 *     Created on   19 april 1997   by    Alfredo Ferrari & Paola Sala  *
  11 *                                                   Infn - Milan       *
  12 *                                                                      *
  13 *     Last change on 19-apr-97     by    Alfredo Ferrari               *
  14 *                                                                      *
  15 *                                                                      *
  16 *----------------------------------------------------------------------*
  17 *
  18       ESIG0  (J,I) = GMSTOR ( IESIG0 (I) + J )
  19       ESIG1  (J,I) = GMSTOR ( IESIG1 (I) + J )
  20       PSIG0  (J,I) = GMSTOR ( IPSIG0 (I) + J )
  21       PSIG1  (J,I) = GMSTOR ( IPSIG1 (I) + J )
  22       EDEDX0 (J,I) = GMSTOR ( IEDDX0 (I) + J )
  23       EDEDX1 (J,I) = GMSTOR ( IEDDX1 (I) + J )
  24       PDEDX0 (J,I) = GMSTOR ( IPDDX0 (I) + J )
  25       PDEDX1 (J,I) = GMSTOR ( IPDDX1 (I) + J )
  26       EBR10  (J,I) = GMSTOR ( IEBR10 (I) + J )
  27       EBR11  (J,I) = GMSTOR ( IEBR11 (I) + J )
  28       PBR10  (J,I) = GMSTOR ( IPBR10 (I) + J )
  29       PBR11  (J,I) = GMSTOR ( IPBR11 (I) + J )
  30       PBR20  (J,I) = GMSTOR ( IPBR20 (I) + J )
  31       PBR21  (J,I) = GMSTOR ( IPBR21 (I) + J )
  32       TMXS0  (J,I) = GMSTOR ( ITXSE0 (I) + J )
  33       TMXS1  (J,I) = GMSTOR ( ITXSE1 (I) + J )
  34       TMXSP0 (J,I) = GMSTOR ( ITXSP0 (I) + J )
  35       TMXSP1 (J,I) = GMSTOR ( ITXSP1 (I) + J )
  36