GEANT321/fluka/hypero.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:00  cernlib
   6 * Geant
   7 *
   8 *
   9 #include "geant321/pilot.h"
  10 *CMZ :  3.21/02 29/03/94  15.41.44  by  S.Giani
  11 *-- Author :
  12 *$ CREATE HYPERO.FOR
  13 *COPY HYPERO
  14 *
  15 *=== hypero ===========================================================*
  16 *
  17       SUBROUTINE HYPERO(IT,ITNUCR,SICO,PLABCO)
  18
  19 #include "geant321/dblprc.inc"
  20 #include "geant321/dimpar.inc"
  21 #include "geant321/iounit.inc"
  22       COMMON /FKABLT/ AM(330),ICH(110),IBAR(110),K(220)
  23 *     DIMENSION SICOR(30)
  24       DIMENSION IHATRS(30),INUTRS(30)
  25       DATA IHATRS/16*30,25,24,30,16,15,25,8*30/
  26 C
  27 C--------------------------------------------------
  28 C*** ATTENSION, IN CASE OF IT=SIG+=21 NO STRANGENES-CONS.,DIFFER.1UNIT
  29 C--------------------------------------------------
  30       DATA INUTRS/16*30,8,2,30,8,1,8,8*30/
  31       ITNUCR=INUTRS(IT)
  32       ITHACR=IHATRS(IT)
  33       PLABCO=1.D0
  34       ITHATR=ITHACR
  35       IF (ITNUCR.GE.30) ITHATR=IT
  36       IF (ITNUCR.GE.30) ITNUCR=IT
  37       SICO=1.D0
  38       IF (ITHATR.LT.30) SICO=42.D0/39.D0
  39       IF (IT.EQ.21) SICO=42.D0/40.D0
  40       IF (ITHATR.LT.30) PLABCO=AM(IT)/(AM(ITNUCR)+1.D-10)
  41       IT=ITHATR
  42       RETURN
  43       END