		subroutine suba
		include "../inc/incfile.h"
		return
		end
