copyright (C) 2001  MSC-RPN COMM  %%%MC2%%%
      real les_flo,blb_zp,endles_r
      integer blb_xp,blb_xs,blb_zs,endles_i
*
      common /les_i/ blb_xs,blb_zs,blb_xp,endles_i
      common /les_r/ les_flo,blb_zp,endles_r