*HEADING
EC34VFDF: DFLUX, DECURREMT FOR THERMAL-ELECTRICAL
ELEMENTS  [DC3D4]
*restart, write
*PREPRINT,ECHO=YES,HISTORY=YES,MODEL=YES
*NODE, NSET=ALL1
  1, 0.0, 0.0, 0.0
  2, 7.0, 0.0, 0.0
  3, 7.0, 7.0, 0.0
  4, 0.0, 7.0, 0.0
  5, 0.0, 0.0, 7.0
  6, 7.0, 0.0, 7.0
  7, 7.0, 7.0, 7.0
  8, 0.0, 7.0, 7.0
*NCOPY, CHANGE NUMBER=10, OLD SET=ALL1, NEW SET=ALL2, SHIFT
8.0, 0.0, 0.0

*ELEMENT,TYPE=DC3D4E,ELSET=ALLELS
 1, 1,2,3,6
 2, 1,5,6,8
 3, 3,7,8,6
 4, 1,3,4,8
 5, 1,3,8,6
*ELCOPY, ELEMENT SHIFT=10, OLD SET=ALLELS, NEW SET=ELS2, SHIFT NODES=10
*ORIENTATION, NAME=ORIW
0.0, 1.0, 0.0, -1.0, 0.0, 0.0
3, 
*SOLID SECTION,MATERIAL=A1, ELSET=ALLELS
*SOLID SECTION,MATERIAL=A1, ELSET=ELS2, ORIENTATION=ORIW
*MATERIAL,NAME=A1
*CONDUCTIVITY
 3.77E-5, 
*ELECTRICAL CONDUCTIVITY
 3.77E-5, 
*JOULE HEAT FRACTION
 0.0, 
*DENSITY
 82.9, 
*SPECIFIC HEAT
 .39, 
*NSET,NSET=FIX1
1,2,3,4
11,12,13,14
*NSET,NSET=FIX2
5,6,7,8
15,16,17,18
*NSET,NSET=FIX3
1,2,6,5
11,12,16,15
*NSET,NSET=FIX4
2,3,7,6
12,13,17,16
*NSET,NSET=FIX5
3,4,8,7
13,14,18,17
*NSET,NSET=FIX6
4,1,5,8
14,11,15,18
*BOUNDARY
 FIX1,11
 FIX1, 9
*STEP
*COUPLED THERMAL-ELECTRICAL, STEADY STATE
*NODE PRINT
 NT,RFL
EPOT,RECUR
*EL PRINT,FREQ=0
*DFLUX
 ALLELS, BF, .3
ELS2, BF, 0.3
*DECURRENT
 ALLELS,CBF, .3
ELS2, CBF, 0.3
*END STEP
*STEP
*COUPLED THERMAL-ELECTRICAL, STEADY STATE
*BOUNDARY, OP=NEW
 FIX2, 11
 FIX2,  9
*DFLUX, OP=NEW
 1, S1, .3
 4, S1, .3
11, S1, 0.3
14, S1, 0.3
*DECURRENT,OP=NEW
 1, CS1, .3
 4, CS1, .3
11, CS1, 0.3
14, CS1, 0.3
*END STEP
*STEP
*COUPLED THERMAL-ELECTRICAL, STEADY STATE
*BOUNDARY, OP=NEW
 FIX1, 11
 FIX1,  9
*DFLUX,OP=NEW
 2, S3, .3
 3, S3, .3
12, S3, 0.3
13, S3, 0.3
*DECURRENT,OP=NEW
 2, CS3, .3
 3, CS3, .3
12, CS3, 0.3
13, CS3, 0.3
*END STEP
*STEP
*COUPLED THERMAL-ELECTRICAL, STEADY STATE
*BOUNDARY, OP=NEW
 FIX5, 11
 FIX5,  9
*DFLUX,OP=NEW
 1, S2, .3
 2, S1, .3
11,S2, 0.3
12, S1, 0.3
*DECURRENT,OP=NEW
 1, CS2, .3
 2, CS1, .3
11, CS2, 0.3
12, CS1, 0.3
*END STEP
*STEP
*COUPLED THERMAL-ELECTRICAL, STEADY STATE
*BOUNDARY, OP=NEW
 FIX6, 11
 FIX6,  9
*DFLUX,OP=NEW
 1, S3, .3
 3, S2, .3
 11, S3, .3
 13, S2, .3
*DECURRENT, OP=NEW
 1, CS3, .3
 3, CS2, .3
 11, CS3, .3
 13, CS2, .3
*END STEP
*STEP
*COUPLED THERMAL-ELECTRICAL, STEADY STATE
*BOUNDARY, OP=NEW
 FIX3, 11
 FIX3,  9
*DFLUX,OP=NEW
 3, S1, .3
 4, S3, .3
 13, S1, .3
 14, S3, .3
*DECURRENT, OP=NEW
 3, CS1, .3
 4, CS3, .3
 13, CS1, .3
 14, CS3, .3
*END STEP
*STEP
*COUPLED THERMAL-ELECTRICAL, STEADY STATE
*BOUNDARY, OP=NEW
 FIX4, 11
 FIX4,  9
*DFLUX,OP=NEW
 2, S2, .3
 4, S4, .3
 12, S2, .3
 14, S4, .3
*DECURRENT, OP=NEW
 2, CS2, .3
 4, CS4, .3
 12, CS2, .3
 14, CS4, .3
*OUTPUT,FIELD,OP=ADD
*ELEMENT OUTPUT
NCURS
*END STEP