##
## Measurements have shown that rail stiffness and damping can vary within 
## wide ranges. Following table shows the vertical static tangential 
## stiffness measured at a wheel load of 95 kN under different conditions:
## ----------------------------------------------------------------------------
##
##           \ Track:  Unfrozen        Frozen
## Sleepers:  \ -------------------------------------------
## Wooden     |        50- 60 kN/mm    60-105 kN/mm
## Concrete   |       120-280 kN/mm   190-525 kN/mm
##
##
## Measurements above have been carried out on a track without extra pads in
## the rail fasteners. As an average value for the most normal conditions
## the following values are recommended for the substructures wr_coupl_n*
## --------------------------------------------------------------------------
##
## Lateral stiffness and damping between track and ground,
##
  coupl p_lin  kytgp_  0  30e6
  coupl p_lin  cytgp_  0 173e3


 if_then_char_init  Sleepers .eq. "Wooden"
##
## Stiffness Railhead--Sleeper 	Wooden sleepers
##
  func  const   knwr.F0_  < Nominal wheel load >
##
  func  intpl_r knwr_    # Stiffness Tread-Rail all wheels
   -1.57     10e6
    0.       60e6
    1.57     10e6
##
  func  intpl_r cnwr_    # Damping Tread-Rail all wheels
   -1.57    40e3
    0.     150e3
    1.57    40e3
##
  func  intpl_r knfr_    # Stiffness Flange-Rail all wheels
   -1.57     10e6
    0.       60e6
    1.57     10e6
##
  func  intpl_r cnfr_    # Damping Flange-Rail all wheels
   -1.57    40e3
    0.     150e3
    1.57    40e3

 else
##
## Stiffness Railhead--Sleeper 	Concrete sleepers
##
  func  const   knwr.F0_  < Nominal wheel load >
##
  func  intpl_r knwr_    # Stiffness Tread-Rail all wheels
   -1.57     42e6
    0.      180e6
    1.57     42e6
##
  func  intpl_r cnwr_    # Damping Tread-Rail all wheels
   -1.57    60e3
    0.     250e3
    1.57    60e3
##
  func  intpl_r knfr_    # Stiffness Flange-Rail all wheels
   -1.57     42e6
    0.      180e6
    1.57     42e6
##
  func  intpl_r cnfr_    # Damping Flange-Rail all wheels
   -1.57    60e3
    0.     250e3
    1.57    60e3
 endif