source: tags/nemo_v3/AGRIF/LIB/fortran.yy.c @ 4624

#line 2 "fortran.yy.c"

#line 4 "fortran.yy.c"

#define  YY_INT_ALIGNED short int

/* A lexical scanner generated by flex */

#define FLEX_SCANNER
#define YY_FLEX_MAJOR_VERSION 2
#define YY_FLEX_MINOR_VERSION 5
#define YY_FLEX_SUBMINOR_VERSION 33
#if YY_FLEX_SUBMINOR_VERSION > 0
#define FLEX_BETA
#endif

/* First, we deal with  platform-specific or compiler-specific issues. */

/* begin standard C headers. */
#include <stdio.h>
#include <string.h>
#include <errno.h>
#include <stdlib.h>

/* end standard C headers. */

/* flex integer type definitions */

#ifndef FLEXINT_H
#define FLEXINT_H

/* C99 systems have <inttypes.h>. Non-C99 systems may or may not. */

#if __STDC_VERSION__ >= 199901L

/* C99 says to define __STDC_LIMIT_MACROS before including stdint.h,
 * if you want the limit (max/min) macros for int types. 
 */
#ifndef __STDC_LIMIT_MACROS
#define __STDC_LIMIT_MACROS 1
#endif

#include <inttypes.h>
typedef int8_t flex_int8_t;
typedef uint8_t flex_uint8_t;
typedef int16_t flex_int16_t;
typedef uint16_t flex_uint16_t;
typedef int32_t flex_int32_t;
typedef uint32_t flex_uint32_t;
#else
typedef signed char flex_int8_t;
typedef short int flex_int16_t;
typedef int flex_int32_t;
typedef unsigned char flex_uint8_t; 
typedef unsigned short int flex_uint16_t;
typedef unsigned int flex_uint32_t;
#endif /* ! C99 */

/* Limits of integral types. */
#ifndef INT8_MIN
#define INT8_MIN               (-128)
#endif
#ifndef INT16_MIN
#define INT16_MIN              (-32767-1)
#endif
#ifndef INT32_MIN
#define INT32_MIN              (-2147483647-1)
#endif
#ifndef INT8_MAX
#define INT8_MAX               (127)
#endif
#ifndef INT16_MAX
#define INT16_MAX              (32767)
#endif
#ifndef INT32_MAX
#define INT32_MAX              (2147483647)
#endif
#ifndef UINT8_MAX
#define UINT8_MAX              (255U)
#endif
#ifndef UINT16_MAX
#define UINT16_MAX             (65535U)
#endif
#ifndef UINT32_MAX
#define UINT32_MAX             (4294967295U)
#endif

#endif /* ! FLEXINT_H */

#ifdef __cplusplus

/* The "const" storage-class-modifier is valid. */
#define YY_USE_CONST

#else /* ! __cplusplus */

#if __STDC__

#define YY_USE_CONST

#endif   /* __STDC__ */
#endif   /* ! __cplusplus */

#ifdef YY_USE_CONST
#define yyconst const
#else
#define yyconst
#endif

/* Returned upon end-of-file. */
#define YY_NULL 0

/* Promotes a possibly negative, possibly signed char to an unsigned
 * integer for use as an array index.  If the signed char is negative,
 * we want to instead treat it as an 8-bit unsigned char, hence the
 * double cast.
 */
#define YY_SC_TO_UI(c) ((unsigned int) (unsigned char) c)

/* Enter a start condition.  This macro really ought to take a parameter,
 * but we do it the disgusting crufty way forced on us by the ()-less
 * definition of BEGIN.
 */
#define BEGIN (yy_start) = 1 + 2 *

/* Translate the current start state into a value that can be later handed
 * to BEGIN to return to the state.  The YYSTATE alias is for lex
 * compatibility.
 */
#define YY_START (((yy_start) - 1) / 2)
#define YYSTATE YY_START

/* Action number for EOF rule of a given start state. */
#define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1)

/* Special action meaning "start processing a new file". */
#define YY_NEW_FILE fortranrestart(fortranin  )

#define YY_END_OF_BUFFER_CHAR 0

/* Size of default input buffer. */
#ifndef YY_BUF_SIZE
#define YY_BUF_SIZE 16384
#endif

/* The state buf must be large enough to hold one state per character in the main buffer.
 */
#define YY_STATE_BUF_SIZE   ((YY_BUF_SIZE + 2) * sizeof(yy_state_type))

#ifndef YY_TYPEDEF_YY_BUFFER_STATE
#define YY_TYPEDEF_YY_BUFFER_STATE
typedef struct yy_buffer_state *YY_BUFFER_STATE;
#endif

extern int fortranleng;

extern FILE *fortranin, *fortranout;

#define EOB_ACT_CONTINUE_SCAN 0
#define EOB_ACT_END_OF_FILE 1
#define EOB_ACT_LAST_MATCH 2

    #define YY_LESS_LINENO(n)
    
/* Return all but the first "n" matched characters back to the input stream. */
#define yyless(n) \
   do \
      { \
      /* Undo effects of setting up fortrantext. */ \
        int yyless_macro_arg = (n); \
        YY_LESS_LINENO(yyless_macro_arg);\
      *yy_cp = (yy_hold_char); \
      YY_RESTORE_YY_MORE_OFFSET \
      (yy_c_buf_p) = yy_cp = yy_bp + yyless_macro_arg - YY_MORE_ADJ; \
      YY_DO_BEFORE_ACTION; /* set up fortrantext again */ \
      } \
   while ( 0 )

#define unput(c) yyunput( c, (yytext_ptr)  )

/* The following is because we cannot portably get our hands on size_t
 * (without autoconf's help, which isn't available because we want
 * flex-generated scanners to compile on their own).
 */

#ifndef YY_TYPEDEF_YY_SIZE_T
#define YY_TYPEDEF_YY_SIZE_T
typedef unsigned int yy_size_t;
#endif

#ifndef YY_STRUCT_YY_BUFFER_STATE
#define YY_STRUCT_YY_BUFFER_STATE
struct yy_buffer_state
   {
   FILE *yy_input_file;

   char *yy_ch_buf;     /* input buffer */
   char *yy_buf_pos;    /* current position in input buffer */

   /* Size of input buffer in bytes, not including room for EOB
    * characters.
    */
   yy_size_t yy_buf_size;

   /* Number of characters read into yy_ch_buf, not including EOB
    * characters.
    */
   int yy_n_chars;

   /* Whether we "own" the buffer - i.e., we know we created it,
    * and can realloc() it to grow it, and should free() it to
    * delete it.
    */
   int yy_is_our_buffer;

   /* Whether this is an "interactive" input source; if so, and
    * if we're using stdio for input, then we want to use getc()
    * instead of fread(), to make sure we stop fetching input after
    * each newline.
    */
   int yy_is_interactive;

   /* Whether we're considered to be at the beginning of a line.
    * If so, '^' rules will be active on the next match, otherwise
    * not.
    */
   int yy_at_bol;

    int yy_bs_lineno; /**< The line count. */
    int yy_bs_column; /**< The column count. */
    
   /* Whether to try to fill the input buffer when we reach the
    * end of it.
    */
   int yy_fill_buffer;

   int yy_buffer_status;

#define YY_BUFFER_NEW 0
#define YY_BUFFER_NORMAL 1
   /* When an EOF's been seen but there's still some text to process
    * then we mark the buffer as YY_EOF_PENDING, to indicate that we
    * shouldn't try reading from the input source any more.  We might
    * still have a bunch of tokens to match, though, because of
    * possible backing-up.
    *
    * When we actually see the EOF, we change the status to "new"
    * (via fortranrestart()), so that the user can continue scanning by
    * just pointing fortranin at a new input file.
    */
#define YY_BUFFER_EOF_PENDING 2

   };
#endif /* !YY_STRUCT_YY_BUFFER_STATE */

/* Stack of input buffers. */
static size_t yy_buffer_stack_top = 0; /**< index of top of stack. */
static size_t yy_buffer_stack_max = 0; /**< capacity of stack. */
static YY_BUFFER_STATE * yy_buffer_stack = 0; /**< Stack as an array. */

/* We provide macros for accessing buffer states in case in the
 * future we want to put the buffer states in a more general
 * "scanner state".
 *
 * Returns the top of the stack, or NULL.
 */
#define YY_CURRENT_BUFFER ( (yy_buffer_stack) \
                          ? (yy_buffer_stack)[(yy_buffer_stack_top)] \
                          : NULL)

/* Same as previous macro, but useful when we know that the buffer stack is not
 * NULL or when we need an lvalue. For internal use only.
 */
#define YY_CURRENT_BUFFER_LVALUE (yy_buffer_stack)[(yy_buffer_stack_top)]

/* yy_hold_char holds the character lost when fortrantext is formed. */
static char yy_hold_char;
static int yy_n_chars;     /* number of characters read into yy_ch_buf */
int fortranleng;

/* Points to current character in buffer. */
static char *yy_c_buf_p = (char *) 0;
static int yy_init = 0;    /* whether we need to initialize */
static int yy_start = 0;   /* start state number */

/* Flag which is used to allow fortranwrap()'s to do buffer switches
 * instead of setting up a fresh fortranin.  A bit of a hack ...
 */
static int yy_did_buffer_switch_on_eof;

void fortranrestart (FILE *input_file  );
void fortran_switch_to_buffer (YY_BUFFER_STATE new_buffer  );
YY_BUFFER_STATE fortran_create_buffer (FILE *file,int size  );
void fortran_delete_buffer (YY_BUFFER_STATE b  );
void fortran_flush_buffer (YY_BUFFER_STATE b  );
void fortranpush_buffer_state (YY_BUFFER_STATE new_buffer  );
void fortranpop_buffer_state (void );

static void fortranensure_buffer_stack (void );
static void fortran_load_buffer_state (void );
static void fortran_init_buffer (YY_BUFFER_STATE b,FILE *file  );

#define YY_FLUSH_BUFFER fortran_flush_buffer(YY_CURRENT_BUFFER )

YY_BUFFER_STATE fortran_scan_buffer (char *base,yy_size_t size  );
YY_BUFFER_STATE fortran_scan_string (yyconst char *yy_str  );
YY_BUFFER_STATE fortran_scan_bytes (yyconst char *bytes,int len  );

void *fortranalloc (yy_size_t  );
void *fortranrealloc (void *,yy_size_t  );
void fortranfree (void *  );

#define yy_new_buffer fortran_create_buffer

#define yy_set_interactive(is_interactive) \
   { \
   if ( ! YY_CURRENT_BUFFER ){ \
        fortranensure_buffer_stack (); \
      YY_CURRENT_BUFFER_LVALUE =    \
            fortran_create_buffer(fortranin,YY_BUF_SIZE ); \
   } \
   YY_CURRENT_BUFFER_LVALUE->yy_is_interactive = is_interactive; \
   }

#define yy_set_bol(at_bol) \
   { \
   if ( ! YY_CURRENT_BUFFER ){\
        fortranensure_buffer_stack (); \
      YY_CURRENT_BUFFER_LVALUE =    \
            fortran_create_buffer(fortranin,YY_BUF_SIZE ); \
   } \
   YY_CURRENT_BUFFER_LVALUE->yy_at_bol = at_bol; \
   }

#define YY_AT_BOL() (YY_CURRENT_BUFFER_LVALUE->yy_at_bol)

/* Begin user sect3 */

typedef unsigned char YY_CHAR;

FILE *fortranin = (FILE *) 0, *fortranout = (FILE *) 0;

typedef int yy_state_type;

extern int fortranlineno;

int fortranlineno = 1;

extern char *fortrantext;
#define yytext_ptr fortrantext

static yy_state_type yy_get_previous_state (void );
static yy_state_type yy_try_NUL_trans (yy_state_type current_state  );
static int yy_get_next_buffer (void );
static void yy_fatal_error (yyconst char msg[]  );

/* Done after the current pattern has been matched and before the
 * corresponding action - sets up fortrantext.
 */
#define YY_DO_BEFORE_ACTION \
   (yytext_ptr) = yy_bp; \
   fortranleng = (size_t) (yy_cp - yy_bp); \
   (yy_hold_char) = *yy_cp; \
   *yy_cp = '\0'; \
   (yy_c_buf_p) = yy_cp;

#define YY_NUM_RULES 173
#define YY_END_OF_BUFFER 174
/* This struct is not used in this scanner,
   but its presence is necessary. */
struct yy_trans_info
   {
   flex_int32_t yy_verify;
   flex_int32_t yy_nxt;
   };
static yyconst flex_int16_t yy_accept[1124] =
    {   0,
        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
        0,    0,  174,  173,  163,  159,  162,  172,  151,  150,
      153,  165,  151,  153,  153,  155,  152,  138,  149,  154,
      157,  156,  158,  144,  144,  144,  144,  144,  144,  144,
      144,  144,  144,  144,  144,  144,  144,  144,  144,  144,
      144,  163,  159,  162,  172,  149,  144,  144,  144,  144,
      144,  173,  173,  170,  173,  153,  144,    0,    0,  163,
      164,    0,  162,  172,  172,  172,    0,  142,    0,    0,
      165,  165,  165,  165,    0,    0,    0,  141,    0,    0,
      133,   25,    0,  145,    0,    0,    0,    0,    0,    0,

        0,  134,    0,  149,   24,    0,  144,  144,  144,  144,
      144,  144,  144,  144,  144,  144,  144,  144,  144,  144,
      144,  144,  144,   42,  144,  144,  144,  144,  144,  144,
      144,  144,  144,  144,  144,  144,  144,   84,  144,  144,
      144,  144,  144,  144,  144,  144,  144,  144,  144,  144,
      144,  144,  144,  144,  144,  144,  144,  144,  144,  144,
      144,  144,  144,  144,  163,  161,    0,  161,    0,    0,
        0,    0,    0,  164,  160,  161,    0,  172,  171,  172,
      172,  172,  161,  149,    4,  144,  144,  144,  144,  144,
      144,    0,  170,    0,    0,    0,  167,   25,    0,    0,

        4,    0,  144,  144,  144,  144,  144,  144,    0,    0,
        0,  172,  172,    0,    0,  165,  165,    0,    0,    0,
        0,  140,    0,    0,    0,    0,    0,    0,    0,    0,
        0,    0,    0,    0,    0,    0,    0,  148,  145,    0,
        0,    0,  143,    0,  144,  144,  144,  144,  144,  144,
      144,  144,  144,  144,  144,  144,  144,  114,  144,  144,
      144,    0,  144,  144,  144,  144,  144,   15,  144,  144,
      144,  113,  144,  144,  144,  144,  144,    0,  144,    0,
       95,  144,  144,  144,  144,  144,  120,  144,  144,  125,
      144,  144,  144,  144,  144,  144,   88,  144,  144,  144,

      144,  144,  144,  144,  144,  144,  144,  144,  144,  144,
      144,  117,  144,  144,  144,  144,  144,  121,  144,  144,
      144,  144,  144,  163,  161,    0,  164,    0,    0,    0,
        0,    0,    0,    0,  161,    0,  161,  172,  172,  172,
      149,    4,    4,    4,    4,  144,  144,  144,  144,  144,
      144,    0,    0,    0,  167,    0,    0,    4,    4,    4,
        4,  143,    0,  144,  144,    0,  144,  144,  144,  144,
        0,    0,    0,  172,  172,    0,    0,  165,  165,    0,
        0,    0,    0,  146,    0,  145,    0,  147,    0,   27,
        0,   29,   28,   31,   30,   33,    0,    0,   35,    0,

      145,    0,  146,    0,  145,    0,  147,    0,  143,    0,
      144,  144,  124,  116,  144,  119,  122,  144,   21,  144,
      144,  144,  144,  144,  115,  144,  144,  144,    0,  144,
      144,  144,   93,    0,  107,  144,  144,  144,  144,  144,
      144,  144,  144,  144,    0,  108,  144,  144,  144,  144,
      144,  144,  144,    0,   87,  144,  144,  144,  144,  144,
      144,  144,    0,   97,  144,  144,    0,  110,  144,  144,
      144,  144,  111,   20,   59,   73,  144,  144,  144,  144,
      144,  144,  144,  144,   78,   43,  144,  144,  144,  144,
       68,  144,  126,  118,  144,   71,   53,  144,    0,   96,

       98,  144,   91,  100,  144,  144,  163,  161,  164,    0,
        0,    0,    0,    0,    0,  161,    0,  161,  172,  172,
      172,  149,    4,    4,  144,  144,  144,  144,  144,   17,
        0,    0,    0,    4,    4,    0,  143,    0,  144,  144,
      144,  144,    0,    0,    0,  172,  172,    0,    0,  165,
      165,    0,    0,   37,   26,    0,   34,   36,    0,  143,
        0,  143,  144,  144,  144,  144,  144,   48,  144,  144,
      144,  123,  144,  144,    0,  144,  144,  144,    0,  144,
      144,    0,    0,    0,    0,    0,    0,    0,    0,   41,
      144,   94,  144,  144,  144,  144,  144,  144,  144,  144,

      144,   75,   75,   75,   75,  144,    0,  106,  112,  144,
      144,   87,  144,  144,   89,  144,  144,  144,  144,  144,
      144,  144,  144,  144,  144,  144,  144,  144,  144,   51,
      144,   76,  144,  144,  144,    0,  144,  144,  144,  144,
      144,  101,  144,  144,   54,   80,  163,  161,  164,    0,
        0,    0,    0,    0,  161,    0,  161,  172,  172,  172,
      149,    4,    3,    0,  103,  144,  144,   85,  144,   69,
       70,   69,    0,    0,    0,    4,    3,    0,  143,    0,
      143,  144,   48,  144,  123,    0,   22,    0,  172,   22,
        0,   22,   22,  165,   22,    0,   22,   22,   22,   32,

      144,   22,   22,   22,  144,  144,  144,   62,  144,  144,
      144,  144,    0,  144,  144,  139,    0,    0,   92,  144,
       41,    0,   94,    0,    0,    0,    0,    0,    0,    0,
      144,  144,  144,  144,  144,  144,  144,  144,  144,    0,
      109,  144,  144,  144,  144,  144,  144,  144,   65,  144,
      144,  144,  128,   99,  127,  129,   38,  144,  144,  144,
      144,  144,  144,   82,    0,  144,   10,   74,   18,  144,
      144,   81,  163,  161,  164,    0,    0,    0,  161,  172,
      172,   22,    4,    3,    3,  144,  144,  144,    0,    0,
       22,    4,    3,    3,  144,   22,   22,   22,   23,  166,

       23,   23,   23,   23,   23,   23,   23,   23,   23,   23,
      144,  144,  144,   57,  144,  144,  144,    0,    0,  144,
      144,   39,   92,    0,  144,    0,    0,    0,    0,    0,
        0,    0,    0,  144,  144,  144,  144,  144,  144,   72,
      144,  144,  144,    0,    0,  144,  144,   16,   49,   44,
      144,  144,   45,    0,  144,  144,  144,  144,   66,   83,
        7,    0,    0,  144,    0,  144,  144,    0,    0,    0,
      172,   23,    4,  144,  144,   63,    0,   23,    4,   23,
       23,   23,  144,    8,  144,  144,   86,  144,  144,   39,
        0,    0,  144,  144,    0,  144,    0,    0,    0,    0,

        0,    0,   72,    0,  144,  144,  144,  144,  144,  144,
       55,  144,   64,    0,    0,    0,  135,   11,   19,  144,
      144,    0,  144,   79,   67,  144,    0,  144,    0,  144,
      144,    0,    0,  172,    4,  144,   58,    0,    4,  144,
      131,   46,  144,   50,    0,    0,  144,  144,    0,   56,
        0,    0,    0,    0,    0,    0,   55,  144,  144,   40,
      144,  105,  144,  144,    0,    0,    0,    0,  135,  130,
       90,    0,  144,   60,    0,   61,    0,  144,  144,    0,
       58,  172,    4,    4,  144,    0,    4,    4,  144,    9,
        0,    0,  144,  144,   56,    0,    0,   40,    0,  105,

        0,  144,  144,   13,  144,  144,    0,    0,    0,  144,
        0,    0,  102,    6,    0,  172,    4,    4,  144,    0,
        4,    4,   47,    0,    0,  144,  144,    0,    0,   13,
        0,   14,  144,  144,   52,    0,    0,    0,  144,    0,
      102,    0,  172,    4,    2,  104,    0,    4,    2,    0,
        0,  144,  144,   14,    0,    0,  132,  144,    0,    0,
        0,  144,    0,  104,  172,    4,    0,    4,    0,    0,
      137,  144,  132,    0,   12,    0,    0,    0,  144,    0,
      172,    1,    0,    1,  137,    0,  144,   12,    0,    0,
        0,  144,    0,  172,    0,    0,  136,    0,    0,    0,

       77,    5,  172,    0,  136,   77,  172,    0,  172,    0,
      172,    0,  172,    0,  172,    0,  168,    0,    0,    0,
        0,  169,    0
    } ;

static yyconst flex_int32_t yy_ec[256] =
    {   0,
        1,    1,    1,    1,    1,    1,    1,    1,    2,    3,
        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
        1,    4,    5,    6,    7,    8,    9,   10,   11,   12,
       13,   14,   15,   16,   17,   18,   19,   20,   21,   22,
       23,   24,   25,   26,   27,   28,   20,   29,   30,   31,
       32,   33,    1,    1,   37,   38,   39,   40,   41,   42,
       43,   44,   45,   46,   47,   48,   49,   50,   51,   52,
       53,   54,   55,   56,   57,   58,   59,   60,   61,   62,
       34,    1,   35,    1,   36,    1,   37,   38,   39,   40,

       41,   42,   43,   44,   45,   46,   47,   48,   49,   50,
       51,   52,   53,   54,   55,   56,   57,   58,   59,   60,
       61,   62,   63,   63,   63,    1,    1,    1,    1,    1,
        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,

        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
        1,    1,    1,    1,    1
    } ;

