Bugfix in AliPoints2Memory
[u/mrichter/AliRoot.git] / GEANT321 / geocad / gptset.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.1 1995/10/24 10:20:46 cernlib
6* Geant
7*
8*
9#include "geant321/pilot.h"
10*CMZ : 3.21/02 29/03/94 15.41.32 by S.Giani
11*-- Author :
12 SUBROUTINE GPTSET (IVOLNA, NUMB)
13C.
14C. ******************************************************************
15C. * *
16C. * Routine to print tracking media data structure JTMED *
17C. * NUMB medium number *
18C. * *
19C. * ==>Called by : GDEXCA PRINTS the media of the volumes *
20C. * exported to SET in the material file .mat. *
21C. * Author: Nils Hoimyr *
22C. * *
23C. ******************************************************************
24C.
25#include "geant321/gcbank.inc"
26#include "geant321/gcsetf.inc"
27*
28 CHARACTER CHVOLN*4, CHNATM*20, CHNAMA*20
29*
30 IF (JTMED.LE.0) RETURN
31 JTM = LQ(JTMED-NUMB)
32 IF (JTM.NE.0) THEN
33 CALL UHTOC(IVOLNA,4,CHVOLN,4)
34 CALL UHTOC(IQ(JTM+1),4,CHNATM,20)
35 IMAT = Q(JTM+6)
36 JMA = LQ(JMATE-IMAT)
37 CALL UHTOC(IQ(JMA+1),4,CHNAMA,20)
38 DENS = Q(JMA+8)
39 WRITE (NUNIT2,10000) CHVOLN,NUMB,CHNATM,IMAT,CHNAMA,DENS
40 ENDIF
41*
4210000 FORMAT(1X,A4,6X,I6,1X,A20,I4,1X,A20,E15.8)
43 END
44