Geant4  10.02.p03
jshape.F File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine jshape (RSHAPE, SHAPE)
 

Function/Subroutine Documentation

◆ jshape()

subroutine jshape ( real  RSHAPE,
character*4  SHAPE 
)

Definition at line 33 of file jshape.F.

33  implicit none
34  real rshape
35  integer ishape
36  CHARACTER*4 shape
37 
38  ishape = rshape
39  IF (ishape.EQ.1) THEN
40  shape='BOX '
41  ELSEIF (ishape.EQ.2) THEN
42  shape='TRD1'
43  ELSEIF (ishape.EQ.3) THEN
44  shape='TRD2'
45  ELSEIF (ishape.EQ.4) THEN
46  shape='TRAP'
47  ELSEIF (ishape.EQ.5) THEN
48  shape='TUBE'
49  ELSEIF (ishape.EQ.6) THEN
50  shape='TUBS'
51  ELSEIF (ishape.EQ.7) THEN
52  shape='CONE'
53  ELSEIF (ishape.EQ.8) THEN
54  shape='CONS'
55  ELSEIF (ishape.EQ.9) THEN
56  shape='SPHE'
57  ELSEIF (ishape.EQ.10) THEN
58  shape='PARA'
59  ELSEIF (ishape.EQ.11) THEN
60  shape='PGON'
61  ELSEIF (ishape.EQ.12) THEN
62  shape='PCON'
63  ELSEIF (ishape.EQ.13) THEN
64  shape='ELTU'
65  ELSEIF (ishape.EQ.14) THEN
66  shape='HYPE'
67  ELSEIF (ishape.EQ.28) THEN
68  shape='GTRA'
69  ELSEIF (ishape.EQ.29) THEN
70  shape='CTUB'
71  ELSE
72  write(6,*)'(E) jshape: shape number ',ishape,' is unknown'
73  shape=' '
74  ENDIF
Here is the caller graph for this function: