function givehead
%
%  The function givehead writes out the header of the current float
%
%-------------------------------------------------------------------
%              Written by Mike Sparrow June 1997
%
%-------------------------------------------------------------------
%
global head header
%
titleStr = ['HEADER FILE'] ;
helpfun (titleStr,header) ;



