*HEADING
EC28VFDF: DFLUX, DECURRENT FOR COUPLED THERMAL-ELCTRICAL
ELEMENTS  [DC2D8]
*PREPRINT,ECHO=YES,HISTORY=NO,MODEL=NO
*NODE,NSET=ALL1
 1, 0.
 2, 7.
 3, 7., 7.
 4, 0., 7.
 5, 3.5, 0.
 6, 7., 3.5
 7, 3.5, 7.
 8, 0., 3.5
*NCOPY, CHANGE NUMBER=10, OLD SET=ALL1, NEW SET=ALL2, SHIFT
8.0, 0.0, 0.0

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