C	SEE PRIMET.DOC
	IMPLICIT INTEGER(A-Z)
	CALL POOF (-1)		!FOR INITIALIZATION OF PRIMET.CTL
	CALL MAINT
	STOP
	END