  P A S - P. WOLFERS SOFTWARE: V2.1-E OF 31-AUG-2009  RUN THE 10-DEC-2009 AT 15:08:36     PAGE   1
 The Current Source File is "/home/wolfers/Soft/cpsh_kits/MXDV4_src/mxd_env.pas".

 The Current Compiled Module is ".standard.".

       C    1    1  {
       C    1    2   ******************************************************************************
       C    1    3   *                                                                            *
       C    1    4   *                                                                            *
       C    1    5   *                                                                            *
       C    1    6   *                        MMM    MMM   XXX      XXX  DDDDDDDD                 *
       C    1    7   *                        MMMM  MMMM    XXX    XXX   DDDDDDDDDD               *
       C    1    8   *                        MM MMMM MM     XXX  XXX    DD      DDD              *
       C    1    9   *                        MM  MM  MM      XXXXXX     DD       DD              *
       C    1   10   *                        MM      MM       XXXX      DD       DD              *
       C    1   11   *          T  H  E       MM      MM       XXXX      DD       DD              *
       C    1   12   *                        MM      MM      XXXXXX     DD       DD              *
       C    1   13   *                        MM      MM     XXX  XXX    DD      DDD              *
       C    1   14   *                        MM      MM    XXX    XXX   DDDDDDDDDD               *
       C    1   15   *                       MMMM    MMMM  XXX      XXX  DDDDDDDD                 *
       C    1   16   *                                                                            *
       C    1   17   *                                                                            *
       C    1   18   *                                                                            *
       C    1   19   *                 SSSSS Y     Y  SSSSS TTTTTTT EEEEEE M     M                *
       C    1   20   *                S       Y   Y  S         T    E      MM   MM                *
       C    1   21   *                S        Y Y   S         T    E      M M M M                *
       C    1   22   *                 SSSS     Y     SSSS     T    EEEEE  M  M  M                *
       C    1   23   *                     S    Y         S    T    E      M     M                *
       C    1   24   *                     S    Y         S    T    E      M     M  ..            *
       C    1   25   *                SSSSS     Y    SSSSS     T    EEEEEE M     M  ..            *
       C    1   26   *                                                                            *
       C    1   27   *                                                                            *
       C    1   28   *                                                                            *
       C    1   29   *              ---  Version  3.999 000 alpha -- 31/03/2010 ---               *
       C    1   30   *                                                                            *
       C    1   31   *                by :                                                        *
       C    1   32   *                                                                            *
       C    1   33   *                     P. Wolfers                                             *
       C    1   34   *                         c.n.r.s.                                           *
       C    1   35   *                         Institut Neel (MCMF), Bat F,                       *
       C    1   36   *                         B.P.  166 X   38042  Grenoble Cedex                *
       C    1   37   *                                                FRANCE.                     *
       C    1   38   *                                                                            *
       C    1   39   *                                                                            *
       C    1   40   ******************************************************************************
       C    1   41  
       C    1   42  
       C    1   43  ///////////////////////////////////////////////////////////////////////////////
       C    1   44  //                                                                           //
       C    1   45  //                                                                           //
       C    1   46  //                     Global Public Licence (GPL)                           //
       C    1   47  //                                                                           //
       C    1   48  //                                                                           //
       C    1   49  //    This license described in this file overrides all other licenses       //
       C    1   50  //    that might be specified in other files for this software.              //
       C    1   51  //                                                                           //
       C    1   52  //    This program is free software; you can redistribute it and/or          //
       C    1   53  //    modify it under the terms of the GNU Lesser General Public             //
       C    1   54  //    License as published by the Free Software Foundation; either           //
       C    1   55  //    version 2.1 of the License, or (at your option) any later version.     //
  P A S - P. WOLFERS SOFTWARE: V2.1-E OF 31-AUG-2009  RUN THE 10-DEC-2009 AT 15:08:36     PAGE   2
 The Current Source File is "/home/wolfers/Soft/cpsh_kits/MXDV4_src/mxd_env.pas".

 The Current Compiled Module is ".standard.".

       C    1   56  //                                                                           //
       C    1   57  //    This software is distributed in the hope that it will be useful,       //
       C    1   58  //    but WITHOUT ANY WARRANTY; without even the implied warranty of         //
       C    1   59  //    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU      //
       C    1   60  //    Library General Public License for more details.                       //
       C    1   61  //                                                                           //
       C    1   62  //    You should have received a copy of the GNU Lesser General Public       //
       C    1   63  //    License along with this library (see COPYING.LIB); if not, write to    //
       C    1   64  //    the Free Software Foundation :                                         //
       C    1   65  //                         Inc., 675 Mass Ave, Cambridge, MA 02139, USA.     //
       C    1   66  //                                                                           //
       C    1   67  ///////////////////////////////////////////////////////////////////////////////
       C    1   68  
       C    1   69  
       C    1   70  *******************************************************************************
       C    1   71  *                                                                             *
       C    1   72  *                                                                             *
       C    1   73  *                     Global     Environment     File                         *
       C    1   74  *                                                                             *
       C    1   75  *                                                                             *
       C    1   76  *******************************************************************************
       C    1   77  
       C    1   78  }
       C    1   79  
       C    1   80  {************     CPAS  version    *************}
       C    1   81  
       C    1   82  {
       C    1   83          *** Modification(s) from major version ***
       C    1   84  
       C    1   85  
       C    1   86                    ----
       C    1   87  
       C    1   88                   NOTHING
       C    1   89  
       C    1   90                    ----
       C    1   91  
       C    1   92  }
       C    1   93  
       C    1   94  
            1   95  const
                    1
 %*+*+* error(s) was detected at line #    95
 in the file : "/home/wolfers/Soft/cpsh_kits/MXDV4_src/mxd_env.pas"
 (1) - A fatal error #    94 is detected by the CMPM module.
 %*+*+*  The "program" or "module" keyword was expected.

            1   96  
            1   97    mxd_heading      =   'P.Wolfers Software: MXD V4.0-000 of 31-MAR-2010';       { Version Title specification fo
                    r page heading }
                    __1________________2___3________________________________________________4
 %*+*+* error(s) was detected at line #    97
 in the file : "/home/wolfers/Soft/cpsh_kits/MXDV4_src/mxd_env.pas"
 (1) - An error #    21 is detected by the CMPM module.
 %*+*+*  A semicolon ";" was expected.
 (2) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (3) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
  P A S - P. WOLFERS SOFTWARE: V2.1-E OF 31-AUG-2009  RUN THE 10-DEC-2009 AT 15:08:36     PAGE   3
 The Current Source File is "/home/wolfers/Soft/cpsh_kits/MXDV4_src/mxd_env.pas".

 The Current Compiled Module is "const".

 (4) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.

            1   98  
            1   99    mxd_search_path  =            './,HOME:/.mxd/,MXDLIB:,/usr/local/etc/';       { Search path for MXD }
                    __1________________2____________3_______________________________________4
 %*+*+* error(s) was detected at line #    99
 in the file : "/home/wolfers/Soft/cpsh_kits/MXDV4_src/mxd_env.pas"
 (1) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (2) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (3) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (4) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.

            1  100  
            1  101    mpcspcfile       =          'mpcd_000.tmp.1';         { MXD Pcode Default Statement File Name }
                    __1________________2__________3_______________4
 %*+*+* error(s) was detected at line #   101
 in the file : "/home/wolfers/Soft/cpsh_kits/MXDV4_src/mxd_env.pas"
 (1) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (2) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (3) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (4) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.

            1  102  
            1  103    pi               =         4.0*ARCTAN( 1.0 );         { Pi Number }
                    __1________________2_________3__45_____6_7___8
 %*+*+* error(s) was detected at line #   103
 in the file : "/home/wolfers/Soft/cpsh_kits/MXDV4_src/mxd_env.pas"
 (1) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (2) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (3) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (4) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (5) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (6) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (7) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (8) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.

  P A S - P. WOLFERS SOFTWARE: V2.1-E OF 31-AUG-2009  RUN THE 10-DEC-2009 AT 15:08:36     PAGE   4
 The Current Source File is "/home/wolfers/Soft/cpsh_kits/MXDV4_src/mxd_env.pas".

 The Current Compiled Module is "const".

            1  104    inrd             =                  pi/180.0;         { To convert Decimal degrees to radian }
                    __1________________2__________________3_45____6
 %*+*+* error(s) was detected at line #   104
 in the file : "/home/wolfers/Soft/cpsh_kits/MXDV4_src/mxd_env.pas"
 (1) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (2) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (3) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (4) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (5) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (6) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.

            1  105  
            1  106    max_hdt          =                        15;         { Maximum number of dependant value in binary data file 
                    }
                    __1________________2________________________3_4
 %*+*+* error(s) was detected at line #   106
 in the file : "/home/wolfers/Soft/cpsh_kits/MXDV4_src/mxd_env.pas"
 (1) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (2) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (3) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (4) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.

            1  107  
            1  108    str_maxsize      =                       255;         { Used size of a command string }
                    __1________________2_______________________3__4
 %*+*+* error(s) was detected at line #   108
 in the file : "/home/wolfers/Soft/cpsh_kits/MXDV4_src/mxd_env.pas"
 (1) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (2) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (3) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (4) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.

            1  109    ide_maxsize      =                        30;         { Used size of a identifier name }
                    __1________________2________________________3_4
 %*+*+* error(s) was detected at line #   109
 in the file : "/home/wolfers/Soft/cpsh_kits/MXDV4_src/mxd_env.pas"
 (1) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (2) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (3) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (4) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
  P A S - P. WOLFERS SOFTWARE: V2.1-E OF 31-AUG-2009  RUN THE 10-DEC-2009 AT 15:08:36     PAGE   5
 The Current Source File is "/home/wolfers/Soft/cpsh_kits/MXDV4_src/mxd_env.pas".

 The Current Compiled Module is "const".


            1  110  
            1  111    unsmax           =               2.0**32-1.0;         { 32 bits unsigned maximum value }
                    __1________________2_______________3__4_5_67__8
 %*+*+* error(s) was detected at line #   111
 in the file : "/home/wolfers/Soft/cpsh_kits/MXDV4_src/mxd_env.pas"
 (1) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (2) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (3) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (4) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (5) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (6) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (7) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (8) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.

            1  112    intmin           =                  -2.0**31;         { 32 bits integer minimum value }
                    __1________________2__________________34__5_6_7
 %*+*+* error(s) was detected at line #   112
 in the file : "/home/wolfers/Soft/cpsh_kits/MXDV4_src/mxd_env.pas"
 (1) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (2) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (3) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (4) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (5) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (6) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (7) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.

            1  113    intmax           =               2.0**31-1.0;         { 32 bits integer maximum value }
                    __1________________2_______________3__4_5_67__8
 %*+*+* error(s) was detected at line #   113
 in the file : "/home/wolfers/Soft/cpsh_kits/MXDV4_src/mxd_env.pas"
 (1) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (2) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (3) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (4) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (5) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
  P A S - P. WOLFERS SOFTWARE: V2.1-E OF 31-AUG-2009  RUN THE 10-DEC-2009 AT 15:08:36     PAGE   6
 The Current Source File is "/home/wolfers/Soft/cpsh_kits/MXDV4_src/mxd_env.pas".

 The Current Compiled Module is "const".

 (6) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (7) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (8) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.

            1  114    max_dblpow       =                       307;         { Maximum for exponent for double precision }
                    __1________________2_______________________3__4
 %*+*+* error(s) was detected at line #   114
 in the file : "/home/wolfers/Soft/cpsh_kits/MXDV4_src/mxd_env.pas"
 (1) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (2) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (3) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (4) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.

            1  115    max_fltpow       =                        38;         { Maximum for exponent for single precision }
                    __1________________2________________________3_4
 %*+*+* error(s) was detected at line #   115
 in the file : "/home/wolfers/Soft/cpsh_kits/MXDV4_src/mxd_env.pas"
 (1) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (2) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (3) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (4) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.

            1  116    max_single       =                         7;         { Maximum of figure for a single prec. number }
                    __1________________2_________________________34
 %*+*+* error(s) was detected at line #   116
 in the file : "/home/wolfers/Soft/cpsh_kits/MXDV4_src/mxd_env.pas"
 (1) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (2) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (3) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.
 (4) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.

            1  117  
            1  118  
            1  119  type
                    1
 %*+*+* error(s) was detected at line #   119
 in the file : "/home/wolfers/Soft/cpsh_kits/MXDV4_src/mxd_env.pas"
 (1) - An error #    91 is detected by the BLOC module.
 %*+*+*  Illegal statement.

  P A S - P. WOLFERS SOFTWARE: V2.1-E OF 31-AUG-2009  RUN THE 10-DEC-2009 AT 15:08:36     PAGE   7
 The Current Source File is "/home/wolfers/Soft/cpsh_kits/MXDV4_src/mxd_env.pas".

 The Current Compiled Module is "const".

       C    1  120  { str_ptr      =               ^string; { Define the pointer of string - Type already defined in cpas_b__src_env
                     }
       C    1  121  
            1  122    mxd_flt      =                double; { Define the used type of real (Double Precision) }
            1  123  
            1  124    sbyte        =         short_integer; { 8 bits signed integer }
            1  125  
            1  126    str_string   = string( str_maxsize ); { Specific string type to store character string }
                    _________________________1
 %*+*+* error(s) was detected at line #   126
 in the file : "/home/wolfers/Soft/cpsh_kits/MXDV4_src/mxd_env.pas"
 (1) - A severe error #   104 is detected by the SRCI module.
 %*+*+*  Undeclared identifier "str_maxsize".

            1  127    ide_string   = string( ide_maxsize ); { Specific string type to store identifier name }
                    _________________________1
 %*+*+* error(s) was detected at line #   127
 in the file : "/home/wolfers/Soft/cpsh_kits/MXDV4_src/mxd_env.pas"
 (1) - A severe error #   104 is detected by the SRCI module.
 %*+*+*  Undeclared identifier "ide_maxsize".

            1  128  
            1  129  
            1  130    node_code = (                         { * Define the MXD node codes * }
            1  131      nd_jobname,     nd_title,     nd_savfnam, { Assign Jobname, job title, save status file specification }
            1  132        nd_konst,   nd_varbl,   nd_param,         { Assign a constant, a variable, a parameter }
            1  133        nd_coeff,  nd_tabref,  nd_itmref,         { LSQ coefficient reference, LSQ Table reference, LSQ Item Refer
                    ence }
            1  134       nd_defvar,  nd_assvar,  nd_defpar,         { Define a LSQ variable, assign a value to a variable, define a 
                    parameter }
            1  135       nd_permut,                                 { Stack Permutation }
            1  136  
       C    1  137      { Operator and scalar constante node definitions }
            1  138          nd_not,     nd_neg,     nd_pow,     nd_ipw,     { "not", unary "-", **<int>, **<flt> }
            1  139          nd_mul,     nd_div,                             { "*", "/" }
            1  140          nd_idiv,    nd_mod,     nd_rem,                 { "idiv", "mod", "rem" }
            1  141          nd_add,     nd_sub,                             { "+", binary "-" }
            1  142           nd_eq,      nd_ne,      nd_lt,                 { "=", "<>", "<" }
            1  143           nd_le,      nd_ge,      nd_gt,                 { "<=", ">=", ">" }
            1  144          nd_and,     nd_xor,      nd_or,                 { "and", "xor", "or" }
            1  145  
            1  146          nd_abs,    nd_sqrt,
            1  147         nd_sinr,    nd_cosr,    nd_tanr,
            1  148        nd_asinr,   nd_acosr,   nd_atanr,  nd_phaser,
            1  149         nd_sind,    nd_cosd,    nd_tand,
            1  150        nd_asind,   nd_acosd,   nd_atand,  nd_phased,
            1  151          nd_exp,      nd_ln,    nd_tanh,   nd_bessj,
            1  152        nd_trunc,   nd_round,
            1  153          nd_nop,
            1  154  
            1  155         nd_call,  nd_return,                             { Call and return of a function }
            1  156  
       C    1  157      { Reference node definitions }
  P A S - P. WOLFERS SOFTWARE: V2.1-E OF 31-AUG-2009  RUN THE 10-DEC-2009 AT 15:08:36     PAGE   8
 The Current Source File is "/home/wolfers/Soft/cpsh_kits/MXDV4_src/mxd_env.pas".

 The Current Compiled Module is "const".

       C    1  158    { nd_refer,       nd_ctarray,  {   nd_param,       nd_varbl, }
            1  159      nd_contrrf,     nd_indxrf,      nd_functrf,     nd_formalrf,
            1  160      nd_arrayrf,
            1  161  
            1  162      nd_summ,        nd_select,      nd_intsel,      nd_sumhkl,
            1  163      nd_integr,
            1  164  
       C    1  165      { Special operators }
            1  166      nd_formalcall,  nd_functcall,   nd_connect,
            1  167  
       C    1  168      { All other p code statements are below }
            1  169      nd_cellsy,      nd_catomsy,     nd_atomsy,      nd_momentsy,    { 64..67 }
            1  170      nd_mdsdspsy,    nd_wavevsy,     nd_npoladirsy,  nd_symtrysy,    { 68..71 }
            1  171      nd_optionssy,   nd_soptionsy,   nd_nullsy,                      { 72..74 }
            1  172      nd_varbldf,     nd_parmdf,                                      { 75..76 }
            1  173      nd_datasy,      nd_78,          nd_lsqblocksy,  nd_centeronsy,  { 77..80 }
            1  174      nd_assignvarsy, nd_bisomd,      nd_fixedsy,     nd_unfixedsy,   { 81..84 }
            1  175      nd_latticesy,   nd_limitssy,    nd_magneticsy,                  { 85..87 }
            1  176      nd_uctrdefsy,   nd_formaldf,    nd_usfunctdf,   nd_indxdf,      { 88..91 }
            1  177      nd_92,          nd_arraydf,     nd_94,          nd_95,          { 92..95 }
            1  178      nd_96,          nd_97,          nd_98,          nd_99,          { 96..99 }
            1  179  
       C    1  180  (*
       C    1  181      { Pseudo instructions follow }
       C    1  182       includesy,   chainsy,    eofsym,  pragmasy,
       C    1  183         rcellsy,ffassignsy, clrdatasy,macrolibsy,
       C    1  184         mcallsy,genspacesy,  repeatsy,      ifsy,
       C    1  185         macrosy,   beginsy,    thensy,   untilsy,
       C    1  186         endifsy,  endmacsy,     endsy,    elsesy,
       C    1  187         purgesy, illegalsy,   errorsy,  wrtmsgsy,
       C    1  188       displaysy,   replysy,    opensy,   closesy,
       C    1  189         writesy, writelnsy,    readsy,
       C    1  190  *)
       C    1  191      { Run control statements }
            1  192      nd_runapplsy,   nd_listingsy,   nd_spawnsy,
            1  193  
       C    1  194      { Constant operators }
            1  195      nd_assignop,    nd_andop,       nd_iorop,     nd_notop,
            1  196      nd_concop,      nd_interpop,    nd_substrop,  nd_lengthop,
            1  197      nd_indexop,     nd_nindexop,    nd_stringop,  nd_numberop,
            1  198      nd_definedop,   nd_paramrefop,  nd_getenvop,
       C    1  199  (*
       C    1  200      { Separator definitions }
       C    1  201         colonsy,   commasy,    lparsy,    rparsy,     brasy,     ketsy,
       C    1  202         smcolsy,
       C    1  203  
       C    1  204      { Parameter definitions }
       C    1  205            parh,      park,      parl,     parrh,     parrk,     parrl,
       C    1  206         parstsl,
       C    1  207           parhx,     parhy,     parhz,     parqx,     parqy,     parqz,
       C    1  208           parhh,     parkk,     parll,
       C    1  209          parobs,    parsig,   parweig,   parcalc,
       C    1  210          parfn2,    parfm2,  paripola,   parpola,
       C    1  211           parsh,     parsk,     parsl,
       C    1  212        parlchi2,  parcchi2,  parlmaxf,  parcmaxf,
  P A S - P. WOLFERS SOFTWARE: V2.1-E OF 31-AUG-2009  RUN THE 10-DEC-2009 AT 15:08:36     PAGE   9
 The Current Source File is "/home/wolfers/Soft/cpsh_kits/MXDV4_src/mxd_env.pas".

 The Current Compiled Module is "const".

       C    1  213          parfnr,    parfni,
       C    1  214          parfxr,    parfyr,    parfzr,    parfxi,    parfyi,    parfzi,
       C    1  215  *)
       C    1  216      { Last definitions }
            1  217      nd_noop,        nd_end
            1  218    );
            1  219  
            1  220  
            1  221  
            1  222    lsqp_index = (                        { * define the Least-Square Parameter index type and values }
            1  223      lsqp_h, lsqp_k, lsqp_l,             { Current H, K and L integer indicies (reciprocal space) }
            1  224      lsqp_nq, lsqp_mul,                  { Satellite order and multiplicity }
            1  225      lsqp_obs,
            1  226      lsqp_nf2,
            1  227      lsqp_mf2,
            1  228      lsqp_calc
            1  229    );
            1  230  
       C    1  231    { Data information definition }
       C    1  232  
            1  233    dat_rec = record
            1  234      h, k, l, m, nq, mlq, ise,           { Reciprocal cell diff vector }
            1  235      ipl,  refcat:              integer; { Reflexion data type }
            1  236      he,   ke,   le, stsl,               { Reciprocal diffusion vector }
            1  237      dobs, pds,  sig:           mxd_flt; { Intensity, weight and sigma }
            1  238      tbdif: array[0..max_hdt] of mxd_flt { Scattering table -> HKL Dependant table }
                    ____________________1
 %*+*+* error(s) was detected at line #   238
 in the file : "/home/wolfers/Soft/cpsh_kits/MXDV4_src/mxd_env.pas"
 (1) - A severe error #   104 is detected by the SRCI module.
 %*+*+*  Undeclared identifier "max_hdt".

            1  239    end;
            1  240  
            1  241  
            1  242  
            1  243    bdt_file = file of dat_rec;           { Binary Data File type }
            1  244  
       C    1  245  { *** End of environment *** }
       C    1  246  
       C    1  247  
                    1
 %*+*+* error(s) was detected at line #   247
 in the file : "/home/wolfers/Soft/cpsh_kits/MXDV4_src/mxd_env.pas"
 (1) - A warning #    54 is detected by the CMPM module.
 %*+*+*  A "end" keyword was expected.

