1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
/* $Header$ */ /* Values of the mask */ #ifdef CCODE #define MASK_EXCISED 0.0 #define MASK_BOUNDARY 0.5 #define MASK_ACTIVE 1.0 #endif #ifdef FCODE #define MASK_EXCISED 0.0D0 #define MASK_BOUNDARY 0.5D0 #define MASK_ACTIVE 1.0D0 #endif