( Solid.
  Two-dimensional.
  Force 0.005 on right nodes.
  Velocity 0 at left nodes.
  Young 1..
  In equilibrium, the velocity at the right nodes
  should be 0. and the stress sigxx 0.01 balances
  the external force 0.01)

echo -no
number_of_space_dimensions 2
materi_velocity
materi_strain_total
materi_stress
end_initia

node 1  0.0 0.0
node 2  1.0 0.0
node 3  1.0 1.0
node 4  0.0 1.0
element 1  -quad4 1 2 4 3

group_type 0  -materi
group_materi_elasti_young   0  1.0
group_materi_memory 0  -updated_without_rotation

bounda_unknown 1  -ra 1 4 -ra -velx
bounda_time    1  0. 0. 1000. 0.
bounda_force   2  -ra 2 3 -ra -velx
bounda_time    2  0. 0.005 1000. 0.005
bounda_unknown 3  -all -vely
bounda_time    3  0. 0. 1000. 0. 

print_filter 0 -node_dof -all -velx  -sigxx

control_timestep            0  0.1 0.1
(control_print               0  -time_current -node_dof)

target_item 0 -node_dof 2 -sigxx
target_value 0  0.01 1.e-3
end_data
