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