subroutine GetFit(X)

c***********************************************************************
c     Getfit gets the potential parameters from fitting parameter
c     array X(), according to the fitting index array Fidx()
c***********************************************************************

      integer Fidx, n
      double precision f0, mgb, alpha, c1, c2, Mbare, rcbm
      double precision X(3)
      common /bag/ rcbm,f0,mgb,alpha,c1,c2,Mbare(3),Fidx(3)

      n = 0
      if (Fidx(1) .eq. 1) then
         n = n + 1
         f0 = X(n)
      endif

      if (Fidx(2) .eq. 1) then
         n = n + 1
         Mbare(1) = X(n)
      endif

      if (Fidx(3) .eq. 1) then
         n = n + 1
         Mbare(2) = X(n)
      endif

      return
      end