*HEADING
ECA6VFDF: DFLUX, DECURRENT FOR COUPLED THERMAL-ELECTRC
ELEMENTS  [DCAX6E]
*PREPRINT,ECHO=YES,HISTORY=NO,MODEL=NO
*RESTART,WRITE
*NODE,NSET=ALL
 1, 1.
 2, 8.
 3, 8.,7.
 4, 1.,7.
 5, 4.5,0.
 6, 8.,3.5
 7, 4.5,7.
 8, 1.,3.5
 9, 4.5,3.5
*NSET,NSET=FIX1
 1,2,5
*NSET,NSET=FIX2
 2,3,6
*NSET,NSET=FIX3
 3,4,7
*NSET,NSET=FIX4
 1,4,8
*ELEMENT,TYPE=DCAX6E,ELSET=ALLELS
 1, 1,2,3,5,6,9
 2, 1,3,4,9,7,8
*SOLID SECTION,MATERIAL=A1, ELSET=ALLELS
*surface,NAME=SIDE
2,S2
*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-ELECTRIC,STEADY STATE
*NODE PRINT
 NT,RFL
EPOT,RECUR
*NODE FILE
 NT,RFL
EPOT, RECUR
*EL PRINT,FREQ=0
*EL FILE
*DFLUX,OP=NEW
 ALLELS, BF, .3
*DECURRENT, OP=NEW 
 ALLELS, CBF, .3
*SECTION PRINT, NAME=SID34,SURFACE=SIDE
SOAREA,SOH,SOE
*SECTION FILE,  NAME=SID34,SURFACE=SIDE
SOAREA,SOH,SOE
*END STEP
*STEP
*COUPLED THERMAL-ELECTRIC, STEADY STATE
*SOLUTION TECHNIQUE,TYPE=SEPARATED
*BOUNDARY,OP=NEW
 FIX3,11
 FIX3,  9
*DFLUX,OP=NEW
 1, S1, .3
*DECURRENT, OP=NEW
 1, CS1, .3
*END STEP
*STEP
*COUPLED THERMAL-ELECTRIC, STEADY STATE
*SOLUTION TECHNIQUE,TYPE=SEPARATED
*BOUNDARY,OP=NEW
 FIX4,11
 FIX4, 9
*DFLUX,OP=NEW
 1, S2, .3
*DECURRENT,OP=NEW
 1,CS2, .3
*END STEP
*STEP
*COUPLED THERMAL-ELECTRIC, STEADY STATE
*BOUNDARY,OP=NEW
 FIX1,11
 FIX1, 9
*DFLUX,OP=NEW
 2, S2, .3
*DECURRENT,OP=NEW
 2, CS2, .3
*END STEP
*STEP
*COUPLED THERMAL-ELECTRIC, STEADY STATE
*BOUNDARY,OP=NEW
 FIX2,11
 FIX2, 9
*DFLUX,OP=NEW
 2, S3, .3
*DECURRENT,OP=NEW
 2, CS3, .3
*END STEP