function ShowSingleMap(Map,MLKP,ivar,Names);

if (nargin == 3)
    Label='N';
else
    Label='Y';
end

[Nvar,Dummy] = size(Map);
for i=1:MLKP.Nrow
    for j=1:MLKP.Ncol
        Plane(i,j)=Map(ivar,(i-1)*MLKP.Ncol+j);
    end
end
imagesc(Plane);

axis image %square;
colorbar
if(Label == 'Y')
    title(Names);
end
colormap(MLKP.ColorMap);