5 * Revision 1.1.1.1 1995/10/24 10:20:15 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.19 by S.Giani
12 SUBROUTINE GPMATX (NUMB)
14 C. ******************************************************************
16 C. * Routine to print material data structures JMATE *
17 C. * NUMB Material number *
19 C. * Changed by S.Egli at 8.5.90: also show mixture contents *
21 C. * ==>Called by : <USER>, GPRINT *
22 C. * Author R.Brun S.Giani ***** *
24 C. ******************************************************************
26 #include "geant321/gcbank.inc"
27 #include "geant321/gcunit.inc"
28 #include "geant321/gcnum.inc"
31 CHARACTER*32 CHLINE,CHSTRI(50)
33 C. ------------------------------------------------------------------
35 IF (JMATE.LE.0) GO TO 999
46 * WRITE (CHMAIL,10100)
52 IF (JMA.LE.0) GO TO 20
56 * IF(NMIXT.GT.1) CHMIXT=' A Z W'
57 * WRITE (CHMAIL,10200) I,(Q(JMA + J),J = 1,10),NMIXT,CHMIXT
60 CHLINE='Material Number='
62 CALL IZITOC(I,CHLINE(ILEN:))
64 CALL UHTOC(IQ(JMA+1),4,NAME,20)
71 CALL IZRTOC(Q(JMA+6),CHLINE(ILEN:))
75 CALL IZRTOC(Q(JMA+7),CHLINE(ILEN:))
79 CALL IZRTOC(Q(JMA+8),CHLINE(ILEN:))
83 * CALL IZRTOC(Q(JMA+9),CHLINE(ILEN:))
84 WRITE(CHLINE(ILEN:),10300)Q(JMA+9)
88 * CALL IZRTOC(Q(JMA+10),CHLINE(ILEN:))
89 WRITE(CHLINE(ILEN:),10300)Q(JMA+10)
93 CALL IZRTOC(Q(JMA+11),CHLINE(ILEN:))
101 ILEN=LENOCC(CHLINE)+1
102 CALL IZITOC(JJ,CHLINE(ILEN:))
103 ILEN=LENOCC(CHLINE)+1
105 ILEN=LENOCC(CHLINE)+1
106 CALL IZRTOC(Q(JMX+JJ),CHLINE(ILEN:))
110 ILEN=LENOCC(CHLINE)+1
111 CALL IZITOC(JJ,CHLINE(ILEN:))
112 ILEN=LENOCC(CHLINE)+1
114 ILEN=LENOCC(CHLINE)+1
115 CALL IZRTOC(Q(JMX+NMIXT+JJ),CHLINE(ILEN:))
119 ILEN=LENOCC(CHLINE)+1
120 CALL IZITOC(JJ,CHLINE(ILEN:))
121 ILEN=LENOCC(CHLINE)+1
123 ILEN=LENOCC(CHLINE)+1
124 CALL IZRTOC(Q(JMX+2*NMIXT+JJ),CHLINE(ILEN:))
129 * WRITE(CHMAIL,10300)Q(JMX+J),Q(JMX+NMIXT+J),
134 CALL IGMESS(JJJ,CHSTRI,'PRINT','P')
137 10000 FORMAT ('0',51('='),5X,'MATERIALS',6X,50('='))
138 10100 FORMAT ('0','MATERIAL',27X,'A',9X,'Z',5X,'DENSITY'
139 +,2X,'RADIAT L',2X,'ABSORP L',' NMIXT')
140 10200 FORMAT (' ',I8,1X,5A4,3F10.3,2E10.3,I4,2X,A17)
142 10400 FORMAT (' ',85X,2F7.2,F7.3)