*HEADING
: DLOAD, DFLUX, FILM, AND RADIATION FOR COUPLED TEMP-DISP  [CPEG3HT]
*PREPRINT,ECHO=YES,HISTORY=NO,MODEL=NO
*NODE,NSET=ALL
 1, 1.
 2, 8.
 3, 8.,7.
 4, 1.,7.
*NODE,NSET=CENTER
 5, 4.5,3.5
*NODE,NSET=XTRA
 998,0.,0.
*NSET,NSET=FIX1
 1,2
*NSET,NSET=FIX2
 2,3
*NSET,NSET=FIX3
 3,4
*NSET,NSET=FIX4
 1,4
*NSET,NSET=ALLOUT
 ALL,XTRA
*ELEMENT, TYPE=CPEG3HT, ELSET=EALL
 1, 1,2,5
 2, 2,3,5
 3, 3,4,5
 4, 4,1,5
*SOLID SECTION,MATERIAL=A1, ELSET=EALL, REFNODE=XTRA
*PHYSICAL CONSTANTS, ABSOLUTE ZERO=-460., STEFAN BOLTZMANN=5.0E-8
*MATERIAL,NAME=A1
*ELASTIC
 30.E6, .3
*EXPANSION
 0., 
*CONDUCTIVITY
 3.77E-5, 
*SPECIFIC HEAT
 .39, 
*DENSITY
 82.9, 
*EQUATION
 5, 
 5,1,-4.0, 1,1, 1.0, 2,1, 1.0, 3,1, 1.0, 
 4,1, 1.0,
 5, 
 5,2,-4.0, 1,2, 1.0, 2,2, 1.0, 3,2, 1.0, 
 4,2, 1.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,NSET=ALLOUT
 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
 998,3,5
*DLOAD, OP=NEW
 EALL, BX, 100.
 EALL, BY, 200.
*DFLUX,OP=NEW
 EALL, BF, .3
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
 1., 1.
*BOUNDARY, OP=NEW
 ALL, 1,2
 FIX1, 11
 998,3,5
*DLOAD, OP=NEW
 EALL, GRAV, 2.4125,0., -1., 0.
*DFLUX,OP=NEW
 EALL, BF, .3
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
 1., 1.
*BOUNDARY, OP=NEW
 ALL, 1,2
 FIX3, 11
 998,3,5
*DLOAD,OP=NEW
 EALL, CENT, 20., 0., 0., 0.,   0., 1., 0.
*DFLUX,OP=NEW
 1, S1, .3
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
 1., 1.
*SOLUTION TECHNIQUE,TYPE=SEPARATED
*BOUNDARY, OP=NEW
 ALL, 1,2
 FIX3, 11
 998,3,5
*DLOAD,OP=NEW
 EALL, 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
 998,3,5
*DLOAD,OP=NEW
 EALL, CORIO, 5., 0., 0., 0.,   0., 0., 1.
*DFLUX,OP=NEW
 2, S1, .3
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
 1., 1.
*BOUNDARY, OP=NEW
 ALL, 1,2
 FIX1, 11
 998,3,5
*DLOAD,OP=NEW
 1, P1, 100.
 2, P1, 200.
 3, P1, 300.
 4, P1, 400.
*DFLUX,OP=NEW
 3, S1, .3
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
 1., 1.
*BOUNDARY, OP=NEW
 ALL, 1,2
 FIX2, 11
 998,3,5
*DLOAD,OP=NEW
 1, HP1, 3000., 3., 0.
*DFLUX,OP=NEW
 4, S1, .3
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
 1., 1.
*BOUNDARY, OP=NEW
 ALL, 1,2
 FIX3, 11
 998,3,5
*DLOAD, OP=NEW
 2, HP1, 3000., 3., 0.
*DFLUX,OP=NEW
*FILM
 1, F1, 75., .103
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
 1., 1.
*DLOAD, OP=NEW
 3, HP1, 3000., 3., 0.
*FILM,OP=NEW
 2, F1, 75., .103
*BOUNDARY,OP=NEW
 ALL, 1,2
 FIX4, 11
 998,3,5
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
 1., 1.
*DLOAD, OP=NEW
 4, HP1, 3000., 3., 0.
*FILM,OP=NEW
 3, F1, 75., .103
*BOUNDARY,OP=NEW
 ALL, 1,2
 FIX1, 11
 998,3,5
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
 1., 1.
*DLOAD, OP=NEW
*FILM,OP=NEW
 4, F1, 75., .103
*BOUNDARY,OP=NEW
 ALL, 1,2
 FIX2, 11
 998,3,5
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
 1., 1.
*FILM,OP=NEW
*RADIATE, OP=NEW
 1, R1, 75., 1.E-06
*BOUNDARY,OP=NEW
 ALL, 1,2
 FIX3, 11
 998,3,5
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
 1., 1.
*RADIATE, OP=NEW
 2, R1, 75., 1.E-06
*BOUNDARY,OP=NEW
 ALL, 1,2
 FIX4, 11
 998,3,5
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
 1., 1.
*RADIATE, OP=NEW
 3, R1, 75., 1.E-06
*BOUNDARY,OP=NEW
 ALL, 1,2
 FIX1, 11
 998,3,5
*END STEP
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
 1., 1.
*RADIATE,OP=NEW
 4, R1, 75., 1.E-06
*BOUNDARY,OP=NEW
 ALL, 1,2
 FIX2, 11
 998,3,5
*END STEP