GEANT321/neutron/lrnorm.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:21:57  cernlib
   6 * Geant
   7 *
   8 *
   9 #include "geant321/pilot.h"
  10 *CMZ :  3.21/02 29/03/94  15.41.48  by  S.Giani
  11 *-- Author :
  12       SUBROUTINE LRNORM(D,LD,IDICTS,LDICT,LR,EOLD,MT,IIN,XSLR)
  13 C       THIS ROUTINE IS DESIGNED TO ADJUST THE NEUTRON CROSS SECTION
  14 C       USED TO CALCULATE THE PHOTON MULTIPLICITY WHEN THE
  15 C       INELASTIC RESOLVED DATA CONTAINS LR-FLAGS DESIGNATING
  16 C       CHARGED PARTICLE EMISSION
  17 #include "geant321/minput.inc"
  18 #include "geant321/mconst.inc"
  19 #include "geant321/mcross.inc"
  20 #include "geant321/mmicab.inc"
  21       DIMENSION D(*),LD(*),IDICTS(NNR,NNUC),LDICT(NNR,NNUC),
  22      +LR(NQ,NNUC)
  23       SAVE
  24 C       INITIALIZE VARIABLES USED IN THE CALCULATION
  25       SUM=0.0
  26       SUM4=SIGNIS
  27 C       DETERMINE (N,N") CROSS SECTION AND LR-FLAG
  28       DO 10 I=14,54
  29          L1=LDICT(I,IIN)
  30          IF(L1.EQ.0)GO TO 10
  31          LS1=IDICTS(I,IIN)+LMOX2
  32          LEN=L1/2
  33          CALL XSECNU(D,LEN,EOLD,SIG,LS1,L1)
  34          LRI=LR(I,IIN)
  35          IF(LRI.EQ.MT)SUM=SUM+SIG
  36          IF(LRI.EQ.22)SUM4=SUM4-SIG
  37          IF(LRI.EQ.23)SUM4=SUM4-SIG
  38          IF(LRI.EQ.28)SUM4=SUM4-SIG
  39    10 CONTINUE
  40       XSLR=SUM
  41       IF(MT.EQ.4)XSLR=SUM4
  42       RETURN
  43       END