$ k6modes  see notes after enddata
diag 8,15
sol 103
include 'SSSALTERDIR:k6esea.alt'
cend
title=measure loads in k6rot springs		k6modes
subtitle = flagpole to single point, 2x2 quad mesh
label = modes run
method = 1
disp = all
spcf =  all
elforce = all
ese = all
$subcase 11 
$label = tie down all edge points
$spc = 11
subcase 12 
label = tie down only corner points
spc = 12 $
begin bulk
$param, k6out, some $ default for alter.  Only g.p. energy printed.
eigrl,	1,	,	,	5
param, k6rot,	20.  $ v2001 default
cord2r,	1,	0,	0.	0.	0.	0.	0.	1.
,	1.	0.	0. $ parallel to basic
$ version with flagpole on center node
grid,	1,	1,	0.	0.	0.,	
=,	2,	1	10.	0.	0.,	
=,	3,	1,	20.	0.	0.,
=,	11,	1,	0.	10.,	0.,
=,	12,	1,	10.	10.	0.	
=,	13,	1,	20.,	10.,	0.	
=,	21,	1,	0.,	20.,	=
=,	22,	1,	10.	20.	=
=,	23,	1,	20.,	20.	=
cquad4,	1	1	1	2 	12	11
cquad4,	2,	1,	2,	3,	13,	12
cquad4,	11,	1,	11,	12,	22,	21
cquad4,	12,	1,	12,	13,	23,	22
pshell,	1,	1,	.01,	1
cbar,	120,	120,	12,	120,	1.
cbar,	21,	120,	1,	2,	0.	0.	1.
=,	23,	=,	2,	3, == $ bars around the periphery
=,	313,	=,	3,	13, ==
=,	1323,	=,	13,	23, ==
=,	2322,	=,	23,	22, ==
=,	2221,	=,	22,	21, ==
=,	2111,	=,	21,	11, ==
=,	111,	=,	11,	1,  ==
Conm2,	1200,	120,	,	1.0		
,	1000.,	,	1000.,	,	,	2000.0 $ I33 to get a bar torsion mode
Pbar,	120,	1	1.	2.	3.	4.
grid,	120,	1,	10.	10.	10.
mat1,	1,	3.+7,	,	.3	.3
param,	wtmass,	.00259
moment,	1,	120,	,	1.0,	0.	0.	1. $ torque the flagpole
spc1,	1,	123,	1	3	21	23 $ tie down corner points
spc1,	2,	123,	2	11	13	22 $ tie down midside points
spcadd,	11,	1,	2
spcadd,	12,	1
enddata