function 
%
% showsir(array_in,head,min1,max1)
%
% function to display sir image 
%

if (exist('head') == 1)
  small=head(50);
  large=head(51);
  if (exist('min1') == 1)
    small=min1;
    if (exist('max1') == 1)
      large=max1;
    end;
  end;
  printsirhead(head);
else
  small=min(min(array_in));
  large=max(max(array_in));
end;

scale=large-small;
if scale == 0
  scale = 1;
end
scale=64/scale;
[small large scale]

clf;
image_out=(array_in-small)*scale;
axis('off');
colorbar('horiz');
colormap('gray');