function []= stktitle(pltnum, maxnum, title)
%	Plot title on a stack plot.
%
%	function []= stktitle(pltnum, maxnum, title)
%	  pltnum= plot number counting bottom up {scaler}
%	  maxnum= total number of plots per page {scaler}
%	  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.

%				---------------------------------------
%				defaults from stkparm.mat
load stkparm.mat
sep= stksep; c= stkc; cht= stkcht; x0= stkx0;
%				---------------------------------------
%				calculate axis boundaries
axl= ((1.0-sep)/maxnum)-sep;
ystr= ((pltnum-1)*(axl+sep))+sep;
yend= pltnum*(axl+sep);
xstr= x0;
%				---------------------------------------
%				Scale the data
text(xstr+0.05, yend-cht, title);
