*HEADING
EC36VFDM: *DSFLUX, *DSECURRENT FOR COUPLED THERMAL-ELCTRICAL
ELEMENTS  [DC3D6E]
*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=DC3D6E,ELSET=ALLELS
 1, 1,2,4,5,6,8
 2, 2,3,4,6,7,8
*surface, NAME=SIDE_1A
 1, S1
 2, S1
*surface, NAME=SIDE_2A
 1, S2
 2, S2
*surface, NAME=SIDE_3A
 1, S3
*surface, NAME=SIDE_4A
 2, S3
*surface, NAME=SIDE_5A
 2, S4
*surface, NAME=SIDE_6A
 1, S5
*ELCOPY, ELEMENT SHIFT=10, OLD SET=ALLELS, NEW SET=ELS2, SHIFT NODES=10
*surface, NAME=SIDE_1B
 11, S1
 12, S1
*surface, NAME=SIDE_2B
 11, S2
 12, S2
*surface, NAME=SIDE_3B
 11, S3
*surface, NAME=SIDE_4B
 12, S3
*surface, NAME=SIDE_5B
 12, S4
*surface, NAME=SIDE_6B
 11, S5
*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
*BOUNDARY, OP=NEW
 FIX2, 11
 FIX2,  9
*DSFLUX, OP=NEW
 SIDE_1A, S, .3
 SIDE_1B, S, .3
*DSECURRENT,OP=NEW
 SIDE_1A, CS, .3
 SIDE_1B, CS, .3
*NODE PRINT
 NT,RFL
EPOT,RECUR
*OUTPUT,FIELD
*NODE OUTPUT
 NT,RFL
EPOT,RECUR
*EL PRINT,FREQ=0
*OUTPUT,FIELD
*ELEMENT OUTPUT
*END STEP
*STEP
*COUPLED THERMAL-ELECTRICAL, STEADY STATE
*BOUNDARY, OP=NEW
 FIX1, 11
 FIX1,  9
*DSFLUX,OP=NEW
 SIDE_2A, S, .3
 SIDE_2B, S, .3
*DSECURRENT,OP=NEW
 SIDE_2A, CS, .3
 SIDE_2B, CS, .3
*END STEP
*STEP
*COUPLED THERMAL-ELECTRICAL, STEADY STATE
*BOUNDARY, OP=NEW
 FIX5, 11
 FIX5,  9
*DSFLUX,OP=NEW
 SIDE_3A, S, .3
 SIDE_3B, S, .3
*DSECURRENT,OP=NEW
 SIDE_3A, CS, .3
 SIDE_3B, CS, .3
*END STEP
*STEP
*COUPLED THERMAL-ELECTRICAL, STEADY STATE
*BOUNDARY, OP=NEW
 FIX6, 11
 FIX6,  9
*DSFLUX,OP=NEW
 SIDE_4A, S, .3
 SIDE_4B, S, .3
*DSECURRENT,OP=NEW
 SIDE_4A, CS, .3
 SIDE_4B, CS, .3
*END STEP
*STEP
*COUPLED THERMAL-ELECTRICAL, STEADY STATE
*BOUNDARY, OP=NEW
 FIX3, 11
 FIX3,  9
*DSFLUX,OP=NEW
 SIDE_5A, S, .3
 SIDE_5B, S, .3
*DSECURRENT,OP=NEW
 SIDE_5A, CS, .3
 SIDE_5B, CS, .3
*END STEP
*STEP
*COUPLED THERMAL-ELECTRICAL, STEADY STATE
*BOUNDARY, OP=NEW
 FIX4, 11
 FIX4,  9
*DSFLUX,OP=NEW
 SIDE_6A, S, .3
 SIDE_6B, S, .3
*DSECURRENT, OP=NEW
 SIDE_6A, CS, .3
 SIDE_6B, CS, .3
*END STEP