function [scansize, unit]=scansize(header)
%SCANSIZE Return the image scan size

%
% Copyright (c) 1995 by Claudio Rivetti and Mark Young
% claudio@alice.uoregon.edu,    mark@alice.uoregon.edu
%

ss=getparameter(header, 'Scan size',1);

[scan_num,unit]=strtok(ss, ' ');

scansize= str2num(scan_num);

return