*Heading
 :  cpeg6mht Model Change Verification
*Node
 1,
 11,0.,5.
 801,2.
 811,2.,5.
*Node,Nset=Refnd
 998,0.,0.
*Ngen,Nset=Bot
 1,11,1
*Ngen,Nset=Top
 801,811,1
*Nfill,Nset=Nall
 Bot,Top,8,100
*Nset, Nset=Lhs, Gen
 1, 801, 100
*Nset, Nset=Rhs, Gen
 11,811,100
*Nset,Nset=Nmid,Gen
 5,805,100
*Nset, Nset=Pinned
 1, 
*Element,Type=cpeg6mht,Elset=Eall1
 1,1,201,203,101,202,102
*Elgen,Elset=Eall1
 1,5,2,1,4,200,5
*Element,Type=cpeg6mht,Elset=Eall2
 21,1,203,3,102,103,2
*Elgen,Elset=Eall2
 21,5,2,1,4,200,5
*Elset,Elset=Eall
 Eall1,Eall2
*Elset,Elset=Erhs
 25,30,35,40
*Elset, Elset=Erem
  3, 4, 5, 8, 9,10,13,14,15,18,19,20
 23,24,25,28,29,30,33,34,35,38,39,40
*Solid Section,Material=Heat,Elset=Eall,Refnode=Refnd
 1.,
*Material,Name=Heat
*Elastic
 100.00e4, 0.25
*Expansion
 1.0e-6, 
*Density
 .2829, 
*Conductivity
 7.872e-4, 
*Boundary
 Lhs,11
 Bot, 1, 1
 Pinned, 2, 2
 Refnd,3,5
*Step
 Apply Film Condition To Rhs
*Coupled Temperature-Displacement,Steady State
 1.,1.
** Control parameters needed for ABAQUS QA purposes only
*Controls,Parameters=Field
 1.e-6,,,,,1e-10
*Film
 Erhs,F2,100.,1.
*Node Print
 Rf, 
 U, 
 Nt11,
*El Print
 E,
 S,
 Hfl, 
*Node File, Freq=99
 U,Rf, Nt
*El File, Freq=99
 Hfl, S, E
*Output, Field, Freq=99
*Element Output
 Hfl, E, S
*Node Output
 Rf, U, Nt
*End Step
*Step
 Remove Right Hand Side Elements
*Coupled Temperature-Displacement,Steady State
 1.,1.
*Model Change,Remove,Type=Element
 Erem, 
*Boundary,Fixed
 Nmid,11
*End Step
*Step
 Replace Right Hand Side Elements
*Coupled Temperature-Displacement,Steady State
 .25,1.
*Boundary,Op=New
 Lhs,11
 Bot, 1, 1
 Pinned, 2, 2
 Refnd,3,5
*Model Change,Add,Type=Element
 Erem, 
*Film
 Erhs,F2,200.,1.
*End Step