static yyconst flex_int32_t yy_meta[64] =
    {   0,
        1,    2,    3,    4,    1,    5,    1,    1,    1,    6,
        1,    1,    1,    1,    7,    1,    7,    8,    1,    9,
        9,    9,    9,    9,    9,    9,    9,    9,    1,    1,
        1,    1,    1,    1,    1,   10,   11,   10,   10,   12,
       13,   14,   15,   16,   10,   10,   10,   15,   15,   15,
       11,   10,   12,   15,   15,   14,   15,   10,   17,   10,
       10,   10,    5
    } ;

static yyconst flex_int16_t yy_base[1180] =
    {   0,
        0,   62,    0,    0,    0,    0, 4188,   65,    0,   55,
        0,    0, 4190,   35,   69,   70,   74,   37,   75,   50,
       53,   72,   93,   78,   66,   56,  148,   87,   81,   65,
       68,   99,   71,  191,  230,  108,  183,  225,  244,  103,
      137,  152,  185,  250,  265,  262,  281,  220,  286,  296,
      308,  368,  134,  424,  321,  350,  149, 4152,  310,  337,
      270, 4192, 4185, 4192,  158,  380,  481, 4150, 4132,  138,
      163,  175,  179,    0, 4148, 4130, 4177, 4176,  147,  133,
     4178, 4177,  192,  156,  232,  393,  376, 4192,  402,  406,
     4192, 4192,  543,  184, 4129, 4125,  204,  218,  226, 4123,

     4125, 4192,  584,  358, 4192,  448,  532,  507,  514,  572,
      534,  588,  593,  605,  617,  381,  242,  169,  195,  404,
      384,  312,  517,  672,  524,  378,  403,  544,  365,  630,
      597,  545,  424,  565,  651,  679,  425,  650,  626,  648,
      672,  673,  603,  674,  680,  684,  698,  686,  699,  704,
      706,  584,  707,  710,  711,  730,  683,  297,  732,  735,
      734,  737,  742,  750,  788,  795, 4172,  389,  316, 4137,
     4125,   72, 4117,  807, 4192,  863,  427, 4168, 4192,  225,
      327,  543,  632,  660,  804,  765,  799,  770,  764,  785,
      788, 4167, 4192,  343, 4166,  774, 4192, 4165,  820,  564,

      856,  918,  946, 4149,  271,  661,  187,  270, 4118, 4108,
      812, 4116, 4106,  547,  804,  617,  398,  859,  894,  906,
      868, 4192,  889,  871,  815,  860,  896, 4122,  372, 4143,
     4142, 4141, 4140,  275, 4101, 4138, 4101, 4192,  874,  907,
      908,  914, 4113, 4112,  864,  973,  999,  977,  975,  983,
      984,  981, 1002,  986,  987, 1006, 1007, 1008, 1011, 1020,
     1010, 4093,  737, 1029, 1032, 1017, 1036, 1089, 1033, 1078,
     1042, 1035, 1047, 1058, 1038, 1057, 1063, 1101, 1071, 1013,
     4192, 1070, 1079, 1082, 1083, 1105, 1110, 1148, 1149, 1112,
     1117, 1119, 1126, 1128, 1133, 1139, 1076, 1125, 1137, 1140,

     1151, 1161, 1162, 1171, 1163, 1175, 1176, 1177, 1186, 1187,
     1184, 1198, 1189, 1199, 1202, 1141, 1245, 1207, 1221, 1209,
     1211, 1213, 1225, 1264, 1283, 4090, 1290, 4147, 4094, 4098,
     4091, 4095, 4093, 4103, 1346,  715,  922,  557, 1120,  837,
     1266,    0,  931, 4100, 4093, 1236, 1235, 1243, 1264, 1271,
     1274,  800, 4138, 1311, 4192, 1268,  873, 4137, 1332, 1295,
     1132, 1401, 1440,    0, 4005, 1479,  697,  659,  815,  998,
     3951, 3948,  932, 3883, 3892, 1231,  551,  561, 1302, 1321,
     1342, 1351, 1355, 1385, 1410, 1424, 1449, 1463, 3913, 4192,
     3846, 4192, 4192, 4192, 4192, 4192, 3789, 3812, 4192, 3807,

     1347, 1488, 1497, 1506, 1515, 1524, 1533, 1302, 3782, 1327,
     1304, 1525, 4192, 1273, 1362, 1361, 1402, 1403, 1441, 1442,
     1526, 1443, 1527, 1528, 1531, 1533, 1535, 1534, 3776, 1549,
     1553, 1539, 1597, 1655, 4192, 1541, 1554, 1563, 1565, 1567,
     1569, 1575, 1578, 1577, 1361, 4192, 1583, 1714, 1587, 1623,
     1591, 1596, 1607, 3768, 1611, 1617, 1612, 1616, 1630, 1631,
     1645, 1639, 1684, 4192, 1652, 1654, 1690, 4192, 1741, 1672,
     1742, 1743, 1744, 1745, 1746, 1747, 1751, 1757, 1766, 1756,
     1767, 1771, 1772, 1777, 1776, 1801, 1779, 1780, 1781, 1782,
     1787, 1790, 1800, 1802, 1828, 1805, 1806, 1810, 1846, 4192,

     1808, 1812, 1809, 1814, 1830, 1832, 1870, 1885, 1892, 3776,
     3757, 3774, 3770, 3766, 3801, 1948, 1009, 1380, 1303,  663,
     1414, 1873, 3748, 3749, 1903, 1863, 1902, 1839, 1943, 3796,
     1306, 1438, 1451, 1849, 1566, 2003, 2029, 2068, 1591,  424,
     1063, 1373, 3758,    0, 1392, 3757,    0,  815, 3791, 1875,
     3793, 1919, 1702, 4192, 4192, 3776, 4192, 4192, 1987, 2013,
     2038, 2052, 1844, 2096, 1864, 1882, 1884, 1883, 1927, 1924,
     1929, 1909, 1945, 1930, 3748, 1949, 2123, 2124, 2160, 2045,
     2126, 3741, 3734, 1588, 3738, 3731, 1623, 3723, 3690, 1963,
     2129, 1965, 2030, 2132, 2130, 2128, 2136, 2148, 2150, 2138,

     2191, 4192, 2186, 2178, 2162, 2180, 1990, 4192, 2164, 2166,
     2184, 4192, 2187, 2196, 2188, 2190, 2194, 2200, 2209, 2203,
     2206, 2210, 2218, 2222, 2221, 2230, 2225, 2228, 2236, 2231,
     2246, 2237, 2243, 2244, 2249, 3701, 2252, 2255, 2258, 2256,
     2264, 4192, 2265, 2267, 2276, 2277, 2322, 2331, 2341, 2313,
     3690, 1416, 3687, 2336, 2397, 1449, 1648, 1854, 2040, 3720,
     2324, 3676, 1783, 2335, 4192, 2313, 2312, 1910, 2335, 2392,
     4192, 2389, 2194, 2341, 3697, 2249, 2042, 2452, 2478, 2504,
     2530, 1870, 3681, 2558, 3678,    0, 4192, 2615,    0,    0,
     3687, 3684, 3677, 3679, 3659, 2353, 2366, 2400, 4192, 4192,

     2643, 2392, 2355, 2331, 2369, 2384, 2385, 2389, 2390, 2391,
     2392, 2397, 3609, 2431, 2415, 2393, 3586, 3583, 2395, 2430,
     4192, 3576, 4192, 3569, 3582, 3569, 3542, 3551, 3536, 3546,
     2454, 2455, 2457, 2480, 2481, 2428, 2670, 2458, 2671, 2455,
     4192, 2482, 2708, 2672, 2676, 2677, 2692, 2483, 2484, 2678,
     2680, 2690, 2685, 2699, 2700, 2703, 2739, 2705, 2710, 2711,
     2712, 2714, 2721, 2715, 2537, 2726, 2719, 2724, 2735, 2775,
     2744, 2745, 2781, 2792, 2801, 3495, 3474, 3433,    0, 1637,
     3477, 3476, 3436,    0, 1991, 2750, 2772, 2806, 1959, 3474,
     3473, 2313, 3472, 2356, 2860, 2921,    0, 3456, 4192, 4192,

        0, 3467, 3466, 3468, 2537, 2621, 4192, 2905, 2793, 2747,
     2782, 2779, 2805, 2753, 2897, 2780, 2802, 3429, 2458, 2899,
     2791, 2898, 4192, 3428, 2900, 3429, 3426, 3409, 3422, 3423,
     3409, 3421, 3407, 2902, 2903, 2918, 2922, 2923, 2924, 2926,
     2927, 2928, 2936, 2981, 2976, 2937, 2951, 2955, 2957, 2958,
     2959, 2963, 2960, 2997, 2965, 2966, 2967, 2969, 2979, 2981,
     2987, 3024, 3423, 2988, 2811, 2990, 2993, 3417, 3407, 2459,
     2510, 3453, 3419, 2994, 2997, 2462, 3026, 3448, 3029, 3063,
        0, 3426, 3002, 3000, 3016, 3006, 3013, 3018, 3021, 4192,
     3389, 3309, 3024, 3022, 3272, 3027, 3215, 3209, 3187, 3150,

     3134, 3029, 4192, 3004, 3055, 3040, 3056, 3042, 3058, 3061,
     3062, 3067, 3065, 3098, 2484, 3110, 3119, 3070, 3088, 3089,
     3094, 2917, 3090, 3091, 3097, 3098, 2953, 3099, 2930, 3100,
     3109, 2818, 2796, 2785, 2502, 3110, 3102, 2383, 3135, 3112,
     3120, 3124, 3128, 3125, 2746, 2687, 3131, 3133, 2605, 3134,
     2590, 2592, 2586, 2479, 2459, 2433, 4192, 3139, 3143, 3144,
     3147, 3149, 3152, 3155, 2541, 3192, 3208, 3204, 3210, 3162,
     3178, 2438, 3185, 3182, 2414, 3188, 2340, 3189, 3190, 2333,
     4192, 2018, 2288, 2260, 3192,  112, 3197, 3188, 3200, 3191,
     2137, 2149, 3210, 3211, 4192, 2017, 2011, 4192, 1998, 4192,

     1986, 3212, 3213, 3197, 3216, 3218, 2624, 3271, 1977, 3239,
     1982, 1903, 3223, 3231, 1885, 3254, 1854, 1829, 3232, 3066,
     1951, 1593, 3241, 1822, 1744, 3242, 3245, 1736, 1662, 4192,
     1653, 3250, 3257, 3252, 3254, 2850, 3310, 1642, 3270, 1622,
     4192, 1521, 3100, 1441,    0, 3255, 3294, 1280, 1416, 1354,
     1309, 3268, 3280, 4192, 1314, 1246, 3264, 3278, 3325, 3333,
     1178, 3284, 1155, 4192, 3300, 1072, 3313, 2771, 1054, 1064,
     3294, 3296, 4192, 1044, 3302, 3350, 3377,  992, 3305,  960,
     3102,    0, 3337,  892, 4192,  829, 3312, 4192, 3342, 3388,
      696, 3345,  555, 3358, 3364,  406, 3367, 3414, 3415,  348,

     3368, 4192, 3341, 3380, 4192, 4192, 3366, 3381, 3351, 3367,
     2713, 3390, 3382, 3386,  281, 3404, 4192, 3405, 3416, 3426,
      177, 4192, 4192, 3482, 3499, 3516, 3533, 3550, 3567, 3577,
     3584, 3601, 3615, 3629, 3646, 3663, 3672, 3685, 3702, 3716,
     3722, 3731, 3748, 3765, 3424, 3427, 3428, 3774, 3432, 3436,
     3440,  362, 2185, 3786, 3800, 3806, 3441, 3445, 3812, 3818,
     3827, 3844, 3861, 3878, 3895, 3912, 3926, 3935, 3952, 3969,
     3986, 4003, 4020, 4037, 4054, 4071, 4088, 4105, 4122
    } ;

static yyconst flex_int16_t yy_def[1180] =
    {   0,
     1123,    1, 1124, 1124,    1,    2, 1125, 1125,    1,    2,
        1,    2, 1123, 1123, 1123, 1123, 1123, 1126, 1127, 1123,
     1123, 1128, 1129, 1123, 1123, 1123, 1123, 1123, 1130, 1123,
     1123, 1123, 1123, 1131, 1131,   35,   35,   35,   35,   38,
       38,   38,   38,   38,   38,   38,   38,   38,   38,   37,
       37, 1123, 1123, 1123, 1132, 1133,   37,   38,   38,   37,
       38, 1123, 1134, 1123, 1134, 1135, 1123, 1123, 1123, 1123,
     1123, 1123, 1123, 1126, 1126, 1126, 1127, 1127, 1127, 1127,
     1128, 1123, 1128, 1128, 1129, 1136, 1129, 1123, 1129, 1129,
     1123, 1123, 1123, 1137, 1123, 1123, 1123, 1123, 1123, 1123,

     1123, 1123, 1138, 1130, 1123, 1123,   38,   38,   38,   38,
       38,   38,   35,   38,   38,  115,  115,  115,  115,  115,
      115,  115,  115, 1131,  115,  115,  115,  115,  115,  115,
      115,  115,  115,  115,  115,  115,  115,  115,  115,  115,
      115,  115,  115,  115,  115,  115,  115,  115,  115,  115,
      115,  115,  115,  115,  115,  115,  115,  115,  115,  115,
      115,  115,  115,  115, 1123, 1123, 1139, 1123, 1123, 1123,
     1123, 1123, 1123, 1123, 1123, 1123, 1140, 1132, 1123, 1132,
     1132, 1132, 1140, 1141, 1142,  115,  115,  115,  115,  115,
      115, 1134, 1123, 1134, 1143, 1143, 1123, 1143, 1143, 1143,

     1144, 1143, 1123,  203,  203,  203,  203,  203, 1123, 1123,
     1123, 1126, 1126, 1127, 1127, 1128, 1128, 1136, 1136, 1136,
     1136, 1123, 1129, 1129, 1145, 1146, 1147, 1123, 1123, 1123,
     1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1148, 1149,
     1150, 1151, 1152, 1153,  115,  115,  115,  115,  115,  115,
      115,  115,  115,  115,  115,  115,  115,  115,  115,  115,
      115, 1154,  124,  115,  115,  115,  115,  115,  115,  115,
      115,  115,  115,  115,  115,  115,  115, 1123,  115, 1123,
     1123,  115,  115,  115,  115,  115,  115,  115,  115,  115,
      115,  115,  115,  115,  115,  115,  115,  115,  115,  115,

      115,  115,  115,  115,  115,  115,  115,  115,  115,  115,
      115,  115,  115,  115,  115,  115,  115,  115,  115,  115,
      115,  115,  115, 1123, 1123, 1123, 1123, 1139, 1123, 1123,
     1123, 1123, 1123, 1123, 1123, 1155, 1155, 1132, 1132, 1132,
     1156, 1142, 1142, 1142, 1142,  115,  115,  115,  115,  115,
      115, 1134, 1143, 1143, 1123, 1143, 1143, 1144, 1144, 1144,
     1144, 1143, 1143,  203,  203, 1143,  203,  203,  203,  203,
     1123, 1123, 1123, 1126, 1126, 1127, 1127, 1128, 1128, 1136,
     1129, 1129, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
     1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,

     1148, 1123, 1123, 1123, 1123, 1123, 1123, 1157, 1153, 1158,
      115,  115, 1123,  115,  115,  115,  115,  115,  115,  115,
      115,  115,  115,  115,  115,  115,  115,  115, 1123,  115,
      115,  115,  115, 1123, 1123,  115,  115,  115,  115,  115,
      115,  115,  115,  115, 1123, 1123,  115, 1123,  115,  115,
      115,  115,  115, 1123,  115,  115,  115,  115,  115,  115,
      115,  115, 1123, 1123,  115,  115, 1123, 1123,  115,  115,
      115,  115,  115,  115,  115,  115,  115,  115,  115,  115,
      115,  115,  115,  115,  115,  115,  115,  115,  115,  115,
      115,  115,  115,  115,  115,  115,  115,  115, 1123, 1123,

      115,  115,  115,  115,  115,  115, 1123, 1123, 1123, 1123,
     1123, 1123, 1123, 1123, 1123, 1123, 1159, 1159, 1132, 1132,
     1132, 1160, 1142, 1142,  115,  115,  115,  115,  115, 1123,
     1134, 1143, 1143, 1144, 1144, 1143, 1143, 1143,  203,  203,
      203,  203, 1123, 1161, 1123, 1126, 1162, 1127, 1163, 1128,
     1164, 1129, 1165, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
     1123, 1123,  115, 1123,  115,  115,  115,  115,  115,  115,
      115,  115,  115,  115, 1123,  115,  115,  115, 1123,  115,
      115, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,  115,
      115,  115,  115,  115,  115,  115,  115,  115,  115,  115,

      115, 1123, 1123,  115,  115,  115, 1123, 1123,  115,  115,
      115, 1123,  115,  115,  115,  115,  115,  115,  115,  115,
      115,  115,  115,  115,  115,  115,  115,  115,  115,  115,
      115,  115,  115,  115,  115, 1123,  115,  115,  115,  115,
      115, 1123,  115,  115,  115,  115, 1123, 1123, 1123, 1123,
     1123, 1123, 1123, 1123, 1123, 1123, 1123, 1132, 1132, 1166,
     1167, 1142, 1168, 1123, 1123,  115,  115, 1123,  115, 1123,
     1123, 1123, 1134, 1143, 1169, 1144, 1170, 1143, 1143, 1143,
     1143,  203,  203, 1123,  203, 1171, 1123, 1123, 1172, 1126,
     1173, 1127, 1127, 1174, 1128, 1175, 1129, 1129, 1123, 1123,

     1123, 1123,  115,  115,  115,  115,  115,  115,  115,  115,
      115,  115, 1123,  115,  115,  115, 1123, 1123,  115,  115,
     1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
      115,  115,  115,  115,  115,  115,  115,  115,  115, 1123,
     1123,  115,  115,  115,  115,  115,  115,  115,  115,  115,
      115,  115,  115,  115,  115,  115,  115,  115,  115,  115,
      115,  115,  115,  115, 1123,  115,  115,  115,  115,  115,
      115,  115, 1123, 1123, 1123, 1123, 1123, 1123,  655, 1132,
     1176, 1132, 1142, 1168, 1168,  115,  115,  115, 1134, 1177,
     1143, 1144, 1170, 1170, 1123, 1143,  203,  203, 1123, 1123,

     1126, 1127, 1127, 1128, 1129, 1129, 1123, 1123,  115,  115,
      115,  115,  115,  115,  115,  115,  115, 1123, 1123,  115,
      115,  115, 1123, 1123,  115, 1123, 1123, 1123, 1123, 1123,
     1123, 1123, 1123,  115,  115,  115,  115,  115,  115,  115,
      115,  115,  115, 1123, 1178,  115,  115,  115,  115,  115,
      115,  115,  115, 1123,  115,  115,  115,  115,  115,  115,
      115, 1123, 1123,  115, 1123,  115,  115, 1123, 1123, 1123,
     1132, 1132, 1142,  115,  115, 1123, 1134, 1143, 1144, 1143,
      203,  203,  115,  115,  115,  115,  115,  115,  115, 1123,
     1123, 1123,  115,  115, 1123,  115, 1123, 1123, 1123, 1123,

     1123, 1123, 1123, 1123,  115,  115,  115,  115,  115,  115,
      115,  115,  115, 1178, 1123, 1179, 1178,  115,  115,  115,
      115, 1123,  115,  115,  115,  115, 1123,  115, 1123,  115,
      115, 1123, 1123, 1132, 1142,  115,  115, 1134, 1144,  115,
      115,  115,  115,  115, 1123, 1123,  115,  115, 1123,  115,
     1123, 1123, 1123, 1123, 1123, 1123, 1123,  115,  115,  115,
      115,  115,  115,  115, 1123, 1179, 1178, 1179, 1179,  115,
      115, 1123,  115,  115, 1123,  115, 1123,  115,  115, 1123,
     1123, 1132, 1142, 1142,  115, 1134, 1144, 1144,  115,  115,
     1123, 1123,  115,  115, 1123, 1123, 1123, 1123, 1123, 1123,

     1123,  115,  115,  115,  115,  115, 1123, 1178, 1123,  115,
     1123, 1123,  115,  115, 1123, 1132, 1142, 1142,  115, 1134,
     1144, 1144,  115, 1123, 1123,  115,  115, 1123, 1123, 1123,
     1123,  115,  115,  115,  115, 1123, 1178, 1123,  115, 1123,
     1123, 1123, 1132, 1142, 1142,  115, 1134, 1144, 1144, 1123,
     1123,  115,  115, 1123, 1123, 1123,  115,  115, 1123, 1178,
     1123,  115, 1123, 1123, 1132, 1142, 1134, 1144, 1123, 1123,
      115,  115, 1123, 1123,  115, 1123, 1178, 1123,  115, 1123,
     1132, 1142, 1134, 1144, 1123, 1123,  115, 1123, 1178, 1178,
     1123,  115, 1123, 1132, 1134, 1123,  115, 1178, 1179, 1123,

      115, 1123, 1132, 1134, 1123, 1123, 1132, 1134, 1132, 1134,
     1132, 1134, 1132, 1134, 1132, 1134, 1123, 1134, 1134, 1134,
     1134, 1123,    0, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
     1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
     1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
     1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
     1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
     1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123
    } ;

