function map = coolavhrrmap(n)
% $Id$
% COOLAVHRRMAP(N) colormap with N entries used by Jen Bosch 
% See also redblue, pixcmap, phasemap, clmap rscolmap, zebra, cmap5,
% makecmap, coolavhrrmap, jormap
%
% John Wilkin 
% 20 May 2004

if nargin == 0
  n = size(colormap,1);
end

%map = load('/home/bosch/colorbars/Dave_sst.txt')/255;

map = [...
  255	45	142 ;
  255	41	155 ;
  255	37	168 ;
  255	34	181 ;
  255	30	194 ;
  255	26	206 ;
  255	23	219 ;
  255	19	232 ;
  255	30	194 ;
  255	19	232 ;
  250	30	194 ;
  250	19	232 ;
  245	30	194 ;
  245	19	232 ;
  237	30	194 ;
  237	19	232 ;
  212	30	194 ;
  212	19	232 ;
  187	30	194 ;
  187	19	232 ;
  162	30	194 ;
  162	19	232 ;
  137	30	194 ;
  137	19	232 ;
  112	30	194 ;
  112	19	232 ;
  87	30	194 ;
  87	19	232 ;
  62	30	194 ;
  62	19	232 ;
  0	0	247 ;
  0	0	251 ;
  0	0	255 ;
  0	0	255 ;
  0	3	255 ;
  0	7	255 ;
  0	11	255 ;
  0	15	255 ;
  0	19	255 ;
  0	23	255 ;
  0	27	255 ;
  0	31	255 ;
  0	35	255 ;
  0	39	255 ;
  0	43	255 ;
  0	47	255 ;
  0	51	255 ;
  0	55	255 ;
  0	59	255 ;
  0	63	255 ;
  0	67	255 ;
  0	71	255 ;
  0	75	255 ;
  0	79	255 ;
  0	83	255 ;
  0	87	255 ;
  0	91	255 ;
  0	95	255 ;
  0	99	255 ;
  0	103	255 ;
  0	107	255 ;
  0	111	255 ;
  0	115	255 ;
  0	119	255 ;
  0	123	255 ;
  0	127	255 ;
  0	131	255 ;
  0	135	255 ;
  0	139	255 ;
  0	143	255 ;
  0	147	255 ;
  0	151	255 ; 
  0	155	255 ;
  0	159	255 ;
  0	163	255 ;
  0	167	255 ;
  0	171	255 ;
  0	175	255 ;
  0	179	255 ;
  0	183	255 ;
  0	187	255 ;
  0	191	255 ;
  0	195	255 ;
  0	199	255 ;
  0	203	255 ;
  0	207	255 ;
  0	211	255 ;
  0	215	255 ;
  0	219	255 ;
  0	223	255 ;
  0	227	255 ;
  0	231	255 ;
  0	235	255 ;
  0	239	255 ;
  0	243	255 ;
  0	247	255 ;
  0	251	255 ;
  0	255	255 ;
  0	255	255 ;
  3	255	251 ;
  7	255	247 ;
  11	255	243 ;
  15	255	239 ;
  19	255	235 ;
  23	255	231 ;
  27	255	227 ;
  31	255	223 ;
  35	255	219 ;
  39	255	215 ;
  43	255	211 ;
  47	255	207 ;
  51	255	203 ;
  55	255	199 ;
  59	255	195 ;
  63	255	191 ;
  67	255	187 ;
  71	255	183 ;
  75	255	179 ;
  79	255	175 ;
  83	255	171 ;
  87	255	167 ;
  91	255	163 ;
  95	255	159 ;
  99	255	155 ;
  103	255	151 ;
  107	255	147 ;
  111	255	143 ;
  115	255	139 ;
  119	255	135 ;
  123	255	131 ;
  127	255	127 ;
  131	255	123 ;
  135	255	119 ;
  139	255	115 ;
  143	255	111 ;
  147	255	107 ;
  151	255	103 ;
  155	255	99 ;
  159	255	95 ;
  163	255	91 ;
  167	255	87 ;
  171	255	83 ;
  175	255	79 ;
  179	255	75 ;
  183	255	71 ;
  187	255	67 ;
  191	255	63 ;
  195	255	59 ;
  199	255	55 ;
  203	255	51 ;
  207	255	47 ;
  211	255	43 ;
  215	255	39 ;
  219	255	35 ;
  223	255	31 ;
  227	255	27 ;
  231	255	23 ;
  235	255	19 ;
  239	255	15 ;
  243	255	11 ;
  247	255	7 ;
  251	255	3 ;
  255	255	0 ;
  255	251	0 ;
  255	247	0 ;
  255	243	0 ;
  255	239	0 ;
  255	235	0 ;
  255	231	0 ;
  255	227	0 ;
  255	223	0 ;
  255	219	0 ;
  255	215	0 ;
  255	211	0 ;
  255	207	0 ;
  255	203	0 ;
  255	199	0 ;
  255	195	0 ;
  255	191	0 ;
  255	187	0 ;
  255	183	0 ;
  255	179	0 ;
  255	175	0 ;
  255	171	0 ;
  255	167	0 ;
  255	163	0 ;
  255	159	0 ;
  255	155	0 ;
  255	151	0 ;
  255	147	0 ;
  255	143	0 ;
  255	139	0 ;
  255	135	0 ;
  255	131	0 ;
  255	127	0 ;
  255	123	0 ;
  255	119	0 ;
  255	115	0 ;
  255	111	0 ;
  255	107	0 ;
  255	103	0 ;
  255	99	0 ;
  255	95	0 ;
  255	91	0 ;
  255	87	0 ;
  255	83	0 ;
  255	79	0 ;
  255	75	0 ;
  255	71	0 ;
  255	67	0 ;
  255	63	0 ;
  255	59	0 ;
  255	55	0 ;
  255	51	0 ;
  255	47	0 ;
  255	43	0 ;
  255	39	0 ;
  255	35	0 ;
  255	31	0 ;
  255	27	0 ;
  255	23	0 ;
  255	19	0 ;
  255	15	0 ;
  255	11	0 ;
  255	7	0 ;
  255	3	0 ;
  255	0	0 ;
  250	0	0 ;
  246	0	0 ;
  241	0	0 ;
  237	0	0 ;
  233	0	0 ;
  228	0	0 ;
  224	0	0 ;
  219	0	0 ;
  215	0	0 ;
  211	0	0 ;
  206	0	0 ;
  202	0	0 ;
  197	0	0 ;
  193	0	0 ;
  189	0	0 ;
  184	0	0 ;
  180	0	0 ;
  175	0	0 ;
  171	0	0 ;
  167	0	0 ;
  162	0	0 ;
  158	0	0 ;
  153	0	0 ;
  149	0	0 ;
  145	0	0 ;
  140	0	0 ;
  136	0	0 ;
  131	0	0 ;
  131	0	0 ]/255;

if n ~=256
  map = interp1(1:256,map,linspace(1,256,n));
end
