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.

      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

Here is the caller graph for this function: