| fe4da5cc |
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 |
git://git.uio.no / u / mrichter / AliRoot.git / blame