subroutine PrtPot

c***********************************************************************
c     prtpot prints the current potential parameters
c***********************************************************************

      integer Fidx
      double precision f0, mgb, alpha, c1, c2, Mbare, rcbm

c     bag.h Version 1.4  contains the CCDM parameters. first 3 independent
      common /bag/ rcbm,f0,mgb,alpha,c1,c2,Mbare(3),Fidx(3)

      write(8, 900) f0, alpha, mgb, Mbare(1), Mbare(2), Mbare(3), rcbm

  900 format('PARAMETERS:',/
     &     5x, 'Pion decay const:   ', f14.4, ' Mev', /,
     &     5x, 'Strg cpling const:  ', f14.4, '    ', /,
     &     5x, 'Glueball mass:      ', f14.4, ' MeV', /,
     &     5x, 'Nucleon bare mass:  ', f14.4, ' MeV', /,
     &     5x, 'Delta bare mass:    ', f14.4, ' Mev', /,
     &     5x, 'Roper bare mass:    ', f14.4, ' MeV', /,
     &	   5x, 'CBM bag radius:     ', f14.4, '  fm')

      return
      end