#include <fortran.h>#include <string.h>
Go to the source code of this file.
Defines | |
| #define | WORDS 4 |
| #define | BITS 63 |
| #define | MASK 03 |
| #define | SHIFT 2 |
| #define | FOUND(a) (mask[a & MASK] << (a >> SHIFT)) >= 0 |
Functions | |
| _f_int | _VERIFY (_fcd str1, _fcd str2, _f_log *back) |
| #define FOUND | ( | a | ) | (mask[a & MASK] << (a >> SHIFT)) >= 0 |
1.7.1