static yyconst flex_int16_t yy_nxt[4256] =
    {   0,
       14,   15,   16,   17,   18,   19,   14,   20,   21,   22,
       23,   24,   21,   25,   21,   26,   21,   27,   28,   29,
       29,   29,   29,   29,   29,   29,   29,   29,   21,   30,
       31,   32,   33,   21,   21,   34,   35,   36,   37,   38,
       39,   40,   41,   34,   42,   34,   34,   43,   44,   45,
       46,   47,   34,   48,   49,   50,   34,   34,   51,   34,
       34,   34,   14,   52,   53,   54,   55,   64,   66,   65,
       70,   72,   71,   72,   82,   71,   68,   73,   75,   92,
       78,   56,   56,   56,   56,   56,   56,   56,   56,   56,
       69,   68,   76,   67,   68,   86,   91,   68,  103,  102,

       57,   58,   87,   88,   59,   69,   68,   68,   69,   68,
       68,   69,   68,   83,  193,   68,   79,   60,   61,   68,
       69,   69,   68,   69,   69,  210,   69,   84,   68,   69,
       80,  105,  333,   69,   89,   72,   69,   72,   78,   70,
       68,   71,   69,  108,  116,  108,  108,  131,   90,   93,
      132,   93,   78,  133,   69,  108,  185,  108,   82,  134,
      193, 1020,  108,  110,   71,  194,   71,   94,   94,   94,
       94,   94,   94,   94,   94,   94,  211,  108,  211, 1122,
       71,  108,   73,  214,   95,  186,  215,  135,   96,   68,
       97,  108,  108,  136,   82,   98,  108,   99,  100,  187,

      137,  138,  108,   69,  366,  254,  108,  101,  106,  217,
      107,  107,  107,  107,  107,  107,  107,  107,  107,  117,
      108,  108,  108,  225,  226,  108,  118,  179,  216,  108,
      119,  108,  109,  120,   86,  139,  227,  108,  110,  108,
      369,   87,   88,  121,  230,  255,  110,  106,  108,  107,
      107,  107,  107,  107,  107,  107,  107,  107,  232,  231,
      153,  338,  108,  108,  108,  122,  234,  111,  112,  123,
      108,  109,  108,  233,  108,  124,  235,  113,  108,  125,
      110,  108,  108, 1117,  114,  115,  140,  366,  366,  253,
      108,  126,  396,  127,  141,  108,  128,  129,  108,  110,

      142,  143,  108,  130,  108,  108,  108,  367,  370,  144,
      108,  146,  108,  147,  108,  145,  108,  149,  148,  108,
      108,  108,  154,  179,  191,  108,  155,  397,  180,  179,
      156,  150,  160,  314,  151,  108,  108,  152,  157,  161,
      108,  158,  159,  108,  108,  193,  108,  315,  260,  162,
      108,  163,  329,  183,  108,  108,  108,  189,  108,  168,
      135,  164,  181,  339,  108,  108,  330,  103,  108,  165,
      243,  166,  167,  160,  243,  103,  182,  168,   86,  352,
      161,  196,  197,  196,  108,   87,   88,  108, 1106,  390,
      162,   68,  168,  198,  219,  220,  219,  190,  168, 1123,

       82,  108,  221,  222,   86,   69,  169,  170,   86,   68,
      171,   87,   88, 1123,  108,   87,   88,  108,  270,  252,
      108,  199,  259,  172,  173,  174,  175,  176,  167,  391,
      337,  108,  267,  168,  108,  200,  168,  108,  223,  108,
      108,  366,  268,  177,  177,  177,  177,  177,  177,  177,
      177,  177,  256,  257,  379, 1105,  108,  108,  258,  224,
      108,  108,  169,  170,  683,   68,  171,  243,  243,  243,
      243,  243,  243,  243,  243,  243,  282,  276,  108,  172,
      173,  195,  196,  197,  196,  195,  195,  195,  201,  195,
      195,  195,  195,  195,  195,  195,  195,  195,  202,  195,

      203,  203,  203,  203,  203,  203,  203,  203,  203,  195,
      195,  195,  195,  195,  195,  195,  204,  186,  204,  204,
      204,  204,  205,  204,  118,  204,  204,  204,  206,  204,
      204,  187,  204,  204,  204,  204,  207,  204,  204,  204,
      204,  208,  204,  195,   93,  179,   93,  108,  108,  244,
      245,  108,   78,  108,  108,  108,   78,  108,  108,  179,
      108,  108,  108,   82,  108,  261,  197, 1102,  108,  108,
      108,  266,  108,  108,  108,  108,  108,  108,  108,   95,
      108,  108,  108,   96,  108,   97,  108,  108,  247,  108,
       98,  549,   99,  100,  376,  275,  340,  108,  108,  519,

      269,  108,  101,  239,  239,  239,  239,  239,  239,  239,
      239,  239,  108,  108,  277,  550,  108,  357,  108,   82,
      108,  303,  108,  240,  241,  246,  108,  108,  108,  108,
      108,  108,  108,  108,  108,  337,  242,  108,  248,  108,
      249,  168,  108,  108,  274,  108,  108,  108,  108,  250,
      108,  291,  278,  251,  278,  108,  108,  108,  108,  108,
      108,  108,  108,  337,  378,  179,  108,  108,  287,  168,
      246,  108,  108,  262,  271,  262,  366,  103,  366,  108,
      280,  272,  280,  108,  108,  273,  108,  108,  283,  106,
      281,  263,  263,  263,  263,  263,  263,  263,  263,  263,

      284,  108,  285,  108,  108,  286,  279,  288,  108,  108,
      108,  368,  290,  540,  366,  245,  108,  659,  518,  108,
      108,  289,  108,  292,  168,  108,  108,  108,  264,  293,
      265,  294,  108,  108,  108,  108,  313,  108,  295,  108,
      108,  297,  108,  304,  539,  305,  108,  108,  300, 1100,
      301,  108,  298,  296,  244,  299,  302,  108,  310,  108,
      108,  306,  307,  108,  108,  308,  108,  309,  108,  316,
      108,  108,  311,  108,  320,  354,  355,  354,  108,  312,
      317,  321,  322,  108,  318,  108,  108,  108,  319,  324,
      108,  325,  167,  108,  323,  108,  327,  168,  325,  167,

      108,  108,  193,  108,  168,  343,  108,  343,  327,   78,
      325,  167,  253,  373,  349,  373,  168,  108,  108,  346,
       78,  108,  197,  108,  108,  348,  169,  170,  351,  383,
      171,  383,  366,  169,  170,  108,  350,  171,  108,  179,
      344,  108,  531,  326,  173,  169,  170,  256,  347,  171,
      326,  173,  108,  258,  345,  691,  356,  359,  197,  359,
      377,  220,  326,  173,  327,  175,  335,  167,  380,  222,
      220,  541,  168,   86,  385,  197,  385,  380,  222, 1096,
       87,   88,  336,  336,  336,  336,  336,  336,  336,  336,
      336,   86,  360,  521,  197,  219,  220,  219,   87,   88,

      108,  169,  170,  221,  222,  171,  361,  219,  220,  219,
      387,  411,  387,  225,  226,  221,  222,  108,  326,  173,
      197,  402,  404,  402,  404,  518,  227,  382,  406,  533,
      406,  168,  343,  545,  343,  545,  381,  362,  362,  362,
      362,  362,  362,  362,  362,  362,  353,  353,  197,  353,
      353,  353,  353,  353,  353,  353,  353,  353,  353,  353,
      353,  353,  353,  363,  353,  364,  364,  364,  364,  364,
      364,  364,  364,  364,  353,  353,  353,  353,  353,  353,
      353,  365,  365,  365,  365,  365,  365,  365,  365,  365,
      365,  365,  365,  365,  365,  365,  365,  365,  365,  365,

      365,  365,  365,  365,  365,  365,  365,  365,  353,  108,
      413,  108,  657,  108,  280,  366,  280,  108,  168,  108,
      108, 1093,  108,  108,  281,  415,  108,  418,  108,  412,
      108,  414,  416,  417,  108,  108,  108,  108,  108,  420,
      108,  421,  108,  108,  108,  542,  108,  108, 1091,  419,
      428,  425,  108,  432,  422,  108,  108,  423,  426,  108,
      108,  108,  424,  108,  108,  108,  430,  427,  108,  108,
      108,  108,  108,  108,  451,  431,  433,  444,  108,  445,
      366,  445,  108,  108, 1088,  108,  108,  449,  108,  108,
      434,  108,  434,  108,  108,  108,  447,  448,  450,  108,

      108,  453,  278,  684,  278,  452,  108,  108, 1086,  446,
      108,  108,  108, 1085,  108,  108,  108,  456,  108,  108,
      435,  455,  179,  108,  108,  108,  457, 1082,  436,  108,
      437,  108,  108,  438,  197,  108,  108,  439,  458,  459,
      440,  108,  108,  441,  442,  460,  108,  443,  108,  463,
      467,  463,  467,  108,  462,  108,  454,  472,  461,  464,
      468,  478,  108,  108,  108,  108,  474,  520,  471,  108,
      108, 1080,  108,  108,  473,  108,  108,  108,  108,  108,
      535,  108,  476,  477,  108,  108,  108,  108,  475,  480,
      108,  479,  108,  108,  498,  465,  469,  108,  108,  108,

      481,  108,  108,  483,  108,  466,  470,  108,  482,  484,
      485,  108,  108,  108,  108,  108,  108, 1078,  486,  487,
      108,  490,  108,  108,  108,  108,  491,  492,  108,  108,
      108,  488,  489,  493,  108,  108,   78,  108,  108,  108,
      108,  494,  108,  108,  495,  108,  499,  108,  499,  108,
      501,  108,  108,  497,  496,  108,  500,  108,  503,  504,
      108,  108,  108,  502,  108,  507,  505,  508,  167,  518,
      197,  108,  108,  168,  108,  168,  525,  530,  108,  527,
      506,  108,  197,  103,  509,  548,  508,  167,  108,  108,
      526,  509,  168,  508,  167, 1074,  108,  197,  108,  168,

      108,  528,  169,  170,   82,  179,  171,  108,  193,  108,
      108,  529,  354,  355,  354,  532,  559,  108,  559,  326,
      173,  169,  170,  220,  108,  171,  108,  108,  169,  170,
      380,  222,  171,  359,  197,  359, 1068,  534,  326,  173,
      108,  561,  551,  561,   86,  326,  173,  509,  175,  516,
      167,   87,   88,   86, 1073,  168,  658,  108,  563,  673,
       87,   88,  445, 1070,  445,  517,  517,  517,  517,  517,
      517,  517,  517,  517,  384,  384,  384,  384,  384,  384,
      384,  384,  384,  657,  169,  170,  225,  226,  171,  168,
      366,  553,  446,  688, 1069,  688,  552,  108,  108,  227,

      565,  326,  173,  197,  384,  384,  384,  384,  384,  384,
      384,  384,  384,  685,  108,  108,  179,  668,  197,  668,
      362,  362,  362,  362,  362,  362,  362,  362,  362,  386,
      386,  386,  386,  386,  386,  386,  386,  386,  108,  108,
      197,  536,  197,  386,  386,  386,  386,  386,  386,  386,
      386,  386,  168,  197,  660,  108,  108,  566,  168,  537,
      537,  537,  537,  537,  537,  537,  537,  537,  388,  388,
      388,  388,  388,  388,  388,  388,  388,  108,  567,  108,
      538,  197,  388,  388,  388,  388,  388,  388,  388,  388,
      388,  675,  674,  569,  108,  108,  108, 1066,  362,  362,

      362,  362,  362,  362,  362,  362,  362,  403,  403,  403,
      403,  403,  403,  403,  403,  403,  403,  403,  403,  403,
      403,  403,  403,  403,  403,  405,  405,  405,  405,  405,
      405,  405,  405,  405,  405,  405,  405,  405,  405,  405,
      405,  405,  405,  407,  407,  407,  407,  407,  407,  407,
      407,  407,  407,  407,  407,  407,  407,  407,  407,  407,
      407,  108,  108,  108,  108,  564,  568,  108,  197,  108,
      108,  108,  571,  572,  570,  108, 1064,  108,  108,  108,
      108,  108,  573,  574,  108,  108,  108,  108,  108,  108,
      108,  590,  108,  578,  108,  197,  576,  577,  579,  108,

      579,  108,  108,  108,  592,  108,  108,  108,  366,  596,
      591,  108,  593,  108,  108,  594,  108,  677,  108,  108,
      595,  599,  108,  108,  607,  597,  607,  108,  108,  723,
      108,  108,  610,  108,  600,  598,  108,  724,  601,  179,
      606,  580, 1049,  108,  108,  682,  609,  108,  108,  108,
      108,  168,  108,  108,  608,  581,  434,  168,  434,  108,
      108,  613,  611,  727,  108,  108,  108,  108,  614,  108,
      108,  615, 1063,  617,  616,  108,  108,  621,  871,  728,
      618,  108, 1061,  108,  619,  463,  435,  463,  108,  620,
      623,  467,  108,  467,  582,  464,  583, 1056,  108,  584,

     1055,  468,  622,  585,   86,  108,  586,  108,  625,  587,
      588,  698,  699,  589,  602,  602,  602,  602,  602,  602,
      602,  602,  602,  602,  602,  108,  602,  602,  602,  602,
      602,  603,  602,  604,  604,  604,  604,  604,  604,  604,
      604,  604,  602,  602,  602,  602,  602,  602,  602,  605,
      605,  605,  605,  605,  605,  605,  605,  605,  605,  605,
      605,  605,  605,  605,  605,  605,  605,  605,  605,  605,
      605,  605,  605,  605,  605,  605,  602,  108,  108,  108,
      108,  108,  108,  108,  785, 1054,  785,  108, 1051,  626,
      627,  624,  108,  108,  108,  108,  108,  108,  108,  108,

      108,  628,  108,  108,  108,  629,  630,  633,  108,  108,
      108,  631,  108,  108,  636,  108,  108,  108,  108,  108,
      108,  635,  632,  108,  108,  634,  108,  638,  641,  108,
      108,  640,  637,  108,  639,  108,  108,  108,  108,  642,
      108,  108,  108,  108,  108,  108,  108,  499,  108,  499,
      108,  197,  644,  108,  108,  108,  179,  500,  108,  108,
      643,  108,  108,  108,  108,  108,  108,  108,  108, 1050,
      645,  647,  646,  648,  167,  669,  657,   82, 1045,  168,
      108,  108,  168,  108,  701,  108,  649,  366,  648,  167,
      103, 1044,  108,  649,  168,  648,  167,  108,  780,  667,

      705,  168,  676,  668,  664,  668,  664,  571,  169,  170,
      795,  668,  171,  668,  665,  694,  108,  108,  108,  108,
      108,   86,  707,  169,  170,  326,  173,  171,   87,   88,
      169,  170, 1042,  706,  171,  108,  108,  108,  108,  108,
      326,  173,  666, 1041,  670,  108,  670,  326,  173,  649,
      175,  655,  167,  197,  671,  108,  108,  168,  672,  696,
      108,  193,  108,  108,  709,  108,  108,  656,  656,  656,
      656,  656,  656,  656,  656,  656,  708,  108,  710,  108,
      108,  108,  108,  108,  712,  108,  169,  170, 1048,  714,
      171,  607,  785,  607,  785,  711,  108, 1040,  108,  108,

      877,  108,  108,  326,  173,  197,  560,  560,  560,  560,
      560,  560,  560,  560,  560, 1038,  108,  678,  108,  678,
      179,  608,  679,  679,  679,  679,  679,  679,  679,  679,
      679,  197,  560,  560,  560,  560,  560,  560,  560,  560,
      560, 1031,  179,  794,  197,  794, 1030, 1029,  537,  537,
      537,  537,  537,  537,  537,  537,  537,  562,  562,  562,
      562,  562,  562,  562,  562,  562,  108, 1028, 1016,  536,
      197,  562,  562,  562,  562,  562,  562,  562,  562,  562,
      781,  108,  680,  108,  680,  732,  719,  681,  681,  681,
      681,  681,  681,  681,  681,  681,  687,  687,  108,  687,

      687,  687,  687,  687,  687,  687,  687,  687,  687,  687,
      687,  687,  687,  702,  687,  703,  703,  703,  703,  703,
      703,  703,  703,  703,  687,  687,  687,  687,  687,  687,
      687,  704,  704,  704,  704,  704,  704,  704,  704,  704,
      704,  704,  704,  704,  704,  704,  704,  704,  704,  704,
      704,  704,  704,  704,  704,  704,  704,  704,  687,  108,
      108,  579,  108,  579,  108,  108,  108,  716,  108,  720,
      715,  733,  108,  736,  739,  735,  108,  108,  731,  108,
      734,  108,  108,  108,  108,  108,  108, 1025, 1024,  108,
      738,  108,  740,  409,  740,  244,  193,  409,  108,  737,

      108,  108,  108,  108,  717,  243,  243,  243,  243,  243,
      243,  243,  243,  243,  108,  108,  108,  108,  718,  108,
      108,  743,  741,  108,  108,  745,  108,  108,  744,  742,
      108,  108,  108,  108,  748,  746,  108,  108,  789,  108,
      108,  108,  752,  747,  108,  108,  108,  108,  753,  108,
      750,  197,  751,  108,  108,  749,  108,  108,  108,  108,
      755,  108,  108,  108,  108,  754,  108,  108,  756,  758,
      757,  108,  108,  108,  108,  108,  760,  759,  108,  108,
      763,  108,  108,  108,  108,  108,  761,  764,  108,  108,
      108,  108,  108,  792,  108,  769,  108,  108,  762,  108,

      108,  108,  108,  108, 1018,  108,  766,  768,  108,  108,
      767,  108,  108,  108,  664,  197,  664,  108,  108,  770,
      108,  771,  772,  773,  665,  774,  167,  168, 1017,  108,
      108,  168,  775,  168,  774,  167,  664,  670,  664,  670,
      168,  103,  775,  197,  774,  167,  665,  671,  108,  108,
      168,  672,  776,  786,  879,   86,  787,  794,  197,  794,
      169,  170,  806,  807,  171,  108,  108,  108,   86,  169,
      170,  108,  244,  171,  776,   87,   88,  326,  173,  169,
      170,  790,  788,  171,  108,  193,  326,  173,  108, 1015,
      672,  108,  672,  670, 1012,  670,  326,  173,  775,  175,

      779,  167,   86,  671,  672,  108,  168,  672,  108,   87,
       88,  243,  243,  243,  243,  243,  243,  243,  243,  243,
      812,  108,  108,  986,  811,  108,  108,  108,  108,  108,
      816,  108,  819,  108,  819,  169,  170,  108,  108,  171,
      813,  817,  108,  108,  108,  108,  108,  815,  108,  814,
      108,  108,  326,  173,  197,  822,  740, 1011,  740,  819,
      876,  819,  876,  876,  108,  876,  108,  108,  108,  820,
      825,  679,  679,  679,  679,  679,  679,  679,  679,  679,
      197,  839,  821,  108,  108,  965,  741,  965, 1009, 1001,
      108,  108,  834,  108,  108,  835,  891,  679,  679,  679,

      679,  679,  679,  679,  679,  679,  197,  108,  108,  892,
      108,  841,  179,  836, 1000,  999,  108,  108,  843,  108,
      108,  838,  837,  681,  681,  681,  681,  681,  681,  681,
      681,  681,  197,  108,  108,  108,  850,  108,  862,   86,
      862,  983, 1007,  984, 1007,  934,   87,   88,  863,  681,
      681,  681,  681,  681,  681,  681,  681,  681,  791,  791,
      197,  791,  791,  791,  791,  791,  791,  791,  791,  791,
      791,  791,  791,  791,  791,  796,  791,  797,  797,  797,
      797,  797,  797,  797,  797,  797,  791,  791,  791,  791,
      791,  791,  791,  798,  798,  798,  798,  798,  798,  798,

      798,  798,  798,  798,  798,  798,  798,  798,  798,  798,
      798,  798,  798,  798,  798,  798,  798,  798,  798,  798,
      791,  800,  800,   86,  800, 1036,  998, 1036,  800,  800,
       87,   88,  800,  997,  996,  800,  800,  800,  800,  800,
      800,  800,  800,  799,  799,  995,  799,  799,  799,  799,
      799,  799,  799,  799,  799,  799,  799,  799,  799,  799,
      808,  799,  809,  809,  809,  809,  809,  809,  809,  809,
      809,  799,  799,  799,  799,  799,  799,  799,  810,  810,
      810,  810,  810,  810,  810,  810,  810,  810,  810,  810,
      810,  810,  810,  810,  810,  810,  810,  810,  810,  810,

      810,  810,  810,  810,  810,  799,  108,  108,  108,  844,
      840,  844,  108,  108,  851,  179,  108,  848,  842,  845,
      847,  108,  846,  108,  108,  108,  108,  992,  108,  108,
      108,  108,  849,  108,  852,  108,  108,  853,  108,  108,
      854,  108,  854,  108,  108,  108,  857,  108,  108, 1113,
      108,  108,  108,  108,  860,  108,  108,  108,  108,  856,
      108,  108,  108,  108,  108,  859,  858,  108,  108,  861,
      864,  108,  108,  197,  108,  108,  865,  108,  865,  108,
      108,  108,  773,  108,  775,  167,  108,  179,  108,  108,
      855,  874,  108,  775,  991,  774,  167,  108,  108,  867,

      108,  168,  775,  108,  775,  167,  108,  876,  108,  876,
      244,  108,  865,  866,  865,  108,  888,  885,  883,  169,
      170,  875,  884,  171,  982,  108, 1084,  108,  108,  108,
      169,  170,  108,  108,  171,  108,  326,  173,  108,  169,
      170,  108,  108,  171,  894,  886,  108,  326,  173,  929,
      981, 1059,  889, 1059,  980,  108,  326,  173,  108,  108,
      878,  878,  197,  878,  878,  878,  878,  878,  878,  878,
      878,  878,  878,  878,  878,  878,  878,  880,  878,  881,
      881,  881,  881,  881,  881,  881,  881,  881,  878,  878,
      878,  878,  878,  878,  878,  882,  882,  882,  882,  882,

      882,  882,  882,  882,  882,  882,  882,  882,  882,  882,
      882,  882,  882,  882,  882,  882,  882,  882,  882,  882,
      882,  882,  878,  197,  243,  243,  243,  243,  243,  243,
      243,  243,  243,  108,  108,  108,  108,  887,  108,  108,
      362,  362,  362,  362,  362,  362,  362,  362,  362,  893,
      108,  108,  108,  896,  108,  108,  906,  905,  108,  108,
      108,  909,  108,  108,  108,  907,  977,  911,  912,  975,
      972,  108,  108,  108,  910,  908,  108,  108,  915,  108,
      108,  108,  844,  913,  844,  916,  918,  108,  917,  108,
      108,  108,  845,  108,  108,  108,  108,  920,  854,  108,

      854,  108,  108,  108,  108,  108,  919,  921,  108,  926,
      108,  108,  108,  108,  925,  108,  108,  108,  923,  108,
      108,  924,  108,  108,  108,  862,  930,  862,  193,  108,
      936,  197,  108,  108,  108,  863,  108,  931,  108,  940,
      108,  108,  108,  108,  957,  928,  108,  108,  922,  108,
      108,  937,  108,  108,  108,  108,  941,  108,  108,  942,
      108,  938,  948,  108,  939,  197,  108,  950,  193,  108,
      944,  108,  947,  943,  108,  108,  108,  108,  961,  956,
      108,  959,  362,  362,  362,  362,  362,  362,  362,  362,
      362,  108,  108,  108,  108,  108,  960,  108,  108,  958,

      915,  108,  179,  108,  179, 1047,  108,  916,  108,  108,
      917,  108,  967,  962,  108,  108,  964,  963,  108,  968,
      108,  915,  969,  108,  108,  108,  108,  108,  916,  970,
      108,  917,  971,  108,  108,  108,  108,  197,  108,  976,
      973,  108,  108,  108,  108,  108,  108,  108,  108, 1065,
      108,  974,  108,  108,  978,  108,  108, 1094,  979,  989,
      108,  108,  108,  108,  108,  108,  985,  108,  990,  108,
      108,  994,  955,  108,  987,  108,  988,  108,  108, 1003,
      108,  108,  993,  108,  108,  108,  108,  108,  108, 1002,
      197,  108,  108, 1006,  967, 1004,  108,  108,  108,  197,

      108,  968,  108,  954,  969,  108,  967, 1005,  108, 1008,
      967, 1008,  967,  968,  108,  108,  969,  916,  108,  968,
      917,  108,  969, 1010,  108,  108,  108,  108,  108, 1013,
     1014,  108, 1022,  108,  953,  108,  108, 1021,  108, 1019,
     1023,  108,  108,  108,  108,  108,  108,  108,  108,  108,
      108, 1033,  108,  108,  108, 1027,  179, 1026, 1035,  108,
     1034, 1032,  952,  108,  108,  108,  108,  108,  108,  108,
      951,  108, 1037,  915, 1037,  108,  108,  108,  108, 1039,
      916,  108, 1052,  917,  108,  108,  108, 1046,  108, 1043,
      108,  108,  108,  108,  108,  108,  193, 1057,  108, 1053,

      108, 1058,  179,  108,  108,  108,  108,  108,  108, 1062,
      108, 1060,  915, 1060,  108,  193,  108,  108, 1075,  916,
      108,  108,  917,  108, 1072,  949, 1076, 1071, 1076, 1067,
      108,  108,  108,  108, 1077,  915, 1077,  108,  108,  193,
     1079,  108,  916,  179,  915,  917, 1087,  108,  108,  108,
     1081,  916, 1083,  179,  917,  108, 1089, 1089, 1092, 1089,
      179, 1097,  946, 1089, 1089,  108,  193, 1089,  179,  193,
     1089, 1089, 1089, 1089, 1089, 1089, 1089, 1089, 1090,  915,
     1090,  108,  193,  193,  179, 1101,  916, 1095,  193,  917,
      915, 1111,  193, 1103, 1098, 1098, 1107, 1099,  108, 1104,

      917, 1098, 1098,  108,  108, 1098,  193,  193, 1098, 1098,
     1098, 1098, 1098, 1098, 1098, 1098,  915,  967,  193, 1109,
      108,  108, 1112,  916,  968, 1114,  917,  969,  193, 1108,
      384, 1110,  384,  386,  388,  386,  388, 1115,  403,  945,
      403, 1116,  405,  366,  405, 1119,  407,  560,  407,  560,
      197,  562, 1120,  562,  935,  179,  933, 1118,  932,  927,
      904,  903,  902,  901,  900,  899,  898,  897,  895,  890,
       82,   78,   78,  366,  197,  197,  197,  873,  179,  179,
      870, 1121,   62,   62,   62,   62,   62,   62,   62,   62,
       62,   62,   62,   62,   62,   62,   62,   62,   62,   63,

       63,   63,   63,   63,   63,   63,   63,   63,   63,   63,
       63,   63,   63,   63,   63,   63,   74,   74,  869,   74,
       74,   74,   74,   74,   74,   74,   74,   74,   74,   74,
       74,   74,   74,   77,   77,  868,   77,   77,   77,   77,
       77,   77,   77,   77,   77,   77,   77,   77,   77,   77,
       81,   81,   81,   81,   81,   81,   81,   81,   81,   81,
       81,   81,   81,   81,   81,   81,   81,   85,   85,   85,
       85,   85,   85,   85,   85,   85,   85,   85,   85,   85,
       85,   85,   85,   85,  104,  104,  833,  832,  831,  830,
      104,  108,  108,  108,  108,  108,  108,  108,  108,  108,

      108,  178,  178,  178,  178,  178,  178,  178,  178,  178,
      178,  178,  178,  178,  178,  178,  178,  178,  184,  829,
      184,  828,  184,  184,  827,  826,  824,  823,  184,  192,
      192,  192,  192,  192,  192,  192,  192,  192,  192,  192,
      192,  192,  192,  192,  192,  192,  195,  195,  195,  195,
      195,  195,  195,  195,  195,  195,  818,  195,  195,  195,
      195,   82,  195,  218,  218,  218,  218,  218,  218,  218,
      218,  218,  218,  218,  218,  218,  218,  218,  218,  218,
       94,   82,   78,   94,   94,  238,  238,  238,  238,   78,
      238,  238,  803,  238,  238,  366,  238,  238,  366,  197,

      238,  238,  328,  328,  328,  328,  328,  328,  328,  328,
      328,  328,  328,  328,  328,  328,  328,  328,  328,  336,
      783,  336,  179,  778,  336,  341,  777,  341,  765,  341,
      341,  342,  342,  730,  342,  342,  342,  342,  342,  342,
      342,  342,  342,  342,  342,  342,  342,  342,  353,  353,
      353,  353,  353,  353,  353,  353,  353,  353,  353,  353,
      353,  353,  353,  353,  353,  358,  358,  358,  358,  358,
      358,  358,  358,  358,  358,  358,  358,  358,  358,  358,
      358,  358,  401,  729,  726,  401,  401,  262,  725,  262,
      722,  721,  713,  700,  262,   82,  693,  689,  686,  530,

      663,  662,  262,  517,  530,  517,  654,  653,  517,  522,
      652,  522,  651,  522,  522,  656,  650,  656,  612,  575,
      656,  661,  408,  661,  558,  661,  661,  687,  687,  557,
      687,  687,  687,  687,  687,  687,  687,  687,  687,  687,
      687,  687,  687,  687,  690,  690,  556,  690,  690,  690,
      690,  690,  690,  690,  690,  690,  690,  690,  690,  690,
      690,  692,  692,  555,  692,  692,  692,  692,  692,  692,
      692,  692,  692,  692,  692,  692,  692,  692,  695,  695,
      695,  695,  695,  695,  695,  695,  695,  695,  695,  695,
      695,  695,  695,  695,  695,  697,  697,  697,  697,  697,

      697,  697,  697,  697,  697,  697,  697,  697,  697,  697,
      697,  697,  782,  782,  782,  782,  782,  782,  782,  782,
      782,  782,  782,  782,  782,  782,  782,  782,  782,  104,
      554,  104,  547,  104,  104,  784,  784,  546,  784,  784,
      784,  784,  784,  784,  784,  784,  784,  784,  784,  784,
      784,  784,  791,  791,  791,  791,  791,  791,  791,  791,
      791,  791,  791,  791,  791,  791,  791,  791,  791,  793,
      793,  793,  793,  793,  793,  793,  793,  793,  793,  793,
      793,  793,  793,  793,  793,  793,  799,  799,  544,  799,
      799,  799,  799,  799,  799,  799,  799,  799,  799,  799,

      799,  799,  799,  801,  801,  543,  801,  801,  801,  801,
      801,  801,  801,  801,  801,  801,  801,  801,  801,  801,
      802,  802,  366,  802,  802,  802,  802,  802,  802,  802,
      802,  802,  802,  802,  802,  802,  802,  804,  804,  804,
      804,  804,  804,  804,  804,  804,  804,  804,  804,  804,
      804,  804,  804,  804,  805,  805,  805,  805,  805,  805,
      805,  805,  805,  805,  805,  805,  805,  805,  805,  805,
      805,  872,  872,  872,  872,  872,  872,  872,  872,  872,
      872,  872,  872,  872,  872,  872,  872,  872,  878,  878,
      878,  878,  878,  878,  878,  878,  878,  878,  878,  878,

      878,  878,  878,  878,  878,  914,  914,  914,  914,  914,
      914,  914,  914,  914,  914,  914,  914,  914,  914,  914,
      914,  914,  966,  966,  966,  966,  966,  966,  966,  966,
      966,  966,  966,  966,  966,  966,  966,  966,  966,  197,
      197,  524,  523,  515,  514,  513,  512,  511,  510,  179,
      333,  429,  410,  408,  400,  399,  398,  395,  394,  393,
      392,  389,  375,  374,  372,  371,  366,  197,  197,  193,
      179,  334,  332,  331,  179,  237,  236,  229,  228,   82,
       82,   78,   78,  213,  212,  210,  209,  193,  188, 1123,
       64,   13, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,

     1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
     1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
     1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
     1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
     1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
     1123, 1123, 1123, 1123, 1123
    } ;

