Go to the source code of this file.
|
subroutine | jshape (RSHAPE, SHAPE) |
|
◆ jshape()
subroutine jshape |
( |
real |
RSHAPE, |
|
|
character*4 |
SHAPE |
|
) |
| |
Definition at line 33 of file jshape.F.
41 ELSEIF (ishape.EQ.2)
THEN 43 ELSEIF (ishape.EQ.3)
THEN 45 ELSEIF (ishape.EQ.4)
THEN 47 ELSEIF (ishape.EQ.5)
THEN 49 ELSEIF (ishape.EQ.6)
THEN 51 ELSEIF (ishape.EQ.7)
THEN 53 ELSEIF (ishape.EQ.8)
THEN 55 ELSEIF (ishape.EQ.9)
THEN 57 ELSEIF (ishape.EQ.10)
THEN 59 ELSEIF (ishape.EQ.11)
THEN 61 ELSEIF (ishape.EQ.12)
THEN 63 ELSEIF (ishape.EQ.13)
THEN 65 ELSEIF (ishape.EQ.14)
THEN 67 ELSEIF (ishape.EQ.28)
THEN 69 ELSEIF (ishape.EQ.29)
THEN 72 write(6,*)
'(E) jshape: shape number ',ishape,
' is unknown'