You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
42 lines
1.3 KiB
42 lines
1.3 KiB
C Copyright(C) 1999-2020 National Technology & Engineering Solutions
|
|
C of Sandia, LLC (NTESS). Under the terms of Contract DE-NA0003525 with
|
|
C NTESS, the U.S. Government retains certain rights in this software.
|
|
C
|
|
C See packages/seacas/LICENSE for details
|
|
|
|
C=======================================================================
|
|
SUBROUTINE SHWINT (ITRANT, DIM3)
|
|
C=======================================================================
|
|
|
|
CHARACTER*20 RSTR(9)
|
|
CHARACTER*20 TYPE
|
|
|
|
CALL NUMSTR (1, 4, DIM3, RSTR(1), LR)
|
|
|
|
IF (ITRANT .EQ. 0) THEN
|
|
TYPE = 'Transform'
|
|
ELSE IF (ITRANT .EQ. 1) THEN
|
|
TYPE = 'Translate'
|
|
ELSE IF (ITRANT .EQ. 2) THEN
|
|
TYPE = 'Rotate'
|
|
ELSE IF (ITRANT .EQ. 4) THEN
|
|
TYPE = 'Warp'
|
|
ELSE IF (ITRANT .EQ. 8) THEN
|
|
TYPE = 'Twist'
|
|
ELSE IF (ITRANT .EQ. 16) THEN
|
|
TYPE = 'Project'
|
|
ELSE IF (ITRANT .EQ. 32) THEN
|
|
TYPE = 'ExpRotate'
|
|
ELSE IF (ITRANT .EQ. 64) THEN
|
|
TYPE = 'Spline'
|
|
ELSE
|
|
CALL PRTERR ('PROGRAM', 'Unknown transformation option')
|
|
RETURN
|
|
END IF
|
|
|
|
LT = LENSTR(TYPE)
|
|
|
|
WRITE (*, 20) TYPE(:LT), ' mesh, thickness = ', RSTR(1)(:LR)
|
|
20 FORMAT (1X, 10A)
|
|
RETURN
|
|
END
|
|
|