$
$ THIS DECK TESTS THE GRID POINT LOCATION ALTER PACKAGE.  THERE
$ ARE FOUR COINCEDENT POINTS DEFINED IN THREE DIFFERENT COORDINATE
$ SYSTEMS.  THE RESULTING "DISPLACEMENT" TABLE SHOULD YIELD THE SAME
$ RESULT FOR ALL THREE POINTS.
$
ID MSC, GRIDLOC1
diag 8,15
SOL 103
INCLUDE 'SSSALTERDIR:gridloca.alt'
CEND
TITLE = GRID POINT LOCATIONS IN BASIC COORDINATE SYSTEM        GRIDLOC1
$
DISP = ALL $ PRINT LOCATIONS OF ALL GRID POINTS.
BEGIN BULK
$
$ THIS SECTION CONTAINS ALL DEFINED COORDINATE SYSTEMS
$
$
$  CID   TYPE   COMMENT
$   0    RECT   BASIC
$   1    CYL    PARALLEL TO BASIC
$   2    RECT   ROTATED +30 DEG ABOUT BASIC Z, TRANSLATED +1 IN Z
$   3    RECT   ROTATED -45 DEG ABOUT BASIC Z, TRANSLATED +1 IN X AND Y
$
CORD2C  1       0       0.0     0.0     0.0     0.0     0.0     1.0     +
+       1.      0.0     0.0
CORD2R  2       0       0.0     0.0     1.0     0.0     0.0     2.0     +
+       .8660254.5      1.0
CORD2R  3       0       1.0     1.0     0.0     1.0     1.0     1.0     +
+       2.0     0.0     0.0
$
$
$ ALL GRIDS HAVE SAME LOCATION IN SPACE (0.866, 0.5, 0. IN BASIC).
$ SEID ON GRID 3 ADDED FOR GENERALITY
$
$.......ID......CP......X1......X2......X3......CD......PS......SEID....0
GRID    1               .8660254.5      0.0
GRID    2       1       1.      30.     0.0
GRID    3       2       1.      0.0     -1.                     100
GRID    4       3       .2588190-.4482880.0     2
$   
$ SPOINT ADDED FOR GENERATLITY
SPOINT  1001
$
$ MUST HAVE AT LEAST ONE ELEMENT IN MODEL
CELAS2  99      1.      1       1       2       1
$.......2.......3.......4.......5.......6.......7.......8.......9.......0
$
ENDDATA