Rod I

File rod.k demonstrates wave propagation in one dimension using bar elements.

*BOUNDARY_SPC_NODE
*CONTROL_TERMINATION
*CONTROL_TIMESTEP
*DATABASE_BINARY_D3PLOT
*DATABASE_ELOUT
*DATABASE_GLSTAT
*DATABASE_HISTORY_BEAM_SET
*DATABASE_HISTORY_NODE_SET
*DATABASE_MATSUM
*DATABASE_NODFOR
*DATABASE_NODOUT
*DEFINE_CURVE
*ELEMENT_BEAM
*END
*KEYWORD
*LOAD_NODE_POINT
*MAT_ELASTIC
*NODE
*PART
*SECTION_BEAM
*SET_BEAM_LIST
*SET_NODE_LIST
*TITLE

  *KEYWORD
  *TITLE
  Wave Propagation In Rod, bar 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
  $   DTINIT    TSSFAC
      0.0000    0.9000
  *CONTROL_TERMINATION
  $   ENDTIM
    0.000925
  $---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
  *DATABASE_BINARY_D3PLOT
  $  DT/CYCL
     0.00001   
  *DATABASE_MATSUM
  $  DT/CYCL
   1.000E-06
  *DATABASE_NODOUT
  $  DT/CYCL
   1.000E-06
  *DATABASE_ELOUT
  $  DT/CYCL
   1.000E-06
  *DATABASE_NODFOR
  $  DT/CYCL
   1.000E-06
  *DATABASE_GLSTAT
  $  DT/CYCL
   1.000E-06
  *DATABASE_history_node_set
  $       ID
           1 
  *DATABASE_history_beam_set
  $       ID
           1
  $---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
  *SET_NODE_LIST
  $      SID
           1
  $     NID1
          2         22
  *SET_BEAM_LIST
  $      SID
           1
  $       K1
          20
  $---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
  *MAT_elastic
  $      MID        RO         E        PR
           1 7.890E-09 2.068E+05 3.000E-01
  *PART
  BEAM:
  $      PID       SID       MID
           1         1         1
  *SECTION_BEAM
  $      sid    elform
           1         3
  $        a
         645
  $---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
  *DEFINE_CURVE
  $     lcid
           1
  $           abscissa            ordinate
  0.00000000000000E+00 1.0000000000000E+00
  2.00000000000000E-03 1.0000000000000E+00
  *LOAD_NODE_POINT
  $NODE/NSID       DOF      LCID        SF       CID
           2         1         1 5.000E+02         0
  $---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
  *BOUNDARY_SPC_NODE
  $      NID       CID         X         Y         Z        RX        RY        RZ
           1         0         1         1         1         1         1         1
  $---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8 
  *NODE
  $    NID               X               Y               Z 
  $---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
  *ELEMENT_BEAM
  $    EID     PID      N1      N2
  $---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8     
  *END