static yyconst flex_int16_t yy_chk[4256] =
    {   0,
        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
        1,    1,    1,    2,    2,    2,    2,    8,   10,    8,
       15,   16,   15,   16,   22,   17,   14,   17,   18,   25,
       19,    2,    2,    2,    2,    2,    2,    2,    2,    2,
       14,   20,   18,   10,   21,   23,   24,   26,   29,   28,

        2,    2,   23,   23,    2,   20,   30,   25,   21,   31,
       15,   26,   33,   22,  986,   17,   19,    2,    2,   24,
       30,   25,   29,   31,   15,  172,   33,   22,   28,   17,
       19,   32,  172,   24,   23,   53,   29,   53,   80,   70,
       32,   70,   28,   40,   36,   36,   36,   40,   23,   27,
       40,   27,   79,   40,   32,   36,   57,   40,   84,   40,
       65,  986,   36,   36,   71,   65,   71,   27,   27,   27,
       27,   27,   27,   27,   27,   27,   72,   41,   72, 1121,
       73,   41,   73,   79,   27,   57,   80,   41,   27,   27,
       27,   41,   42,   42,   83,   27,   42,   27,   27,   57,

       42,   42,   42,   27,  207,  118,   42,   27,   34,   84,
       34,   34,   34,   34,   34,   34,   34,   34,   34,   37,
       37,   37,  118,   94,   94,   43,   37,  180,   83,   43,
       37,  119,   34,   37,   85,   43,   94,   37,   37,   43,
      207,   85,   85,   37,   97,  119,   34,   35,  119,   35,
       35,   35,   35,   35,   35,   35,   35,   35,   98,   97,
       48,  180,   38,   38,   48,   38,   99,   35,   35,   38,
       48,   35,   38,   98,   48,   38,   99,   35,  117,   38,
       38,   39,   39, 1115,   35,   35,   44,  208,  205,  117,
       44,   39,  234,   39,   44,  117,   39,   39,   39,   39,

       44,   45,   46,   39,   44,   45,   46,  205,  208,   45,
       61,   46,   46,   46,   61,   45,   46,   47,   46,   45,
       61,   47,   49,   55,   61,   47,   49,  234,   55,  181,
       49,   47,   50,  158,   47,   47,   49,   47,   49,   50,
       49,   49,   49,   50,   51,  194,   50,  158,  122,   50,
       59,   51,  169,   56,   59,   51,   50,   59,   51,   56,
       59,   51,   55,  181,   59,  122,  169,   56,   51,   52,
     1152,   52,   52,   60, 1152,  104,   55,   52,   87,  194,
       60,   66,   66,   66,   60,   87,   87,   60, 1100,  229,
       60,   56,  168,   66,   86,   86,   86,   60,  168,  104,

      217,  129,   86,   86,   89,   56,   52,   52,   90,   52,
       52,   89,   89,  104,  126,   90,   90,  116,  129,  116,
      121,   66,  121,   52,   52,   54,   54,   54,   54,  229,
      177,  126,  126,   54,  116,   66,  177,  121,   89,  127,
      120,  540,  127,   54,   54,   54,   54,   54,   54,   54,
       54,   54,  120,  120,  217, 1096,  127,  120,  120,   90,
      133,  137,   54,   54,  540,   54,   54,  106,  106,  106,
      106,  106,  106,  106,  106,  106,  137,  133,  137,   54,
       54,   67,   67,   67,   67,   67,   67,   67,   67,   67,
       67,   67,   67,   67,   67,   67,   67,   67,   67,   67,

       67,   67,   67,   67,   67,   67,   67,   67,   67,   67,
       67,   67,   67,   67,   67,   67,   67,   67,   67,   67,
       67,   67,   67,   67,   67,   67,   67,   67,   67,   67,
       67,   67,   67,   67,   67,   67,   67,   67,   67,   67,
       67,   67,   67,   67,   93,  182,   93,  108,  108,  107,
      109,  108,  214,  123,  109,  109,  377,  108,  109,  338,
      125,  108,  108,  378,  109,  123,  200, 1093,  109,  109,
      123,  125,  107,  107,  111,  111,  107,  125,  111,   93,
      128,  132,  107,   93,  111,   93,  107,  107,  111,  111,
       93,  377,   93,   93,  214,  132,  182,  128,  132,  338,

      128,  134,   93,  103,  103,  103,  103,  103,  103,  103,
      103,  103,  110,  110,  134,  378,  110,  200,  134,  216,
      152,  152,  110,  103,  103,  110,  110,  110,  112,  112,
      113,  113,  112,  131,  113,  183,  103,  152,  112,  143,
      113,  183,  112,  112,  131,  114,  114,  113,  113,  114,
      131,  143,  135,  115,  135,  114,  143,  115,  115,  114,
      114,  115,  139,  184,  216,  520,  130,  115,  139,  184,
      115,  115,  115,  124,  130,  124,  368,  184,  206,  139,
      136,  130,  136,  130,  140,  130,  138,  135,  138,  124,
      136,  124,  124,  124,  124,  124,  124,  124,  124,  124,

      138,  140,  138,  138,  135,  138,  135,  140,  141,  142,
      144,  206,  142,  368,  367,  136,  145,  520,  336,  157,
      146,  141,  148,  144,  336,  141,  142,  144,  124,  145,
      124,  146,  136,  145,  147,  149,  157,  146,  147,  148,
      150,  148,  151,  153,  367,  153,  154,  155,  150, 1091,
      151,  147,  149,  147,  263,  149,  151,  150,  155,  151,
      153,  153,  153,  154,  155,  153,  156,  154,  159,  159,
      161,  160,  156,  162,  161,  196,  196,  196,  163,  156,
      159,  162,  163,  156,  160,  159,  164,  161,  160,  165,
      162,  165,  165,  263,  164,  163,  166,  165,  166,  166,

      189,  186,  352,  164,  166,  185,  188,  185,  174,  215,
      174,  174,  186,  211,  189,  211,  174,  189,  186,  186,
      548,  190,  199,  188,  191,  188,  165,  165,  191,  225,
      165,  225,  369,  166,  166,  187,  190,  166,  190,  340,
      185,  191,  352,  165,  165,  174,  174,  187,  187,  174,
      166,  166,  187,  187,  185,  548,  199,  201,  201,  201,
      215,  218,  174,  174,  176,  176,  176,  176,  218,  218,
      221,  369,  176,  224,  226,  357,  226,  221,  221, 1086,
      224,  224,  176,  176,  176,  176,  176,  176,  176,  176,
      176,  223,  201,  340, 1084,  219,  219,  219,  223,  223,

      245,  176,  176,  219,  219,  176,  201,  220,  220,  220,
      227,  245,  227,  239,  239,  220,  220,  245,  176,  176,
      202,  240,  241,  240,  241,  337,  239,  224,  242,  357,
      242,  337,  343,  373,  343,  373,  223,  202,  202,  202,
      202,  202,  202,  202,  202,  202,  203,  203,  203,  203,
      203,  203,  203,  203,  203,  203,  203,  203,  203,  203,
      203,  203,  203,  203,  203,  203,  203,  203,  203,  203,
      203,  203,  203,  203,  203,  203,  203,  203,  203,  203,
      203,  203,  203,  203,  203,  203,  203,  203,  203,  203,
      203,  203,  203,  203,  203,  203,  203,  203,  203,  203,

      203,  203,  203,  203,  203,  203,  203,  203,  203,  246,
      247,  249,  517,  248,  280,  370,  280,  252,  517,  250,
      251, 1080,  254,  255,  280,  249,  246,  252,  249,  246,
      248,  248,  250,  251,  252,  247,  250,  251,  253,  254,
      255,  255,  256,  257,  258,  370,  261,  259, 1078,  253,
      261,  258,  247,  266,  256,  253,  260,  256,  259,  256,
      257,  258,  257,  261,  259,  264,  264,  260,  265,  269,
      266,  272,  267,  260,  275,  265,  267,  269,  271,  270,
      541,  270,  264,  273, 1074,  265,  269,  273,  272,  267,
      268,  275,  268,  276,  274,  271,  271,  271,  274,  277,

      273,  277,  278,  541,  278,  276,  282,  279, 1070,  270,
      276,  274,  297, 1069,  270,  283,  277,  282,  284,  285,
      268,  279,  339,  282,  279,  268,  283, 1066,  268,  297,
      268,  270,  283,  268,  361,  284,  285,  268,  284,  285,
      268,  286,  268,  268,  268,  286,  287,  268,  290,  288,
      289,  288,  289,  291,  287,  292,  278,  291,  286,  288,
      289,  298,  293,  287,  294,  290,  293,  339,  290,  295,
      291, 1063,  292,  299,  292,  296,  300,  316,  298,  293,
      361,  294,  295,  296,  288,  289,  295,  301,  294,  300,
      299,  299,  296,  300,  316,  288,  289,  302,  303,  305,

      301,  288,  289,  302,  301,  288,  289,  304,  301,  303,
      304,  306,  307,  308,  302,  303,  305, 1061,  304,  305,
      311,  308,  309,  310,  304,  313,  309,  310,  306,  307,
      308,  306,  307,  311,  312,  314,  376,  311,  315,  309,
      310,  312,  313,  318,  313,  320,  317,  321,  317,  322,
      318,  312,  314,  315,  314,  315,  317,  319,  320,  321,
      318,  323,  320,  319,  321,  324,  322,  324,  324,  341,
      356,  347,  346,  324,  319,  341,  346,  351,  323,  348,
      323,  317, 1048,  341,  325,  376,  325,  325,  347,  346,
      347,  327,  325,  327,  327, 1056,  348,  360,  317,  327,

      349,  349,  324,  324,  379,  519,  324,  350,  531,  414,
      351,  350,  354,  354,  354,  356,  408,  349,  408,  324,
      324,  325,  325,  380,  350,  325,  414,  351,  327,  327,
      380,  380,  327,  359,  359,  359, 1048,  360,  325,  325,
      411,  410,  379,  410,  381,  327,  327,  335,  335,  335,
      335,  381,  381,  382, 1055,  335,  519,  411,  411,  531,
      382,  382,  445, 1051,  445,  335,  335,  335,  335,  335,
      335,  335,  335,  335,  383,  383,  383,  383,  383,  383,
      383,  383,  383,  518,  335,  335,  401,  401,  335,  518,
      542,  382,  445,  545, 1050,  545,  381,  416,  415,  401,

      415,  335,  335,  362,  384,  384,  384,  384,  384,  384,
      384,  384,  384,  542,  416,  415,  521,  652, 1049,  652,
      362,  362,  362,  362,  362,  362,  362,  362,  362,  385,
      385,  385,  385,  385,  385,  385,  385,  385,  417,  418,
      532,  362,  363,  386,  386,  386,  386,  386,  386,  386,
      386,  386,  656,  533,  521,  417,  418,  418,  656,  363,
      363,  363,  363,  363,  363,  363,  363,  363,  387,  387,
      387,  387,  387,  387,  387,  387,  387,  419,  420,  422,
      363,  366,  388,  388,  388,  388,  388,  388,  388,  388,
      388,  533,  532,  422,  419,  420,  422, 1044,  366,  366,

      366,  366,  366,  366,  366,  366,  366,  402,  402,  402,
      402,  402,  402,  402,  402,  402,  403,  403,  403,  403,
      403,  403,  403,  403,  403,  404,  404,  404,  404,  404,
      404,  404,  404,  404,  405,  405,  405,  405,  405,  405,
      405,  405,  405,  406,  406,  406,  406,  406,  406,  406,
      406,  406,  407,  407,  407,  407,  407,  407,  407,  407,
      407,  412,  421,  423,  424,  412,  421,  425,  535,  426,
      428,  427,  424,  426,  423,  432, 1042,  436,  412,  421,
      423,  424,  427,  428,  425,  430,  426,  428,  427,  431,
      437,  436,  432,  432,  436, 1022,  430,  431,  433,  438,

      433,  439,  430,  440,  438,  441,  431,  437,  539,  441,
      437,  442,  438,  444,  443,  439,  438,  535,  439,  447,
      440,  443,  441,  449,  450,  441,  450,  451,  442,  584,
      444,  443,  452,  433,  444,  442,  447,  584,  447,  780,
      449,  433, 1022,  453,  451,  539,  451,  455,  457,  452,
      433,  657,  458,  456,  450,  433,  434,  657,  434,  450,
      453,  456,  453,  587,  455,  457,  459,  460,  457,  458,
      456,  458, 1040,  460,  459,  462,  450,  462,  780,  587,
      460,  461, 1038,  459,  460,  463,  434,  463,  465,  461,
      466,  467,  462,  467,  434,  463,  434, 1031,  461,  434,

     1029,  467,  465,  434,  553,  465,  434,  466,  470,  434,
      434,  553,  553,  434,  448,  448,  448,  448,  448,  448,
      448,  448,  448,  448,  448,  470,  448,  448,  448,  448,
      448,  448,  448,  448,  448,  448,  448,  448,  448,  448,
      448,  448,  448,  448,  448,  448,  448,  448,  448,  448,
      448,  448,  448,  448,  448,  448,  448,  448,  448,  448,
      448,  448,  448,  448,  448,  448,  448,  448,  448,  448,
      448,  448,  448,  448,  448,  448,  448,  469,  471,  472,
      473,  474,  475,  476,  663, 1028,  663,  477, 1025,  471,
      472,  469,  480,  478,  469,  471,  472,  473,  474,  475,

      476,  477,  479,  481,  477,  478,  479,  482,  483,  480,
      478,  480,  485,  484,  486,  487,  488,  489,  490,  479,
      481,  484,  481,  491,  482,  483,  492,  488,  492,  485,
      484,  490,  487,  488,  489,  490,  493,  486,  494,  495,
      491,  496,  497,  492,  501,  503,  498,  499,  502,  499,
      504,  534,  502,  493,  486,  494,  658,  499,  496,  497,
      498,  501,  503,  498,  495,  502,  505,  504,  506, 1024,
      505,  507,  506,  507,  507,  528,  522,  550, 1018,  507,
      563,  495,  522,  505,  563,  506,  508,  682,  508,  508,
      522, 1017,  528,  509,  508,  509,  509,  563,  658,  526,

      565,  509,  534,  527,  525,  527,  525,  526,  507,  507,
      682,  668,  507,  668,  525,  550,  526,  565,  566,  568,
      567,  552,  567,  508,  508,  507,  507,  508,  552,  552,
      509,  509, 1015,  566,  509,  566,  568,  567,  527,  525,
      508,  508,  525, 1012,  529,  572,  529,  509,  509,  516,
      516,  516,  516, 1021,  529,  527,  525,  516,  529,  552,
      570,  789,  572,  569,  570,  571,  574,  516,  516,  516,
      516,  516,  516,  516,  516,  516,  569,  570,  571,  529,
      569,  573,  571,  574,  574,  576,  516,  516, 1021,  576,
      516,  607,  785,  607,  785,  573,  529, 1011,  573,  590,

      789,  592,  576,  516,  516,  536,  559,  559,  559,  559,
      559,  559,  559,  559,  559, 1009,  590,  536,  592,  536,
      982,  607,  536,  536,  536,  536,  536,  536,  536,  536,
      536,  537,  560,  560,  560,  560,  560,  560,  560,  560,
      560, 1001,  659,  677,  677,  677,  999,  997,  537,  537,
      537,  537,  537,  537,  537,  537,  537,  561,  561,  561,
      561,  561,  561,  561,  561,  561,  593,  996,  982,  537,
      538,  562,  562,  562,  562,  562,  562,  562,  562,  562,
      659,  580,  538,  593,  538,  593,  580,  538,  538,  538,
      538,  538,  538,  538,  538,  538,  564,  564,  580,  564,

      564,  564,  564,  564,  564,  564,  564,  564,  564,  564,
      564,  564,  564,  564,  564,  564,  564,  564,  564,  564,
      564,  564,  564,  564,  564,  564,  564,  564,  564,  564,
      564,  564,  564,  564,  564,  564,  564,  564,  564,  564,
      564,  564,  564,  564,  564,  564,  564,  564,  564,  564,
      564,  564,  564,  564,  564,  564,  564,  564,  564,  577,
      578,  579,  581,  579,  596,  591,  595,  578,  594,  581,
      577,  594,  597,  597,  600,  596,  577,  578,  591,  581,
      595,  596,  591,  595,  598,  594,  599,  992,  991,  597,
      599,  600,  601, 1153,  601,  604,  673, 1153,  605,  598,

      609,  598,  610,  599,  579,  603,  603,  603,  603,  603,
      603,  603,  603,  603,  604,  605,  606,  609,  579,  610,
      611,  610,  601,  613,  615,  613,  616,  601,  611,  606,
      617,  604,  614,  606,  617,  614,  618,  611,  673,  620,
      613,  615,  621,  616,  601,  619,  622,  617,  622,  614,
      619,  676,  620,  618,  623,  618,  620,  625,  624,  621,
      624,  627,  619,  622,  628,  623,  626,  630,  625,  627,
      626,  623,  629,  632,  625,  624,  629,  628,  627,  633,
      634,  628,  631,  626,  630,  635,  631,  635,  637,  629,
      632,  638,  640,  676,  639,  640,  633,  634,  633,  631,

      641,  643,  635,  644,  984,  637,  637,  639,  638,  640,
      638,  639,  645,  646,  650,  792,  650,  641,  643,  641,
      644,  643,  644,  647,  650,  647,  647,  661,  983,  645,
      646,  647,  648,  661,  648,  648,  664,  654,  664,  654,
      648,  661,  649,  674,  649,  649,  664,  654,  667,  666,
      649,  654,  650,  666,  792,  696,  667,  794,  794,  794,
      647,  647,  696,  696,  647,  667,  666,  704,  697,  648,
      648,  669,  703,  648,  664,  697,  697,  647,  647,  649,
      649,  674,  669,  649,  704,  938,  648,  648,  669,  980,
      672,  703,  672,  670,  977,  670,  649,  649,  655,  655,

      655,  655,  698,  670,  672,  705,  655,  670,  703,  698,
      698,  702,  702,  702,  702,  702,  702,  702,  702,  702,
      706,  707,  705,  938,  705,  708,  709,  710,  711,  716,
      711,  719,  714,  712,  714,  655,  655,  706,  707,  655,
      707,  712,  708,  709,  710,  711,  716,  710,  719,  709,
      712,  715,  655,  655,  678,  715,  740,  975,  740,  819,
      870,  819,  870,  876,  736,  876,  720,  714,  715,  714,
      720,  678,  678,  678,  678,  678,  678,  678,  678,  678,
      679,  736,  714,  720,  714,  915,  740,  915,  972,  956,
      731,  732,  731,  733,  738,  732,  819,  679,  679,  679,

      679,  679,  679,  679,  679,  679,  680,  731,  732,  819,
      733,  738,  871,  733,  955,  954,  734,  735,  742,  748,
      749,  735,  734,  680,  680,  680,  680,  680,  680,  680,
      680,  680,  681,  734,  735,  742,  748,  749,  765,  805,
      765,  935,  965,  935,  965,  871,  805,  805,  765,  681,
      681,  681,  681,  681,  681,  681,  681,  681,  684,  684,
      684,  684,  684,  684,  684,  684,  684,  684,  684,  684,
      684,  684,  684,  684,  684,  684,  684,  684,  684,  684,
      684,  684,  684,  684,  684,  684,  684,  684,  684,  684,
      684,  684,  684,  684,  684,  684,  684,  684,  684,  684,

      684,  684,  684,  684,  684,  684,  684,  684,  684,  684,
      684,  684,  684,  684,  684,  684,  684,  684,  684,  684,
      684,  688,  688,  806,  688, 1007,  953, 1007,  688,  688,
      806,  806,  688,  952,  951,  688,  688,  688,  688,  688,
      688,  688,  688,  701,  701,  949,  701,  701,  701,  701,
      701,  701,  701,  701,  701,  701,  701,  701,  701,  701,
      701,  701,  701,  701,  701,  701,  701,  701,  701,  701,
      701,  701,  701,  701,  701,  701,  701,  701,  701,  701,
      701,  701,  701,  701,  701,  701,  701,  701,  701,  701,
      701,  701,  701,  701,  701,  701,  701,  701,  701,  701,

      701,  701,  701,  701,  701,  701,  737,  739,  744,  743,
      737,  743,  745,  746,  750, 1111,  751,  746,  739,  743,
      745,  753,  744,  737,  739,  744,  752,  946,  747,  745,
      746,  750,  747,  751,  751,  754,  755,  752,  753,  756,
      757,  758,  757,  752,  743,  747,  759,  760,  761, 1111,
      762,  764,  754,  755,  762,  767,  756,  763,  758,  758,
      768,  743,  766,  759,  760,  761,  760,  762,  764,  763,
      766,  769,  767, 1068,  763,  757,  770,  768,  770,  766,
      771,  772,  773,  810,  773,  773,  786,  934,  769,  814,
      757,  786,  757,  774,  945,  774,  774,  771,  772,  771,

      810,  774,  775,  786,  775,  775,  814,  788,  787,  788,
      809,  770,  865,  770,  865,  812,  816,  812,  811,  773,
      773,  787,  811,  773,  934,  787, 1068,  821,  770,  809,
      774,  774,  812,  816,  774,  811,  773,  773,  817,  775,
      775,  813,  788,  775,  821,  813,  809,  774,  774,  865,
      933, 1036,  817, 1036,  932,  817,  775,  775,  813,  788,
      795,  795,  795,  795,  795,  795,  795,  795,  795,  795,
      795,  795,  795,  795,  795,  795,  795,  795,  795,  795,
      795,  795,  795,  795,  795,  795,  795,  795,  795,  795,
      795,  795,  795,  795,  795,  795,  795,  795,  795,  795,

      795,  795,  795,  795,  795,  795,  795,  795,  795,  795,
      795,  795,  795,  795,  795,  795,  795,  795,  795,  795,
      795,  795,  795,  796,  808,  808,  808,  808,  808,  808,
      808,  808,  808,  815,  822,  820,  825,  815,  834,  835,
      796,  796,  796,  796,  796,  796,  796,  796,  796,  820,
      815,  822,  820,  825,  836,  834,  835,  834,  837,  838,
      839,  838,  840,  841,  842,  836,  929,  841,  842,  927,
      922,  836,  843,  846,  839,  837,  838,  839,  845,  840,
      841,  842,  844,  843,  844,  845,  846,  847,  845,  843,
      846,  848,  844,  849,  850,  851,  853,  851,  854,  852,

      854,  855,  856,  857,  847,  858,  847,  852,  848,  858,
      849,  850,  851,  853,  857,  859,  852,  860,  855,  856,
      857,  856,  858,  861,  864,  862,  866,  862,  877,  867,
      874,  879,  859,  875,  860,  862,  884,  867,  883,  883,
      861,  864,  886,  866,  904,  864,  867,  874,  854,  887,
      875,  875,  885,  884,  888,  883,  885,  889,  894,  886,
      893,  877,  894,  896,  879,  880,  887,  896, 1020,  885,
      889,  888,  893,  888,  889,  894,  906,  893,  908,  902,
      896,  906,  880,  880,  880,  880,  880,  880,  880,  880,
      880,  905,  907,  906,  909,  908,  907,  910,  911,  905,

      914,  913, 1043,  912, 1081, 1020,  918,  914,  905,  907,
      914,  909,  916,  909,  910,  911,  912,  910,  913,  916,
      912,  917,  916,  918,  919,  920,  923,  924,  917,  920,
      921,  917,  921,  925,  926,  928,  930,  939,  937,  928,
      923,  919,  920,  923,  924,  931,  936,  921,  940, 1043,
      925,  926,  928,  930,  930,  937,  941, 1081,  931,  940,
      942,  944,  931,  936,  943,  940,  936,  947,  943,  948,
      950,  948,  901,  941,  939,  958,  939,  942,  944,  959,
      960,  943,  947,  961,  947,  962,  948,  950,  963,  958,
      988,  964,  958,  964,  966,  961,  959,  960,  970,  987,

      961,  966,  962,  900,  966,  963,  968,  963,  964,  967,
      967,  967,  969,  968,  971,  970,  968,  967,  974,  969,
      967,  973,  969,  973,  976,  978,  979,  990,  985,  978,
      979,  971,  988, 1004,  899,  974,  989,  987,  973,  985,
      989,  976,  978,  979,  990,  985,  993,  994, 1002, 1003,
     1004, 1003, 1005,  989, 1006,  994, 1016,  993, 1006, 1013,
     1005, 1002,  898,  993,  994, 1002, 1003, 1014, 1019, 1005,
      897, 1006, 1008, 1008, 1008, 1010, 1013, 1023, 1026, 1010,
     1008, 1027, 1026, 1008, 1014, 1019, 1032, 1019, 1034, 1016,
     1035, 1046, 1010, 1033, 1023, 1026, 1047, 1033, 1027, 1027,

     1057, 1034, 1065, 1032, 1052, 1034, 1039, 1035, 1046, 1039,
     1033, 1037, 1037, 1037, 1058, 1067, 1053, 1057, 1058, 1037,
     1062, 1052, 1037, 1039, 1053,  895, 1059, 1052, 1059, 1047,
     1071, 1058, 1072, 1053, 1060, 1060, 1060, 1062, 1075, 1083,
     1062, 1079, 1060, 1103, 1089, 1060, 1072, 1071, 1087, 1072,
     1065, 1089, 1067, 1109, 1089, 1075, 1076, 1076, 1079, 1076,
     1094, 1087,  892, 1076, 1076, 1087, 1095, 1076, 1107, 1110,
     1076, 1076, 1076, 1076, 1076, 1076, 1076, 1076, 1077, 1077,
     1077, 1092, 1104, 1108, 1113, 1092, 1077, 1083, 1114, 1077,
     1090, 1109, 1112, 1094, 1090, 1090, 1103, 1090, 1092, 1095,

     1090, 1090, 1090, 1097, 1101, 1090, 1116, 1118, 1090, 1090,
     1090, 1090, 1090, 1090, 1090, 1090, 1098, 1099, 1119, 1107,
     1097, 1101, 1110, 1098, 1099, 1112, 1098, 1099, 1120, 1104,
     1145, 1108, 1145, 1146, 1147, 1146, 1147, 1113, 1149,  891,
     1149, 1114, 1150,  882, 1150, 1118, 1151, 1157, 1151, 1157,
      878, 1158, 1119, 1158,  873,  872,  869, 1116,  868,  863,
      833,  832,  831,  830,  829,  828,  827,  826,  824,  818,
      804,  803,  802,  798,  793,  791,  790,  783,  782,  781,
      778, 1120, 1124, 1124, 1124, 1124, 1124, 1124, 1124, 1124,
     1124, 1124, 1124, 1124, 1124, 1124, 1124, 1124, 1124, 1125,

     1125, 1125, 1125, 1125, 1125, 1125, 1125, 1125, 1125, 1125,
     1125, 1125, 1125, 1125, 1125, 1125, 1126, 1126,  777, 1126,
     1126, 1126, 1126, 1126, 1126, 1126, 1126, 1126, 1126, 1126,
     1126, 1126, 1126, 1127, 1127,  776, 1127, 1127, 1127, 1127,
     1127, 1127, 1127, 1127, 1127, 1127, 1127, 1127, 1127, 1127,
     1128, 1128, 1128, 1128, 1128, 1128, 1128, 1128, 1128, 1128,
     1128, 1128, 1128, 1128, 1128, 1128, 1128, 1129, 1129, 1129,
     1129, 1129, 1129, 1129, 1129, 1129, 1129, 1129, 1129, 1129,
     1129, 1129, 1129, 1129, 1130, 1130,  730,  729,  728,  727,
     1130, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131,

     1131, 1132, 1132, 1132, 1132, 1132, 1132, 1132, 1132, 1132,
     1132, 1132, 1132, 1132, 1132, 1132, 1132, 1132, 1133,  726,
     1133,  725, 1133, 1133,  724,  722,  718,  717, 1133, 1134,
     1134, 1134, 1134, 1134, 1134, 1134, 1134, 1134, 1134, 1134,
     1134, 1134, 1134, 1134, 1134, 1134, 1135, 1135, 1135, 1135,
     1135, 1135, 1135, 1135, 1135, 1135,  713, 1135, 1135, 1135,
     1135,  695, 1135, 1136, 1136, 1136, 1136, 1136, 1136, 1136,
     1136, 1136, 1136, 1136, 1136, 1136, 1136, 1136, 1136, 1136,
     1137,  694,  693, 1137, 1137, 1138, 1138, 1138, 1138,  692,
     1138, 1138,  691, 1138, 1138,  685, 1138, 1138,  683,  675,

     1138, 1138, 1139, 1139, 1139, 1139, 1139, 1139, 1139, 1139,
     1139, 1139, 1139, 1139, 1139, 1139, 1139, 1139, 1139, 1140,
      662, 1140,  660,  653, 1140, 1141,  651, 1141,  636, 1141,
     1141, 1142, 1142,  589, 1142, 1142, 1142, 1142, 1142, 1142,
     1142, 1142, 1142, 1142, 1142, 1142, 1142, 1142, 1143, 1143,
     1143, 1143, 1143, 1143, 1143, 1143, 1143, 1143, 1143, 1143,
     1143, 1143, 1143, 1143, 1143, 1144, 1144, 1144, 1144, 1144,
     1144, 1144, 1144, 1144, 1144, 1144, 1144, 1144, 1144, 1144,
     1144, 1144, 1148,  588,  586, 1148, 1148, 1154,  585, 1154,
      583,  582,  575,  556, 1154,  551,  549,  546,  543,  530,

      524,  523, 1154, 1155,  515, 1155,  514,  513, 1155, 1156,
      512, 1156,  511, 1156, 1156, 1159,  510, 1159,  454,  429,
     1159, 1160,  409, 1160,  400, 1160, 1160, 1161, 1161,  398,
     1161, 1161, 1161, 1161, 1161, 1161, 1161, 1161, 1161, 1161,
     1161, 1161, 1161, 1161, 1162, 1162,  397, 1162, 1162, 1162,
     1162, 1162, 1162, 1162, 1162, 1162, 1162, 1162, 1162, 1162,
     1162, 1163, 1163,  391, 1163, 1163, 1163, 1163, 1163, 1163,
     1163, 1163, 1163, 1163, 1163, 1163, 1163, 1163, 1164, 1164,
     1164, 1164, 1164, 1164, 1164, 1164, 1164, 1164, 1164, 1164,
     1164, 1164, 1164, 1164, 1164, 1165, 1165, 1165, 1165, 1165,

     1165, 1165, 1165, 1165, 1165, 1165, 1165, 1165, 1165, 1165,
     1165, 1165, 1166, 1166, 1166, 1166, 1166, 1166, 1166, 1166,
     1166, 1166, 1166, 1166, 1166, 1166, 1166, 1166, 1166, 1167,
      389, 1167,  375, 1167, 1167, 1168, 1168,  374, 1168, 1168,
     1168, 1168, 1168, 1168, 1168, 1168, 1168, 1168, 1168, 1168,
     1168, 1168, 1169, 1169, 1169, 1169, 1169, 1169, 1169, 1169,
     1169, 1169, 1169, 1169, 1169, 1169, 1169, 1169, 1169, 1170,
     1170, 1170, 1170, 1170, 1170, 1170, 1170, 1170, 1170, 1170,
     1170, 1170, 1170, 1170, 1170, 1170, 1171, 1171,  372, 1171,
     1171, 1171, 1171, 1171, 1171, 1171, 1171, 1171, 1171, 1171,

     1171, 1171, 1171, 1172, 1172,  371, 1172, 1172, 1172, 1172,
     1172, 1172, 1172, 1172, 1172, 1172, 1172, 1172, 1172, 1172,
     1173, 1173,  365, 1173, 1173, 1173, 1173, 1173, 1173, 1173,
     1173, 1173, 1173, 1173, 1173, 1173, 1173, 1174, 1174, 1174,
     1174, 1174, 1174, 1174, 1174, 1174, 1174, 1174, 1174, 1174,
     1174, 1174, 1174, 1174, 1175, 1175, 1175, 1175, 1175, 1175,
     1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175, 1175,
     1175, 1176, 1176, 1176, 1176, 1176, 1176, 1176, 1176, 1176,
     1176, 1176, 1176, 1176, 1176, 1176, 1176, 1176, 1177, 1177,
     1177, 1177, 1177, 1177, 1177, 1177, 1177, 1177, 1177, 1177,

     1177, 1177, 1177, 1177, 1177, 1178, 1178, 1178, 1178, 1178,
     1178, 1178, 1178, 1178, 1178, 1178, 1178, 1178, 1178, 1178,
     1178, 1178, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179,
     1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179, 1179,  358,
      353,  345,  344,  334,  333,  332,  331,  330,  329,  328,
      326,  262,  244,  243,  237,  236,  235,  233,  232,  231,
      230,  228,  213,  212,  210,  209,  204,  198,  195,  192,
      178,  173,  171,  170,  167,  101,  100,   96,   95,   82,
       81,   78,   77,   76,   75,   69,   68,   63,   58,   13,
        7, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,

     1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
     1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
     1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
     1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
     1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123, 1123,
     1123, 1123, 1123, 1123, 1123
    } ;

