*HEADING
   EXPLICIT THREE LAYER COMPOSITE PLATE:  PAGANO (1969)
  TEST STACK DIRECTION 3. 
*NODE
1 , 0 , 0 , -1.25
1001 , 0 , 0 , 1.25
2 , 1 , 0 , -1.25
1002 , 1 , 0 , 1.25
3 , 2 , 0 , -1.25
1003 , 2 , 0 , 1.25
4 , 3 , 0 , -1.25
1004 , 3 , 0 , 1.25
5 , 4 , 0 , -1.25
1005 , 4 , 0 , 1.25
6 , 5 , 0 , -1.25
1006 , 5 , 0 , 1.25
7 , 6 , 0 , -1.25
1007 , 6 , 0 , 1.25
8 , 7 , 0 , -1.25
1008 , 7 , 0 , 1.25
9 , 8 , 0 , -1.25
1009 , 8 , 0 , 1.25
10 , 9 , 0 , -1.25
1010 , 9 , 0 , 1.25
11 , 10 , 0 , -1.25
1011 , 10 , 0 , 1.25
101 , 0 , 0.5 , -1.25
1101 , 0 , 0.5 , 1.25
102 , 1 , 0.5 , -1.25
1102 , 1 , 0.5 , 1.25
103 , 2 , 0.5 , -1.25
1103 , 2 , 0.5 , 1.25
104 , 3 , 0.5 , -1.25
1104 , 3 , 0.5 , 1.25
105 , 4 , 0.5 , -1.25
1105 , 4 , 0.5 , 1.25
106 , 5 , 0.5 , -1.25
1106 , 5 , 0.5 , 1.25
107 , 6 , 0.5 , -1.25
1107 , 6 , 0.5 , 1.25
108 , 7 , 0.5 , -1.25
1108 , 7 , 0.5 , 1.25
109 , 8 , 0.5 , -1.25
1109 , 8 , 0.5 , 1.25
110 , 9 , 0.5 , -1.25
1110 , 9 , 0.5 , 1.25
111 , 10 , 0.5 , -1.25
1111 , 10 , 0.5 , 1.25
201 , 0 , 1 , -1.25
1201 , 0 , 1 , 1.25
202 , 1 , 1 , -1.25
1202 , 1 , 1 , 1.25
203 , 2 , 1 , -1.25
1203 , 2 , 1 , 1.25
204 , 3 , 1 , -1.25
1204 , 3 , 1 , 1.25
205 , 4 , 1 , -1.25
1205 , 4 , 1 , 1.25
206 , 5 , 1 , -1.25
1206 , 5 , 1 , 1.25
207 , 6 , 1 , -1.25
1207 , 6 , 1 , 1.25
208 , 7 , 1 , -1.25
1208 , 7 , 1 , 1.25
209 , 8 , 1 , -1.25
1209 , 8 , 1 , 1.25
210 , 9 , 1 , -1.25
1210 , 9 , 1 , 1.25
211 , 10 , 1 , -1.25
1211 , 10 , 1 , 1.25
*NGEN,NSET=LEFT
1,201,100
1001,1201,100
*NGEN,NSET=RIGHT
11,211,100
1011,1211,100
*NSET,NSET=EDGE,GEN
1, 11, 1
101, 111, 1
201, 211, 1 
1001, 1011, 1
1101, 1111, 1
1201, 1211, 1 
*ELEMENT,TYPE=SC8R
1,1,2,102,101, 1001,1002,1102,1101
*ELGEN,ELSET=PLATE
1,10,1,1,2,100,10,1
*SHELL SECTION,ELSET=PLATE,COMPOSITE,STACK DIR=3, POISSON=0.25, THICKNESS MODULUS=1.e6
0.83333,,LAMINA, 0.
0.83333,,LAMINA,90.
0.83333,,LAMINA, 0.
*MATERIAL,NAME=LAMINA
*ELASTIC,TYPE=LAMINA
25.E6,1.E6,.25,0.5E6,0.5E6,0.2E6
*FAIL STRESS
30.,-12.,.5,-1.5,1.0,0.
*FAIL STRAIN
17.E-2,-7.E-2,5.E-2,-1.3E-2,11.E-2
*DENSITY
2.8125E3, 
*ELSET,ELSET=FMEAS
5,
*BOUNDARY
RIGHT,2,3
EDGE,2,2
*EQUATION
 2,
 1001, 1, 1.0, 1, 1, 1.0
 2,
 1101, 1, 1.0, 101, 1, 1.0
 2,
 1201, 1, 1.0, 201, 1, 1.0
 2,
 1001, 3, 1.0, 1, 3, 1.0
 2,
 1101, 3, 1.0, 101, 3, 1.0
 2,
 1201, 3, 1.0, 201, 3, 1.0
