subroutine SHOW_PAR

c  Plot the paramter values to the left of the picture
c  Glen Cowan, 9-Dec-1998

        implicit NONE

c  constants

        integer           npar_max
        parameter         (npar_max = 100)

c  local variables

        character*10      chnam (npar_max)
      	character*24      line

        integer           i
        integer           istat
        integer           ivarbl(npar_max) ! = par # if adjustable, 0 if fixed
        integer           npari            ! number of adjustable parameters
        integer           nparx            ! total number of parameters

        logical	          top

        double precision  bnd1, bnd2
        double precision  deriv (npar_max)
        double precision  dpar (npar_max)
        double precision  fmin, fedm, errdef
        double precision  par (npar_max)

c  begin

c  Get the parameter values, errors, etc.

        call MNSTAT (fmin, fedm, errdef, npari, nparx, istat)
        do i = 1, nparx
          call MNPOUT (i,chnam(i),par(i),dpar(i),bnd1,bnd2,ivarbl(i))
        end do

      	top = .true.
      	call WRITE_LINE (' ', 0, top)
      	top = .false.
      	write (line,1010)
     	call WRITE_LINE (line, 0, top)

      	do i = 1, nparx

c  write parameter name and value

          write (line(1:24), fmt = '(24x)')
          write (line(1:2), fmt = '(i2)') i
          write (line(3:3), fmt = '('' '')')
          write (line(4:11), fmt = '(a8)') chnam(i)(1:8)
          write (line(12:24), fmt= '(1pg13.5)') par(i)
          call WRITE_LINE (line, 0 , top)

c  write error unless parameter is fixed

          if ( ivarbl(i) .gt. 0 ) then
	    write (line (1:24), fmt = '(24x)')
	    write (line (9:11), fmt = '(''"a#'')')
	    write (line (12:24), fmt = '(1pg13.5)') dpar(i)
	    call WRITE_LINE (line, 9, top)
          endif

        end do 

        write (line,1010)
        call WRITE_LINE (line, 0, top)
      	call WRITE_LINE (' ', 0, top)

c  write chi2

        call WRITE_LINE (' ', 0, top)
        write (line(1:9), fmt = '(''[h]^2! = '')')
        write (line(10:22), fmt = '(1pg13.5)') fmin
        call WRITE_LINE (line, 5, top)

 1010 	FORMAT (19('-'))
      	return
      	END