DPMJET/flukapro/(EVAPAR)

   1 *$ CREATE EVAPAR.ADD
   2 *COPY EVAPAR
   3 *                                                                      *
   4 *=== evapar ===========================================================*
   5 *                                                                      *
   6 *----------------------------------------------------------------------*
   7 *                                                                      *
   8 *     Created on  05  july  1990   by    Alfredo Ferrari & Paola Sala  *
   9 *                                                   Infn - Milan       *
  10 *                                                                      *
  11 *     Last change on 21-jul-00     by    Alfredo Ferrari               *
  12 *                                                                      *
  13 *     Originally based on common EVA0 of Hetc, has been now deeply     *
  14 *     changed and progressively emptied                                *
  15 *                                                                      *
  16 *----------------------------------------------------------------------*
  17 *
  18       COMMON / EVAPAR / CAM2  (130), CAM3 (200), CAM4 (130), CAM5 (200),
  19      &                  TDSTR (4,7), RMASS (297), ALPH (297), BET (297),
  20      &                  APRIME(250), Y0EVAP, B0EVAP, IFISS , IB0EVP,
  21      &                  JSIPFL, IMSSFR
  22