1 /* mod13A2 Adjacent cloud detected 1Km bit[8]
2  * 00 -> class 0: No
3  * 01 -> class 1: Yes
4  */
5 
6 #include <grass/raster.h>
7 
mod13A2d(CELL pixel)8 CELL mod13A2d (CELL pixel)
9 {
10     CELL qctemp;
11 
12     pixel >>= 8;		/*bit [8] becomes [0] */
13     qctemp = pixel & 0x01;
14 
15     return qctemp;
16 }
17 
18 
19