	subroutine cpssetup()

	call pssetup

	return
	end
	subroutine cpssbuf()

	call pssbuf

	return
	end
	subroutine cpssexit()

	call pssexit

	return
	end
