*
* $Id: hypero.F,v 1.1.1.1 1995/10/24 10:20:00 cernlib Exp $
*
* $Log: hypero.F,v $
* Revision 1.1.1.1  1995/10/24 10:20:00  cernlib
* Geant
*
*
#include "geant321/pilot.h"
*CMZ :  3.21/02 29/03/94  15.41.44  by  S.Giani
*-- Author :
*$ CREATE HYPERO.FOR
*COPY HYPERO
*
*=== hypero ===========================================================*
*
      SUBROUTINE HYPERO(IT,ITNUCR,SICO,PLABCO)
 
#include "geant321/dblprc.inc"
#include "geant321/dimpar.inc"
#include "geant321/iounit.inc"
      COMMON /FKABLT/ AM(330),ICH(110),IBAR(110),K(220)
*     DIMENSION SICOR(30)
      DIMENSION IHATRS(30),INUTRS(30)
      DATA IHATRS/16*30,25,24,30,16,15,25,8*30/
C
C--------------------------------------------------
C*** ATTENSION, IN CASE OF IT=SIG+=21 NO STRANGENES-CONS.,DIFFER.1UNIT
C--------------------------------------------------
      DATA INUTRS/16*30,8,2,30,8,1,8,8*30/
      ITNUCR=INUTRS(IT)
      ITHACR=IHATRS(IT)
      PLABCO=1.D0
      ITHATR=ITHACR
      IF (ITNUCR.GE.30) ITHATR=IT
      IF (ITNUCR.GE.30) ITNUCR=IT
      SICO=1.D0
      IF (ITHATR.LT.30) SICO=42.D0/39.D0
      IF (IT.EQ.21) SICO=42.D0/40.D0
      IF (ITHATR.LT.30) PLABCO=AM(IT)/(AM(ITNUCR)+1.D-10)
      IT=ITHATR
      RETURN
      END