c  vintrt.inc
c
c  $Id: vintrt.inc,v 1.2 2004/06/16 13:55:33 gnowicki Exp gnowicki $
c
c  $Log: vintrt.inc,v $
c  Revision 1.2  2004/06/16 13:55:33  gnowicki
c  Minor touchup.
c
c  Revision 1.1  2003/10/22 18:04:29  gnowicki
c  Initial revision
c
c
c  edit in conjunction with vintrt.h
c

         integer big_endian, gnu_fortran, unpackCP
         parameter (big_endian = 1, gnu_fortran = 0)
         integer MCIDAS_NAVARRAY_INTS, MCIDAS_HEADARRAY_INTS
         parameter (MCIDAS_NAVARRAY_INTS = 640,
     *              MCIDAS_HEADARRAY_INTS = 64)

         integer MAX_PARAMETERS, TEST_PARAMETERS, MAX_FILL_VALUES,
     *           LINES, PIXELS
         parameter (MAX_PARAMETERS = 256, TEST_PARAMETERS = 20,
     *              MAX_FILL_VALUES = 10, LINES = 900, PIXELS = 1500)
         integer MAX_VAR_NAME_SIZE, MAX_UNIT_NAME_SIZE, MAX_ASCII_SIZE,
     *           DEDICATED_ASCII_SIZE, COMMENT_SIZE
         parameter (MAX_VAR_NAME_SIZE = 12, MAX_UNIT_NAME_SIZE = 48,
     *              MAX_ASCII_SIZE = 400, DEDICATED_ASCII_SIZE = 160)
         parameter (COMMENT_SIZE = MAX_ASCII_SIZE -
     *              DEDICATED_ASCII_SIZE)

C	may need to be integer*1  -  depends upon compiler extensions
         byte elems0(MAX_PARAMETERS) /
     *    10, 12, 14, 20, 13, 11,  7,  8, 22, 23, 15, 24,  9, 16, 25,
     *     2,  0,  1, 26, 17, -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,
     *    -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 /

C	may need to be integer*1  -  depends upon compiler extensions
         byte elems1(MAX_PARAMETERS) /
     *     0,  1,  2,  3,  4,  5,  6,  7,  8,  9, 10, 11, 12, 13, 14,
     *    15, 16, 17, 18, 19, 20, 21, -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, -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 /

         real fill_values(TEST_PARAMETERS) /
     *    -1., 1., 2., 3., 4., 5., 6., 7., 8., 9., -22., 101., 4.5,
     *    -2.5, 93., -2., -3., -4., -5., -160. /

         integer test_bits(TEST_PARAMETERS) /
     *    5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20,
     *    21, 22, 23, 24 /
         integer test_scale(TEST_PARAMETERS) /
     *    1, 1, 1, 10, 10, 10, 100, 100, 100, 100, 100, 100, 1000, 1000,
     *    1000, 1000, 1000, 1000, 1000, 1000 /
         real test_min(TEST_PARAMETERS) /
     *    -1., 0., 0., 0., 0., 0., 0., 0., 0., 0., -22., 0., 0., -2.5,
     *     0., -2., -3., -4., -5., -160. /
         real test_max(TEST_PARAMETERS) /
     *    2., 1., 2., 3., 4., 5., 6., 7., 8., 9., 0., 101., 4.5, 0.,
     *    93., 0., 0., 0., 0., 0. /
         character test_name(TEST_PARAMETERS)*12  /
     *    'Test-01', 'Test-02', 'Test-03', 'Test-04', 'Test-05',
     *    'Test-06', 'Test-07', 'Test-08', 'Test-09', 'Test-10',
     *    'Test-11', 'Test-12', 'Test-13', 'Test-14', 'Test-15',
     *    'Test-16', 'Test-17', 'Test-18', 'Test-19', 'Test-20' /
         character test_units(TEST_PARAMETERS)*48  /
     *    'unit-01', 'unit-02', 'unit-03', 'unit-04', 'unit-05',
     *    'unit-06', 'unit-07', 'unit-08', 'unit-09', 'unit-10',
     *    'unit-11', 'unit-12', 'unit-13', 'unit-14', 'unit-15',
     *    'unit-16', 'unit-17', 'unit-18', 'unit-19', 'unit-20' /