function  clrmapname=getclrmapname(index)
%% colormap list

%%  Kriging Software Package  version 1.0 beta,   October 29, 1998
%%  Copyright (c) 1998, property of Dezhang Chu and Woods Hole Oceanographic
%%  Institution.  All Rights Reserved.


clrmapnamelist=['hsv      ';
            'hot      ';
            'gray     ';
            'bone     ';
            'copper   ';
            'pink     ';
            'white    ';
            'flag     ';
            'lines    ';
            'colorcube';
            'jet      ';
            'prism    ';
            'cool     ';
            'autumn   ';
            'spring   ';
            'winter   ';
            'summer   '];
clrmapname=clrmapnamelist(index,:);
nonspaceindex=find(clrmapname ~= ' ');
clrmapname=clrmapname(nonspaceindex);
         