Import Geant4 0.0.0 source tree

2016-06-01 15:25:35 +02:00
parent 54d6b71f95
commit b97f8d0df7
3237 changed files with 807095 additions and 0 deletions
@@ -0,0 +1,57 @@
+*     This code implementation is the intellectual property of
+*     the RD44 GEANT4 collaboration.
+*    
+*     By copying, distributing or modifying the Program (or any work
+*     based on the Program) you indicate your acceptance of this statement,
+*     and all its terms.
+*    
+*     $Id: jshape.F,v 2.0 1998/07/02 16:17:32 gunter Exp $
+*     GEANT4 tag $Name: geant4-00 $
+*    
+*     
+*--   Author : Jouko Vuoskoski, CERN, Jouko.Vuoskoski@cern.ch
+*     
+      SUBROUTINE JSHAPE(RSHAPE,SHAPE)
+      implicit none
+      real rshape
+      integer ishape
+      CHARACTER*4      SHAPE
+
+      ishape = rshape
+      IF     (ISHAPE.EQ.1) THEN
+         SHAPE='BOX '
+      ELSEIF (ISHAPE.EQ.2) THEN
+         SHAPE='TRD1'
+      ELSEIF (ISHAPE.EQ.3) THEN
+         SHAPE='TRD2'
+      ELSEIF (ISHAPE.EQ.4) THEN
+         SHAPE='TRAP'
+      ELSEIF (ISHAPE.EQ.5) THEN
+         SHAPE='TUBE'
+      ELSEIF (ISHAPE.EQ.6) THEN
+         SHAPE='TUBS'
+      ELSEIF (ISHAPE.EQ.7) THEN
+         SHAPE='CONE'
+      ELSEIF (ISHAPE.EQ.8) THEN
+         SHAPE='CONS'
+      ELSEIF (ISHAPE.EQ.9) THEN
+         SHAPE='SPHE'
+      ELSEIF (ISHAPE.EQ.10) THEN
+         SHAPE='PARA'
+      ELSEIF (ISHAPE.EQ.11) THEN
+         SHAPE='PGON'
+      ELSEIF (ISHAPE.EQ.12) THEN
+         SHAPE='PCON'
+      ELSEIF (ISHAPE.EQ.13) THEN
+         SHAPE='ELTU'
+      ELSEIF (ISHAPE.EQ.14) THEN
+         SHAPE='HYPE'
+      ELSEIF (ISHAPE.EQ.28) THEN
+         SHAPE='GTRA'
+      ELSEIF (ISHAPE.EQ.29) THEN
+         SHAPE='CTUB'
+      ELSE
+         write(6,*)'(E) jshape: shape number ',ishape,' is unknown'
+         SHAPE=' '
+      ENDIF
+      END