C*	NOTCM	- COMMON FOR ...NOT
C
	IMPLICIT LOGICAL(L), INTEGER*4(K), BYTE(B)
C
	COMMON FIDTB(3), RBTB(128), NRTB
C
	COMMON IUIC, IFLAGS, KUSED, KALLOC, NFILES
C
	DIMENSION ISTAT(7), BUIC(2)
	EQUIVALENCE (IUIC,ISTAT,BUIC)