**
 2,
 1011, 3, 1.0, 11, 3, 1.0
 2,
 1111, 3, 1.0, 111, 3, 1.0
 2,
 1211, 3, 1.0, 211, 3, 1.0
*RESTART,WRITE,NUMBER INTERVAL=2,TIMEMARKS=NO
*NSET, NSET=CHECK
LEFT, RIGHT
*NSET,NSET=QA_TEST_CHECK
CHECK,
*AMPLITUDE, NAME=HALF
0., 0.5, 200.0, 0.5
**
*STEP
*DYNAMIC, EXPLICIT
 ,20.0
**
** Distributed load for p=p0sin(pi*x/l)
**
***CLOAD, FOLLOWER, AMP=HALF
*CLOAD, AMP=HALF
  1,3,1.30184E-02
  2,3,7.66215E-02
  3,3,0.14574    
  4,3,0.20060    
  5,3,0.23582    
  6,3,0.24795    
  7,3,0.23582    
  8,3,0.20060    
  9,3,0.14574    
 10,3,7.66215E-02
 11,3,1.30184E-02
101,3,2.60368E-02
102,3,0.15324    
103,3,0.29149    
104,3,0.40120    
105,3,0.47163    
106,3,0.49590    
107,3,0.47163    
108,3,0.40120    
109,3,0.29149    
110,3,0.15324    
111,3,2.60368E-02
201,3,1.30184E-02
202,3,7.66215E-02
203,3,0.14574    
204,3,0.20060    
205,3,0.23582    
206,3,0.24795    
207,3,0.23582    
208,3,0.20060    
209,3,0.14574    
210,3,7.66215E-02
211,3,1.30184E-02
**
1001,3,1.30184E-02
1002,3,7.66215E-02
1003,3,0.14574    
1004,3,0.20060    
1005,3,0.23582    
1006,3,0.24795    
1007,3,0.23582    
1008,3,0.20060    
1009,3,0.14574    
1010,3,7.66215E-02
1011,3,1.30184E-02
1101,3,2.60368E-02
1102,3,0.15324    
1103,3,0.29149    
1104,3,0.40120    
1105,3,0.47163    
1106,3,0.49590    
1107,3,0.47163    
1108,3,0.40120    
1109,3,0.29149    
1110,3,0.15324    
1111,3,2.60368E-02
1201,3,1.30184E-02
1202,3,7.66215E-02
1203,3,0.14574    
1204,3,0.20060    
1205,3,0.23582    
1206,3,0.24795    
1207,3,0.23582    
1208,3,0.20060    
1209,3,0.14574    
1210,3,7.66215E-02
1211,3,1.30184E-02
*MONITOR,NODE=6,DOF=3
*OUTPUT,HISTORY,FREQ=1
*ELEMENT OUTPUT,ELSET=PLATE
S,
STH,
SF,
SE,
TSHR,
*NODE OUTPUT,NSET=RIGHT
U,
*ENERGY OUTPUT
ALLKE,ALLIE,ALLSE,ALLAE,ALLVD,ALLCD,ALLPD,ALLFD,ALLWK,ETOTAL
*FILE OUTPUT,NUM=4,TIMEMARKS=YES
*NODE FILE, NSET=CHECK
U, 
*ENERGY FILE
ALLKE,ALLIE,ALLWK,ETOTAL,
*OUTPUT, FIELD, NUMBER INTERVAL=4, TIMEMARKS=YES
*NODE OUTPUT, NSET=QA_TEST_CHECK
U, 
*OUTPUT,FIELD,VARIABLE=PRESELECT
*END STEP