*HEADING
: DLOAD, DFLUX, FILM, AND RADIATION FOR COUPLED TEMP-DISP  [CPEG4HT]
*PREPRINT,ECHO=YES,HISTORY=NO,MODEL=NO
*NODE,NSET=ALL
 1, 1.
 2, 8.
 3, 8.,7.
 4, 1.,7.
*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
*ELEMENT, TYPE=CPEG4HT,ELSET=EALL
 1, 1,2,3,4
*SOLID SECTION,MATERIAL=A1,ELSET=EALL,REFNODE=998
*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, 
*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
 998,3,5
*DLOAD, OP=NEW
 1, BX, 100.
 1, BY, 200.
*DFLUX,OP=NEW
 1, 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
 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
 998,3,5
*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.
*SOLUTION TECHNIQUE,TYPE=SEPARATED
*BOUNDARY, OP=NEW
 ALL, 1,2
 FIX3, 11
 998,3,5
*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
 998,3,5
*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
 998,3,5
*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
 998,3,5
*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
 998,3,5
*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
 998,3,5
*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
 998,3,5
*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
 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
 1, R2, 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
 1, R3, 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
 1, R4, 75., 1.E-06
*BOUNDARY,OP=NEW
 ALL, 1,2
 FIX2, 11
 998,3,5
*END STEP