static yy_state_type yy_last_accepting_state;
static char *yy_last_accepting_cpos;

extern int fortran_flex_debug;
int fortran_flex_debug = 0;

/* The intent behind this definition is that it'll catch
 * any uses of REJECT which flex missed.
 */
#define REJECT reject_used_but_not_detected
#define yymore() yymore_used_but_not_detected
#define YY_MORE_ADJ 0
#define YY_RESTORE_YY_MORE_OFFSET
char *fortrantext;
#line 1 "fortran.lex"
/******************************************************************************/
/*                                                                            */
/*     CONV (converter) for Agrif (Adaptive Grid Refinement In Fortran)       */
/*                                                                            */
/* Copyright or   or Copr. Laurent Debreu (Laurent.Debreu@imag.fr)            */
/*                        Cyril Mazauric (Cyril_Mazauric@yahoo.fr)            */
/* This software is governed by the CeCILL-C license under French law and     */
/* abiding by the rules of distribution of free software.  You can  use,      */
/* modify and/ or redistribute the software under the terms of the CeCILL-C   */
/* license as circulated by CEA, CNRS and INRIA at the following URL          */
/* "http://www.cecill.info".                                                  */
/*                                                                            */
/* As a counterpart to the access to the source code and  rights to copy,     */
/* modify and redistribute granted by the license, users are provided only    */
/* with a limited warranty  and the software's author,  the holder of the     */
/* economic rights,  and the successive licensors  have only  limited         */
/* liability.                                                                 */
/*                                                                            */
/* In this respect, the user's attention is drawn to the risks associated     */
/* with loading,  using,  modifying and/or developing or reproducing the      */
/* software by the user in light of its specific status of free software,     */
/* that may mean  that it is complicated to manipulate,  and  that  also      */
/* therefore means  that it is reserved for developers  and  experienced      */
/* professionals having in-depth computer knowledge. Users are therefore      */
/* encouraged to load and test the software's suitability as regards their    */
/* requirements in conditions enabling the security of their systems and/or   */
/* data to be ensured and,  more generally, to use and operate it in the      */
/* same conditions as regards security.                                       */
/*                                                                            */
/* The fact that you are presently reading this means that you have had       */
/* knowledge of the CeCILL-C license and that you accept its terms.           */
/******************************************************************************/
/* version 1.7                                                                */
/******************************************************************************/





