real *coldat[3], *r, *g, *b; int ncolors, colnum[3]; stream instr = stropen(fn,"r"); colnum[0] = 1; coldat[0] = r = (real *) allocate(256*sizeof(real)); colnum[1] = 2; coldat[1] = g = (real *) allocate(256*sizeof(real)); colnum[2] = 3; coldat[2] = b = (real *) allocate(256*sizeof(real)); ncolors = get_atable(instr,3,colnum,coldat,256); if (ncolors != 256) error("Problem %d reading %s",ncolors,fn);
NEMODAT/lut data files, mirrored from GIPSY’s $gip_dat/lut
17-dec-03 documentation written (100 years Wright flight) PJT