function []= stkpgttl(title)
%	Plot title at the top of the page.
%
%	function []= stkpgttl(title)
%	  title= string {row vector}

%	Latest revision by P. Dragos 21-May-91.
%
%	P. Dragos, Battelle Ocean Sciences
%	Duxbury, MA 02332
%	(617) 934-0571
%
%	Copyright (c) 1991 by Paul Dragos.
%	This program is copyrighted.  However, you are encouraged to
%	copy and share it, so long as no charge is imposed.

text(0, 1.03, title);
return;