#line 41 "fortran.lex"
#include <math.h>
#include <stdlib.h>
#include <string.h>
extern FILE * fortranin;
#define MAX_INCLUDE_DEPTH 30
#define tabsize 6
YY_BUFFER_STATE include_stack[MAX_INCLUDE_DEPTH];
int line_num_fortran=1;
int line_num_fortran_common=1;
int newlinef90 = 0;
char *tmp;
char tmpc;
/******************************************************************************/
/**************PETITS PB NON PREVUS *******************************************/
/******************************************************************************/
/* NEXTLINF77 un ligne fortran 77 peut commencer par -      &a=b or on        */
/*            a prevu seulement       & a=b avec l'espace entre le symbole    */
/*            de la 7eme et le debut de la ligne de commande                  */
/*            le ! est aussi interdit comme symbole de la 7 eme colonne       */
/*            Normalement NEXTLINEF77 \n+[ ]{5}[^ ]                           */
/******************************************************************************/
#define YY_USER_ACTION \
        {\
           if (firstpass == 0) \
           {\
              strcat(curbuf,fortrantext); \
              Save_Length(curbuf,38); \
              strcpy(motparse,fortrantext);\
              Save_Length(motparse,32); \
              colnum = colnum + strlen(motparse);\
              ECHO; \
           }\
           strcpy(motparse1,fortrantext);\
           /*printf("fortrantext = %s\n",fortrantext);*/\
        /*if ( firstpass == 1 ) 
                      printf("fortrantext = %s %d\n",fortrantext,strlen(fortrantext));*/\
        }
#line 1850 "fortran.yy.c"

#define INITIAL 0
#define parameter 1
#define character 2
#define donottreat 3
#define fortran77style 4
#define fortran90style 5

#ifndef YY_NO_UNISTD_H
/* Special case for "unistd.h", since it is non-ANSI. We include it way
 * down here because we want the user's section 1 to have been scanned first.
 * The user has a chance to override it with an option.
 */
#include <unistd.h>
#endif

#ifndef YY_EXTRA_TYPE
#define YY_EXTRA_TYPE void *
#endif

static int yy_init_globals (void );

/* Macros after this point can all be overridden by user definitions in
 * section 1.
 */

#ifndef YY_SKIP_YYWRAP
#ifdef __cplusplus
extern "C" int fortranwrap (void );
#else
extern int fortranwrap (void );
#endif
#endif

    static void yyunput (int c,char *buf_ptr  );
    
#ifndef yytext_ptr
static void yy_flex_strncpy (char *,yyconst char *,int );
#endif

#ifdef YY_NEED_STRLEN
static int yy_flex_strlen (yyconst char * );
#endif

#ifndef YY_NO_INPUT

#ifdef __cplusplus
static int yyinput (void );
#else
static int input (void );
#endif

#endif

/* Amount of stuff to slurp up with each read. */
#ifndef YY_READ_BUF_SIZE
#define YY_READ_BUF_SIZE 8192
#endif

/* Copy whatever the last rule matched to the standard output. */
#ifndef ECHO
/* This used to be an fputs(), but since the string might contain NUL's,
 * we now use fwrite().
 */
#define ECHO (void) fwrite( fortrantext, fortranleng, 1, fortranout )
#endif

/* Gets input and stuffs it into "buf".  number of characters read, or YY_NULL,
 * is returned in "result".
 */
#ifndef YY_INPUT
#define YY_INPUT(buf,result,max_size) \
   if ( YY_CURRENT_BUFFER_LVALUE->yy_is_interactive ) \
      { \
      int c = '*'; \
      size_t n; \
      for ( n = 0; n < max_size && \
              (c = getc( fortranin )) != EOF && c != '\n'; ++n ) \
         buf[n] = (char) c; \
      if ( c == '\n' ) \
         buf[n++] = (char) c; \
      if ( c == EOF && ferror( fortranin ) ) \
         YY_FATAL_ERROR( "input in flex scanner failed" ); \
      result = n; \
      } \
   else \
      { \
      errno=0; \
      while ( (result = fread(buf, 1, max_size, fortranin))==0 && ferror(fortranin)) \
         { \
         if( errno != EINTR) \
            { \
            YY_FATAL_ERROR( "input in flex scanner failed" ); \
            break; \
            } \
         errno=0; \
         clearerr(fortranin); \
         } \
      }\
\

#endif

/* No semi-colon after return; correct usage is to write "yyterminate();" -
 * we don't want an extra ';' after the "return" because that will cause
 * some compilers to complain about unreachable statements.
 */
#ifndef yyterminate
#define yyterminate() return YY_NULL
#endif

/* Number of entries by which start-condition stack grows. */
#ifndef YY_START_STACK_INCR
#define YY_START_STACK_INCR 25
#endif

/* Report a fatal error. */
#ifndef YY_FATAL_ERROR
#define YY_FATAL_ERROR(msg) yy_fatal_error( msg )
#endif

/* end tables serialization structures and prototypes */

/* Default declaration of generated scanner - a define so the user can
 * easily add parameters.
 */
#ifndef YY_DECL
#define YY_DECL_IS_OURS 1

extern int fortranlex (void);

#define YY_DECL int fortranlex (void)
#endif /* !YY_DECL */

/* Code executed at the beginning of each rule, after fortrantext and fortranleng
 * have been set up.
 */
#ifndef YY_USER_ACTION
#define YY_USER_ACTION
#endif

/* Code executed at the end of each rule. */
#ifndef YY_BREAK
#define YY_BREAK break;
#endif

#define YY_RULE_SETUP \
   if ( fortranleng > 0 ) \
      YY_CURRENT_BUFFER_LVALUE->yy_at_bol = \
            (fortrantext[fortranleng - 1] == '\n'); \
   YY_USER_ACTION

/** The main scanner function which does all the work.
 */
YY_DECL
{
   register yy_state_type yy_current_state;
   register char *yy_cp, *yy_bp;
   register int yy_act;
    
#line 106 "fortran.lex"

  if (infixed) BEGIN(fortran77style) ;
  if (infree) BEGIN(fortran90style)  ;

#line 2016 "fortran.yy.c"

   if ( !(yy_init) )
      {
      (yy_init) = 1;

#ifdef YY_USER_INIT
      YY_USER_INIT;
#endif

      if ( ! (yy_start) )
         (yy_start) = 1;   /* first start state */

      if ( ! fortranin )
         fortranin = stdin;

      if ( ! fortranout )
         fortranout = stdout;

      if ( ! YY_CURRENT_BUFFER ) {
         fortranensure_buffer_stack ();
         YY_CURRENT_BUFFER_LVALUE =
            fortran_create_buffer(fortranin,YY_BUF_SIZE );
      }

      fortran_load_buffer_state( );
      }

   while ( 1 )    /* loops until end-of-file is reached */
      {
      yy_cp = (yy_c_buf_p);

      /* Support of fortrantext. */
      *yy_cp = (yy_hold_char);

      /* yy_bp points to the position in yy_ch_buf of the start of
       * the current run.
       */
      yy_bp = yy_cp;

      yy_current_state = (yy_start);
      yy_current_state += YY_AT_BOL();
yy_match:
      do
         {
         register YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)];
         if ( yy_accept[yy_current_state] )
            {
            (yy_last_accepting_state) = yy_current_state;
            (yy_last_accepting_cpos) = yy_cp;
            }
         while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
            {
            yy_current_state = (int) yy_def[yy_current_state];
            if ( yy_current_state >= 1124 )
               yy_c = yy_meta[(unsigned int) yy_c];
            }
         yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
         ++yy_cp;
         }
      while ( yy_base[yy_current_state] != 4192 );

yy_find_action:
      yy_act = yy_accept[yy_current_state];
      if ( yy_act == 0 )
         { /* have to back up */
         yy_cp = (yy_last_accepting_cpos);
         yy_current_state = (yy_last_accepting_state);
         yy_act = yy_accept[yy_current_state];
         }

      YY_DO_BEFORE_ACTION;

