Rod II

File rodsol.k demonstrates wave propagation in one dimension using solid elements.

*BOUNDARY_SPC_NODE
*CONTROL_TERMINATION
*CONTROL_TIMESTEP
*DATABASE_BINARY_D3PLOT
*DATABASE_ELOUT
*DATABASE_GLSTAT
*DATABASE_HISTORY_NODE_SET
*DATABASE_HISTORY_SOLID_SET
*DATABASE_MATSUM
*DATABASE_NODFOR
*DATABASE_NODOUT
*DEFINE_CURVE
*ELEMENT_SOLID
*END
*KEYWORD
*LOAD_SEGMENT
*MAT_ELASTIC
*NODE
*PART
*SECTION_SOLID
*SET_NODE_LIST
*SET_SOLID
*TITLE

  *KEYWORD
  *TITLE
  wave propagation in rod, solid element
  $
  $ This problem is to demonstrate wave propagation in one dimension
  $ Demonstrate potential problems with 32 Bit machines
  $ Time step calculation for rod elements
  $ Demonstrate time integration stability limits
  $ units: mm, ton, N
  $ A. Tabiei 3/3/98
  $---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
  *CONTROL_TIMESTEP
      0.0000    0.9000
  *CONTROL_TERMINATION
    0.000925
  $---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
  *DATABASE_BINARY_D3PLOT
     0.00001   
  *DATABASE_MATSUM
   1.000E-06
  *DATABASE_NODOUT
   1.000E-06
  *DATABASE_ELOUT
   1.000E-06
  *DATABASE_NODFOR
   1.000E-06
  *DATABASE_GLSTAT
   1.000E-06
  *DATABASE_history_node_set
           1 
  *DATABASE_history_solid_set
           1
  $---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
  *SET_NODE_LIST
  $      SID
           1
  $     NID1      NID2      NID3      NID4      NID5      NID6      NID7      NID8
          77        78        79        80         1
  *SET_solid
  $      SID
           1
  $       K1
          30
  $---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
  *MAT_elastic
           1 7.890E-09 2.068E+05 3.000E-01
  *SECTION_SOLID
  $      sid   
           1  
  *PART
  solid:
  $      PID       SID       MID
           1         1         1
  $---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
  *BOUNDARY_SPC_NODE
         161         0         1         1         1         1         1         1
         162         0         1         1         1         1         1         1
         163         0         1         1         1         1         1         1
         164         0         1         1         1         1         1         1
  $---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
  *DEFINE_CURVE
           1         0 
        0.00000000E+00      5.000E+02
        2.00000000E+01      5.000E+02
  *LOAD_SEGMENT
  $     LCID        SF        AT         N1       N2        N3        N4
           1 1.0000000       0.0         1         2         3         4
  $---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
  *NODE
  $
  *ELEMENT_SOLID
  $
  *END