*HEADING
 BASIC VERIFICATION - MPC TYPES SS LINEAR AND SLIDER
 ELEMENTS: S4R AND C3D8, TESTING *STATIC, *DYNAMICS AND *FREQ --  MPCSSLINEAR, SIM=NO
*NODE
1, 0.,-.125,1.
3, 2.,-.125,1.
7, 0.,-.125,0.
9, 2.,-.125,0.
21, 0.,.125,1.
23, 2.,.125,1.
27, 0.,.125,0.
29, 2.,.125,0.
*NODE
101, 2.,0.,1.
105,10.,0.,1.
121, 2.,0.,0.
125,10.,0.,0.
*NGEN
1,3
7,9
21,23
27,29
1,7,3
3,9,3
21,27,3
23,29,3
1,21,10
3,23,10
7,27,10
9,29,10
11,17,3
13,19,3
*NGEN
101,105
121,125
101,121,10
105,125,10
111,115
*ELEMENT,TYPE=C3D8,ELSET=SOLID
1, 1,3,6,4,11,13,16,14
*ELGEN,ELSET=SOLID
1,2,3,1
1,2,10,2
3,2,3,1
*SOLID SECTION,ELSET=SOLID,MATERIAL=MAT
*ELEMENT,TYPE=S4R,ELSET=SHELL
11, 101,102,112,111
12, 111,112,122,121
*ELGEN,ELSET=SHELL
11,4,1,2
12,4,1,2
*SHELL SECTION,ELSET=SHELL,MATERIAL=MAT
.25,3
*MATERIAL,NAME=MAT
*ELASTIC
30.E6,.3
*DENSITY
1700.0, 
*MPC
SS LINEAR, 101,3,13,23
SS LINEAR, 111,6,16,26
SS LINEAR, 121,9,19,29
SLIDER, 13,3,23
SLIDER, 16,6,26
SLIDER, 19,9,29
*NSET,NSET=SYM,GEN
7,9
17,17
27,29
122,125
*NSET,NSET=CLAMPED,GEN
1,7,3
11,17,3
21,27,3
*NSET, NSET=TIP
21,24,27,7,17,11,1,4,14
*NSET,NSET=EDGE
105,115,125
*NSET, NSET=INDP_N1
13, 
*NSET, NSET=SHELL_N
101, 
*NSET, NSET=INDP_N2
23, 
*TRANSFORM, NSET=INDP_N2
** 45 ABOUT Z AXIS, THEN 45 ABOUT (TRANSF) X AXIS
0.7071,0.7071,0.,-0.5,0.6,0.7071
*TRANSFORM, NSET=INDP_N1
** 30 ABOUT Y AXIS, THEN 45 ABOUT (TRANSF.) X AXIS
0.8660254,0.0,-0.5,0.35355339,0.7971,0.61237243
*TRANSFORM, NSET=SHELL_N
** 30 ABOUT Y AXIS, THEN 60 ABOUT (TRANSF.) Z AXIS
0.4330127,0.866025,-0.25,-0.75,0.5,0.4330127
*STEP
*FREQUENCY, eigensolver=lanczos, SIM=NO
4, , 
*BOUNDARY, OP=NEW
EDGE,1,6
*el print, f=0
*node print
u, 
*node file
u, 
*endstep
***************************************
*STEP,NLGEOM,INC=40
 Rigid rotation
*STATIC
.1,1.
*CLOAD
TIP, 2,-30.0
*BOUNDARY, OP=NEW
EDGE,1,6
*NODE PRINT,FREQ=999
 U,
RF, 
*NODE FILE,FREQ=999
 U,RF
*EL PRINT,FREQ=0
*END STEP
****************************
*STEP,NLGEOM,INC=600
*DYNAMIC,haftol=30000
0.1,20.0,,20.
*cload, op=new
*el print, f=0
*node print, f=1000
u, 
rf, 
*node file,f=10
u,rf
*ENDSTEP