*HEADING
EC38SFD1: DLOADS AND *TEMPERATURE FOR STRESS-DISPLACEMENT ELEMENTS  [C3D8]
*PREPRINT,ECHO=YES,HISTORY=NO,MODEL=NO
*NODE,NSET=ALL
1    , 0.        , 0.        , 0.
2    , 7.        , 0.        , 0.
3    , 7.        , 0.        , -7.
4    , 0.        , 0.        , -7.
5    , 0.        , 7.        , 0.
6    , 7.        , 7.        , 0.
7    , 7.        , 7.        , -7.
8    , 0.        , 7.        , -7.
*NSET,NSET=NS1
1,4,5,8
*NSET,NSET=NS2
1,2,3,4
*NSET,NSET=NS3
1,2,5,6
*NSET,NSET=NS4
2,3,7,6
*ELEMENT,TYPE=C3D8, ELSET=EALL
 1,  1,2,3,4,5,6,7,8
*SOLID SECTION,MATERIAL=A1, ELSET=EALL
*MATERIAL,NAME=A1
*ELASTIC
 3.E6,0.3
*DENSITY
 10.0, 
*EXPANSION
 .0001, 
*INITIAL CONDITIONS,TYPE=TEMPERATURE
 ALL,-10.
*BOUNDARY
 ALL,1,3
*STEP,PERTURBATION
*STATIC
*DLOAD
 1,BX,3000.
*EL PRINT
 LOADS,
*EL PRINT,REBAR
S
*NODE PRINT
 RF, 
*END STEP
*STEP,PERTURBATION
*STATIC
*DLOAD
 1,BY,3000.
*END STEP
*STEP,PERTURBATION
*STATIC
*DLOAD
 1,BZ,3000.
*END STEP
*STEP,PERTURBATION
*STATIC
*DLOAD
 1,GRAV,300.0,1.0,0.0,0.0
*END STEP
*STEP,PERTURBATION
*STATIC
*DLOAD
 1,CENT,300.,-1000.,3.5,-3.5,0.,1.,0.
*END STEP
*STEP,PERTURBATION
*STATIC
*DLOAD
 1,CENTRIF,30.,-1000,3.5,-3.5,0.,1.,0.
*END STEP
*STEP,PERTURBATION
*STATIC
*DLOAD
 1,P1,3000.
*END STEP
*STEP,PERTURBATION
*STATIC
*DLOAD
 1,P2,3000.
*END STEP
*STEP,PERTURBATION
*STATIC
*DLOAD
 1,P3,3000.
*END STEP
*STEP,PERTURBATION
*STATIC
*DLOAD
 1,P4,3000.
*END STEP
*STEP,PERTURBATION
*STATIC
*DLOAD
 1,P5,3000.
*END STEP
*STEP,PERTURBATION
*STATIC
*DLOAD
 1,P6,3000.
*END STEP
*STEP,PERTURBATION
*STATIC
*DLOAD
 1,HP1,3000.,0.,-7.
*END STEP
*STEP,PERTURBATION
*STATIC
*DLOAD
 1,HP2,3000.,0.,-7.
*END STEP
*STEP,PERTURBATION
*STATIC
*DLOAD
 1,HP3,3000.,0.,-7.
*END STEP
*STEP,PERTURBATION
*STATIC
*DLOAD
 1,HP4,3000.,0.,-7.
*END STEP
*STEP,PERTURBATION
*STATIC
*DLOAD
 1,HP5,3000.,0.,-7.
*END STEP
*STEP,PERTURBATION
*STATIC
*DLOAD
 1,HP6,3000.,0.,-7.
*END STEP
*STEP,PERTURBATION
*STATIC
*TEMPERATURE
 ALL,40.
*EL PRINT
 S, 
*NODE PRINT
 RF, 
*END STEP
*STEP,PERTURBATION
*STATIC
*BOUNDARY,OP=NEW
 NS1,1
 NS2,2
 NS3,3
*TEMPERATURE,OP=MOD
 ALL, 40.0
*EL PRINT,FREQ=0
*NODE PRINT
 U, 
*END STEP
*STEP
*STATIC
*BOUNDARY,OP=NEW
 NS1,1
 NS2,2
 NS3,3
*TEMPERATURE,OP=MOD
 NS1, 20.0
 NS4, 40.0
*EL PRINT,FREQ=0
*NODE PRINT
 U, 
*END STEP