5 * Revision 1.1.1.1 1995/10/24 10:21:51 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.33 by S.Giani
12 SUBROUTINE GXSCAH(ID,NAME,CHOPT)
14 C. ******************************************************************
16 C. * Generates and plot an histogram of physics quantities such as *
17 C. * the total number of radiation lengths or interaction lengths *
18 C. * in function of the SCAN parameter TETA for a value of PHI. *
19 C. * CHOPT='O' histogram is generated at Exit of VOLUME. *
20 C. * CHOPT='I' histogram is generated at Entry of VOLUME. *
21 C. * CHOPT='X' radiation lengths *
22 C. * CHOPT='L' Interaction lengths *
23 C. * CHOPT='P' Plot the histogram *
24 C. * If VOLUME='XXXX' Mother volume is used. *
25 C. * The histogram identifier IDPHI is used to also identify which *
26 C. * PHI division to plot. IPHI=MOD(IDPHI,1000). *
27 C. * If IPHI=0, then all PHI divisions are generated (not plotted) *
28 C. * with histogram identifiers IDPHI+PHI division number. *
30 C. * Author: R.Brun ********** *
32 C. ******************************************************************
34 #include "geant321/gcbank.inc"
35 #include "geant321/gcscan.inc"
36 CHARACTER*(*) NAME,CHOPT
38 C. ------------------------------------------------------------------