Reduced Input

  $ Block Sliding Up a Rod
  $
  *KEYWORD
  $
  $=============================CONTROL DEFINITIONS ==============================
  $
  *TITLE
  block sliding up a rod
  *CONTROL_SOLUTION
           2
  *CONTROL_THERMAL_SOLVER
           1         0         1
  *CONTROL_TIMESTEP
                                               .0001
  *CONTROL_THERMAL_TIMESTEP
           0       1.       .001
  *CONTROL_TERMINATION
        .007
  *DATABASE_BINARY_D3PLOT
        .001
  $
  $============================== PART DEFINITIONS ===============================
  $
  *PART
  $      PID     SECID       MID                                              TMID
  slab
           1         1         1                                                 1       
  $
  $============================= SECTION PROPERTIES ==============================
  $
  *SECTION_SOLID
           1         1
  $
  $====================== MECHANICAL MATERIAL PROPERTIES =========================
  $
  *MAT_ELASTIC
           1     7830.    3.e+07        .3
  $
  $======================== THERMAL MATERIAL PROPERTIES ==========================
  $
  *MAT_THERMAL_ISOTROPIC
           1      7830.
        460.       46.
  $
  $============================= NODE DEFINITIONS ================================
  $
  *NODE
  $
  $============================ ELEMENT DEFINITIONS ==============================
  $
  *ELEMENT_SOLID
  $
  $================== DEFINE NODE SET FOR BOUNDARY CONDITIONS ====================
  $
  *SET_NODE_LIST_GENERATE
           1
  $======================= MECHANICAL BOUNDARY CONDITIONS ========================
  $
  *BOUNDARY_PRESCRIBED_MOTION_SET
           1         3         2         1        1.
  *DEFINE_CURVE
           1
                    0.                  0.
                   .01                  .4
  $
  $========================= THERMAL BOUNDARY CONDITIONS =========================
  $
  *BOUNDARY_TEMPERATURE_SET
           1         0        1.
  $
  $================== THERMAL MECHANICAL CONTACT DEFINTION =======================
  $
  *SET_SEGMENT
           1
  *SET_SEGMENT
           2
  *CONTACT_SURFACE_TO_SURFACE_THERMAL
           1         2
          0.
          1.        1.
          0.        0.    1.e+06    1.e-02    1.e-02
  *END