GEANT321/block/fdevap.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:19:35  cernlib
   6 * Geant
   7 *
   8 *
   9 #include "geant321/pilot.h"
  10 *CMZ :  3.21/02 29/03/94  15.41.45  by  S.Giani
  11 *-- Author :
  12 *$ CREATE BDEVAP.FOR
  13 *COPY BDEVAP
  14 *
  15 *=== bdevap ===========================================================*
  16 *
  17       SUBROUTINE FDEVAP
  18
  19 #include "geant321/dblprc.inc"
  20 #include "geant321/dimpar.inc"
  21 #include "geant321/iounit.inc"
  22 *
  23 *----------------------------------------------------------------------*
  24 *                                                                      *
  25 *     Block Data for the EVAPoration routines:                         *
  26 *                                                                      *
  27 *     Created on    20 may 1990    by    Alfredo Ferrari & Paola Sala  *
  28 *                                                   Infn - Milan       *
  29 *                                                                      *
  30 *     Modified from the original version of J.M.Zazula                 *
  31 *     and, for cookcm, from a LAHET block data kindly provided by      *
  32 *     R.E.Prael-LANL                                                   *
  33 *                                                                      *
  34 *     Last change on  28-jan-93    by    Alfredo Ferrari               *
  35 *                                                                      *
  36 *                                                                      *
  37 *----------------------------------------------------------------------*
  38 *
  39 #include "geant321/eva0.inc"
  40 #include "geant321/hettp.inc"
  41 #include "geant321/hetc7.inc"
  42 #include "geant321/inpflg.inc"
  43 *
  44       DATA B01   / 8.D+00 /, Y01 / 1.5D+00 /
  45       DATA IANG1 / 1 /, IFISS1 / 0 /,  IB01 / 2 /, IGEOM1 / 0 /
  46       DATA ISTRA1 /0/, KEYDK1 /0/
  47       DATA NBERT1 /LUNBER/
  48       DATA COSTH1 /1.D+00/, SINTH1 /0.D+00/, COSPH1 /1.D+00/,
  49      &     SINPH1/0.D+00/
  50 *
  51       B0=B01
  52       Y0=Y01
  53       IANG=IANG1
  54       IFISS=IFISS1
  55       IB0=IB01
  56       IGEOM=IGEOM1
  57       ISTRAG=ISTRA1
  58       KEYDK=KEYDK1
  59       NBERTP=NBERT1
  60       COSTH=COSTH1
  61       SINTH=SINTH1
  62       COSPHI=COSPH1
  63       SINPHI=SINPH1
  64       END