GEANT321/fluka/chanwt.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:19:59  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 CHANWT.FOR
  13 *COPY CHANWT
  14 *
  15 *=== CHANWT ===========================================================*
  16 *
  17       SUBROUTINE CHANWT
  18
  19 #include "geant321/dblprc.inc"
  20 #include "geant321/dimpar.inc"
  21 #include "geant321/iounit.inc"
  22 #include "geant321/decayc.inc"
  23 #include "geant321/part.inc"
  24       COMMON/FKPRUN/ISYS
  25       DIMENSION HWT(IDMAX9)
  26 C  CHANGE OF WEIGHTS WT FROM ABSOLUT VALUES INTO THE SUM OF WT OF A DEC.
  27       DO 3  J=1,IDMAX9
  28     3 HWT(J)=0.D0
  29       DO 1  I=1,IDMAX8
  30       IK1=K1(I)
  31       IK2=K2(I)
  32       HV=0.D0
  33       DO 2 J=IK1,IK2
  34       HV=HV+WT(J)
  35       HWT(J)=HV
  36 *
  37 *  Modified by A.Ferrari to avoid false error messages
  38 *
  39 *     IF(HWT(J).GT.1.D0) WRITE(ISYS,101) HWT(J),J,I,IK1
  40       IF(HWT(J) - 1.D0 .GT. 1.D-14) WRITE(ISYS,101) HWT(J),J,I,IK1
  41     2 CONTINUE
  42   101 FORMAT(2X,15H ERROR IN HWT =,1F10.5,8H J,I,K1=,3I5)
  43     1 CONTINUE
  44       DO 4  J=1,IDMAX9
  45     4 WT(J)=HWT(J)
  46       RETURN
  47       END