*HEADING
: DLOAD, DFLUX, FILM, AND RADIATION FOR COUPLED TEMP-DISP  [CPE8HT]
*PREPRINT,ECHO=YES,HISTORY=NO,MODEL=NO
**  NOTE  --  SAME DECK MAY BE USED FOR OTHER 8-NODE ELEMENTS
**  BY REPLACING THE ELEMENT NAME
*RESTART,WRITE
*NODE,NSET=ALL
 1, 1.
 2, 8.
 3, 8.,7.
 4, 1.,7.
 5, 4.5,0.
 6, 8.,3.5
 7, 4.5,7.
 8, 1.,3.5
*NSET,NSET=FIX1
 1,2
*NSET,NSET=FIX2
 2,3
*NSET,NSET=FIX3
 3,4
*NSET,NSET=FIX4
 1,4
*ELEMENT, TYPE=CPE8HT, ELSET=EALL
 1, 1,2,3,4,5,6,7,8
*SOLID SECTION,MATERIAL=A1, ELSET=EALL, ORIENTATION=ORI
*surface,NAME=SIDE
1,S3
*PHYSICAL CONSTANTS,STEFAN BOLTZMANN=5.E-8, ABSOLUTE ZERO=-460.
*MATERIAL,NAME=A1
*ELASTIC
 30.E6, .3
*EXPANSION
 0., 
*CONDUCTIVITY
 3.77E-5, 
*SPECIFIC HEAT
 .39, 
*DENSITY
 82.9, 
*ORIENTATION,NAME=ORI
1.,0.,0.,0.,1.,0.
3,0.
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
 1., 1.
*ENERGY FILE
*OUTPUT,HISTORY,FREQUENCY=1
*ENERGY OUTPUT,VARIABLE=PRESELECT
*EL FILE
 LOADS,FLUXS
 FILM,RAD
*NODE FILE
 RF, 
 NT, 
 RFL, 
*OUTPUT,FIELD
*NODE OUTPUT
RF,
NT,
RFL,
*EL PRINT
 LOADS,FLUXS
 FILM,RAD
*NODE PRINT
 RF, 
 NT, 
 RFL, 
*BOUNDARY, OP=NEW
 ALL, 1,2
 FIX1, 11
*DLOAD, OP=NEW
 1, BX, 100.
 1, BY, 200.
*DFLUX,OP=NEW
 1, BF, .3
*SECTION PRINT,NAME=SIDE1,SURFACE=SIDE,AXES=LOCAL
 ,4.5,7.0,0.
 ,0.0,7.0,0.
SOAREA,SOH
SOF, 
SOM, 
*SECTION FILE,NAME=SIDE1,SURFACE=SIDE,AXES=LOCAL
 ,4.5,7.0,0.
 ,0.0,7.0,0.
SOAREA,SOH
SOF, 
SOM, 
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
 1., 1.
*BOUNDARY, OP=NEW
 ALL, 1,2
 FIX1, 11
*DLOAD, OP=NEW
 1, GRAV, 2.4125,0., -1., 0.
*DFLUX,OP=NEW
 1, BF, .3
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
 1., 1.
*BOUNDARY, OP=NEW
 ALL, 1,2
 FIX3, 11
*DLOAD,OP=NEW
 1, CENT, 20., 0., 0., 0.,   0., 1., 0.
*DFLUX,OP=NEW
 1, S1, .3
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
 1., 1.
*BOUNDARY, OP=NEW
 ALL, 1,2
 FIX3, 11
*DLOAD,OP=NEW
 1, CENTRIF, .24125, 0., 0., 0.,   0., 1., 0.
*DFLUX,OP=NEW
 1, S1, .3
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
 .000001, .000001
*BOUNDARY, OP=NEW
 ALL, 1, 1, .00001
 ALL, 2, 2, .000005
 FIX4, 11
*DLOAD,OP=NEW
 1, CORIO, 5., 0., 0., 0.,   0., 0., 1.
*DFLUX,OP=NEW
 1, S2, .3
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
 1., 1.
*BOUNDARY, OP=NEW
 ALL, 1,2
 FIX1, 11
*DLOAD,OP=NEW
 1, P1, 100.
 1, P2, 200.
 1, P3, 300.
 1, P4, 400.
*DFLUX,OP=NEW
 1, S3, .3
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
 1., 1.
*BOUNDARY, OP=NEW
 ALL, 1,2
 FIX2, 11
*DLOAD,OP=NEW
 1, HP1, 3000., 3., 0.
*DFLUX,OP=NEW
 1, S4, .3
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
 1., 1.
*BOUNDARY, OP=NEW
 ALL, 1,2
 FIX3, 11
*DLOAD, OP=NEW
 1, HP2, 3000., 3., 0.
*DFLUX,OP=NEW
*FILM
 1, F1, 75., .103
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
 1., 1.
*DLOAD, OP=NEW
 1, HP3, 3000., 3., 0.
*FILM,OP=NEW
 1, F2, 75., .103
*BOUNDARY,OP=NEW
 ALL, 1,2
 FIX4, 11
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
 1., 1.
*DLOAD, OP=NEW
 1, HP4, 3000., 3., 0.
*FILM,OP=NEW
 1, F3, 75., .103
*BOUNDARY,OP=NEW
 ALL, 1,2
 FIX1, 11
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
 1., 1.
*DLOAD, OP=NEW
*FILM,OP=NEW
 1, F4, 75., .103
*BOUNDARY,OP=NEW
 ALL, 1,2
 FIX2, 11
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
 1., 1.
*FILM,OP=NEW
*RADIATE, OP=NEW
 1, R1, 75., 1.E-6
*BOUNDARY,OP=NEW
 ALL, 1,2
 FIX3, 11
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
 1., 1.
*RADIATE, OP=NEW
 1, R2, 75., 1.E-6
*BOUNDARY,OP=NEW
 ALL, 1,2
 FIX4, 11
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
 1., 1.
*RADIATE,OP=NEW
 1, R3, 75., 1.E-6
*BOUNDARY,OP=NEW
 ALL, 1,2
 FIX1, 11
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
 1., 1.
*RADIATE,OP=NEW
 1, R4, 75., 1.E-6
*BOUNDARY,OP=NEW
 ALL, 1,2
 FIX2, 11
*END STEP