COMMON	/USRSYM/ SYMTAB, SYMVAL, SYMFLG, SYMNUM, SYMMAX
	INTEGER		 SYMTAB(8,1000), SYMFLG(1000), SYMNUM,SYMMAX
	INTEGER*4	 SYMVAL(1000)