GEANT321/neutron/nsigta.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:21:58  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 NSIGTA(E,JMED,TSIG,D,ISIGTS,LSIGT)
  13 C       THIS ROUTINE DETERMINES THE MACROSCOPIC TOTAL
  14 C       CROSS SECTION FOR MEDIA MED
  15 #include "geant321/mmicab.inc"
  16       DIMENSION D(*),ISIGTS(*),LSIGT(*)
  17       CALL GTMED(JMED,MED)
  18       TSIG=0.0
  19       L1=LSIGT(MED)
  20       LS1=ISIGTS(MED)+LMOX3
  21       LEN=L1/2
  22       CALL TBSPLT(D(LS1),E,LEN,TSIG)
  23       RETURN
  24       END