*HEADING
EB2JRVDI: *DSLOAD AND *TEMPERATURE FOR STRESS-DISPLACEMENT ELEMENTS  [B23H]
*NODE,NSET=ALL
1, 0.
2, 15.
*ELEMENT,TYPE=B23H, ELSET=EALL
1, 1, 2
*surface, NAME=TOP
 1,SPOS
*surface, NAME=BOT
 1,SNEG
*BEAM SECTION,SECTION=RECT, TEMPERATURE=VALUES,MATERIAL=A1, ELSET=EALL
2., 3.
0., 0., -1.
3, 
*MATERIAL,NAME=A1
*ELASTIC
 3.E6, 0.3
*DENSITY
 0.16667, 
*EXPANSION
 .0001, 
*INITIAL CONDITIONS,TYPE=TEMPERATURE
 ALL, -10., -10., -10.
*BOUNDARY
ALL,1,2
ALL,6
*STEP,PERTURBATION
*STATIC
*DSLOAD
 TOP,  P, 2000.
*OUTPUT,HISTORY,FREQUENCY=1
*ENERGY OUTPUT
*OUTPUT,FIELD
*NODE OUTPUT
 RF, 
*EL PRINT,FREQ=0
*NODE PRINT
 RF, 
*END STEP
*STEP
*STATIC
*TEMPERATURE,OP=NEW
 ALL, 10., 20., 30.
*OUTPUT,HISTORY,FREQUENCY=1
*ENERGY OUTPUT
*OUTPUT,FIELD
*ELEMENT OUTPUT
 S, 
*OUTPUT,FIELD
*NODE OUTPUT
 RF, 
*EL PRINT
 S, 
*NODE PRINT
 RF, 
*END STEP
*STEP
*STATIC
*BOUNDARY,OP=NEW
1    , 1    , 2
1    , 6
*TEMPERATURE,OP=MOD
*OUTPUT,HISTORY,FREQUENCY=1
*ENERGY OUTPUT
*OUTPUT,FIELD
*NODE OUTPUT
 U, 
*EL PRINT,FREQ=0
*NODE PRINT
 U, 
*END STEP