** Mass scaling verification: *VARIABLE MASS SCALING with 3-d
** penalty contact
**
*Preprint, Contact=Yes, Model=Yes, History=Yes
*HEADING
*RESTART,WRITE	
*NODE,NSET=BOT
1001,   10.0, 0.0
1002,   13.0, 0.0
1003,   16.0, 0.0
1011,   10.0, 4.0
1012,   13.0, 4.0
1013,   16.0, 4.0
*NODE,NSET=TOP
1021,  12.0, 4.1, 0.25
1022,  15.0, 4.1, 0.25
1031,  12.0, 8.0, 0.25
1032,  15.0, 8.0, 0.25
*NCOPY,OLDSET=BOT,CHANGENUMBER=100,SHIFT,NEWSET=BOT2
0.,0.,1.5
0.,0.,0., 0.,0.,1., 0.
*NCOPY,OLDSET=TOP,CHANGENUMBER=100,SHIFT,NEWSET=TOP2
0.,0.,1.0
0.,0.,0., 0.,0.,1., 0.
*NSET,NSET=RIGHT
1002, 1003, 1102, 1103
*NSET,NSET=FIXED
1001, 1101 
*NSET,NSET=NOUT
1002, 
*NSET,NSET=SLIDER
1031,1032
1131,1132
*ELEMENT,TYPE=C3D8R,ELSET=SCALE
101,1001,1002,1012,1011,1101,1102,1112,1111
102,1002,1003,1013,1012,1102,1103,1113,1112
103,1021,1022,1032,1031,1121,1122,1132,1131
*ELSET,ELSET=BOTSC
101,102
*ELSET,ELSET=TOPSC
103, 
*SOLID SECTION,ELSET=SCALE,MATERIAL=SCALE
.5, 
*MATERIAL,NAME=SCALE
*ELASTIC
1.E6, .25
*DENSITY
1.E-4, 
*BOUNDARY
FIXED, 1, 2
RIGHT, 2, 2
*AMPLITUDE,NAME=SMOOTH,DEFINITION=SMOOTH STEP
0.,0.,  .002, 1.
**
*NSET, NSET=QA_TEST_ALLNODES
BOT, TOP, BOT2, TOP2
RIGHT, FIXED, NOUT, SLIDER
**
*************************************************************
**General contact definition
*Contact
*Contact Inclusions,  ALL EXTERIOR
*************************************************************
*STEP
*DYNAMIC,EXPLICIT
,.002
*VARIABLE MASS SCALING, ELSET=SCALE, TYPE=UNIFORM, DT=1.1208E-5, FREQUENCY=1
*BOUNDARY,AMP=SMOOTH
SLIDER, 2, 2, -0.2
*RESTART,WRITE,NUMBER INTERVAL=2
*FILE OUTPUT,NUMBER INTERVAL=4,TIMEMARKS=YES
*NODE FILE
U,
***EL FILE
**EMSF, EDT
***OUTPUT,HISTORY,TIME INTERVAL=0.
***NODE OUTPUT,NSET=NOUT
**RF,
*OUTPUT, FIELD, NUMBER INTERVAL=4, TIMEMARKS=YES
*NODE OUTPUT, NSET=QA_TEST_ALLNODES
U,
*OUTPUT,FIELD,VARIABLE=PRESELECT
*OUTPUT,HISTORY,VARIABLE=PRESELECT,TIMEINT=0.0005
*END STEP