SUBROUTINE PFTRNS
	INTEGER BLNO,ARRAY
	COMMON B(411),A(90),MANU,BLNO
	RETURN
	END