subroutine PrtNif
c
c***********************************************************************
c     PrtNif prints out the Nifty's and their meaning.
c***********************************************************************
c
      integer Nifty, Up(15), i
      character*45 Cnif(0:32, 15)
      character*60 error
c
c     control.h Version 1.1
      common /control/ Nifty(15)
c
c***********************************************************************
c
      data error /'XXXXXXXXXXXXXXX BAD VALUE XXXXXXXXXXXXXXXXX'/
      data up /2,2,2,4,1,6,2,2,3,5,2,2,1,3,1/
c
c Nifty(1)
      data Cnif(0, 1) /'Do not include Roper'/
      data Cnif(1, 1) /'Include Roper through d-Born only'/
      data Cnif(2, 1) /'Include Roper through d,x-Born'/
c
c Nifty(2)
      data Cnif(1, 2) /'PiN single channel problem'/
      data Cnif(2, 2) /'PiN + PiDelta coupled channel problem'/
c
c Nifty(3)
      data Cnif(1, 3) /'Relativistic Kinematics'/
      data Cnif(2, 3) /'Non-Relativistic Kinematics'/
c
c Nifty(4)
      data Cnif(1, 4) /'Compute potential on a mesh of k-space'/
      data Cnif(2, 4) /'Compute T-matrix on complex energy plane'/
      data Cnif(3, 4) /'Fit potential parameters to exp. data'/
      data Cnif(4, 4) /'Search zero of det(1-GV) on complex plane'/
c
c Nifty(5)
      data Cnif(0, 5) /'Scaling m(N) and m(Delta)'/
      data Cnif(1, 5) /'Scaling mgb and alpha'/
c
c Nifty(6)
      data Cnif(1, 6) /'Only eigen channel S11'/
      data Cnif(2, 6) /'Only eigen channel S31'/
      data Cnif(3, 6) /'Only eigen channel P11'/
      data Cnif(4, 6) /'Only eigen channel P31'/
      data Cnif(5, 6) /'Only eigen channel P13'/
      data Cnif(6, 6) /'Only P33 or all 6 channels'/
c
c Nifty(7)
      data Cnif(0, 7) /'Born Approximation'/
      data Cnif(1, 7) /'Full Lippman-Schwinger Eq'/
c
c Nifty(8)
      data Cnif(1, 8) /'amp, controled by Nifty(11)'/
      data Cnif(2, 8) /'Comput obs(phase shfts, x-sect, scat length'/
c
c Nifty(9)
      data Cnif(0, 9) /'No cross section'/
      data Cnif(1, 9) /'compute total X-sect'/
      data Cnif(2, 9) /'compute diff. X-sect and analy power'/
c
c Nifty(10)
      data Cnif(0, 10) /'Zero potential'/
      data Cnif(1, 10) /'Including s channel diag only'/
      data Cnif(2, 10) /'Including s + u channel diag'/
      data Cnif(3, 10) /'Including s + u + t channel diag'/
      data Cnif(4, 10) /'Switch off space comp of t chl'/
      data Cnif(5, 10) /'Switch off time comp of t chl'/

c Nifty(11)
      data Cnif(0, 11) /'w nif8=1, calc PiNN Cpling Const'/
      data Cnif(1, 11) /'w nif8=1, 3D Tmatrix vs complex E'/
      data Cnif(2, 11) /'w nif8=1, 3D inverse det(1-vg) vs E'/

c Nifty(12)
      data Cnif(1, 12) /'Only if nif14=2, simple gaussian'/
      data Cnif(2, 12) /'Only if nif14=2, 1-node gaussian'/

c Nifty(13)
      data Cnif(0, 13) /'Without Coulomb'/
      data Cnif(1, 13) /'With Coulomb'/

c Nifty(14)
      data Cnif(1, 14) /'Use CDM form factor'/
      data Cnif(2, 14) /'Use Gaussian form factor'/
      data Cnif(3, 14) /'Use CBM form factor'/
c 
c Nifty(15)
      data Cnif(0, 15) /'No debug info'/
      data Cnif(1, 15) /'Print debug info'/
c
c***********************************************************************
c
      write(8, *)
      do 10000 i = 1, 15
         if (Nifty(i) .gt. Up(i)) then
            write(8, 900) i, Nifty(i), error
            stop 'prtnif'
         else
            write(8, 900) i, Nifty(i), Cnif(Nifty(i), i)
         endif
10000 continue
c
 900  format(1x, ' Nifty(', i2, ') = ', i3, 3x, a)
      return
      end