MINICERN/mathlib/gen/x/vomas.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/04/01 15:02:58  mclareni
   6 * Mathlib gen
   7 *
   8 *
   9 #include "gen/pilot.h"
  10       INTEGER FUNCTION VOMAS(IP)
  11       DIMENSION VMASS(21)
  12       EQUIVALENCE (IPC,APC)
  13       EQUIVALENCE(MPC,BPC)
  14 C--                        ,  NOUGHT  ,   GAMMA  ,    NU    , ELECTRON ,
  15 C--  ,    MU    ,   PI0    ,   PI+-   ,   K+-    ,    K0    ,  PROTON  ,
  16 C--  , NEUTRON  ,  LAMBDA  ,  SIGMA+  ,  SIGMA0  ,  SIGMA-  ,   XI0    ,
  17 C--  ,   XI-    , DEUTERON ,  TRITON  ,   HE3++  ,   HE4++  ,          =
  18       DATA  VMASS/          0.        ,.1E-10    ,.1E-9     ,.000511006,
  19      +  .105659 ,.13501    ,.13960    ,.4938     ,.4980     ,.938256   ,
  20      +  .939550 ,1.11540   ,1.18941   ,1.1923    ,1.19708   ,1.3143    ,
  21      +  1.3208  ,1.87549   ,2.80879   ,2.80824   ,3.72718/
  22       IPC=IP
  23       IF (IPC.LE.0) GO TO 15
  24       IF (IPC.GT.4096) GO TO 15
  25       IPC=MOD(IPC,64)
  26       IF (IPC.EQ.0) GO TO 15
  27       IF (IPC.GT.49) GO TO 15
  28       IF (IPC.LE.21) GO TO 20
  29       IF (IPC.GE.42) GO TO 20
  30 C--                 RETURN UNCHANGED IF NOT AN INTEGER IN RANGE
  31    15 VOMAS=IP
  32       RETURN
  33    20 MPC=MOD(IPC,32)
  34       APC=32-IPC
  35       APC=SIGN(VMASS(MPC),APC)
  36       VOMAS=IPC
  37       RETURN
  38 #if (defined(CERNLIB_CDC))&&(defined(CERNLIB_F4))
  39          ENTRY IOFMAS
  40 #endif
  41 #if !defined(CERNLIB_CDC)||!defined(CERNLIB_F4)
  42          ENTRY IOFMAS(IP)
  43 #endif
  44 C        ENTRY IOFMAS  (IP)
  45       IPC=IP
  46       MPC=IUCOMP(ABS(APC),VMASS,21)
  47       IF(APC.LT.0.)        MPC=MPC+32
  48       VOMAS=MPC
  49       RETURN
  50       END