c character constants
c used to be local to each file, now as a common file
c to avoid g77 problems
	common/charcom/ispace, ibang, ihash, itab, ilb, irb, ilab,
     +       irab, icomma, iplus, nine, iminus, idiv, istar, iexp,
     +	     ie, echar, iscoln
	integer ispace, ibang, ihash, itab, ilb, irb, ilab,
     +       irab, icomma, iplus, nine, iminus, idiv, istar, iexp,
     +	     ie, echar, iscoln


c note to self - check name changes don't affect the innocent
c e.g. plus vs. iplus 

cfilter.f:       parameter (ispace = ichar(' '))
csubroutines2.f: parameter(ibang = ichar('!'))
csubroutines2.f: parameter(ihash = ichar('#'))
csubroutines2.f: parameter(itab = ichar('        '))
csubroutines2.f: parameter(ilb = ichar('('))
csubroutines2.f: parameter(irb = ichar(')'))
csubroutines2.f: parameter(ilab = ichar('<'))
csubroutines2.f: parameter(irab = ichar('>'))
csubroutines2.f: parameter(icomma = ichar(','))
csubroutines2.f: parameter(itab = ichar('        '))
csubroutines2.f: parameter(ispace = ichar(' '))
csubroutines2.f: parameter(plus = ichar('+'))
csubroutines2.f: parameter(nine = ichar('9'))
csubroutines2.f: parameter(iplus = ichar('+'))
csubroutines2.f: parameter(iminus = ichar('-'))
csubroutines2.f: parameter(idiv = ichar('/'))
csubroutines2.f: parameter(istar = ichar('*'))
csubroutines2.f: parameter(iexp = ichar('^'))
csubroutines2.f: parameter(ie = ichar('E'))
csubroutines2.f: parameter(iplus = ichar('+'))
csubroutines2.f: parameter(iminus = ichar('-'))
csubroutines2.f: parameter(idiv = ichar('/'))
csubroutines2.f: parameter(istar = ichar('*'))
csubroutines2.f: parameter(iexp = ichar('^'))
csubroutines2.f: parameter(ie = ichar('E'))
csubroutines2.f: parameter(nine = ichar('9'))
csubroutines2.f: parameter(plus = ichar('+'))
csubroutines2.f: parameter(iminus = ichar('-'))
csubroutines2.f: parameter(echar = ichar('e'))
csubroutines2.f: parameter(icomma = ichar(','))
csubroutines2.f: parameter(ibang = ichar('!'))
csubroutines2.f: parameter(itab = ichar('        '))
csubroutines2.f: parameter(ispace = ichar(' '))
csubroutines3.f: parameter(iscoln = ichar(';'))
csubroutines3.f: parameter (ispace = ichar(' '))