parameter (n_frst=20,n_try=100,n_prob=10)
      integer i_inbt,i_smld,i_nrng,i_brnt
      integer i_frst
      common/defines/i_unbt,i_smld,i_brng,i_brnt
      common/forest/i_frst
      dimension i_frst(n_frst,n_frst)