function ShowMap(Map,MLKP,Names);

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

[Nvar,Dummy] = size(Map);
for ivar=1:Nvar
    for i=1:MLKP.Nrow
        for j=1:MLKP.Ncol
            Plane(i,j)=Map(ivar,(i-1)*MLKP.Ncol+j);
        end
    end
    subplot(Nvar,1,ivar);
    imagesc(Plane);
    if(Label == 'Y')
        ylabel(Names(ivar,:));
    end
    % axis square;
    colorbar;
end
colormap(MLKP.ColorMap);