do_action:  /* This label is used only to access EOF actions. */

      switch ( yy_act )
   { /* beginning of action switch */
         case 0: /* must back up */
         /* undo the effects of YY_DO_BEFORE_ACTION */
         *yy_cp = (yy_hold_char);
         yy_cp = (yy_last_accepting_cpos);
         yy_current_state = (yy_last_accepting_state);
         goto yy_find_action;

case 1:
YY_RULE_SETUP
#line 110 "fortran.lex"
return TOK_DEBUT;
   YY_BREAK
case 2:
YY_RULE_SETUP
#line 111 "fortran.lex"
return TOK_FIN;
   YY_BREAK
case 3:
YY_RULE_SETUP
#line 112 "fortran.lex"
return TOK_OMP;
   YY_BREAK
case 4:
YY_RULE_SETUP
#line 113 "fortran.lex"
return TOK_DOLLAR;
   YY_BREAK
case 5:
YY_RULE_SETUP
#line 115 "fortran.lex"
{return TOK_REAL8;}
   YY_BREAK
case 6:
YY_RULE_SETUP
#line 116 "fortran.lex"
{return TOK_SUBROUTINE;}
   YY_BREAK
case 7:
YY_RULE_SETUP
#line 117 "fortran.lex"
{return TOK_PROGRAM;}
   YY_BREAK
case 8:
YY_RULE_SETUP
#line 118 "fortran.lex"
{inallocate = 1; return TOK_ALLOCATE;}
   YY_BREAK
case 9:
YY_RULE_SETUP
#line 119 "fortran.lex"
{inallocate = 1; return TOK_DEALLOCATE;}
   YY_BREAK
case 10:
YY_RULE_SETUP
#line 120 "fortran.lex"
{return TOK_RESULT;}
   YY_BREAK
case 11:
YY_RULE_SETUP
#line 121 "fortran.lex"
{return TOK_FUNCTION;}
   YY_BREAK
case 12:
YY_RULE_SETUP
#line 122 "fortran.lex"
{strcpy(yylval.na,fortrantext);return TOK_ENDSUBROUTINE;}
   YY_BREAK
case 13:
YY_RULE_SETUP
#line 123 "fortran.lex"
{strcpy(yylval.na,fortrantext);return TOK_ENDPROGRAM;}
   YY_BREAK
case 14:
YY_RULE_SETUP
#line 124 "fortran.lex"
{strcpy(yylval.na,fortrantext);return TOK_ENDFUNCTION;}
   YY_BREAK
case 15:
YY_RULE_SETUP
#line 125 "fortran.lex"
{strcpy(yylval.na,fortrantext);return TOK_ENDUNIT;}
   YY_BREAK
case 16:
YY_RULE_SETUP
#line 126 "fortran.lex"
return TOK_INCLUDE;
   YY_BREAK
case 17:
YY_RULE_SETUP
#line 127 "fortran.lex"
{
                            strcpy(yylval.na,fortrantext);
                            tmpc = input();
                            unput(tmpc);
                            if ( (
                               tmpc >= 'a' && tmpc <= 'z'
                                  ) || (
                               tmpc >= 'A' && tmpc <= 'Z'
                               )  )
                               {
                                  return TOK_USE;
                               }
                               else
                               {
                                  return TOK_NAME;
                               }
                         }
   YY_BREAK
case 18:
YY_RULE_SETUP
#line 144 "fortran.lex"
{return TOK_REWIND;}
   YY_BREAK
case 19:
YY_RULE_SETUP
#line 145 "fortran.lex"
return TOK_IMPLICIT;
   YY_BREAK
case 20:
YY_RULE_SETUP
#line 146 "fortran.lex"
return TOK_NONE;
   YY_BREAK
case 21:
YY_RULE_SETUP
#line 147 "fortran.lex"
return TOK_CALL;
   YY_BREAK
case 22:
YY_RULE_SETUP
#line 148 "fortran.lex"
return TOK_TRUE;
   YY_BREAK
case 23:
YY_RULE_SETUP
#line 149 "fortran.lex"
return TOK_FALSE;
   YY_BREAK
case 24:
YY_RULE_SETUP
#line 150 "fortran.lex"
{return TOK_POINT_TO;}
   YY_BREAK
case 25:
YY_RULE_SETUP
#line 151 "fortran.lex"
{strcpy(yylval.na,fortrantext);return TOK_DASTER;}
   YY_BREAK
case 26:
YY_RULE_SETUP
#line 152 "fortran.lex"
{strcpy(yylval.na,fortrantext);return TOK_EQV;}
   YY_BREAK
case 27:
YY_RULE_SETUP
#line 153 "fortran.lex"
{strcpy(yylval.na,fortrantext);return TOK_EQ;}
   YY_BREAK
case 28:
YY_RULE_SETUP
#line 154 "fortran.lex"
{strcpy(yylval.na,fortrantext);return TOK_GT;}
   YY_BREAK
case 29:
YY_RULE_SETUP
#line 155 "fortran.lex"
{strcpy(yylval.na,fortrantext);return TOK_GE;}
   YY_BREAK
case 30:
YY_RULE_SETUP
#line 156 "fortran.lex"
{strcpy(yylval.na,fortrantext);return TOK_LT;}
   YY_BREAK
case 31:
YY_RULE_SETUP
#line 157 "fortran.lex"
{strcpy(yylval.na,fortrantext);return TOK_LE;}
   YY_BREAK
case 32:
YY_RULE_SETUP
#line 158 "fortran.lex"
{strcpy(yylval.na,fortrantext);return TOK_NEQV;}
   YY_BREAK
case 33:
YY_RULE_SETUP
#line 159 "fortran.lex"
{strcpy(yylval.na,fortrantext);return TOK_NE;}
   YY_BREAK
case 34:
YY_RULE_SETUP
#line 160 "fortran.lex"
{strcpy(yylval.na,fortrantext);return TOK_NOT;}
   YY_BREAK
case 35:
YY_RULE_SETUP
#line 161 "fortran.lex"
{strcpy(yylval.na,fortrantext);return TOK_OR;}
   YY_BREAK
case 36:
YY_RULE_SETUP
#line 162 "fortran.lex"
{strcpy(yylval.na,fortrantext);return TOK_XOR;}
   YY_BREAK
case 37:
YY_RULE_SETUP
#line 163 "fortran.lex"
{strcpy(yylval.na,fortrantext);return TOK_AND;}
   YY_BREAK
case 38:
YY_RULE_SETUP
#line 164 "fortran.lex"
{return TOK_MODULE;}
   YY_BREAK
case 39:
YY_RULE_SETUP
#line 165 "fortran.lex"
{return TOK_DOWHILE;}
   YY_BREAK
case 40:
YY_RULE_SETUP
#line 166 "fortran.lex"
return TOK_ENDMODULE;
   YY_BREAK
case 41:
YY_RULE_SETUP
#line 167 "fortran.lex"
return TOK_ENDDO;
   YY_BREAK
case 42:
YY_RULE_SETUP
#line 168 "fortran.lex"
{return TOK_PLAINDO;}
   YY_BREAK
case 43:
YY_RULE_SETUP
#line 169 "fortran.lex"
{strcpy(yylval.na,fortrantext);return TOK_REAL;}
   YY_BREAK
case 44:
YY_RULE_SETUP
#line 170 "fortran.lex"
{strcpy(yylval.na,fortrantext);return TOK_INTEGER;}
   YY_BREAK
case 45:
YY_RULE_SETUP
#line 171 "fortran.lex"
{strcpy(yylval.na,fortrantext);return TOK_LOGICAL;}
   YY_BREAK
case 46:
YY_RULE_SETUP
#line 172 "fortran.lex"
{strcpy(yylval.na,fortrantext);return TOK_CHARACTER;}
   YY_BREAK
case 47:
YY_RULE_SETUP
#line 173 "fortran.lex"
{return TOK_ALLOCATABLE;}
   YY_BREAK
case 48:
YY_RULE_SETUP
#line 174 "fortran.lex"
return TOK_CLOSE;
   YY_BREAK
case 49:
YY_RULE_SETUP
#line 175 "fortran.lex"
return TOK_INQUIRE;
   YY_BREAK
case 50:
YY_RULE_SETUP
#line 176 "fortran.lex"
{return TOK_DIMENSION;}
   YY_BREAK
case 51:
YY_RULE_SETUP
#line 177 "fortran.lex"
return TOK_PAUSE;
   YY_BREAK
case 52:
YY_RULE_SETUP
#line 178 "fortran.lex"
return TOK_EQUIVALENCE;
   YY_BREAK
case 53:
YY_RULE_SETUP
#line 179 "fortran.lex"
return TOK_STOP;
   YY_BREAK
case 54:
YY_RULE_SETUP
#line 180 "fortran.lex"
return TOK_WHERE;
   YY_BREAK
case 55:
YY_RULE_SETUP
#line 181 "fortran.lex"
return TOK_ENDWHERE;
   YY_BREAK
case 56:
YY_RULE_SETUP
#line 182 "fortran.lex"
return TOK_ELSEWHERE;
   YY_BREAK
case 57:
YY_RULE_SETUP
#line 183 "fortran.lex"
{return TOK_COMPLEX;}
   YY_BREAK
case 58:
YY_RULE_SETUP
#line 184 "fortran.lex"
{return TOK_CONTAINS;}
   YY_BREAK
case 59:
YY_RULE_SETUP
#line 185 "fortran.lex"
{return TOK_ONLY;}
   YY_BREAK
case 60:
YY_RULE_SETUP
#line 186 "fortran.lex"
{return TOK_PARAMETER;}
   YY_BREAK
case 61:
YY_RULE_SETUP
#line 187 "fortran.lex"
{return TOK_RECURSIVE;}
   YY_BREAK
case 62:
YY_RULE_SETUP
#line 188 "fortran.lex"
{return TOK_COMMON;}
   YY_BREAK
case 63:
YY_RULE_SETUP
#line 189 "fortran.lex"
{return TOK_GLOBAL;}
   YY_BREAK
case 64:
YY_RULE_SETUP
#line 190 "fortran.lex"
{return TOK_EXTERNAL;}
   YY_BREAK
case 65:
YY_RULE_SETUP
#line 191 "fortran.lex"
{return TOK_INTENT;}
   YY_BREAK
case 66:
YY_RULE_SETUP
#line 192 "fortran.lex"
{return TOK_POINTER;}
   YY_BREAK
case 67:
YY_RULE_SETUP
#line 193 "fortran.lex"
{return TOK_OPTIONAL;}
   YY_BREAK
case 68:
YY_RULE_SETUP
#line 194 "fortran.lex"
{return TOK_SAVE;}
   YY_BREAK
case 69:
YY_RULE_SETUP
#line 195 "fortran.lex"
{return TOK_TYPE;}
   YY_BREAK
case 70:
YY_RULE_SETUP
#line 196 "fortran.lex"
{return TOK_TYPEPAR;}
   YY_BREAK
case 71:
YY_RULE_SETUP
#line 197 "fortran.lex"
{if (inallocate == 1) return TOK_STAT; else {strcpy(yylval.na,fortrantext);return TOK_NAME;}}
   YY_BREAK
case 72:
YY_RULE_SETUP
#line 198 "fortran.lex"
{return TOK_ENDTYPE;}
   YY_BREAK
case 73:
YY_RULE_SETUP
#line 199 "fortran.lex"
return TOK_OPEN;
   YY_BREAK
case 74:
YY_RULE_SETUP
#line 200 "fortran.lex"
return TOK_RETURN;
   YY_BREAK
case 75:
/* rule 75 can match eol */
YY_RULE_SETUP
#line 201 "fortran.lex"
return TOK_EXIT;
   YY_BREAK
case 76:
YY_RULE_SETUP
#line 202 "fortran.lex"
return TOK_PRINT;
   YY_BREAK
case 77:
YY_RULE_SETUP
#line 203 "fortran.lex"
{return TOK_PROCEDURE;}
   YY_BREAK
case 78:
YY_RULE_SETUP
#line 204 "fortran.lex"
{return TOK_READ;}
   YY_BREAK
case 79:
YY_RULE_SETUP
#line 205 "fortran.lex"
{return TOK_NAMELIST;}
   YY_BREAK
case 80:
YY_RULE_SETUP
#line 206 "fortran.lex"
{return TOK_WRITE;}
   YY_BREAK
case 81:
YY_RULE_SETUP
#line 207 "fortran.lex"
{return TOK_TARGET;}
   YY_BREAK
case 82:
YY_RULE_SETUP
#line 208 "fortran.lex"
{return TOK_PUBLIC;}
   YY_BREAK
case 83:
YY_RULE_SETUP
#line 209 "fortran.lex"
{return TOK_PRIVATE;}
   YY_BREAK
case 84:
YY_RULE_SETUP
#line 210 "fortran.lex"
{strcpy(yylval.nac,fortrantext);return TOK_IN;}
   YY_BREAK
case 85:
YY_RULE_SETUP
#line 211 "fortran.lex"
{strcpy(yylval.na,fortrantext);return TOK_DATA;}
   YY_BREAK
case 86:
YY_RULE_SETUP
#line 212 "fortran.lex"
return TOK_CONTINUE;
   YY_BREAK
case 87:
YY_RULE_SETUP
#line 213 "fortran.lex"
{return TOK_PLAINGOTO;}
   YY_BREAK
case 88:
YY_RULE_SETUP
#line 214 "fortran.lex"
{strcpy(yylval.nac,fortrantext);return TOK_OUT;}
   YY_BREAK
case 89:
YY_RULE_SETUP
#line 215 "fortran.lex"
{strcpy(yylval.nac,fortrantext);return TOK_INOUT;}
   YY_BREAK
case 90:
YY_RULE_SETUP
#line 216 "fortran.lex"
{return TOK_INTRINSIC;}
   YY_BREAK
case 91:
YY_RULE_SETUP
#line 217 "fortran.lex"
{return TOK_THEN;}
   YY_BREAK
case 92:
YY_RULE_SETUP
#line 218 "fortran.lex"
{return TOK_ELSEIF;}
   YY_BREAK
case 93:
YY_RULE_SETUP
#line 219 "fortran.lex"
{return TOK_ELSE;}
   YY_BREAK
case 94:
YY_RULE_SETUP
#line 220 "fortran.lex"
{return TOK_ENDIF;}
   YY_BREAK
case 95:
YY_RULE_SETUP
#line 221 "fortran.lex"
{return TOK_LOGICALIF;}
   YY_BREAK
case 96:
YY_RULE_SETUP
#line 222 "fortran.lex"
{return TOK_SUM;}
   YY_BREAK
case 97:
YY_RULE_SETUP
#line 223 "fortran.lex"
{return TOK_MAX;}
   YY_BREAK
case 98:
YY_RULE_SETUP
#line 224 "fortran.lex"
{return TOK_TANH;}
   YY_BREAK
case 99:
YY_RULE_SETUP
#line 225 "fortran.lex"
{return TOK_MAXVAL;}
   YY_BREAK
case 100:
YY_RULE_SETUP
#line 226 "fortran.lex"
{return TOK_TRIM;}
   YY_BREAK
case 101:
YY_RULE_SETUP
#line 227 "fortran.lex"
{return TOK_SQRT;}
   YY_BREAK
case 102:
YY_RULE_SETUP
#line 228 "fortran.lex"
{return TOK_SELECTCASE;}
   YY_BREAK
case 103:
YY_RULE_SETUP
#line 229 "fortran.lex"
{return TOK_CASE;}
   YY_BREAK
case 104:
YY_RULE_SETUP
#line 230 "fortran.lex"
{return TOK_CASEDEFAULT;}
   YY_BREAK
case 105:
YY_RULE_SETUP
#line 231 "fortran.lex"
{return TOK_ENDSELECT;}
   YY_BREAK
case 106:
YY_RULE_SETUP
#line 232 "fortran.lex"
{return TOK_FILE;}
   YY_BREAK
case 107:
YY_RULE_SETUP
#line 233 "fortran.lex"
{return TOK_END;}
   YY_BREAK
case 108:
YY_RULE_SETUP
#line 234 "fortran.lex"
{return TOK_ERR;}
   YY_BREAK
case 109:
YY_RULE_SETUP
#line 235 "fortran.lex"
{return TOK_EXIST;}
   YY_BREAK
case 110:
YY_RULE_SETUP
#line 236 "fortran.lex"
{return TOK_MIN;}
   YY_BREAK
case 111:
YY_RULE_SETUP
#line 237 "fortran.lex"
{return TOK_NINT;}
   YY_BREAK
case 112:
YY_RULE_SETUP
#line 238 "fortran.lex"
{return TOK_FLOAT;}
   YY_BREAK
case 113:
YY_RULE_SETUP
#line 239 "fortran.lex"
{return TOK_EXP;}
   YY_BREAK
case 114:
YY_RULE_SETUP
#line 240 "fortran.lex"
{return TOK_COS;}
   YY_BREAK
case 115:
YY_RULE_SETUP
#line 241 "fortran.lex"
{return TOK_COSH;}
   YY_BREAK
case 116:
YY_RULE_SETUP
#line 242 "fortran.lex"
{return TOK_ACOS;}
   YY_BREAK
case 117:
YY_RULE_SETUP
#line 243 "fortran.lex"
{return TOK_SIN;}
   YY_BREAK
case 118:
YY_RULE_SETUP
#line 244 "fortran.lex"
{return TOK_SINH;}
   YY_BREAK
case 119:
YY_RULE_SETUP
#line 245 "fortran.lex"
{return TOK_ASIN;}
   YY_BREAK
case 120:
YY_RULE_SETUP
#line 246 "fortran.lex"
{return TOK_LOG;}
   YY_BREAK
case 121:
YY_RULE_SETUP
#line 247 "fortran.lex"
{return TOK_TAN;}
   YY_BREAK
case 122:
YY_RULE_SETUP
#line 248 "fortran.lex"
{return TOK_ATAN;}
   YY_BREAK
case 123:
YY_RULE_SETUP
#line 249 "fortran.lex"
{return TOK_CYCLE;}
   YY_BREAK
case 124:
YY_RULE_SETUP
#line 250 "fortran.lex"
{return TOK_ABS;}
   YY_BREAK
case 125:
YY_RULE_SETUP
#line 251 "fortran.lex"
{return TOK_MOD;}
   YY_BREAK
case 126:
YY_RULE_SETUP
#line 252 "fortran.lex"
{return TOK_SIGN;}
   YY_BREAK
case 127:
YY_RULE_SETUP
#line 253 "fortran.lex"
{return TOK_MINLOC;}
   YY_BREAK
case 128:
YY_RULE_SETUP
#line 254 "fortran.lex"
{return TOK_MAXLOC;}
   YY_BREAK
case 129:
YY_RULE_SETUP
#line 255 "fortran.lex"
{return TOK_MINVAL;}
   YY_BREAK
case 130:
YY_RULE_SETUP
#line 256 "fortran.lex"
{return TOK_INTERFACE;}
   YY_BREAK
case 131:
YY_RULE_SETUP
#line 257 "fortran.lex"
{return TOK_BACKSPACE;}
   YY_BREAK
case 132:
YY_RULE_SETUP
#line 258 "fortran.lex"
{return TOK_ENDINTERFACE;}
   YY_BREAK
case 133:
YY_RULE_SETUP
#line 259 "fortran.lex"
{return TOK_LEFTAB;}
   YY_BREAK
case 134:
YY_RULE_SETUP
#line 260 "fortran.lex"
{return TOK_RIGHTAB;}
   YY_BREAK
case 135:
/* rule 135 can match eol */
YY_RULE_SETUP
#line 261 "fortran.lex"
{return TOK_FORMAT;}
   YY_BREAK
case 136:
YY_RULE_SETUP
#line 262 "fortran.lex"
{strcpy(yylval.na,fortrantext);return TOK_DOUBLEPRECISION;}
   YY_BREAK
case 137:
YY_RULE_SETUP
#line 263 "fortran.lex"
{strcpy(yylval.na,fortrantext);return TOK_DOUBLECOMPLEX;}
   YY_BREAK
case 138:
YY_RULE_SETUP
#line 264 "fortran.lex"
{strcpy(yylval.na,fortrantext);return TOK_SLASH;}
   YY_BREAK
case 139:
YY_RULE_SETUP
#line 265 "fortran.lex"
{strcpy(yylval.na,fortrantext);return TOK_DSLASH;}
   YY_BREAK
case 140:
/* rule 140 can match eol */
YY_RULE_SETUP
#line 266 "fortran.lex"
{strcpy(yylval.na,fortrantext);return TOK_CHAR_CUT;}
   YY_BREAK
case 141:
YY_RULE_SETUP
#line 267 "fortran.lex"
{strcpy(yylval.na,fortrantext);return TOK_CHAR_CONSTANT;}
   YY_BREAK
case 142:
YY_RULE_SETUP
#line 268 "fortran.lex"
{strcpy(yylval.na,fortrantext);return TOK_CHAR_MESSAGE;}
   YY_BREAK
case 143:
YY_RULE_SETUP
#line 269 "fortran.lex"
{strcpy(yylval.na,fortrantext);return TOK_CHAR_INT;}
   YY_BREAK
case 144:
YY_RULE_SETUP
#line 270 "fortran.lex"
{strcpy(yylval.na,fortrantext);return TOK_NAME;}
   YY_BREAK
case 145:
YY_RULE_SETUP
#line 271 "fortran.lex"
{strcpy(yylval.na,fortrantext);return TOK_CSTREAL;}
   YY_BREAK
case 146:
YY_RULE_SETUP
#line 272 "fortran.lex"
{strcpy(yylval.na,fortrantext);return TOK_CSTREALDP;}
   YY_BREAK
case 147:
YY_RULE_SETUP
#line 273 "fortran.lex"
{strcpy(yylval.na,fortrantext);return TOK_CSTREALQP;}
   YY_BREAK
case 148:
/* rule 148 can match eol */
*yy_cp = (yy_hold_char); /* undo effects of setting up fortrantext */
(yy_c_buf_p) = yy_cp -= 1;
YY_DO_BEFORE_ACTION; /* set up fortrantext again */
YY_RULE_SETUP
#line 274 "fortran.lex"
{strcpy(yylval.na,fortrantext);return TOK_CSTREAL;}
   YY_BREAK
case 149:
YY_RULE_SETUP
#line 275 "fortran.lex"
{strcpy(yylval.na,fortrantext);return TOK_CSTINT;}
   YY_BREAK
case 150:
YY_RULE_SETUP
#line 276 "fortran.lex"
{}
   YY_BREAK
case 151:
YY_RULE_SETUP
#line 277 "fortran.lex"
{return TOK_QUOTE;}
   YY_BREAK
case 152:
YY_RULE_SETUP
#line 278 "fortran.lex"
{}
   YY_BREAK
case 153:
YY_RULE_SETUP
#line 279 "fortran.lex"
{strcpy(yylval.na,fortrantext);return (int) *fortrantext;}
   YY_BREAK
case 154:
YY_RULE_SETUP
#line 280 "fortran.lex"
{return TOK_SEMICOLON;}
   YY_BREAK
case 155:
YY_RULE_SETUP
#line 281 "fortran.lex"
{return (int) *fortrantext;}
   YY_BREAK
case 156:
YY_RULE_SETUP
#line 282 "fortran.lex"
{return (int) *fortrantext;}
   YY_BREAK
case 157:
YY_RULE_SETUP
#line 283 "fortran.lex"
{return (int) *fortrantext;}
   YY_BREAK
case 158:
YY_RULE_SETUP
#line 284 "fortran.lex"
{return (int) *fortrantext;}
   YY_BREAK
case 159:
/* rule 159 can match eol */
YY_RULE_SETUP
#line 285 "fortran.lex"
{colnum=0;line_num_fortran++;line_num_fortran_common++; return (int) *fortrantext;}
   YY_BREAK
case 160:
*yy_cp = (yy_hold_char); /* undo effects of setting up fortrantext */
(yy_c_buf_p) = yy_cp -= 1;
YY_DO_BEFORE_ACTION; /* set up fortrantext again */
YY_RULE_SETUP
#line 286 "fortran.lex"

   YY_BREAK
case 161:
YY_RULE_SETUP
#line 287 "fortran.lex"
{if (newlinef90 == 0) return TOK_LABEL; else newlinef90 = 0;}
   YY_BREAK
case 162:
YY_RULE_SETUP
#line 288 "fortran.lex"

   YY_BREAK
case 163:
YY_RULE_SETUP
#line 289 "fortran.lex"
{colnum=colnum-1+tabsize;}
   YY_BREAK
case 164:
YY_RULE_SETUP
#line 290 "fortran.lex"
;
   YY_BREAK
case 165:
/* rule 165 can match eol */
YY_RULE_SETUP
#line 291 "fortran.lex"
{line_num_fortran++;line_num_fortran_common++;newlinef90=1;colnum=0;}
   YY_BREAK
case 166:
/* rule 166 can match eol */
YY_RULE_SETUP
#line 292 "fortran.lex"
{line_num_fortran++;line_num_fortran_common++;colnum=0;}
   YY_BREAK
case 167:
/* rule 167 can match eol */
YY_RULE_SETUP
#line 293 "fortran.lex"
{
                           convert2lower(motparse1);
                           if ( strncasecmp(motparse1,"contains",8) == 0 )
                           {
                              return TOK_CONTAINS;
                           }
                           else
                           {
                              colnum=0;line_num_fortran++;line_num_fortran_common++;
                             if ( !strcasecmp(motparse1,"C$AGRIF_DO_NOT_TREAT\n")) return TOK_DONOTTREAT;
                             if ( !strcasecmp(motparse1,"C$AGRIF_END_DO_NOT_TREAT\n")) return TOK_ENDDONOTTREAT;
                           }
                         }
   YY_BREAK
case 168:
/* rule 168 can match eol */
YY_RULE_SETUP
#line 306 "fortran.lex"
BEGIN(donottreat);
   YY_BREAK
case 169:
/* rule 169 can match eol */
YY_RULE_SETUP
#line 307 "fortran.lex"
BEGIN(INITIAL);
   YY_BREAK
case 170:
/* rule 170 can match eol */
YY_RULE_SETUP
#line 308 "fortran.lex"

   YY_BREAK
case 171:
/* rule 171 can match eol */
YY_RULE_SETUP
#line 309 "fortran.lex"
{
                             colnum = 0;
                             if ( !strcasecmp(motparse1,"!$AGRIF_DO_NOT_TREAT\n")) return TOK_DONOTTREAT;
                             if ( !strcasecmp(motparse1,"!$AGRIF_END_DO_NOT_TREAT\n")) return TOK_ENDDONOTTREAT;
                          }
   YY_BREAK
case 172:
YY_RULE_SETUP
#line 314 "fortran.lex"
{
                             colnum = 0;
                             if ( !strcasecmp(motparse1,"!$AGRIF_DO_NOT_TREAT\n")) return TOK_DONOTTREAT;
                             if ( !strcasecmp(motparse1,"!$AGRIF_END_DO_NOT_TREAT\n")) return TOK_ENDDONOTTREAT;
                          }
   YY_BREAK
case 173:
YY_RULE_SETUP
#line 319 "fortran.lex"
ECHO;
   YY_BREAK
#line 3019 "fortran.yy.c"
case YY_STATE_EOF(INITIAL):
case YY_STATE_EOF(parameter):
case YY_STATE_EOF(character):
case YY_STATE_EOF(donottreat):
case YY_STATE_EOF(fortran77style):
case YY_STATE_EOF(fortran90style):
   yyterminate();

   case YY_END_OF_BUFFER:
      {
      /* Amount of text matched not including the EOB char. */
      int yy_amount_of_matched_text = (int) (yy_cp - (yytext_ptr)) - 1;

      /* Undo the effects of YY_DO_BEFORE_ACTION. */
      *yy_cp = (yy_hold_char);
      YY_RESTORE_YY_MORE_OFFSET

      if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_NEW )
         {
         /* We're scanning a new file or input source.  It's
          * possible that this happened because the user
          * just pointed fortranin at a new source and called
          * fortranlex().  If so, then we have to assure
          * consistency between YY_CURRENT_BUFFER and our
          * globals.  Here is the right place to do so, because
          * this is the first action (other than possibly a
          * back-up) that will match for the new input source.
          */
         (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
         YY_CURRENT_BUFFER_LVALUE->yy_input_file = fortranin;
         YY_CURRENT_BUFFER_LVALUE->yy_buffer_status = YY_BUFFER_NORMAL;
         }

      /* Note that here we test for yy_c_buf_p "<=" to the position
       * of the first EOB in the buffer, since yy_c_buf_p will
       * already have been incremented past the NUL character
       * (since all states make transitions on EOB to the
       * end-of-buffer state).  Contrast this with the test
       * in input().
       */
      if ( (yy_c_buf_p) <= &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] )
         { /* This was really a NUL. */
         yy_state_type yy_next_state;

         (yy_c_buf_p) = (yytext_ptr) + yy_amount_of_matched_text;

         yy_current_state = yy_get_previous_state(  );

         /* Okay, we're now positioned to make the NUL
          * transition.  We couldn't have
          * yy_get_previous_state() go ahead and do it
          * for us because it doesn't know how to deal
          * with the possibility of jamming (and we don't
          * want to build jamming into it because then it
          * will run more slowly).
          */

         yy_next_state = yy_try_NUL_trans( yy_current_state );

         yy_bp = (yytext_ptr) + YY_MORE_ADJ;

         if ( yy_next_state )
            {
            /* Consume the NUL. */
            yy_cp = ++(yy_c_buf_p);
            yy_current_state = yy_next_state;
            goto yy_match;
            }

         else
            {
            yy_cp = (yy_c_buf_p);
            goto yy_find_action;
            }
         }

      else switch ( yy_get_next_buffer(  ) )
         {
         case EOB_ACT_END_OF_FILE:
            {
            (yy_did_buffer_switch_on_eof) = 0;

            if ( fortranwrap( ) )
               {
               /* Note: because we've taken care in
                * yy_get_next_buffer() to have set up
                * fortrantext, we can now set up
                * yy_c_buf_p so that if some total
                * hoser (like flex itself) wants to
                * call the scanner after we return the
                * YY_NULL, it'll still work - another
                * YY_NULL will get returned.
                */
               (yy_c_buf_p) = (yytext_ptr) + YY_MORE_ADJ;

               yy_act = YY_STATE_EOF(YY_START);
               goto do_action;
               }

            else
               {
               if ( ! (yy_did_buffer_switch_on_eof) )
                  YY_NEW_FILE;
               }
            break;
            }

         case EOB_ACT_CONTINUE_SCAN:
            (yy_c_buf_p) =
               (yytext_ptr) + yy_amount_of_matched_text;

            yy_current_state = yy_get_previous_state(  );

            yy_cp = (yy_c_buf_p);
            yy_bp = (yytext_ptr) + YY_MORE_ADJ;
            goto yy_match;

         case EOB_ACT_LAST_MATCH:
            (yy_c_buf_p) =
            &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)];

            yy_current_state = yy_get_previous_state(  );

            yy_cp = (yy_c_buf_p);
            yy_bp = (yytext_ptr) + YY_MORE_ADJ;
            goto yy_find_action;
         }
      break;
      }

   default:
      YY_FATAL_ERROR(
         "fatal flex scanner internal error--no action found" );
   } /* end of action switch */
      } /* end of scanning one token */
} /* end of fortranlex */

/* yy_get_next_buffer - try to read in a new buffer
 *
 * Returns a code representing an action:
 * EOB_ACT_LAST_MATCH -
 * EOB_ACT_CONTINUE_SCAN - continue scanning from current position
 * EOB_ACT_END_OF_FILE - end of file
 */
static int yy_get_next_buffer (void)
{
      register char *dest = YY_CURRENT_BUFFER_LVALUE->yy_ch_buf;
   register char *source = (yytext_ptr);
   register int number_to_move, i;
   int ret_val;

   if ( (yy_c_buf_p) > &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] )
      YY_FATAL_ERROR(
      "fatal flex scanner internal error--end of buffer missed" );

   if ( YY_CURRENT_BUFFER_LVALUE->yy_fill_buffer == 0 )
      { /* Don't try to fill the buffer, so this is an EOF. */
      if ( (yy_c_buf_p) - (yytext_ptr) - YY_MORE_ADJ == 1 )
         {
         /* We matched a single character, the EOB, so
          * treat this as a final EOF.
          */
         return EOB_ACT_END_OF_FILE;
         }

      else
         {
         /* We matched some text prior to the EOB, first
          * process it.
          */
         return EOB_ACT_LAST_MATCH;
         }
      }

   /* Try to read more data. */

   /* First move last chars to start of buffer. */
   number_to_move = (int) ((yy_c_buf_p) - (yytext_ptr)) - 1;

   for ( i = 0; i < number_to_move; ++i )
      *(dest++) = *(source++);

   if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_EOF_PENDING )
      /* don't do the read, it's not guaranteed to return an EOF,
       * just force an EOF
       */
      YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars) = 0;

   else
      {
         int num_to_read =
         YY_CURRENT_BUFFER_LVALUE->yy_buf_size - number_to_move - 1;

      while ( num_to_read <= 0 )
         { /* Not enough room in the buffer - grow it. */

         /* just a shorter name for the current buffer */
         YY_BUFFER_STATE b = YY_CURRENT_BUFFER;

         int yy_c_buf_p_offset =
            (int) ((yy_c_buf_p) - b->yy_ch_buf);

         if ( b->yy_is_our_buffer )
            {
            int new_size = b->yy_buf_size * 2;

            if ( new_size <= 0 )
               b->yy_buf_size += b->yy_buf_size / 8;
            else
               b->yy_buf_size *= 2;

            b->yy_ch_buf = (char *)
               /* Include room in for 2 EOB chars. */
               fortranrealloc((void *) b->yy_ch_buf,b->yy_buf_size + 2  );
            }
         else
            /* Can't grow it, we don't own it. */
            b->yy_ch_buf = 0;

         if ( ! b->yy_ch_buf )
            YY_FATAL_ERROR(
            "fatal error - scanner input buffer overflow" );

         (yy_c_buf_p) = &b->yy_ch_buf[yy_c_buf_p_offset];

         num_to_read = YY_CURRENT_BUFFER_LVALUE->yy_buf_size -
                  number_to_move - 1;

         }

      if ( num_to_read > YY_READ_BUF_SIZE )
         num_to_read = YY_READ_BUF_SIZE;

      /* Read in more data. */
      YY_INPUT( (&YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move]),
         (yy_n_chars), num_to_read );

      YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
      }

   if ( (yy_n_chars) == 0 )
      {
      if ( number_to_move == YY_MORE_ADJ )
         {
         ret_val = EOB_ACT_END_OF_FILE;
         fortranrestart(fortranin  );
         }

      else
         {
         ret_val = EOB_ACT_LAST_MATCH;
         YY_CURRENT_BUFFER_LVALUE->yy_buffer_status =
            YY_BUFFER_EOF_PENDING;
         }
      }

   else
      ret_val = EOB_ACT_CONTINUE_SCAN;

   (yy_n_chars) += number_to_move;
   YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] = YY_END_OF_BUFFER_CHAR;
   YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] = YY_END_OF_BUFFER_CHAR;

   (yytext_ptr) = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[0];

   return ret_val;
}

