****calcul
 ***mesh updated_lagrangian_plane_strain
  **file curved_beams.geof
 ***resolution 
  **sequence 1
   *time  1.
   *increment 50
   *iteration 10
   *ratio automatic 0.1
   *algorithm p1p2p3
% **init_d_dof
  **no_symmetrize
  **automatic_time
   *security 1.2
   *divergence 3. 10
   *first_dtime 1e-3

 ***bc
  **impose_nodal_dof
    lower_bot U1 0.
    lower_bot U2 0.
    upper_top U2 0.
    upper_top U1 33. time


 ***mortar_contact
  **interface alm_fric_contact
  % **interface alm_contact
    *nmortar_side lower_ext
    *mortar_side upper_ext
  % *warning_dist 1.
    *fric_coeff 0.3
***output
 **curve Reaction_upper_0_3.dat
  *nset_var upper_beam U1 U2
 ***material
  **elset ALL_ELEMENT
   *this_file
   *integration theta_method_a 1. 1.e-12 200 
****return

***behavior gen_evp lagrange_rotate
  **elasticity  isotropic
    young 689.56
    poisson 0.32
  **potential gen_evp ep
   *isotropic linear
    R0 31. H 261.2
 ***return