Open64 (mfef90, whirl2f, and IR tools)  TAG: version-openad; SVN changeset: 916
scan.c File Reference
#include <fortran.h>
#include <string.h>
Include dependency graph for scan.c:

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 _SCAN (_fcd str1, _fcd str2, _f_log *back)

Define Documentation

#define BITS   63

Definition at line 71 of file scan.c.

Referenced by _SCAN().

#define MASK   03

Definition at line 72 of file scan.c.

Referenced by _SCAN().

#define SHIFT   2

Definition at line 73 of file scan.c.

Referenced by _SCAN().

#define WORDS   4

Definition at line 70 of file scan.c.

Referenced by _SCAN().


Function Documentation

_f_int _SCAN ( _fcd  str1,
_fcd  str2,
_f_log *  back 
)

Definition at line 84 of file scan.c.

References _fcdlen(), _fcdtocp(), _ltob(), BITS, FOUND, MASK, NULL, SHIFT, and WORDS.

Here is the call graph for this function:

 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Defines