*HEADING
EC3KVFDF: DFLUX, DECURRENT FOR COUPLED THERMAL-ELECTRICAL
ELEMENTS  [DC3D20E]
*PREPRINT,ECHO=YES,HISTORY=NO,MODEL=NO
*NODE,NSET=ALL
 1, 0., 0., 0.
 2, 7., 0., 0.
 3, 7., 0., -7.
 4, 0., 0., -7.
 5, 0., 7., 0.
 6, 7., 7., 0.
 7, 7., 7., -7.
 8, 0., 7., -7.
 9, 3.5, 0., 0.
 10, 7., 0., -3.5
 11, 3.5, 0., -7.
 12, 0., 0., -3.5
 13, 3.5, 7., 0.
 14, 7., 7., -3.5
 15, 3.5, 7., -7.
 16, 0., 7., -3.5
 17, 0., 3.5, 0.
 18, 7., 3.5, 0.
 19, 7., 3.5, -7.
 20, 0., 3.5, -7.
*NSET,NSET=FIX1
 1,2,3,4,9,10,11,12
*NSET,NSET=FIX2
 5,6,7,8,13,14,15,16
*NSET,NSET=FIX3
 1,2,6,5,9,18,13,17
*NSET,NSET=FIX4
 2,3,7,6,10,19,14,18
*NSET,NSET=FIX5
 3,4,7,8,11,19,15,20
*NSET,NSET=FIX6
 1,4,5,8,12,20,16,17
*ELEMENT,TYPE=DC3D20E, ELSET=EALL
 1, 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,
  16,17,18,19,20
*SOLID SECTION,MATERIAL=A1, ELSET=EALL
*MATERIAL,NAME=A1
*CONDUCTIVITY
 3.77E-5, 
*ELECTRICAL CONDUCTIVITY
 3.77E-5, 
*JOULE HEAT FRACTION
 0.0, 
*DENSITY
 82.9, 
*SPECIFIC HEAT
 .39, 
*BOUNDARY
 FIX1,11
 FIX1, 9
*STEP
*COUPLED THERMAL-ELECTRICAL, STEADY STATE
*NODE PRINT
 NT,RFL
EPOT, RECUR
*OUTPUT,FIELD
*NODE OUTPUT
 NT,RFL
EPOT, RECUR
*EL PRINT,FREQ=0
*OUTPUT,FIELD
*ELEMENT OUTPUT
*DFLUX
 1, BF, .3
*DECURRENT
 1, CBF, .3
*END STEP
*STEP
*COUPLED THERMAL-ELECTRICAL, STEADY STATE
*BOUNDARY, OP=NEW
 FIX2, 11
 FIX2,  9
*DFLUX, OP=NEW
 1, S1, .3
*DECURRENT,OP=NEW
 1, CS1, .3
*END STEP
*STEP
*COUPLED THERMAL-ELECTRICAL, STEADY STATE
*BOUNDARY, OP=NEW
 FIX1, 11
 FIX1,  9
*DFLUX,OP=NEW
 1, S2, .3
*DECURRENT,OP=NEW
 1, CS2, .3
*END STEP
*STEP
*COUPLED THERMAL-ELECTRICAL, STEADY STATE
*BOUNDARY, OP=NEW
 FIX5, 11
 FIX5,  9
*DFLUX,OP=NEW
 1, S3, .3
*DECURRENT, OP=NEW
 1, CS3, .3
*END STEP
*STEP
*COUPLED THERMAL-ELECTRICAL, STEADY STATE
*BOUNDARY, OP=NEW
 FIX6, 11
 FIX6,  9
*DFLUX,OP=NEW
 1, S4, .3
*DECURRENT, OP=NEW
 1, CS4, .3
*END STEP
*STEP
*COUPLED THERMAL-ELECTRICAL, STEADY STATE
*BOUNDARY, OP=NEW
 FIX3, 11
 FIX3,  9
*DFLUX,OP=NEW
 1, S5, .3
*DECURRENT,OP=NEW
 1, CS5, .3
*END STEP
*STEP
*COUPLED THERMAL-ELECTRICAL, STEADY STATE
*BOUNDARY, OP=NEW
 FIX4, 11
 FIX4, 9
*DFLUX,OP=NEW
 1, S6, .3
*DECURRENT, OP=NEW
 1, CS6, .3
*END STEP