/* yy_get_previous_state - get the state just before the EOB char was reached */

    static yy_state_type yy_get_previous_state (void)
{
   register yy_state_type yy_current_state;
   register char *yy_cp;
    
   yy_current_state = (yy_start);
   yy_current_state += YY_AT_BOL();

   for ( yy_cp = (yytext_ptr) + YY_MORE_ADJ; yy_cp < (yy_c_buf_p); ++yy_cp )
      {
      register YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1);
      if ( yy_accept[yy_current_state] )
         {
         (yy_last_accepting_state) = yy_current_state;
         (yy_last_accepting_cpos) = yy_cp;
         }
      while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
         {
         yy_current_state = (int) yy_def[yy_current_state];
         if ( yy_current_state >= 1124 )
            yy_c = yy_meta[(unsigned int) yy_c];
         }
      yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
      }

   return yy_current_state;
}

/* yy_try_NUL_trans - try to make a transition on the NUL character
 *
 * synopsis
 * next_state = yy_try_NUL_trans( current_state );
 */
    static yy_state_type yy_try_NUL_trans  (yy_state_type yy_current_state )
{
   register int yy_is_jam;
      register char *yy_cp = (yy_c_buf_p);

   register YY_CHAR yy_c = 1;
   if ( yy_accept[yy_current_state] )
      {
      (yy_last_accepting_state) = yy_current_state;
      (yy_last_accepting_cpos) = yy_cp;
      }
   while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
      {
      yy_current_state = (int) yy_def[yy_current_state];
      if ( yy_current_state >= 1124 )
         yy_c = yy_meta[(unsigned int) yy_c];
      }
   yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
   yy_is_jam = (yy_current_state == 1123);

   return yy_is_jam ? 0 : yy_current_state;
}

    static void yyunput (int c, register char * yy_bp )
{
   register char *yy_cp;
    
    yy_cp = (yy_c_buf_p);

   /* undo effects of setting up fortrantext */
   *yy_cp = (yy_hold_char);

   if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 )
      { /* need to shift things up to make room */
      /* +2 for EOB chars. */
      register int number_to_move = (yy_n_chars) + 2;
      register char *dest = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[
               YY_CURRENT_BUFFER_LVALUE->yy_buf_size + 2];
      register char *source =
            &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move];

      while ( source > YY_CURRENT_BUFFER_LVALUE->yy_ch_buf )
         *--dest = *--source;

      yy_cp += (int) (dest - source);
      yy_bp += (int) (dest - source);
      YY_CURRENT_BUFFER_LVALUE->yy_n_chars =
         (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_buf_size;

      if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 )
         YY_FATAL_ERROR( "flex scanner push-back overflow" );
      }

   *--yy_cp = (char) c;

   (yytext_ptr) = yy_bp;
   (yy_hold_char) = *yy_cp;
   (yy_c_buf_p) = yy_cp;
}

#ifndef YY_NO_INPUT
#ifdef __cplusplus
    static int yyinput (void)
#else
    static int input  (void)
#endif

{
   int c;
    
   *(yy_c_buf_p) = (yy_hold_char);

   if ( *(yy_c_buf_p) == YY_END_OF_BUFFER_CHAR )
      {
      /* yy_c_buf_p now points to the character we want to return.
       * If this occurs *before* the EOB characters, then it's a
       * valid NUL; if not, then we've hit the end of the buffer.
       */
      if ( (yy_c_buf_p) < &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] )
         /* This was really a NUL. */
         *(yy_c_buf_p) = '\0';

      else
         { /* need more input */
         int offset = (yy_c_buf_p) - (yytext_ptr);
         ++(yy_c_buf_p);

         switch ( yy_get_next_buffer(  ) )
            {
            case EOB_ACT_LAST_MATCH:
               /* This happens because yy_g_n_b()
                * sees that we've accumulated a
                * token and flags that we need to
                * try matching the token before
                * proceeding.  But for input(),
                * there's no matching to consider.
                * So convert the EOB_ACT_LAST_MATCH
                * to EOB_ACT_END_OF_FILE.
                */

               /* Reset buffer status. */
               fortranrestart(fortranin );

               /*FALLTHROUGH*/

            case EOB_ACT_END_OF_FILE:
               {
               if ( fortranwrap( ) )
                  return 0;

               if ( ! (yy_did_buffer_switch_on_eof) )
                  YY_NEW_FILE;
#ifdef __cplusplus
               return yyinput();
#else
               return input();
#endif
               }

            case EOB_ACT_CONTINUE_SCAN:
               (yy_c_buf_p) = (yytext_ptr) + offset;
               break;
            }
         }
      }

   c = *(unsigned char *) (yy_c_buf_p);   /* cast for 8-bit char's */
   *(yy_c_buf_p) = '\0';   /* preserve fortrantext */
   (yy_hold_char) = *++(yy_c_buf_p);

   YY_CURRENT_BUFFER_LVALUE->yy_at_bol = (c == '\n');

   return c;
}
#endif   /* ifndef YY_NO_INPUT */

/** Immediately switch to a different input stream.
 * @param input_file A readable stream.
 * 
 * @note This function does not reset the start condition to @c INITIAL .
 */
    void fortranrestart  (FILE * input_file )
{
    
   if ( ! YY_CURRENT_BUFFER ){
        fortranensure_buffer_stack ();
      YY_CURRENT_BUFFER_LVALUE =
            fortran_create_buffer(fortranin,YY_BUF_SIZE );
   }

   fortran_init_buffer(YY_CURRENT_BUFFER,input_file );
   fortran_load_buffer_state( );
}

/** Switch to a different input buffer.
 * @param new_buffer The new input buffer.
 * 
 */
    void fortran_switch_to_buffer  (YY_BUFFER_STATE  new_buffer )
{
    
   /* TODO. We should be able to replace this entire function body
    * with
    *    fortranpop_buffer_state();
    *    fortranpush_buffer_state(new_buffer);
     */
   fortranensure_buffer_stack ();
   if ( YY_CURRENT_BUFFER == new_buffer )
      return;

   if ( YY_CURRENT_BUFFER )
      {
      /* Flush out information for old buffer. */
      *(yy_c_buf_p) = (yy_hold_char);
      YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p);
      YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
      }

   YY_CURRENT_BUFFER_LVALUE = new_buffer;
   fortran_load_buffer_state( );

   /* We don't actually know whether we did this switch during
    * EOF (fortranwrap()) processing, but the only time this flag
    * is looked at is after fortranwrap() is called, so it's safe
    * to go ahead and always set it.
    */
   (yy_did_buffer_switch_on_eof) = 1;
}

static void fortran_load_buffer_state  (void)
{
      (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
   (yytext_ptr) = (yy_c_buf_p) = YY_CURRENT_BUFFER_LVALUE->yy_buf_pos;
   fortranin = YY_CURRENT_BUFFER_LVALUE->yy_input_file;
   (yy_hold_char) = *(yy_c_buf_p);
}

/** Allocate and initialize an input buffer state.
 * @param file A readable stream.
 * @param size The character buffer size in bytes. When in doubt, use @c YY_BUF_SIZE.
 * 
 * @return the allocated buffer state.
 */
    YY_BUFFER_STATE fortran_create_buffer  (FILE * file, int  size )
{
   YY_BUFFER_STATE b;
    
   b = (YY_BUFFER_STATE) fortranalloc(sizeof( struct yy_buffer_state )  );
   if ( ! b )
      YY_FATAL_ERROR( "out of dynamic memory in fortran_create_buffer()" );

   b->yy_buf_size = size;

   /* yy_ch_buf has to be 2 characters longer than the size given because
    * we need to put in 2 end-of-buffer characters.
    */
   b->yy_ch_buf = (char *) fortranalloc(b->yy_buf_size + 2  );
   if ( ! b->yy_ch_buf )
      YY_FATAL_ERROR( "out of dynamic memory in fortran_create_buffer()" );

   b->yy_is_our_buffer = 1;

   fortran_init_buffer(b,file );

   return b;
}

/** Destroy the buffer.
 * @param b a buffer created with fortran_create_buffer()
 * 
 */
    void fortran_delete_buffer (YY_BUFFER_STATE  b )
{
    
   if ( ! b )
      return;

   if ( b == YY_CURRENT_BUFFER ) /* Not sure if we should pop here. */
      YY_CURRENT_BUFFER_LVALUE = (YY_BUFFER_STATE) 0;

   if ( b->yy_is_our_buffer )
      fortranfree((void *) b->yy_ch_buf  );

   fortranfree((void *) b  );
}

#ifndef __cplusplus
extern int isatty (int );
#endif /* __cplusplus */
    
/* Initializes or reinitializes a buffer.
 * This function is sometimes called more than once on the same buffer,
 * such as during a fortranrestart() or at EOF.
 */
    static void fortran_init_buffer  (YY_BUFFER_STATE  b, FILE * file )

{
   int oerrno = errno;
    
   fortran_flush_buffer(b );

   b->yy_input_file = file;
   b->yy_fill_buffer = 1;

    /* If b is the current buffer, then fortran_init_buffer was _probably_
     * called from fortranrestart() or through yy_get_next_buffer.
     * In that case, we don't want to reset the lineno or column.
     */
    if (b != YY_CURRENT_BUFFER){
        b->yy_bs_lineno = 1;
        b->yy_bs_column = 0;
    }

        b->yy_is_interactive = file ? (isatty( fileno(file) ) > 0) : 0;
    
   errno = oerrno;
}

/** Discard all buffered characters. On the next scan, YY_INPUT will be called.
 * @param b the buffer state to be flushed, usually @c YY_CURRENT_BUFFER.
 * 
 */
    void fortran_flush_buffer (YY_BUFFER_STATE  b )
{
      if ( ! b )
      return;

   b->yy_n_chars = 0;

   /* We always need two end-of-buffer characters.  The first causes
    * a transition to the end-of-buffer state.  The second causes
    * a jam in that state.
    */
   b->yy_ch_buf[0] = YY_END_OF_BUFFER_CHAR;
   b->yy_ch_buf[1] = YY_END_OF_BUFFER_CHAR;

   b->yy_buf_pos = &b->yy_ch_buf[0];

   b->yy_at_bol = 1;
   b->yy_buffer_status = YY_BUFFER_NEW;

   if ( b == YY_CURRENT_BUFFER )
      fortran_load_buffer_state( );
}

/** Pushes the new state onto the stack. The new state becomes
 *  the current state. This function will allocate the stack
 *  if necessary.
 *  @param new_buffer The new state.
 *  
 */
void fortranpush_buffer_state (YY_BUFFER_STATE new_buffer )
{
      if (new_buffer == NULL)
      return;

   fortranensure_buffer_stack();

   /* This block is copied from fortran_switch_to_buffer. */
   if ( YY_CURRENT_BUFFER )
      {
      /* Flush out information for old buffer. */
      *(yy_c_buf_p) = (yy_hold_char);
      YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p);
      YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
      }

   /* Only push if top exists. Otherwise, replace top. */
   if (YY_CURRENT_BUFFER)
      (yy_buffer_stack_top)++;
   YY_CURRENT_BUFFER_LVALUE = new_buffer;

   /* copied from fortran_switch_to_buffer. */
   fortran_load_buffer_state( );
   (yy_did_buffer_switch_on_eof) = 1;
}

/** Removes and deletes the top of the stack, if present.
 *  The next element becomes the new top.
 *  
 */
void fortranpop_buffer_state (void)
{
      if (!YY_CURRENT_BUFFER)
      return;

   fortran_delete_buffer(YY_CURRENT_BUFFER );
   YY_CURRENT_BUFFER_LVALUE = NULL;
   if ((yy_buffer_stack_top) > 0)
      --(yy_buffer_stack_top);

   if (YY_CURRENT_BUFFER) {
      fortran_load_buffer_state( );
      (yy_did_buffer_switch_on_eof) = 1;
   }
}

/* Allocates the stack if it does not exist.
 *  Guarantees space for at least one push.
 */
static void fortranensure_buffer_stack (void)
{
   int num_to_alloc;
    
   if (!(yy_buffer_stack)) {

      /* First allocation is just for 2 elements, since we don't know if this
       * scanner will even need a stack. We use 2 instead of 1 to avoid an
       * immediate realloc on the next call.
         */
      num_to_alloc = 1;
      (yy_buffer_stack) = (struct yy_buffer_state**)fortranalloc
                        (num_to_alloc * sizeof(struct yy_buffer_state*)
                        );
      
      memset((yy_buffer_stack), 0, num_to_alloc * sizeof(struct yy_buffer_state*));
            
      (yy_buffer_stack_max) = num_to_alloc;
      (yy_buffer_stack_top) = 0;
      return;
   }

   if ((yy_buffer_stack_top) >= ((yy_buffer_stack_max)) - 1){

      /* Increase the buffer to prepare for a possible push. */
      int grow_size = 8 /* arbitrary grow size */;

      num_to_alloc = (yy_buffer_stack_max) + grow_size;
      (yy_buffer_stack) = (struct yy_buffer_state**)fortranrealloc
                        ((yy_buffer_stack),
                        num_to_alloc * sizeof(struct yy_buffer_state*)
                        );

      /* zero only the new slots.*/
      memset((yy_buffer_stack) + (yy_buffer_stack_max), 0, grow_size * sizeof(struct yy_buffer_state*));
      (yy_buffer_stack_max) = num_to_alloc;
   }
}

/** Setup the input buffer state to scan directly from a user-specified character buffer.
 * @param base the character buffer
 * @param size the size in bytes of the character buffer
 * 
 * @return the newly allocated buffer state object. 
 */
YY_BUFFER_STATE fortran_scan_buffer  (char * base, yy_size_t  size )
{
   YY_BUFFER_STATE b;
    
   if ( size < 2 ||
        base[size-2] != YY_END_OF_BUFFER_CHAR ||
        base[size-1] != YY_END_OF_BUFFER_CHAR )
      /* They forgot to leave room for the EOB's. */
      return 0;

   b = (YY_BUFFER_STATE) fortranalloc(sizeof( struct yy_buffer_state )  );
   if ( ! b )
      YY_FATAL_ERROR( "out of dynamic memory in fortran_scan_buffer()" );

   b->yy_buf_size = size - 2; /* "- 2" to take care of EOB's */
   b->yy_buf_pos = b->yy_ch_buf = base;
   b->yy_is_our_buffer = 0;
   b->yy_input_file = 0;
   b->yy_n_chars = b->yy_buf_size;
   b->yy_is_interactive = 0;
   b->yy_at_bol = 1;
   b->yy_fill_buffer = 0;
   b->yy_buffer_status = YY_BUFFER_NEW;

   fortran_switch_to_buffer(b  );

   return b;
}

/** Setup the input buffer state to scan a string. The next call to fortranlex() will
 * scan from a @e copy of @a str.
 * @param str a NUL-terminated string to scan
 * 
 * @return the newly allocated buffer state object.
 * @note If you want to scan bytes that may contain NUL values, then use
 *       fortran_scan_bytes() instead.
 */
YY_BUFFER_STATE fortran_scan_string (yyconst char * yystr )
{
    
   return fortran_scan_bytes(yystr,strlen(yystr) );
}

/** Setup the input buffer state to scan the given bytes. The next call to fortranlex() will
 * scan from a @e copy of @a bytes.
 * @param bytes the byte buffer to scan
 * @param len the number of bytes in the buffer pointed to by @a bytes.
 * 
 * @return the newly allocated buffer state object.
 */
YY_BUFFER_STATE fortran_scan_bytes  (yyconst char * yybytes, int  _yybytes_len )
{
   YY_BUFFER_STATE b;
   char *buf;
   yy_size_t n;
   int i;
    
   /* Get memory for full buffer, including space for trailing EOB's. */
   n = _yybytes_len + 2;
   buf = (char *) fortranalloc(n  );
   if ( ! buf )
      YY_FATAL_ERROR( "out of dynamic memory in fortran_scan_bytes()" );

   for ( i = 0; i < _yybytes_len; ++i )
      buf[i] = yybytes[i];

   buf[_yybytes_len] = buf[_yybytes_len+1] = YY_END_OF_BUFFER_CHAR;

   b = fortran_scan_buffer(buf,n );
   if ( ! b )
      YY_FATAL_ERROR( "bad buffer in fortran_scan_bytes()" );

   /* It's okay to grow etc. this buffer, and we should throw it
    * away when we're done.
    */
   b->yy_is_our_buffer = 1;

   return b;
}

#ifndef YY_EXIT_FAILURE
#define YY_EXIT_FAILURE 2
#endif

static void yy_fatal_error (yyconst char* msg )
{
      (void) fprintf( stderr, "%s\n", msg );
   exit( YY_EXIT_FAILURE );
}

/* Redefine yyless() so it works in section 3 code. */

#undef yyless
#define yyless(n) \
   do \
      { \
      /* Undo effects of setting up fortrantext. */ \
        int yyless_macro_arg = (n); \
        YY_LESS_LINENO(yyless_macro_arg);\
      fortrantext[fortranleng] = (yy_hold_char); \
      (yy_c_buf_p) = fortrantext + yyless_macro_arg; \
      (yy_hold_char) = *(yy_c_buf_p); \
      *(yy_c_buf_p) = '\0'; \
      fortranleng = yyless_macro_arg; \
      } \
   while ( 0 )

/* Accessor  methods (get/set functions) to struct members. */

/** Get the current line number.
 * 
 */
int fortranget_lineno  (void)
{
        
    return fortranlineno;
}

/** Get the input stream.
 * 
 */
FILE *fortranget_in  (void)
{
        return fortranin;
}

/** Get the output stream.
 * 
 */
FILE *fortranget_out  (void)
{
        return fortranout;
}

/** Get the length of the current token.
 * 
 */
int fortranget_leng  (void)
{
        return fortranleng;
}

/** Get the current token.
 * 
 */

char *fortranget_text  (void)
{
        return fortrantext;
}

/** Set the current line number.
 * @param line_number
 * 
 */
void fortranset_lineno (int  line_number )
{
    
    fortranlineno = line_number;
}

/** Set the input stream. This does not discard the current
 * input buffer.
 * @param in_str A readable stream.
 * 
 * @see fortran_switch_to_buffer
 */
void fortranset_in (FILE *  in_str )
{
        fortranin = in_str ;
}

void fortranset_out (FILE *  out_str )
{
        fortranout = out_str ;
}

int fortranget_debug  (void)
{
        return fortran_flex_debug;
}

void fortranset_debug (int  bdebug )
{
        fortran_flex_debug = bdebug ;
}

static int yy_init_globals (void)
{
        /* Initialization is the same as for the non-reentrant scanner.
     * This function is called from fortranlex_destroy(), so don't allocate here.
     */

    (yy_buffer_stack) = 0;
    (yy_buffer_stack_top) = 0;
    (yy_buffer_stack_max) = 0;
    (yy_c_buf_p) = (char *) 0;
    (yy_init) = 0;
    (yy_start) = 0;

/* Defined in main.c */
#ifdef YY_STDINIT
    fortranin = stdin;
    fortranout = stdout;
#else
    fortranin = (FILE *) 0;
    fortranout = (FILE *) 0;
#endif

    /* For future reference: Set errno on error, since we are called by
     * fortranlex_init()
     */
    return 0;
}

/* fortranlex_destroy is for both reentrant and non-reentrant scanners. */
int fortranlex_destroy  (void)
{
    
    /* Pop the buffer stack, destroying each element. */
   while(YY_CURRENT_BUFFER){
      fortran_delete_buffer(YY_CURRENT_BUFFER  );
      YY_CURRENT_BUFFER_LVALUE = NULL;
      fortranpop_buffer_state();
   }

   /* Destroy the stack itself. */
   fortranfree((yy_buffer_stack) );
   (yy_buffer_stack) = NULL;

    /* Reset the globals. This is important in a non-reentrant scanner so the next time
     * fortranlex() is called, initialization will occur. */
    yy_init_globals( );

    return 0;
}

/*
 * Internal utility routines.
 */

#ifndef yytext_ptr
static void yy_flex_strncpy (char* s1, yyconst char * s2, int n )
{
   register int i;
   for ( i = 0; i < n; ++i )
      s1[i] = s2[i];
}
#endif

#ifdef YY_NEED_STRLEN
static int yy_flex_strlen (yyconst char * s )
{
   register int n;
   for ( n = 0; s[n]; ++n )
      ;

   return n;
}
#endif

void *fortranalloc (yy_size_t  size )
{
   return (void *) malloc( size );
}

void *fortranrealloc  (void * ptr, yy_size_t  size )
{
   /* The cast to (char *) in the following accommodates both
    * implementations that use char* generic pointers, and those
    * that use void* generic pointers.  It works with the latter
    * because both ANSI C and C++ allow castless assignment from
    * any pointer type to void*, and deal with argument conversions
    * as though doing an assignment.
    */
   return (void *) realloc( (char *) ptr, size );
}

void fortranfree (void * ptr )
{
   free( (char *) ptr );   /* see fortranrealloc() for (char *) cast */
}

#define YYTABLES_NAME "yytables"

#line 319 "fortran.lex"



fortranerror(char *s)
{
   if (!strcasecmp(curfile,mainfile))
   {
      printf("%s line %d, file %s\n",s,line_num_fortran,curfile);
   }
   else
   {
      printf("%s line %d, file %s\n",s,line_num_fortran_common,curfile);
   }
   /*exit(0);*/
}

int fortranwrap()
{
}