c	spur_warn.inc
c	For controlling mutliple warnings whcih get printed to the
c	lattice and scan pages

        integer wbit_qout		!! q is out of the scattering plane
        parameter (wbit_qout = 1)	!! + other warnigs from calcki().

        integer wbit_step		!! nothing is stepped in scan
        parameter (wbit_step = 2)	!! Need qs, es, and/or ts.

        integer wbit_npts		!! scan npts out of range (e.g. 0)
        parameter (wbit_npts = 3)	!! 

        integer wbit_other		!! misc. warnings
        parameter (wbit_other = 4)	!! buf/data input failure

c====================================================
c
	integer		warn_nchar 	!! # of chars per sub-warning
	parameter	(warn_nchar = 20)

        integer*4 	warn_options
	character*80 	warnstring
        common /cb_warning/ warn_options, warnstring
