copyright (C) 2001  MSC-RPN COMM  %%%MC2%%%
      integer mtn_hwx,mtn_hwy,mtn_xpos,mtn_ypos
      real mtn_heigth,mtn_flo,mtn_thrate
      real blb_zp,endmtn_r
      integer blb_xp,blb_xs,blb_zs,endmtn_i
      character*1 mtn_typ
*
      common /mtn_i/ mtn_typ
      common /mtn_i/ mtn_hwx,mtn_hwy,mtn_xpos,mtn_ypos,
     $               blb_xs,blb_zs,blb_xp,endmtn_i
      common /mtn_r/ mtn_heigth,mtn_thrate,mtn_flo,blb_zp,endmtn_r
*