*HEADING
 DSLOAD, DSFLUX, DSCURRENT, SFILM, AND SRADIATE FOR 
 COUPLED THERMAL-ELECTRICAL-STRUCTURAL  [Q3D10MH]
**
*PREPRINT,ECHO=YES,HISTORY=NO,MODEL=NO
*NODE,NSET=ALL
 1, -1., -1., 0.
 2, 1., -1., 0.
 3, 0., 1.4, 0.
 4, 0., 0., 1.4
 5, 0.0,-1.0, 0.0
 6, 0.5, 0.2, 0.0
 7,-0.5, 0.2, 0.0
 8,-0.5,-0.5, 0.7
 9, 0.5,-0.5, 0.7
10, 0.0, 0.7, 0.7
*NSET,NSET=FIX1
 1
*NSET,NSET=FIX2
 2
*NSET,NSET=FIX3
 3
*NSET,NSET=FIX4
 4
*NSET,NSET=QA_TEST
ALL
*ELEMENT,TYPE=Q3D10MH, ELSET=ALL
 1, 1,2,3,4,5,6,7,8,9,10
*SOLID SECTION,MATERIAL=A1, ELSET=ALL
*MATERIAL,NAME=A1
*ELASTIC
 30.E6, .3
*EXPANSION
 0., 
*CONDUCTIVITY
 3.77E-5, 
*ELECTRICAL CONDUCTIVITY
 3.77E-5
*JOULE HEAT FRACTION
 0.0
*DENSITY
 82.9, 
*SPECIFIC HEAT
 .39, 
*PHYSICAL CONSTANTS, ABSOLUTE ZERO=-460.,STEFAN BOLTZMANN=.1714E-8
**
**
*SURFACE,TYPE=ELEMENT,NAME=SIDE12
1,S2
*SURFACE,TYPE=ELEMENT,NAME=SIDE13
1,S3
*SURFACE,TYPE=ELEMENT,NAME=SIDE14
1,S4
*SURFACE,TYPE=ELEMENT,NAME=SIDE11
1,S1
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE, ELECTRICAL
 1., 1.
*************************
*OUTPUT,FIELD, NUMBER INTERVAL=1
*NODE OUTPUT,NSET=QA_TEST
 RF,
 NT,
 RFL,
 EPOT,
 RECUR,
 U,
*ELEMENT OUTPUT
 S,
*************************
*OUTPUT, HISTORY
*ENERGY OUTPUT,VAR=ALL
*************************
*DLOAD, OP=NEW
  1,BX,100.
  1,BY,200.
  1,BZ,300.
*DFLUX
 1, BF, .3
*DECURRENT
 1, CBF, .3
*BOUNDARY, OP=NEW
 ALL, 1,3
 FIX1,  9,9
 FIX1, 11
*END STEP
**
**
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE, ELECTRICAL
 1., 1.
*DLOAD, OP=NEW
1, GRAV, 4.51346, 1.0 , 2.0, 3.0
*DFLUX, OP=NEW
*DECURRENT, OP=NEW
*BOUNDARY, OP=NEW
 ALL, 1,3
 FIX1,  9,9
 FIX1, 11
*END STEP
**
**
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE, ELECTRICAL
 1., 1.
*DLOAD, OP=NEW
*DFLUX,OP=NEW
*DECURRENT,OP=NEW
*SFILM, OP=NEW
 SIDE12, F, 75., .103
*BOUNDARY, OP=NEW
 ALL, 1,3
 FIX3,  9,9
 FIX3, 11
*END STEP
**
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE, ELECTRICAL
 1., 1.
*DSLOAD, OP=NEW
 SIDE11, P, 100.
 SIDE12, P, 200.
 SIDE13, P, 300.
 SIDE14, P, 400.
*SFILM,OP=NEW
 SIDE11, F, 75., .103
*BOUNDARY,OP=NEW
 ALL, 1,3
 FIX4,  9,9
 FIX4, 11
*END STEP
**
**
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE, ELECTRICAL
 1., 1.
*DSLOAD, OP=NEW
*SFILM,OP=NEW
 SIDE13, F, 75., .103
*BOUNDARY,OP=NEW
 ALL, 1,3
 FIX1,  9,9
 FIX1, 11
*END STEP
**
**
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE, ELECTRICAL
 1., 1.
*SFILM,OP=NEW
 SIDE14, F, 75., .103
*BOUNDARY,OP=NEW
 ALL, 1,3
 FIX2,  9,9
 FIX2, 11
*END STEP
**
**
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE, ELECTRICAL
 1., 1.
*SFILM, OP=NEW
*SRADIATE, OP=NEW
 SIDE12, R, 75., 2.9172E-5
*BOUNDARY,OP=NEW
 ALL, 1,3
 FIX3,  9,9
 FIX3, 11
*END STEP
**
**
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE, ELECTRICAL
 1., 1.
*SRADIATE, OP=NEW
 SIDE11, R, 75., 2.9172E-5
*BOUNDARY,OP=NEW
 ALL, 1,3
 FIX4,  9,9
 FIX4,11
*END STEP
**
**
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE, ELECTRICAL
 1., 1.
*SRADIATE, OP=NEW
 SIDE13, R, 75., 2.9172E-5
*BOUNDARY,OP=NEW
 ALL, 1,3
 FIX1,  9,9
 FIX1,11
*END STEP
**
**
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE, ELECTRICAL
 1., 1.
*SRADIATE, OP=NEW
 SIDE14, R, 75., 2.9172E-5
*BOUNDARY, OP=NEW
 ALL, 1,3
 FIX2,  9,9
 FIX2,11
*END STEP
**
**
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE, ELECTRICAL
 1., 1.
*BOUNDARY, OP=NEW
 ALL, 1,3
 FIX4,  9,9
 FIX4, 11
*SRADIATE, OP=NEW
*DSFLUX, OP=NEW
 SIDE11, S, .3
*DSECURRENT, OP=NEW
 SIDE11, CS, .3
*END STEP
**
**
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE, ELECTRICAL
 1., 1.
*BOUNDARY, OP=NEW
 ALL, 1,3
 FIX3,  9,9
 FIX3, 11
*DSFLUX,OP=NEW
 SIDE12, S, .3
*DSECURRENT,OP=NEW
 SIDE12, CS, .3
*END STEP
**
**
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE, ELECTRICAL
 1., 1.
*BOUNDARY, OP=NEW
 ALL, 1,3
 FIX1,  9,9
 FIX1, 11
*DSFLUX,OP=NEW
 SIDE13, S, .3
*DSECURRENT,OP=NEW
 SIDE13, CS, .3
*END STEP
**
**
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE, ELECTRICAL
 1., 1.
*BOUNDARY, OP=NEW
 ALL, 1,3
 FIX2,  9,9
 FIX2, 11
*DSFLUX,OP=NEW
 SIDE14, S, .3
*DSECURRENT,OP=NEW
 SIDE14, CS, .3
*END STEP