/*  Library file:    Constant.GL                              */
  /*  Created:         26th June 1991 by FJR                    */
  /*  Last modified:                                            */
  /*    25 Aug 92  FJR  Added/corrected special numbers;  added */
  /*                    GTE, EQL,  LTE                          */
  /*     8 Sep 92  FJR  Added NotEq                             */
  /*    02 Oct 92  FJR  MissVal --> MissVal1 MissVal2           */
  /*    19 Mar 93  FJR  Added constants from PanelVC.GP plus    */
  /*                    VC file extensions                      */
  /*    17 Jun 93  FJR  Added RPI and LogRPI                    */
  /*    11 Feb 94  FJR  Changed some LETs to #DEFINEs           */
  /*     7 Mar 94  FJR  Made False a DEFINECS;  removed True    */
  /*    25 Mar 94  FJR  Added RPIYear1; removed VC stuff        */
  /*                    changed DEFINEs to DEFINECSs            */
  /*                                                            */
  /*  Various general-purpose symbolic constants                */



  #DEFINECS False 0


  #DEFINECS NAN      0vFFF8000000000000     /*  an 'indefinite'    */
  #DEFINECS MissVal1 0v7FFFFFFF00000000
  #DEFINECS MissVal2 0vFFFFFFFF00000000
  #DEFINECS InfPlus  0v7FF0000000000000
  #DEFINECS InfMinus 0vFFF0000000000000


  /*  GE,  EQ,  LE, NE for user input         */

  #DEFINECS GTE 1
  #DEFINECS EQL 0
  #DEFINECS LTE -1
  #DEFINECS NotEq -2


  /*  Inversion rounding tolerance                              */

  #DEFINECS Tolrance 0.00000000001
  #DEFINECS BadNum 9999
  _fcmptol = Tolrance;


  /*  Quit strings                                              */

  #DEFINECS QuitStr3 "q"|"quit"|"exit"


  /*  Wage rpi adjustment     */

  #DEFINECS RPIYear1 75


LET RPI[20,1] =

32.7    38.9    45.7    49.3    54.3    66.1    74.1    81.0    84.3    88.6
94.8    97.7    101.8   105.8   114.3   125.1   133.1   138.8   140.6   144.2;

  RPI = 100/RPI;

  LogRPI = LN(RPI);

LET WI[20,1] =
22.2    25.0    27.3    30.8    35.5    42.9    48.4    53.0    57.5    60.9
66.1    71.3    76.8    83.5    91.2    100.0   108.0   114.6   118.5   123.3;


  /*  Columns for diffs or lags used by GetLstLD/MakeXX etc     */

  #DEFINECS ItemCol 1               /*  Column item indices     */
  #DEFINECS DiffCol 2               /*  Difference order        */
  #DEFINECS SeasCol 3               /*  Seasonal diff length    */
  #DEFINECS LagCol 4                /*  Lead/lag length         */


  /*  Error code for MakeXX                                     */

  #DEFINECS ErrCode "ERR"