Logo Search packages:      
Sourcecode: varkon version File versions  Download package

sur559.c

/********************************************************************/
/*                                                                  */
/*  This file is part of the VARKON Geometry Library.               */
/*  URL:  http://www.varkon.com                                     */
/*                                                                  */
/*  This library is free software; you can redistribute it and/or   */
/*  modify it under the terms of the GNU Library General Public     */
/*  License as published by the Free Software Foundation; either    */
/*  version 2 of the License, or (at your option) any later         */
/*  version.                                                        */
/*                                                                  */
/*  This library is distributed in the hope that it will be         */
/*  useful, but WITHOUT ANY WARRANTY; without even the implied      */
/*  warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR         */
/*  PURPOSE.  See the GNU Library General Public License for more   */
/*  details.                                                        */
/*                                                                  */
/*  You should have received a copy of the GNU Library General      */
/*  Public License along with this library; if not, write to the    */
/*  Free Software Foundation, Inc., 675 Mass Ave, Cambridge,        */
/*  MA 02139, USA.                                                  */
/*                                                                  */
/*  (C)Microform AB 1984-1999, Gunnar Liden, gunnar@microform.se    */
/*                                                                  */
/********************************************************************/

#include "../../DB/include/DB.h"
#include "../include/GE.h"

/********************************************************************/
/*!                                                                 */
/*  Function: varkon_vda_rp21                        File: sur559.c */
/*  =============================================================== */
/*                                                                  */
/*  Purpose                                                         */
/*  -------                                                         */
/*                                                                  */
/*  Retrieve VDA-FS coefficients for P21_PAT patch.                 */
/*                                                                  */
/*  Author: Gunnar Liden                                            */ 
/*                                                                  */
/*  Revisions                                                       */
/*                                                                  */
/*  1996-11-02   Originally written (by MBS module p_reavdav0)      */
/*  1999-12-04   Free source code modifications                     */
/*                                                                  */
/*                                                                  */
/******************************************************************!*/


/* ------------- Short description of function -----------------*/
/*                                                              */
/*sdescr varkon_vda_rp21       Read P21_PAT VDA-FS coefficients */
/*                                                              */
/*------------------------------------------------------------- */


/*!-------------- Function calls (external) ------------------------*/
/*                                                                  */
/* varkon_vda_rsur3    * Get all floats from VDA-FS line            */
/* varkon_erpush       * Error message to terminal                  */
/*                                                                  */
/*-----------------------------------------------------------------!*/

/*!------------ Error messages and warnings ------------------------*/
/*                                                                  */
/* SU2993 = Severe program error (  ) in varkon_vda_rp21   (sur559) */
/*                                                                  */
/*-----------------------------------------------------------------!*/


/*!****************** Function **************************************/
/*                                                                  */
       DBstatus   varkon_vda_rp21 (

/*_------------- Argument declarations -----------------------------*/
/*                                                                  */
/* In:                                                              */
/*                                                                  */
   FILE    *f_vda,       /* Input VDA-FS file                 (ptr) */
   DBint    n_degu,      /* Degree in U direction             (ptr) */
   DBint    n_degv,      /* Degree in V direction             (ptr) */
   DBPatch *p_t )        /* Topological (current) patch       (ptr) */
/*                                                                  */
/* Out:                                                             */
/*                                                                  */
/*                                                                  */
/* Data to                                                          */
/*                                                                  */
/*-----------------------------------------------------------------!*/

/*!New-Page--------------------------------------------------------!*/

{ /* Start of function */

/*!New-Page--------------------------------------------------------!*/

/*!--------------- Internal variables ------------------------------*/
/*                                                                  */
   DBint   max_l;        /* Maximum number of lines in input file   */
   DBint   i_l;          /* Loop index line in input file           */
   DBint   i_f;          /* Loop index line float                   */
   DBint   n_flt;        /* Number of floats in VDA-FS line   (ptr) */
   DBfloat all_flt[SMAX];/* All floats from one VDA-FS line   (ptr) */
   DBint   n_coeff;      /* Number of coefficients for the patch    */
   DBint   n_retrieved;  /* Number of retrieved coefficients        */
   DBint   n_maxcoeff;   /* Maximum number of (all) coefficients    */
   DBfloat ret_coeff[1452];/* Retrieved coefficients                */
   DBfloat all_coeff[1452];/* All coefficients                      */
   DBint   n_degree;     /* Degree for patch P21_PAT                */
   DBint   i_c;          /* Loop index X, Y and Z component         */
   DBint   i_u;          /* Loop index horizontal row in C matrix   */
   DBint   i_v;          /* Loop index vertical   row in C matrix   */
/*                                                                  */
/*-----------------------------------------------------------------!*/

   GMPATP21 *p_g;        /* Current geometric   patch         (ptr) */
   char     *p_gpat;     /* Allocated area geom.  patch data  (ptr) */
   char      rad[133];   /* One line in the VDA-FS file             */
   DBint     status;     /* Error code from a called function       */
   char      errbuf[80]; /* String for error message fctn erpush    */

/*--------------end-of-declarations---------------------------------*/

/*!                                                                 */
/* Algorithm                                                        */
/* =========                                                        */
/*                                                                 !*/

/*!                                                                 */
/* Check of input data and initializations                          */
/*                                                                 !*/

#ifdef DEBUG
if ( dbglev(SURPAC) == 2 )
{
fprintf(dbgfil(SURPAC),"sur559*Enter*  \n");
fflush(dbgfil(SURPAC)); /* To file from buffer      */
}
#endif

/*!                                                                 */
/* Number of coefficients values:                                   */
   n_coeff = 3 * (n_degu + 1) * (n_degv +1);
/*                                                                 !*/

  n_degree = 21 ;  

  for ( i_f = 0; i_f < 1452; ++i_f )
    {
    ret_coeff[i_f] = F_UNDEF;
    all_coeff[i_f] = F_UNDEF;
    }

/*!                                                                 */
/* Loop for all lines in the input VDA-FS file. There is a maximum  */
/* of max_l= n_coeff as a program check.                            */
/*                                                                 !*/

max_l   = n_coeff;
i_l     =     0;
n_retrieved = 0;

while ( fgets(rad,132,f_vda)  != NULL )
  {
/*!                                                                 */
/*      i. Check that number of iterations not is exceeded          */
/*                                                                 !*/
  i_l = i_l + 1;
  if ( i_l > max_l )
    {
    sprintf(errbuf,"read not OK%%sur559");
    return(varkon_erpush("SU2993",errbuf));
    }

/*!                                                                 */
/*     ii. Get all floats from the current line                     */
/*                                                                 !*/

   status=varkon_vda_rsur3 ( rad, &n_flt, all_flt );
    if (status<0) 
        {
        sprintf(errbuf,"sur553%%sur559");
        return(varkon_erpush("SU2943",errbuf));
        }
/*!                                                                 */
/*    iii. Loop all floats from the line                            */
/*                                                                 !*/

  if ( n_flt <= 0 )
    {
    sprintf(errbuf,"n_flt=0%%sur559");
    return(varkon_erpush("SU2993",errbuf));
    }

    for ( i_f = 1; i_f <= n_flt; ++i_f )
      {
      ret_coeff[n_retrieved] = all_flt[i_f-1];
      n_retrieved = n_retrieved + 1;
      }  /* End loop i_f     */


/*!                                                                 */
/*     iv. Goto allpar if all coefficient values are retrieved      */
/*                                                                 !*/
    if ( n_retrieved >= n_coeff ) goto allpar;

  }                /* End while */


  sprintf(errbuf,"n_coeff>n_retrieved%%sur559");
  return(varkon_erpush("SU2993",errbuf));


allpar:; /*! Label: All coefficient values retrieved               !*/

/*!                                                                 */
/* Check that there is no extra data is on the last line            */
/*                                                                 !*/

  if  ( n_coeff != n_retrieved )
    {
    sprintf(errbuf,"n_coeff!=n_retrieved%%sur559");
    return(varkon_erpush("SU2993",errbuf));
    }
    

/*!                                                                 */
/* Dynamic allocation of area for one geometric (P21_PAT) patch.    */
/* Call of function DBcreate_patches.                                         */
/*                                                                 !*/

if ((p_gpat=DBcreate_patches(P21_PAT,1)) == NULL)
 { 
 sprintf(errbuf, "(allocg)%%sur559");
 return(varkon_erpush("SU2993",errbuf));
 }

  p_g    = (GMPATP21 *)p_gpat;           /* Current geometric patch */

  p_t->styp_pat = P21_PAT;               /* Type of secondary patch */
  p_t->spek_c   = p_gpat;                /* Secondary patch (C ptr) */
  p_t->su_pat   = 0;                     /* Topological adress      */
  p_t->sv_pat   = 0;                     /* secondary patch not def.*/

/*!                                                                 */
/* Coefficients ret_coeff to all_coeff.                             */
/*                                                                 !*/

   n_retrieved = 0;
   n_maxcoeff  = 0;

  for ( i_c = 1; i_c <=  3; ++i_c )
    {
    for ( i_v = 0; i_v <=  n_degree; ++i_v )
      {
      for ( i_u = 0; i_u <=  n_degree; ++i_u )
        {
        if    ( i_u <= n_degu && i_v <= n_degv )
          {
          all_coeff[n_maxcoeff] = ret_coeff[n_retrieved];
          n_retrieved = n_retrieved + 1;
          }
        else
          {
          all_coeff[n_maxcoeff] = 0.0;
          }
        n_maxcoeff  = n_maxcoeff + 1;
        }
      }
    }


#ifdef  DEBUG
if ( dbglev(SURPAC) == 1 && n_degu < n_degv ) /* Not a tested case */
{
for ( i_l = 0; i_l <   1452; ++i_l )
{
fprintf(dbgfil(SURPAC),
"sur559 ret_coeff[%d]= %f all_coeff[%d]= %f \n", 
 (short)i_l, ret_coeff[i_l], (short)i_l, all_coeff[i_l] );
}
fflush(dbgfil(SURPAC));
}
  if  ( n_coeff != n_retrieved )
    {
    sprintf(errbuf,"n_coeff!=n_retrieved (2)%%sur559");
    return(varkon_erpush("SU2993",errbuf));
    }
#endif

/*!                                                                 */
/* Coefficients to output geometry patch.                           */
/*                                                                 !*/

    p_g->c0000x = all_coeff[   0];            /*    u** 0 v** 0     */
    p_g->c0100x = all_coeff[   1];            /*    u** 1 v** 0     */
    p_g->c0200x = all_coeff[   2];            /*    u** 2 v** 0     */
    p_g->c0300x = all_coeff[   3];            /*    u** 3 v** 0     */
    p_g->c0400x = all_coeff[   4];            /*    u** 4 v** 0     */
    p_g->c0500x = all_coeff[   5];            /*    u** 5 v** 0     */
    p_g->c0600x = all_coeff[   6];            /*    u** 6 v** 0     */
    p_g->c0700x = all_coeff[   7];            /*    u** 7 v** 0     */
    p_g->c0800x = all_coeff[   8];            /*    u** 8 v** 0     */
    p_g->c0900x = all_coeff[   9];            /*    u** 9 v** 0     */
    p_g->c1000x = all_coeff[  10];            /*    u**10 v** 0     */
    p_g->c1100x = all_coeff[  11];            /*    u**11 v** 0     */
    p_g->c1200x = all_coeff[  12];            /*    u**12 v** 0     */
    p_g->c1300x = all_coeff[  13];            /*    u**13 v** 0     */
    p_g->c1400x = all_coeff[  14];            /*    u**14 v** 0     */
    p_g->c1500x = all_coeff[  15];            /*    u**15 v** 0     */
    p_g->c1600x = all_coeff[  16];            /*    u**16 v** 0     */
    p_g->c1700x = all_coeff[  17];            /*    u**17 v** 0     */
    p_g->c1800x = all_coeff[  18];            /*    u**18 v** 0     */
    p_g->c1900x = all_coeff[  19];            /*    u**19 v** 0     */
    p_g->c2000x = all_coeff[  20];            /*    u**20 v** 0     */
    p_g->c2100x = all_coeff[  21];            /*    u**21 v** 0     */

    p_g->c0001x = all_coeff[  22];            /*    u** 0 v** 1     */
    p_g->c0101x = all_coeff[  23];            /*    u** 1 v** 1     */
    p_g->c0201x = all_coeff[  24];            /*    u** 2 v** 1     */
    p_g->c0301x = all_coeff[  25];            /*    u** 3 v** 1     */
    p_g->c0401x = all_coeff[  26];            /*    u** 4 v** 1     */
    p_g->c0501x = all_coeff[  27];            /*    u** 5 v** 1     */
    p_g->c0601x = all_coeff[  28];            /*    u** 6 v** 1     */
    p_g->c0701x = all_coeff[  29];            /*    u** 7 v** 1     */
    p_g->c0801x = all_coeff[  30];            /*    u** 8 v** 1     */
    p_g->c0901x = all_coeff[  31];            /*    u** 9 v** 1     */
    p_g->c1001x = all_coeff[  32];            /*    u**10 v** 1     */
    p_g->c1101x = all_coeff[  33];            /*    u**11 v** 1     */
    p_g->c1201x = all_coeff[  34];            /*    u**12 v** 1     */
    p_g->c1301x = all_coeff[  35];            /*    u**13 v** 1     */
    p_g->c1401x = all_coeff[  36];            /*    u**14 v** 1     */
    p_g->c1501x = all_coeff[  37];            /*    u**15 v** 1     */
    p_g->c1601x = all_coeff[  38];            /*    u**16 v** 1     */
    p_g->c1701x = all_coeff[  39];            /*    u**17 v** 1     */
    p_g->c1801x = all_coeff[  40];            /*    u**18 v** 1     */
    p_g->c1901x = all_coeff[  41];            /*    u**19 v** 1     */
    p_g->c2001x = all_coeff[  42];            /*    u**20 v** 1     */
    p_g->c2101x = all_coeff[  43];            /*    u**21 v** 1     */

    p_g->c0002x = all_coeff[  44];            /*    u** 0 v** 2     */
    p_g->c0102x = all_coeff[  45];            /*    u** 1 v** 2     */
    p_g->c0202x = all_coeff[  46];            /*    u** 2 v** 2     */
    p_g->c0302x = all_coeff[  47];            /*    u** 3 v** 2     */
    p_g->c0402x = all_coeff[  48];            /*    u** 4 v** 2     */
    p_g->c0502x = all_coeff[  49];            /*    u** 5 v** 2     */
    p_g->c0602x = all_coeff[  50];            /*    u** 6 v** 2     */
    p_g->c0702x = all_coeff[  51];            /*    u** 7 v** 2     */
    p_g->c0802x = all_coeff[  52];            /*    u** 8 v** 2     */
    p_g->c0902x = all_coeff[  53];            /*    u** 9 v** 2     */
    p_g->c1002x = all_coeff[  54];            /*    u**10 v** 2     */
    p_g->c1102x = all_coeff[  55];            /*    u**11 v** 2     */
    p_g->c1202x = all_coeff[  56];            /*    u**12 v** 2     */
    p_g->c1302x = all_coeff[  57];            /*    u**13 v** 2     */
    p_g->c1402x = all_coeff[  58];            /*    u**14 v** 2     */
    p_g->c1502x = all_coeff[  59];            /*    u**15 v** 2     */
    p_g->c1602x = all_coeff[  60];            /*    u**16 v** 2     */
    p_g->c1702x = all_coeff[  61];            /*    u**17 v** 2     */
    p_g->c1802x = all_coeff[  62];            /*    u**18 v** 2     */
    p_g->c1902x = all_coeff[  63];            /*    u**19 v** 2     */
    p_g->c2002x = all_coeff[  64];            /*    u**20 v** 2     */
    p_g->c2102x = all_coeff[  65];            /*    u**21 v** 2     */

    p_g->c0003x = all_coeff[  66];            /*    u** 0 v** 3     */
    p_g->c0103x = all_coeff[  67];            /*    u** 1 v** 3     */
    p_g->c0203x = all_coeff[  68];            /*    u** 2 v** 3     */
    p_g->c0303x = all_coeff[  69];            /*    u** 3 v** 3     */
    p_g->c0403x = all_coeff[  70];            /*    u** 4 v** 3     */
    p_g->c0503x = all_coeff[  71];            /*    u** 5 v** 3     */
    p_g->c0603x = all_coeff[  72];            /*    u** 6 v** 3     */
    p_g->c0703x = all_coeff[  73];            /*    u** 7 v** 3     */
    p_g->c0803x = all_coeff[  74];            /*    u** 8 v** 3     */
    p_g->c0903x = all_coeff[  75];            /*    u** 9 v** 3     */
    p_g->c1003x = all_coeff[  76];            /*    u**10 v** 3     */
    p_g->c1103x = all_coeff[  77];            /*    u**11 v** 3     */
    p_g->c1203x = all_coeff[  78];            /*    u**12 v** 3     */
    p_g->c1303x = all_coeff[  79];            /*    u**13 v** 3     */
    p_g->c1403x = all_coeff[  80];            /*    u**14 v** 3     */
    p_g->c1503x = all_coeff[  81];            /*    u**15 v** 3     */
    p_g->c1603x = all_coeff[  82];            /*    u**16 v** 3     */
    p_g->c1703x = all_coeff[  83];            /*    u**17 v** 3     */
    p_g->c1803x = all_coeff[  84];            /*    u**18 v** 3     */
    p_g->c1903x = all_coeff[  85];            /*    u**19 v** 3     */
    p_g->c2003x = all_coeff[  86];            /*    u**20 v** 3     */
    p_g->c2103x = all_coeff[  87];            /*    u**21 v** 3     */

    p_g->c0004x = all_coeff[  88];            /*    u** 0 v** 4     */
    p_g->c0104x = all_coeff[  89];            /*    u** 1 v** 4     */
    p_g->c0204x = all_coeff[  90];            /*    u** 2 v** 4     */
    p_g->c0304x = all_coeff[  91];            /*    u** 3 v** 4     */
    p_g->c0404x = all_coeff[  92];            /*    u** 4 v** 4     */
    p_g->c0504x = all_coeff[  93];            /*    u** 5 v** 4     */
    p_g->c0604x = all_coeff[  94];            /*    u** 6 v** 4     */
    p_g->c0704x = all_coeff[  95];            /*    u** 7 v** 4     */
    p_g->c0804x = all_coeff[  96];            /*    u** 8 v** 4     */
    p_g->c0904x = all_coeff[  97];            /*    u** 9 v** 4     */
    p_g->c1004x = all_coeff[  98];            /*    u**10 v** 4     */
    p_g->c1104x = all_coeff[  99];            /*    u**11 v** 4     */
    p_g->c1204x = all_coeff[ 100];            /*    u**12 v** 4     */
    p_g->c1304x = all_coeff[ 101];            /*    u**13 v** 4     */
    p_g->c1404x = all_coeff[ 102];            /*    u**14 v** 4     */
    p_g->c1504x = all_coeff[ 103];            /*    u**15 v** 4     */
    p_g->c1604x = all_coeff[ 104];            /*    u**16 v** 4     */
    p_g->c1704x = all_coeff[ 105];            /*    u**17 v** 4     */
    p_g->c1804x = all_coeff[ 106];            /*    u**18 v** 4     */
    p_g->c1904x = all_coeff[ 107];            /*    u**19 v** 4     */
    p_g->c2004x = all_coeff[ 108];            /*    u**20 v** 4     */
    p_g->c2104x = all_coeff[ 109];            /*    u**21 v** 4     */

    p_g->c0005x = all_coeff[ 110];            /*    u** 0 v** 5     */
    p_g->c0105x = all_coeff[ 111];            /*    u** 1 v** 5     */
    p_g->c0205x = all_coeff[ 112];            /*    u** 2 v** 5     */
    p_g->c0305x = all_coeff[ 113];            /*    u** 3 v** 5     */
    p_g->c0405x = all_coeff[ 114];            /*    u** 4 v** 5     */
    p_g->c0505x = all_coeff[ 115];            /*    u** 5 v** 5     */
    p_g->c0605x = all_coeff[ 116];            /*    u** 6 v** 5     */
    p_g->c0705x = all_coeff[ 117];            /*    u** 7 v** 5     */
    p_g->c0805x = all_coeff[ 118];            /*    u** 8 v** 5     */
    p_g->c0905x = all_coeff[ 119];            /*    u** 9 v** 5     */
    p_g->c1005x = all_coeff[ 120];            /*    u**10 v** 5     */
    p_g->c1105x = all_coeff[ 121];            /*    u**11 v** 5     */
    p_g->c1205x = all_coeff[ 122];            /*    u**12 v** 5     */
    p_g->c1305x = all_coeff[ 123];            /*    u**13 v** 5     */
    p_g->c1405x = all_coeff[ 124];            /*    u**14 v** 5     */
    p_g->c1505x = all_coeff[ 125];            /*    u**15 v** 5     */
    p_g->c1605x = all_coeff[ 126];            /*    u**16 v** 5     */
    p_g->c1705x = all_coeff[ 127];            /*    u**17 v** 5     */
    p_g->c1805x = all_coeff[ 128];            /*    u**18 v** 5     */
    p_g->c1905x = all_coeff[ 129];            /*    u**19 v** 5     */
    p_g->c2005x = all_coeff[ 130];            /*    u**20 v** 5     */
    p_g->c2105x = all_coeff[ 131];            /*    u**21 v** 5     */

    p_g->c0006x = all_coeff[ 132];            /*    u** 0 v** 6     */
    p_g->c0106x = all_coeff[ 133];            /*    u** 1 v** 6     */
    p_g->c0206x = all_coeff[ 134];            /*    u** 2 v** 6     */
    p_g->c0306x = all_coeff[ 135];            /*    u** 3 v** 6     */
    p_g->c0406x = all_coeff[ 136];            /*    u** 4 v** 6     */
    p_g->c0506x = all_coeff[ 137];            /*    u** 5 v** 6     */
    p_g->c0606x = all_coeff[ 138];            /*    u** 6 v** 6     */
    p_g->c0706x = all_coeff[ 139];            /*    u** 7 v** 6     */
    p_g->c0806x = all_coeff[ 140];            /*    u** 8 v** 6     */
    p_g->c0906x = all_coeff[ 141];            /*    u** 9 v** 6     */
    p_g->c1006x = all_coeff[ 142];            /*    u**10 v** 6     */
    p_g->c1106x = all_coeff[ 143];            /*    u**11 v** 6     */
    p_g->c1206x = all_coeff[ 144];            /*    u**12 v** 6     */
    p_g->c1306x = all_coeff[ 145];            /*    u**13 v** 6     */
    p_g->c1406x = all_coeff[ 146];            /*    u**14 v** 6     */
    p_g->c1506x = all_coeff[ 147];            /*    u**15 v** 6     */
    p_g->c1606x = all_coeff[ 148];            /*    u**16 v** 6     */
    p_g->c1706x = all_coeff[ 149];            /*    u**17 v** 6     */
    p_g->c1806x = all_coeff[ 150];            /*    u**18 v** 6     */
    p_g->c1906x = all_coeff[ 151];            /*    u**19 v** 6     */
    p_g->c2006x = all_coeff[ 152];            /*    u**20 v** 6     */
    p_g->c2106x = all_coeff[ 153];            /*    u**21 v** 6     */

    p_g->c0007x = all_coeff[ 154];            /*    u** 0 v** 7     */
    p_g->c0107x = all_coeff[ 155];            /*    u** 1 v** 7     */
    p_g->c0207x = all_coeff[ 156];            /*    u** 2 v** 7     */
    p_g->c0307x = all_coeff[ 157];            /*    u** 3 v** 7     */
    p_g->c0407x = all_coeff[ 158];            /*    u** 4 v** 7     */
    p_g->c0507x = all_coeff[ 159];            /*    u** 5 v** 7     */
    p_g->c0607x = all_coeff[ 160];            /*    u** 6 v** 7     */
    p_g->c0707x = all_coeff[ 161];            /*    u** 7 v** 7     */
    p_g->c0807x = all_coeff[ 162];            /*    u** 8 v** 7     */
    p_g->c0907x = all_coeff[ 163];            /*    u** 9 v** 7     */
    p_g->c1007x = all_coeff[ 164];            /*    u**10 v** 7     */
    p_g->c1107x = all_coeff[ 165];            /*    u**11 v** 7     */
    p_g->c1207x = all_coeff[ 166];            /*    u**12 v** 7     */
    p_g->c1307x = all_coeff[ 167];            /*    u**13 v** 7     */
    p_g->c1407x = all_coeff[ 168];            /*    u**14 v** 7     */
    p_g->c1507x = all_coeff[ 169];            /*    u**15 v** 7     */
    p_g->c1607x = all_coeff[ 170];            /*    u**16 v** 7     */
    p_g->c1707x = all_coeff[ 171];            /*    u**17 v** 7     */
    p_g->c1807x = all_coeff[ 172];            /*    u**18 v** 7     */
    p_g->c1907x = all_coeff[ 173];            /*    u**19 v** 7     */
    p_g->c2007x = all_coeff[ 174];            /*    u**20 v** 7     */
    p_g->c2107x = all_coeff[ 175];            /*    u**21 v** 7     */

    p_g->c0008x = all_coeff[ 176];            /*    u** 0 v** 8     */
    p_g->c0108x = all_coeff[ 177];            /*    u** 1 v** 8     */
    p_g->c0208x = all_coeff[ 178];            /*    u** 2 v** 8     */
    p_g->c0308x = all_coeff[ 179];            /*    u** 3 v** 8     */
    p_g->c0408x = all_coeff[ 180];            /*    u** 4 v** 8     */
    p_g->c0508x = all_coeff[ 181];            /*    u** 5 v** 8     */
    p_g->c0608x = all_coeff[ 182];            /*    u** 6 v** 8     */
    p_g->c0708x = all_coeff[ 183];            /*    u** 7 v** 8     */
    p_g->c0808x = all_coeff[ 184];            /*    u** 8 v** 8     */
    p_g->c0908x = all_coeff[ 185];            /*    u** 9 v** 8     */
    p_g->c1008x = all_coeff[ 186];            /*    u**10 v** 8     */
    p_g->c1108x = all_coeff[ 187];            /*    u**11 v** 8     */
    p_g->c1208x = all_coeff[ 188];            /*    u**12 v** 8     */
    p_g->c1308x = all_coeff[ 189];            /*    u**13 v** 8     */
    p_g->c1408x = all_coeff[ 190];            /*    u**14 v** 8     */
    p_g->c1508x = all_coeff[ 191];            /*    u**15 v** 8     */
    p_g->c1608x = all_coeff[ 192];            /*    u**16 v** 8     */
    p_g->c1708x = all_coeff[ 193];            /*    u**17 v** 8     */
    p_g->c1808x = all_coeff[ 194];            /*    u**18 v** 8     */
    p_g->c1908x = all_coeff[ 195];            /*    u**19 v** 8     */
    p_g->c2008x = all_coeff[ 196];            /*    u**20 v** 8     */
    p_g->c2108x = all_coeff[ 197];            /*    u**21 v** 8     */

    p_g->c0009x = all_coeff[ 198];            /*    u** 0 v** 9     */
    p_g->c0109x = all_coeff[ 199];            /*    u** 1 v** 9     */
    p_g->c0209x = all_coeff[ 200];            /*    u** 2 v** 9     */
    p_g->c0309x = all_coeff[ 201];            /*    u** 3 v** 9     */
    p_g->c0409x = all_coeff[ 202];            /*    u** 4 v** 9     */
    p_g->c0509x = all_coeff[ 203];            /*    u** 5 v** 9     */
    p_g->c0609x = all_coeff[ 204];            /*    u** 6 v** 9     */
    p_g->c0709x = all_coeff[ 205];            /*    u** 7 v** 9     */
    p_g->c0809x = all_coeff[ 206];            /*    u** 8 v** 9     */
    p_g->c0909x = all_coeff[ 207];            /*    u** 9 v** 9     */
    p_g->c1009x = all_coeff[ 208];            /*    u**10 v** 9     */
    p_g->c1109x = all_coeff[ 209];            /*    u**11 v** 9     */
    p_g->c1209x = all_coeff[ 210];            /*    u**12 v** 9     */
    p_g->c1309x = all_coeff[ 211];            /*    u**13 v** 9     */
    p_g->c1409x = all_coeff[ 212];            /*    u**14 v** 9     */
    p_g->c1509x = all_coeff[ 213];            /*    u**15 v** 9     */
    p_g->c1609x = all_coeff[ 214];            /*    u**16 v** 9     */
    p_g->c1709x = all_coeff[ 215];            /*    u**17 v** 9     */
    p_g->c1809x = all_coeff[ 216];            /*    u**18 v** 9     */
    p_g->c1909x = all_coeff[ 217];            /*    u**19 v** 9     */
    p_g->c2009x = all_coeff[ 218];            /*    u**20 v** 9     */
    p_g->c2109x = all_coeff[ 219];            /*    u**21 v** 9     */

    p_g->c0010x = all_coeff[ 220];            /*    u** 0 v**10     */
    p_g->c0110x = all_coeff[ 221];            /*    u** 1 v**10     */
    p_g->c0210x = all_coeff[ 222];            /*    u** 2 v**10     */
    p_g->c0310x = all_coeff[ 223];            /*    u** 3 v**10     */
    p_g->c0410x = all_coeff[ 224];            /*    u** 4 v**10     */
    p_g->c0510x = all_coeff[ 225];            /*    u** 5 v**10     */
    p_g->c0610x = all_coeff[ 226];            /*    u** 6 v**10     */
    p_g->c0710x = all_coeff[ 227];            /*    u** 7 v**10     */
    p_g->c0810x = all_coeff[ 228];            /*    u** 8 v**10     */
    p_g->c0910x = all_coeff[ 229];            /*    u** 9 v**10     */
    p_g->c1010x = all_coeff[ 230];            /*    u**10 v**10     */
    p_g->c1110x = all_coeff[ 231];            /*    u**11 v**10     */
    p_g->c1210x = all_coeff[ 232];            /*    u**12 v**10     */
    p_g->c1310x = all_coeff[ 233];            /*    u**13 v**10     */
    p_g->c1410x = all_coeff[ 234];            /*    u**14 v**10     */
    p_g->c1510x = all_coeff[ 235];            /*    u**15 v**10     */
    p_g->c1610x = all_coeff[ 236];            /*    u**16 v**10     */
    p_g->c1710x = all_coeff[ 237];            /*    u**17 v**10     */
    p_g->c1810x = all_coeff[ 238];            /*    u**18 v**10     */
    p_g->c1910x = all_coeff[ 239];            /*    u**19 v**10     */
    p_g->c2010x = all_coeff[ 240];            /*    u**20 v**10     */
    p_g->c2110x = all_coeff[ 241];            /*    u**21 v**10     */

    p_g->c0011x = all_coeff[ 242];            /*    u** 0 v**11     */
    p_g->c0111x = all_coeff[ 243];            /*    u** 1 v**11     */
    p_g->c0211x = all_coeff[ 244];            /*    u** 2 v**11     */
    p_g->c0311x = all_coeff[ 245];            /*    u** 3 v**11     */
    p_g->c0411x = all_coeff[ 246];            /*    u** 4 v**11     */
    p_g->c0511x = all_coeff[ 247];            /*    u** 5 v**11     */
    p_g->c0611x = all_coeff[ 248];            /*    u** 6 v**11     */
    p_g->c0711x = all_coeff[ 249];            /*    u** 7 v**11     */
    p_g->c0811x = all_coeff[ 250];            /*    u** 8 v**11     */
    p_g->c0911x = all_coeff[ 251];            /*    u** 9 v**11     */
    p_g->c1011x = all_coeff[ 252];            /*    u**10 v**11     */
    p_g->c1111x = all_coeff[ 253];            /*    u**11 v**11     */
    p_g->c1211x = all_coeff[ 254];            /*    u**12 v**11     */
    p_g->c1311x = all_coeff[ 255];            /*    u**13 v**11     */
    p_g->c1411x = all_coeff[ 256];            /*    u**14 v**11     */
    p_g->c1511x = all_coeff[ 257];            /*    u**15 v**11     */
    p_g->c1611x = all_coeff[ 258];            /*    u**16 v**11     */
    p_g->c1711x = all_coeff[ 259];            /*    u**17 v**11     */
    p_g->c1811x = all_coeff[ 260];            /*    u**18 v**11     */
    p_g->c1911x = all_coeff[ 261];            /*    u**19 v**11     */
    p_g->c2011x = all_coeff[ 262];            /*    u**20 v**11     */
    p_g->c2111x = all_coeff[ 263];            /*    u**21 v**11     */

    p_g->c0012x = all_coeff[ 264];            /*    u** 0 v**12     */
    p_g->c0112x = all_coeff[ 265];            /*    u** 1 v**12     */
    p_g->c0212x = all_coeff[ 266];            /*    u** 2 v**12     */
    p_g->c0312x = all_coeff[ 267];            /*    u** 3 v**12     */
    p_g->c0412x = all_coeff[ 268];            /*    u** 4 v**12     */
    p_g->c0512x = all_coeff[ 269];            /*    u** 5 v**12     */
    p_g->c0612x = all_coeff[ 270];            /*    u** 6 v**12     */
    p_g->c0712x = all_coeff[ 271];            /*    u** 7 v**12     */
    p_g->c0812x = all_coeff[ 272];            /*    u** 8 v**12     */
    p_g->c0912x = all_coeff[ 273];            /*    u** 9 v**12     */
    p_g->c1012x = all_coeff[ 274];            /*    u**10 v**12     */
    p_g->c1112x = all_coeff[ 275];            /*    u**11 v**12     */
    p_g->c1212x = all_coeff[ 276];            /*    u**12 v**12     */
    p_g->c1312x = all_coeff[ 277];            /*    u**13 v**12     */
    p_g->c1412x = all_coeff[ 278];            /*    u**14 v**12     */
    p_g->c1512x = all_coeff[ 279];            /*    u**15 v**12     */
    p_g->c1612x = all_coeff[ 280];            /*    u**16 v**12     */
    p_g->c1712x = all_coeff[ 281];            /*    u**17 v**12     */
    p_g->c1812x = all_coeff[ 282];            /*    u**18 v**12     */
    p_g->c1912x = all_coeff[ 283];            /*    u**19 v**12     */
    p_g->c2012x = all_coeff[ 284];            /*    u**20 v**12     */
    p_g->c2112x = all_coeff[ 285];            /*    u**21 v**12     */

    p_g->c0013x = all_coeff[ 286];            /*    u** 0 v**13     */
    p_g->c0113x = all_coeff[ 287];            /*    u** 1 v**13     */
    p_g->c0213x = all_coeff[ 288];            /*    u** 2 v**13     */
    p_g->c0313x = all_coeff[ 289];            /*    u** 3 v**13     */
    p_g->c0413x = all_coeff[ 290];            /*    u** 4 v**13     */
    p_g->c0513x = all_coeff[ 291];            /*    u** 5 v**13     */
    p_g->c0613x = all_coeff[ 292];            /*    u** 6 v**13     */
    p_g->c0713x = all_coeff[ 293];            /*    u** 7 v**13     */
    p_g->c0813x = all_coeff[ 294];            /*    u** 8 v**13     */
    p_g->c0913x = all_coeff[ 295];            /*    u** 9 v**13     */
    p_g->c1013x = all_coeff[ 296];            /*    u**10 v**13     */
    p_g->c1113x = all_coeff[ 297];            /*    u**11 v**13     */
    p_g->c1213x = all_coeff[ 298];            /*    u**12 v**13     */
    p_g->c1313x = all_coeff[ 299];            /*    u**13 v**13     */
    p_g->c1413x = all_coeff[ 300];            /*    u**14 v**13     */
    p_g->c1513x = all_coeff[ 301];            /*    u**15 v**13     */
    p_g->c1613x = all_coeff[ 302];            /*    u**16 v**13     */
    p_g->c1713x = all_coeff[ 303];            /*    u**17 v**13     */
    p_g->c1813x = all_coeff[ 304];            /*    u**18 v**13     */
    p_g->c1913x = all_coeff[ 305];            /*    u**19 v**13     */
    p_g->c2013x = all_coeff[ 306];            /*    u**20 v**13     */
    p_g->c2113x = all_coeff[ 307];            /*    u**21 v**13     */

    p_g->c0014x = all_coeff[ 308];            /*    u** 0 v**14     */
    p_g->c0114x = all_coeff[ 309];            /*    u** 1 v**14     */
    p_g->c0214x = all_coeff[ 310];            /*    u** 2 v**14     */
    p_g->c0314x = all_coeff[ 311];            /*    u** 3 v**14     */
    p_g->c0414x = all_coeff[ 312];            /*    u** 4 v**14     */
    p_g->c0514x = all_coeff[ 313];            /*    u** 5 v**14     */
    p_g->c0614x = all_coeff[ 314];            /*    u** 6 v**14     */
    p_g->c0714x = all_coeff[ 315];            /*    u** 7 v**14     */
    p_g->c0814x = all_coeff[ 316];            /*    u** 8 v**14     */
    p_g->c0914x = all_coeff[ 317];            /*    u** 9 v**14     */
    p_g->c1014x = all_coeff[ 318];            /*    u**10 v**14     */
    p_g->c1114x = all_coeff[ 319];            /*    u**11 v**14     */
    p_g->c1214x = all_coeff[ 320];            /*    u**12 v**14     */
    p_g->c1314x = all_coeff[ 321];            /*    u**13 v**14     */
    p_g->c1414x = all_coeff[ 322];            /*    u**14 v**14     */
    p_g->c1514x = all_coeff[ 323];            /*    u**15 v**14     */
    p_g->c1614x = all_coeff[ 324];            /*    u**16 v**14     */
    p_g->c1714x = all_coeff[ 325];            /*    u**17 v**14     */
    p_g->c1814x = all_coeff[ 326];            /*    u**18 v**14     */
    p_g->c1914x = all_coeff[ 327];            /*    u**19 v**14     */
    p_g->c2014x = all_coeff[ 328];            /*    u**20 v**14     */
    p_g->c2114x = all_coeff[ 329];            /*    u**21 v**14     */

    p_g->c0015x = all_coeff[ 330];            /*    u** 0 v**15     */
    p_g->c0115x = all_coeff[ 331];            /*    u** 1 v**15     */
    p_g->c0215x = all_coeff[ 332];            /*    u** 2 v**15     */
    p_g->c0315x = all_coeff[ 333];            /*    u** 3 v**15     */
    p_g->c0415x = all_coeff[ 334];            /*    u** 4 v**15     */
    p_g->c0515x = all_coeff[ 335];            /*    u** 5 v**15     */
    p_g->c0615x = all_coeff[ 336];            /*    u** 6 v**15     */
    p_g->c0715x = all_coeff[ 337];            /*    u** 7 v**15     */
    p_g->c0815x = all_coeff[ 338];            /*    u** 8 v**15     */
    p_g->c0915x = all_coeff[ 339];            /*    u** 9 v**15     */
    p_g->c1015x = all_coeff[ 340];            /*    u**10 v**15     */
    p_g->c1115x = all_coeff[ 341];            /*    u**11 v**15     */
    p_g->c1215x = all_coeff[ 342];            /*    u**12 v**15     */
    p_g->c1315x = all_coeff[ 343];            /*    u**13 v**15     */
    p_g->c1415x = all_coeff[ 344];            /*    u**14 v**15     */
    p_g->c1515x = all_coeff[ 345];            /*    u**15 v**15     */
    p_g->c1615x = all_coeff[ 346];            /*    u**16 v**15     */
    p_g->c1715x = all_coeff[ 347];            /*    u**17 v**15     */
    p_g->c1815x = all_coeff[ 348];            /*    u**18 v**15     */
    p_g->c1915x = all_coeff[ 349];            /*    u**19 v**15     */
    p_g->c2015x = all_coeff[ 350];            /*    u**20 v**15     */
    p_g->c2115x = all_coeff[ 351];            /*    u**21 v**15     */

    p_g->c0016x = all_coeff[ 352];            /*    u** 0 v**16     */
    p_g->c0116x = all_coeff[ 353];            /*    u** 1 v**16     */
    p_g->c0216x = all_coeff[ 354];            /*    u** 2 v**16     */
    p_g->c0316x = all_coeff[ 355];            /*    u** 3 v**16     */
    p_g->c0416x = all_coeff[ 356];            /*    u** 4 v**16     */
    p_g->c0516x = all_coeff[ 357];            /*    u** 5 v**16     */
    p_g->c0616x = all_coeff[ 358];            /*    u** 6 v**16     */
    p_g->c0716x = all_coeff[ 359];            /*    u** 7 v**16     */
    p_g->c0816x = all_coeff[ 360];            /*    u** 8 v**16     */
    p_g->c0916x = all_coeff[ 361];            /*    u** 9 v**16     */
    p_g->c1016x = all_coeff[ 362];            /*    u**10 v**16     */
    p_g->c1116x = all_coeff[ 363];            /*    u**11 v**16     */
    p_g->c1216x = all_coeff[ 364];            /*    u**12 v**16     */
    p_g->c1316x = all_coeff[ 365];            /*    u**13 v**16     */
    p_g->c1416x = all_coeff[ 366];            /*    u**14 v**16     */
    p_g->c1516x = all_coeff[ 367];            /*    u**15 v**16     */
    p_g->c1616x = all_coeff[ 368];            /*    u**16 v**16     */
    p_g->c1716x = all_coeff[ 369];            /*    u**17 v**16     */
    p_g->c1816x = all_coeff[ 370];            /*    u**18 v**16     */
    p_g->c1916x = all_coeff[ 371];            /*    u**19 v**16     */
    p_g->c2016x = all_coeff[ 372];            /*    u**20 v**16     */
    p_g->c2116x = all_coeff[ 373];            /*    u**21 v**16     */

    p_g->c0017x = all_coeff[ 374];            /*    u** 0 v**17     */
    p_g->c0117x = all_coeff[ 375];            /*    u** 1 v**17     */
    p_g->c0217x = all_coeff[ 376];            /*    u** 2 v**17     */
    p_g->c0317x = all_coeff[ 377];            /*    u** 3 v**17     */
    p_g->c0417x = all_coeff[ 378];            /*    u** 4 v**17     */
    p_g->c0517x = all_coeff[ 379];            /*    u** 5 v**17     */
    p_g->c0617x = all_coeff[ 380];            /*    u** 6 v**17     */
    p_g->c0717x = all_coeff[ 381];            /*    u** 7 v**17     */
    p_g->c0817x = all_coeff[ 382];            /*    u** 8 v**17     */
    p_g->c0917x = all_coeff[ 383];            /*    u** 9 v**17     */
    p_g->c1017x = all_coeff[ 384];            /*    u**10 v**17     */
    p_g->c1117x = all_coeff[ 385];            /*    u**11 v**17     */
    p_g->c1217x = all_coeff[ 386];            /*    u**12 v**17     */
    p_g->c1317x = all_coeff[ 387];            /*    u**13 v**17     */
    p_g->c1417x = all_coeff[ 388];            /*    u**14 v**17     */
    p_g->c1517x = all_coeff[ 389];            /*    u**15 v**17     */
    p_g->c1617x = all_coeff[ 390];            /*    u**16 v**17     */
    p_g->c1717x = all_coeff[ 391];            /*    u**17 v**17     */
    p_g->c1817x = all_coeff[ 392];            /*    u**18 v**17     */
    p_g->c1917x = all_coeff[ 393];            /*    u**19 v**17     */
    p_g->c2017x = all_coeff[ 394];            /*    u**20 v**17     */
    p_g->c2117x = all_coeff[ 395];            /*    u**21 v**17     */

    p_g->c0018x = all_coeff[ 396];            /*    u** 0 v**18     */
    p_g->c0118x = all_coeff[ 397];            /*    u** 1 v**18     */
    p_g->c0218x = all_coeff[ 398];            /*    u** 2 v**18     */
    p_g->c0318x = all_coeff[ 399];            /*    u** 3 v**18     */
    p_g->c0418x = all_coeff[ 400];            /*    u** 4 v**18     */
    p_g->c0518x = all_coeff[ 401];            /*    u** 5 v**18     */
    p_g->c0618x = all_coeff[ 402];            /*    u** 6 v**18     */
    p_g->c0718x = all_coeff[ 403];            /*    u** 7 v**18     */
    p_g->c0818x = all_coeff[ 404];            /*    u** 8 v**18     */
    p_g->c0918x = all_coeff[ 405];            /*    u** 9 v**18     */
    p_g->c1018x = all_coeff[ 406];            /*    u**10 v**18     */
    p_g->c1118x = all_coeff[ 407];            /*    u**11 v**18     */
    p_g->c1218x = all_coeff[ 408];            /*    u**12 v**18     */
    p_g->c1318x = all_coeff[ 409];            /*    u**13 v**18     */
    p_g->c1418x = all_coeff[ 410];            /*    u**14 v**18     */
    p_g->c1518x = all_coeff[ 411];            /*    u**15 v**18     */
    p_g->c1618x = all_coeff[ 412];            /*    u**16 v**18     */
    p_g->c1718x = all_coeff[ 413];            /*    u**17 v**18     */
    p_g->c1818x = all_coeff[ 414];            /*    u**18 v**18     */
    p_g->c1918x = all_coeff[ 415];            /*    u**19 v**18     */
    p_g->c2018x = all_coeff[ 416];            /*    u**20 v**18     */
    p_g->c2118x = all_coeff[ 417];            /*    u**21 v**18     */

    p_g->c0019x = all_coeff[ 418];            /*    u** 0 v**19     */
    p_g->c0119x = all_coeff[ 419];            /*    u** 1 v**19     */
    p_g->c0219x = all_coeff[ 420];            /*    u** 2 v**19     */
    p_g->c0319x = all_coeff[ 421];            /*    u** 3 v**19     */
    p_g->c0419x = all_coeff[ 422];            /*    u** 4 v**19     */
    p_g->c0519x = all_coeff[ 423];            /*    u** 5 v**19     */
    p_g->c0619x = all_coeff[ 424];            /*    u** 6 v**19     */
    p_g->c0719x = all_coeff[ 425];            /*    u** 7 v**19     */
    p_g->c0819x = all_coeff[ 426];            /*    u** 8 v**19     */
    p_g->c0919x = all_coeff[ 427];            /*    u** 9 v**19     */
    p_g->c1019x = all_coeff[ 428];            /*    u**10 v**19     */
    p_g->c1119x = all_coeff[ 429];            /*    u**11 v**19     */
    p_g->c1219x = all_coeff[ 430];            /*    u**12 v**19     */
    p_g->c1319x = all_coeff[ 431];            /*    u**13 v**19     */
    p_g->c1419x = all_coeff[ 432];            /*    u**14 v**19     */
    p_g->c1519x = all_coeff[ 433];            /*    u**15 v**19     */
    p_g->c1619x = all_coeff[ 434];            /*    u**16 v**19     */
    p_g->c1719x = all_coeff[ 435];            /*    u**17 v**19     */
    p_g->c1819x = all_coeff[ 436];            /*    u**18 v**19     */
    p_g->c1919x = all_coeff[ 437];            /*    u**19 v**19     */
    p_g->c2019x = all_coeff[ 438];            /*    u**20 v**19     */
    p_g->c2119x = all_coeff[ 439];            /*    u**21 v**19     */

    p_g->c0020x = all_coeff[ 440];            /*    u** 0 v**20     */
    p_g->c0120x = all_coeff[ 441];            /*    u** 1 v**20     */
    p_g->c0220x = all_coeff[ 442];            /*    u** 2 v**20     */
    p_g->c0320x = all_coeff[ 443];            /*    u** 3 v**20     */
    p_g->c0420x = all_coeff[ 444];            /*    u** 4 v**20     */
    p_g->c0520x = all_coeff[ 445];            /*    u** 5 v**20     */
    p_g->c0620x = all_coeff[ 446];            /*    u** 6 v**20     */
    p_g->c0720x = all_coeff[ 447];            /*    u** 7 v**20     */
    p_g->c0820x = all_coeff[ 448];            /*    u** 8 v**20     */
    p_g->c0920x = all_coeff[ 449];            /*    u** 9 v**20     */
    p_g->c1020x = all_coeff[ 450];            /*    u**10 v**20     */
    p_g->c1120x = all_coeff[ 451];            /*    u**11 v**20     */
    p_g->c1220x = all_coeff[ 452];            /*    u**12 v**20     */
    p_g->c1320x = all_coeff[ 453];            /*    u**13 v**20     */
    p_g->c1420x = all_coeff[ 454];            /*    u**14 v**20     */
    p_g->c1520x = all_coeff[ 455];            /*    u**15 v**20     */
    p_g->c1620x = all_coeff[ 456];            /*    u**16 v**20     */
    p_g->c1720x = all_coeff[ 457];            /*    u**17 v**20     */
    p_g->c1820x = all_coeff[ 458];            /*    u**18 v**20     */
    p_g->c1920x = all_coeff[ 459];            /*    u**19 v**20     */
    p_g->c2020x = all_coeff[ 460];            /*    u**20 v**20     */
    p_g->c2120x = all_coeff[ 461];            /*    u**21 v**20     */

    p_g->c0021x = all_coeff[ 462];            /*    u** 0 v**21     */
    p_g->c0121x = all_coeff[ 463];            /*    u** 1 v**21     */
    p_g->c0221x = all_coeff[ 464];            /*    u** 2 v**21     */
    p_g->c0321x = all_coeff[ 465];            /*    u** 3 v**21     */
    p_g->c0421x = all_coeff[ 466];            /*    u** 4 v**21     */
    p_g->c0521x = all_coeff[ 467];            /*    u** 5 v**21     */
    p_g->c0621x = all_coeff[ 468];            /*    u** 6 v**21     */
    p_g->c0721x = all_coeff[ 469];            /*    u** 7 v**21     */
    p_g->c0821x = all_coeff[ 470];            /*    u** 8 v**21     */
    p_g->c0921x = all_coeff[ 471];            /*    u** 9 v**21     */
    p_g->c1021x = all_coeff[ 472];            /*    u**10 v**21     */
    p_g->c1121x = all_coeff[ 473];            /*    u**11 v**21     */
    p_g->c1221x = all_coeff[ 474];            /*    u**12 v**21     */
    p_g->c1321x = all_coeff[ 475];            /*    u**13 v**21     */
    p_g->c1421x = all_coeff[ 476];            /*    u**14 v**21     */
    p_g->c1521x = all_coeff[ 477];            /*    u**15 v**21     */
    p_g->c1621x = all_coeff[ 478];            /*    u**16 v**21     */
    p_g->c1721x = all_coeff[ 479];            /*    u**17 v**21     */
    p_g->c1821x = all_coeff[ 480];            /*    u**18 v**21     */
    p_g->c1921x = all_coeff[ 481];            /*    u**19 v**21     */
    p_g->c2021x = all_coeff[ 482];            /*    u**20 v**21     */
    p_g->c2121x = all_coeff[ 483];            /*    u**21 v**21     */


    p_g->c0000y = all_coeff[ 484];            /*    u** 0 v** 0     */
    p_g->c0100y = all_coeff[ 485];            /*    u** 1 v** 0     */
    p_g->c0200y = all_coeff[ 486];            /*    u** 2 v** 0     */
    p_g->c0300y = all_coeff[ 487];            /*    u** 3 v** 0     */
    p_g->c0400y = all_coeff[ 488];            /*    u** 4 v** 0     */
    p_g->c0500y = all_coeff[ 489];            /*    u** 5 v** 0     */
    p_g->c0600y = all_coeff[ 490];            /*    u** 6 v** 0     */
    p_g->c0700y = all_coeff[ 491];            /*    u** 7 v** 0     */
    p_g->c0800y = all_coeff[ 492];            /*    u** 8 v** 0     */
    p_g->c0900y = all_coeff[ 493];            /*    u** 9 v** 0     */
    p_g->c1000y = all_coeff[ 494];            /*    u**10 v** 0     */
    p_g->c1100y = all_coeff[ 495];            /*    u**11 v** 0     */
    p_g->c1200y = all_coeff[ 496];            /*    u**12 v** 0     */
    p_g->c1300y = all_coeff[ 497];            /*    u**13 v** 0     */
    p_g->c1400y = all_coeff[ 498];            /*    u**14 v** 0     */
    p_g->c1500y = all_coeff[ 499];            /*    u**15 v** 0     */
    p_g->c1600y = all_coeff[ 500];            /*    u**16 v** 0     */
    p_g->c1700y = all_coeff[ 501];            /*    u**17 v** 0     */
    p_g->c1800y = all_coeff[ 502];            /*    u**18 v** 0     */
    p_g->c1900y = all_coeff[ 503];            /*    u**19 v** 0     */
    p_g->c2000y = all_coeff[ 504];            /*    u**20 v** 0     */
    p_g->c2100y = all_coeff[ 505];            /*    u**21 v** 0     */

    p_g->c0001y = all_coeff[ 506];            /*    u** 0 v** 1     */
    p_g->c0101y = all_coeff[ 507];            /*    u** 1 v** 1     */
    p_g->c0201y = all_coeff[ 508];            /*    u** 2 v** 1     */
    p_g->c0301y = all_coeff[ 509];            /*    u** 3 v** 1     */
    p_g->c0401y = all_coeff[ 510];            /*    u** 4 v** 1     */
    p_g->c0501y = all_coeff[ 511];            /*    u** 5 v** 1     */
    p_g->c0601y = all_coeff[ 512];            /*    u** 6 v** 1     */
    p_g->c0701y = all_coeff[ 513];            /*    u** 7 v** 1     */
    p_g->c0801y = all_coeff[ 514];            /*    u** 8 v** 1     */
    p_g->c0901y = all_coeff[ 515];            /*    u** 9 v** 1     */
    p_g->c1001y = all_coeff[ 516];            /*    u**10 v** 1     */
    p_g->c1101y = all_coeff[ 517];            /*    u**11 v** 1     */
    p_g->c1201y = all_coeff[ 518];            /*    u**12 v** 1     */
    p_g->c1301y = all_coeff[ 519];            /*    u**13 v** 1     */
    p_g->c1401y = all_coeff[ 520];            /*    u**14 v** 1     */
    p_g->c1501y = all_coeff[ 521];            /*    u**15 v** 1     */
    p_g->c1601y = all_coeff[ 522];            /*    u**16 v** 1     */
    p_g->c1701y = all_coeff[ 523];            /*    u**17 v** 1     */
    p_g->c1801y = all_coeff[ 524];            /*    u**18 v** 1     */
    p_g->c1901y = all_coeff[ 525];            /*    u**19 v** 1     */
    p_g->c2001y = all_coeff[ 526];            /*    u**20 v** 1     */
    p_g->c2101y = all_coeff[ 527];            /*    u**21 v** 1     */

    p_g->c0002y = all_coeff[ 528];            /*    u** 0 v** 2     */
    p_g->c0102y = all_coeff[ 529];            /*    u** 1 v** 2     */
    p_g->c0202y = all_coeff[ 530];            /*    u** 2 v** 2     */
    p_g->c0302y = all_coeff[ 531];            /*    u** 3 v** 2     */
    p_g->c0402y = all_coeff[ 532];            /*    u** 4 v** 2     */
    p_g->c0502y = all_coeff[ 533];            /*    u** 5 v** 2     */
    p_g->c0602y = all_coeff[ 534];            /*    u** 6 v** 2     */
    p_g->c0702y = all_coeff[ 535];            /*    u** 7 v** 2     */
    p_g->c0802y = all_coeff[ 536];            /*    u** 8 v** 2     */
    p_g->c0902y = all_coeff[ 537];            /*    u** 9 v** 2     */
    p_g->c1002y = all_coeff[ 538];            /*    u**10 v** 2     */
    p_g->c1102y = all_coeff[ 539];            /*    u**11 v** 2     */
    p_g->c1202y = all_coeff[ 540];            /*    u**12 v** 2     */
    p_g->c1302y = all_coeff[ 541];            /*    u**13 v** 2     */
    p_g->c1402y = all_coeff[ 542];            /*    u**14 v** 2     */
    p_g->c1502y = all_coeff[ 543];            /*    u**15 v** 2     */
    p_g->c1602y = all_coeff[ 544];            /*    u**16 v** 2     */
    p_g->c1702y = all_coeff[ 545];            /*    u**17 v** 2     */
    p_g->c1802y = all_coeff[ 546];            /*    u**18 v** 2     */
    p_g->c1902y = all_coeff[ 547];            /*    u**19 v** 2     */
    p_g->c2002y = all_coeff[ 548];            /*    u**20 v** 2     */
    p_g->c2102y = all_coeff[ 549];            /*    u**21 v** 2     */

    p_g->c0003y = all_coeff[ 550];            /*    u** 0 v** 3     */
    p_g->c0103y = all_coeff[ 551];            /*    u** 1 v** 3     */
    p_g->c0203y = all_coeff[ 552];            /*    u** 2 v** 3     */
    p_g->c0303y = all_coeff[ 553];            /*    u** 3 v** 3     */
    p_g->c0403y = all_coeff[ 554];            /*    u** 4 v** 3     */
    p_g->c0503y = all_coeff[ 555];            /*    u** 5 v** 3     */
    p_g->c0603y = all_coeff[ 556];            /*    u** 6 v** 3     */
    p_g->c0703y = all_coeff[ 557];            /*    u** 7 v** 3     */
    p_g->c0803y = all_coeff[ 558];            /*    u** 8 v** 3     */
    p_g->c0903y = all_coeff[ 559];            /*    u** 9 v** 3     */
    p_g->c1003y = all_coeff[ 560];            /*    u**10 v** 3     */
    p_g->c1103y = all_coeff[ 561];            /*    u**11 v** 3     */
    p_g->c1203y = all_coeff[ 562];            /*    u**12 v** 3     */
    p_g->c1303y = all_coeff[ 563];            /*    u**13 v** 3     */
    p_g->c1403y = all_coeff[ 564];            /*    u**14 v** 3     */
    p_g->c1503y = all_coeff[ 565];            /*    u**15 v** 3     */
    p_g->c1603y = all_coeff[ 566];            /*    u**16 v** 3     */
    p_g->c1703y = all_coeff[ 567];            /*    u**17 v** 3     */
    p_g->c1803y = all_coeff[ 568];            /*    u**18 v** 3     */
    p_g->c1903y = all_coeff[ 569];            /*    u**19 v** 3     */
    p_g->c2003y = all_coeff[ 570];            /*    u**20 v** 3     */
    p_g->c2103y = all_coeff[ 571];            /*    u**21 v** 3     */

    p_g->c0004y = all_coeff[ 572];            /*    u** 0 v** 4     */
    p_g->c0104y = all_coeff[ 573];            /*    u** 1 v** 4     */
    p_g->c0204y = all_coeff[ 574];            /*    u** 2 v** 4     */
    p_g->c0304y = all_coeff[ 575];            /*    u** 3 v** 4     */
    p_g->c0404y = all_coeff[ 576];            /*    u** 4 v** 4     */
    p_g->c0504y = all_coeff[ 577];            /*    u** 5 v** 4     */
    p_g->c0604y = all_coeff[ 578];            /*    u** 6 v** 4     */
    p_g->c0704y = all_coeff[ 579];            /*    u** 7 v** 4     */
    p_g->c0804y = all_coeff[ 580];            /*    u** 8 v** 4     */
    p_g->c0904y = all_coeff[ 581];            /*    u** 9 v** 4     */
    p_g->c1004y = all_coeff[ 582];            /*    u**10 v** 4     */
    p_g->c1104y = all_coeff[ 583];            /*    u**11 v** 4     */
    p_g->c1204y = all_coeff[ 584];            /*    u**12 v** 4     */
    p_g->c1304y = all_coeff[ 585];            /*    u**13 v** 4     */
    p_g->c1404y = all_coeff[ 586];            /*    u**14 v** 4     */
    p_g->c1504y = all_coeff[ 587];            /*    u**15 v** 4     */
    p_g->c1604y = all_coeff[ 588];            /*    u**16 v** 4     */
    p_g->c1704y = all_coeff[ 589];            /*    u**17 v** 4     */
    p_g->c1804y = all_coeff[ 590];            /*    u**18 v** 4     */
    p_g->c1904y = all_coeff[ 591];            /*    u**19 v** 4     */
    p_g->c2004y = all_coeff[ 592];            /*    u**20 v** 4     */
    p_g->c2104y = all_coeff[ 593];            /*    u**21 v** 4     */

    p_g->c0005y = all_coeff[ 594];            /*    u** 0 v** 5     */
    p_g->c0105y = all_coeff[ 595];            /*    u** 1 v** 5     */
    p_g->c0205y = all_coeff[ 596];            /*    u** 2 v** 5     */
    p_g->c0305y = all_coeff[ 597];            /*    u** 3 v** 5     */
    p_g->c0405y = all_coeff[ 598];            /*    u** 4 v** 5     */
    p_g->c0505y = all_coeff[ 599];            /*    u** 5 v** 5     */
    p_g->c0605y = all_coeff[ 600];            /*    u** 6 v** 5     */
    p_g->c0705y = all_coeff[ 601];            /*    u** 7 v** 5     */
    p_g->c0805y = all_coeff[ 602];            /*    u** 8 v** 5     */
    p_g->c0905y = all_coeff[ 603];            /*    u** 9 v** 5     */
    p_g->c1005y = all_coeff[ 604];            /*    u**10 v** 5     */
    p_g->c1105y = all_coeff[ 605];            /*    u**11 v** 5     */
    p_g->c1205y = all_coeff[ 606];            /*    u**12 v** 5     */
    p_g->c1305y = all_coeff[ 607];            /*    u**13 v** 5     */
    p_g->c1405y = all_coeff[ 608];            /*    u**14 v** 5     */
    p_g->c1505y = all_coeff[ 609];            /*    u**15 v** 5     */
    p_g->c1605y = all_coeff[ 610];            /*    u**16 v** 5     */
    p_g->c1705y = all_coeff[ 611];            /*    u**17 v** 5     */
    p_g->c1805y = all_coeff[ 612];            /*    u**18 v** 5     */
    p_g->c1905y = all_coeff[ 613];            /*    u**19 v** 5     */
    p_g->c2005y = all_coeff[ 614];            /*    u**20 v** 5     */
    p_g->c2105y = all_coeff[ 615];            /*    u**21 v** 5     */

    p_g->c0006y = all_coeff[ 616];            /*    u** 0 v** 6     */
    p_g->c0106y = all_coeff[ 617];            /*    u** 1 v** 6     */
    p_g->c0206y = all_coeff[ 618];            /*    u** 2 v** 6     */
    p_g->c0306y = all_coeff[ 619];            /*    u** 3 v** 6     */
    p_g->c0406y = all_coeff[ 620];            /*    u** 4 v** 6     */
    p_g->c0506y = all_coeff[ 621];            /*    u** 5 v** 6     */
    p_g->c0606y = all_coeff[ 622];            /*    u** 6 v** 6     */
    p_g->c0706y = all_coeff[ 623];            /*    u** 7 v** 6     */
    p_g->c0806y = all_coeff[ 624];            /*    u** 8 v** 6     */
    p_g->c0906y = all_coeff[ 625];            /*    u** 9 v** 6     */
    p_g->c1006y = all_coeff[ 626];            /*    u**10 v** 6     */
    p_g->c1106y = all_coeff[ 627];            /*    u**11 v** 6     */
    p_g->c1206y = all_coeff[ 628];            /*    u**12 v** 6     */
    p_g->c1306y = all_coeff[ 629];            /*    u**13 v** 6     */
    p_g->c1406y = all_coeff[ 630];            /*    u**14 v** 6     */
    p_g->c1506y = all_coeff[ 631];            /*    u**15 v** 6     */
    p_g->c1606y = all_coeff[ 632];            /*    u**16 v** 6     */
    p_g->c1706y = all_coeff[ 633];            /*    u**17 v** 6     */
    p_g->c1806y = all_coeff[ 634];            /*    u**18 v** 6     */
    p_g->c1906y = all_coeff[ 635];            /*    u**19 v** 6     */
    p_g->c2006y = all_coeff[ 636];            /*    u**20 v** 6     */
    p_g->c2106y = all_coeff[ 637];            /*    u**21 v** 6     */

    p_g->c0007y = all_coeff[ 638];            /*    u** 0 v** 7     */
    p_g->c0107y = all_coeff[ 639];            /*    u** 1 v** 7     */
    p_g->c0207y = all_coeff[ 640];            /*    u** 2 v** 7     */
    p_g->c0307y = all_coeff[ 641];            /*    u** 3 v** 7     */
    p_g->c0407y = all_coeff[ 642];            /*    u** 4 v** 7     */
    p_g->c0507y = all_coeff[ 643];            /*    u** 5 v** 7     */
    p_g->c0607y = all_coeff[ 644];            /*    u** 6 v** 7     */
    p_g->c0707y = all_coeff[ 645];            /*    u** 7 v** 7     */
    p_g->c0807y = all_coeff[ 646];            /*    u** 8 v** 7     */
    p_g->c0907y = all_coeff[ 647];            /*    u** 9 v** 7     */
    p_g->c1007y = all_coeff[ 648];            /*    u**10 v** 7     */
    p_g->c1107y = all_coeff[ 649];            /*    u**11 v** 7     */
    p_g->c1207y = all_coeff[ 650];            /*    u**12 v** 7     */
    p_g->c1307y = all_coeff[ 651];            /*    u**13 v** 7     */
    p_g->c1407y = all_coeff[ 652];            /*    u**14 v** 7     */
    p_g->c1507y = all_coeff[ 653];            /*    u**15 v** 7     */
    p_g->c1607y = all_coeff[ 654];            /*    u**16 v** 7     */
    p_g->c1707y = all_coeff[ 655];            /*    u**17 v** 7     */
    p_g->c1807y = all_coeff[ 656];            /*    u**18 v** 7     */
    p_g->c1907y = all_coeff[ 657];            /*    u**19 v** 7     */
    p_g->c2007y = all_coeff[ 658];            /*    u**20 v** 7     */
    p_g->c2107y = all_coeff[ 659];            /*    u**21 v** 7     */

    p_g->c0008y = all_coeff[ 660];            /*    u** 0 v** 8     */
    p_g->c0108y = all_coeff[ 661];            /*    u** 1 v** 8     */
    p_g->c0208y = all_coeff[ 662];            /*    u** 2 v** 8     */
    p_g->c0308y = all_coeff[ 663];            /*    u** 3 v** 8     */
    p_g->c0408y = all_coeff[ 664];            /*    u** 4 v** 8     */
    p_g->c0508y = all_coeff[ 665];            /*    u** 5 v** 8     */
    p_g->c0608y = all_coeff[ 666];            /*    u** 6 v** 8     */
    p_g->c0708y = all_coeff[ 667];            /*    u** 7 v** 8     */
    p_g->c0808y = all_coeff[ 668];            /*    u** 8 v** 8     */
    p_g->c0908y = all_coeff[ 669];            /*    u** 9 v** 8     */
    p_g->c1008y = all_coeff[ 670];            /*    u**10 v** 8     */
    p_g->c1108y = all_coeff[ 671];            /*    u**11 v** 8     */
    p_g->c1208y = all_coeff[ 672];            /*    u**12 v** 8     */
    p_g->c1308y = all_coeff[ 673];            /*    u**13 v** 8     */
    p_g->c1408y = all_coeff[ 674];            /*    u**14 v** 8     */
    p_g->c1508y = all_coeff[ 675];            /*    u**15 v** 8     */
    p_g->c1608y = all_coeff[ 676];            /*    u**16 v** 8     */
    p_g->c1708y = all_coeff[ 677];            /*    u**17 v** 8     */
    p_g->c1808y = all_coeff[ 678];            /*    u**18 v** 8     */
    p_g->c1908y = all_coeff[ 679];            /*    u**19 v** 8     */
    p_g->c2008y = all_coeff[ 680];            /*    u**20 v** 8     */
    p_g->c2108y = all_coeff[ 681];            /*    u**21 v** 8     */

    p_g->c0009y = all_coeff[ 682];            /*    u** 0 v** 9     */
    p_g->c0109y = all_coeff[ 683];            /*    u** 1 v** 9     */
    p_g->c0209y = all_coeff[ 684];            /*    u** 2 v** 9     */
    p_g->c0309y = all_coeff[ 685];            /*    u** 3 v** 9     */
    p_g->c0409y = all_coeff[ 686];            /*    u** 4 v** 9     */
    p_g->c0509y = all_coeff[ 687];            /*    u** 5 v** 9     */
    p_g->c0609y = all_coeff[ 688];            /*    u** 6 v** 9     */
    p_g->c0709y = all_coeff[ 689];            /*    u** 7 v** 9     */
    p_g->c0809y = all_coeff[ 690];            /*    u** 8 v** 9     */
    p_g->c0909y = all_coeff[ 691];            /*    u** 9 v** 9     */
    p_g->c1009y = all_coeff[ 692];            /*    u**10 v** 9     */
    p_g->c1109y = all_coeff[ 693];            /*    u**11 v** 9     */
    p_g->c1209y = all_coeff[ 694];            /*    u**12 v** 9     */
    p_g->c1309y = all_coeff[ 695];            /*    u**13 v** 9     */
    p_g->c1409y = all_coeff[ 696];            /*    u**14 v** 9     */
    p_g->c1509y = all_coeff[ 697];            /*    u**15 v** 9     */
    p_g->c1609y = all_coeff[ 698];            /*    u**16 v** 9     */
    p_g->c1709y = all_coeff[ 699];            /*    u**17 v** 9     */
    p_g->c1809y = all_coeff[ 700];            /*    u**18 v** 9     */
    p_g->c1909y = all_coeff[ 701];            /*    u**19 v** 9     */
    p_g->c2009y = all_coeff[ 702];            /*    u**20 v** 9     */
    p_g->c2109y = all_coeff[ 703];            /*    u**21 v** 9     */

    p_g->c0010y = all_coeff[ 704];            /*    u** 0 v**10     */
    p_g->c0110y = all_coeff[ 705];            /*    u** 1 v**10     */
    p_g->c0210y = all_coeff[ 706];            /*    u** 2 v**10     */
    p_g->c0310y = all_coeff[ 707];            /*    u** 3 v**10     */
    p_g->c0410y = all_coeff[ 708];            /*    u** 4 v**10     */
    p_g->c0510y = all_coeff[ 709];            /*    u** 5 v**10     */
    p_g->c0610y = all_coeff[ 710];            /*    u** 6 v**10     */
    p_g->c0710y = all_coeff[ 711];            /*    u** 7 v**10     */
    p_g->c0810y = all_coeff[ 712];            /*    u** 8 v**10     */
    p_g->c0910y = all_coeff[ 713];            /*    u** 9 v**10     */
    p_g->c1010y = all_coeff[ 714];            /*    u**10 v**10     */
    p_g->c1110y = all_coeff[ 715];            /*    u**11 v**10     */
    p_g->c1210y = all_coeff[ 716];            /*    u**12 v**10     */
    p_g->c1310y = all_coeff[ 717];            /*    u**13 v**10     */
    p_g->c1410y = all_coeff[ 718];            /*    u**14 v**10     */
    p_g->c1510y = all_coeff[ 719];            /*    u**15 v**10     */
    p_g->c1610y = all_coeff[ 720];            /*    u**16 v**10     */
    p_g->c1710y = all_coeff[ 721];            /*    u**17 v**10     */
    p_g->c1810y = all_coeff[ 722];            /*    u**18 v**10     */
    p_g->c1910y = all_coeff[ 723];            /*    u**19 v**10     */
    p_g->c2010y = all_coeff[ 724];            /*    u**20 v**10     */
    p_g->c2110y = all_coeff[ 725];            /*    u**21 v**10     */

    p_g->c0011y = all_coeff[ 726];            /*    u** 0 v**11     */
    p_g->c0111y = all_coeff[ 727];            /*    u** 1 v**11     */
    p_g->c0211y = all_coeff[ 728];            /*    u** 2 v**11     */
    p_g->c0311y = all_coeff[ 729];            /*    u** 3 v**11     */
    p_g->c0411y = all_coeff[ 730];            /*    u** 4 v**11     */
    p_g->c0511y = all_coeff[ 731];            /*    u** 5 v**11     */
    p_g->c0611y = all_coeff[ 732];            /*    u** 6 v**11     */
    p_g->c0711y = all_coeff[ 733];            /*    u** 7 v**11     */
    p_g->c0811y = all_coeff[ 734];            /*    u** 8 v**11     */
    p_g->c0911y = all_coeff[ 735];            /*    u** 9 v**11     */
    p_g->c1011y = all_coeff[ 736];            /*    u**10 v**11     */
    p_g->c1111y = all_coeff[ 737];            /*    u**11 v**11     */
    p_g->c1211y = all_coeff[ 738];            /*    u**12 v**11     */
    p_g->c1311y = all_coeff[ 739];            /*    u**13 v**11     */
    p_g->c1411y = all_coeff[ 740];            /*    u**14 v**11     */
    p_g->c1511y = all_coeff[ 741];            /*    u**15 v**11     */
    p_g->c1611y = all_coeff[ 742];            /*    u**16 v**11     */
    p_g->c1711y = all_coeff[ 743];            /*    u**17 v**11     */
    p_g->c1811y = all_coeff[ 744];            /*    u**18 v**11     */
    p_g->c1911y = all_coeff[ 745];            /*    u**19 v**11     */
    p_g->c2011y = all_coeff[ 746];            /*    u**20 v**11     */
    p_g->c2111y = all_coeff[ 747];            /*    u**21 v**11     */

    p_g->c0012y = all_coeff[ 748];            /*    u** 0 v**12     */
    p_g->c0112y = all_coeff[ 749];            /*    u** 1 v**12     */
    p_g->c0212y = all_coeff[ 750];            /*    u** 2 v**12     */
    p_g->c0312y = all_coeff[ 751];            /*    u** 3 v**12     */
    p_g->c0412y = all_coeff[ 752];            /*    u** 4 v**12     */
    p_g->c0512y = all_coeff[ 753];            /*    u** 5 v**12     */
    p_g->c0612y = all_coeff[ 754];            /*    u** 6 v**12     */
    p_g->c0712y = all_coeff[ 755];            /*    u** 7 v**12     */
    p_g->c0812y = all_coeff[ 756];            /*    u** 8 v**12     */
    p_g->c0912y = all_coeff[ 757];            /*    u** 9 v**12     */
    p_g->c1012y = all_coeff[ 758];            /*    u**10 v**12     */
    p_g->c1112y = all_coeff[ 759];            /*    u**11 v**12     */
    p_g->c1212y = all_coeff[ 760];            /*    u**12 v**12     */
    p_g->c1312y = all_coeff[ 761];            /*    u**13 v**12     */
    p_g->c1412y = all_coeff[ 762];            /*    u**14 v**12     */
    p_g->c1512y = all_coeff[ 763];            /*    u**15 v**12     */
    p_g->c1612y = all_coeff[ 764];            /*    u**16 v**12     */
    p_g->c1712y = all_coeff[ 765];            /*    u**17 v**12     */
    p_g->c1812y = all_coeff[ 766];            /*    u**18 v**12     */
    p_g->c1912y = all_coeff[ 767];            /*    u**19 v**12     */
    p_g->c2012y = all_coeff[ 768];            /*    u**20 v**12     */
    p_g->c2112y = all_coeff[ 769];            /*    u**21 v**12     */

    p_g->c0013y = all_coeff[ 770];            /*    u** 0 v**13     */
    p_g->c0113y = all_coeff[ 771];            /*    u** 1 v**13     */
    p_g->c0213y = all_coeff[ 772];            /*    u** 2 v**13     */
    p_g->c0313y = all_coeff[ 773];            /*    u** 3 v**13     */
    p_g->c0413y = all_coeff[ 774];            /*    u** 4 v**13     */
    p_g->c0513y = all_coeff[ 775];            /*    u** 5 v**13     */
    p_g->c0613y = all_coeff[ 776];            /*    u** 6 v**13     */
    p_g->c0713y = all_coeff[ 777];            /*    u** 7 v**13     */
    p_g->c0813y = all_coeff[ 778];            /*    u** 8 v**13     */
    p_g->c0913y = all_coeff[ 779];            /*    u** 9 v**13     */
    p_g->c1013y = all_coeff[ 780];            /*    u**10 v**13     */
    p_g->c1113y = all_coeff[ 781];            /*    u**11 v**13     */
    p_g->c1213y = all_coeff[ 782];            /*    u**12 v**13     */
    p_g->c1313y = all_coeff[ 783];            /*    u**13 v**13     */
    p_g->c1413y = all_coeff[ 784];            /*    u**14 v**13     */
    p_g->c1513y = all_coeff[ 785];            /*    u**15 v**13     */
    p_g->c1613y = all_coeff[ 786];            /*    u**16 v**13     */
    p_g->c1713y = all_coeff[ 787];            /*    u**17 v**13     */
    p_g->c1813y = all_coeff[ 788];            /*    u**18 v**13     */
    p_g->c1913y = all_coeff[ 789];            /*    u**19 v**13     */
    p_g->c2013y = all_coeff[ 790];            /*    u**20 v**13     */
    p_g->c2113y = all_coeff[ 791];            /*    u**21 v**13     */

    p_g->c0014y = all_coeff[ 792];            /*    u** 0 v**14     */
    p_g->c0114y = all_coeff[ 793];            /*    u** 1 v**14     */
    p_g->c0214y = all_coeff[ 794];            /*    u** 2 v**14     */
    p_g->c0314y = all_coeff[ 795];            /*    u** 3 v**14     */
    p_g->c0414y = all_coeff[ 796];            /*    u** 4 v**14     */
    p_g->c0514y = all_coeff[ 797];            /*    u** 5 v**14     */
    p_g->c0614y = all_coeff[ 798];            /*    u** 6 v**14     */
    p_g->c0714y = all_coeff[ 799];            /*    u** 7 v**14     */
    p_g->c0814y = all_coeff[ 800];            /*    u** 8 v**14     */
    p_g->c0914y = all_coeff[ 801];            /*    u** 9 v**14     */
    p_g->c1014y = all_coeff[ 802];            /*    u**10 v**14     */
    p_g->c1114y = all_coeff[ 803];            /*    u**11 v**14     */
    p_g->c1214y = all_coeff[ 804];            /*    u**12 v**14     */
    p_g->c1314y = all_coeff[ 805];            /*    u**13 v**14     */
    p_g->c1414y = all_coeff[ 806];            /*    u**14 v**14     */
    p_g->c1514y = all_coeff[ 807];            /*    u**15 v**14     */
    p_g->c1614y = all_coeff[ 808];            /*    u**16 v**14     */
    p_g->c1714y = all_coeff[ 809];            /*    u**17 v**14     */
    p_g->c1814y = all_coeff[ 810];            /*    u**18 v**14     */
    p_g->c1914y = all_coeff[ 811];            /*    u**19 v**14     */
    p_g->c2014y = all_coeff[ 812];            /*    u**20 v**14     */
    p_g->c2114y = all_coeff[ 813];            /*    u**21 v**14     */

    p_g->c0015y = all_coeff[ 814];            /*    u** 0 v**15     */
    p_g->c0115y = all_coeff[ 815];            /*    u** 1 v**15     */
    p_g->c0215y = all_coeff[ 816];            /*    u** 2 v**15     */
    p_g->c0315y = all_coeff[ 817];            /*    u** 3 v**15     */
    p_g->c0415y = all_coeff[ 818];            /*    u** 4 v**15     */
    p_g->c0515y = all_coeff[ 819];            /*    u** 5 v**15     */
    p_g->c0615y = all_coeff[ 820];            /*    u** 6 v**15     */
    p_g->c0715y = all_coeff[ 821];            /*    u** 7 v**15     */
    p_g->c0815y = all_coeff[ 822];            /*    u** 8 v**15     */
    p_g->c0915y = all_coeff[ 823];            /*    u** 9 v**15     */
    p_g->c1015y = all_coeff[ 824];            /*    u**10 v**15     */
    p_g->c1115y = all_coeff[ 825];            /*    u**11 v**15     */
    p_g->c1215y = all_coeff[ 826];            /*    u**12 v**15     */
    p_g->c1315y = all_coeff[ 827];            /*    u**13 v**15     */
    p_g->c1415y = all_coeff[ 828];            /*    u**14 v**15     */
    p_g->c1515y = all_coeff[ 829];            /*    u**15 v**15     */
    p_g->c1615y = all_coeff[ 830];            /*    u**16 v**15     */
    p_g->c1715y = all_coeff[ 831];            /*    u**17 v**15     */
    p_g->c1815y = all_coeff[ 832];            /*    u**18 v**15     */
    p_g->c1915y = all_coeff[ 833];            /*    u**19 v**15     */
    p_g->c2015y = all_coeff[ 834];            /*    u**20 v**15     */
    p_g->c2115y = all_coeff[ 835];            /*    u**21 v**15     */

    p_g->c0016y = all_coeff[ 836];            /*    u** 0 v**16     */
    p_g->c0116y = all_coeff[ 837];            /*    u** 1 v**16     */
    p_g->c0216y = all_coeff[ 838];            /*    u** 2 v**16     */
    p_g->c0316y = all_coeff[ 839];            /*    u** 3 v**16     */
    p_g->c0416y = all_coeff[ 840];            /*    u** 4 v**16     */
    p_g->c0516y = all_coeff[ 841];            /*    u** 5 v**16     */
    p_g->c0616y = all_coeff[ 842];            /*    u** 6 v**16     */
    p_g->c0716y = all_coeff[ 843];            /*    u** 7 v**16     */
    p_g->c0816y = all_coeff[ 844];            /*    u** 8 v**16     */
    p_g->c0916y = all_coeff[ 845];            /*    u** 9 v**16     */
    p_g->c1016y = all_coeff[ 846];            /*    u**10 v**16     */
    p_g->c1116y = all_coeff[ 847];            /*    u**11 v**16     */
    p_g->c1216y = all_coeff[ 848];            /*    u**12 v**16     */
    p_g->c1316y = all_coeff[ 849];            /*    u**13 v**16     */
    p_g->c1416y = all_coeff[ 850];            /*    u**14 v**16     */
    p_g->c1516y = all_coeff[ 851];            /*    u**15 v**16     */
    p_g->c1616y = all_coeff[ 852];            /*    u**16 v**16     */
    p_g->c1716y = all_coeff[ 853];            /*    u**17 v**16     */
    p_g->c1816y = all_coeff[ 854];            /*    u**18 v**16     */
    p_g->c1916y = all_coeff[ 855];            /*    u**19 v**16     */
    p_g->c2016y = all_coeff[ 856];            /*    u**20 v**16     */
    p_g->c2116y = all_coeff[ 857];            /*    u**21 v**16     */

    p_g->c0017y = all_coeff[ 858];            /*    u** 0 v**17     */
    p_g->c0117y = all_coeff[ 859];            /*    u** 1 v**17     */
    p_g->c0217y = all_coeff[ 860];            /*    u** 2 v**17     */
    p_g->c0317y = all_coeff[ 861];            /*    u** 3 v**17     */
    p_g->c0417y = all_coeff[ 862];            /*    u** 4 v**17     */
    p_g->c0517y = all_coeff[ 863];            /*    u** 5 v**17     */
    p_g->c0617y = all_coeff[ 864];            /*    u** 6 v**17     */
    p_g->c0717y = all_coeff[ 865];            /*    u** 7 v**17     */
    p_g->c0817y = all_coeff[ 866];            /*    u** 8 v**17     */
    p_g->c0917y = all_coeff[ 867];            /*    u** 9 v**17     */
    p_g->c1017y = all_coeff[ 868];            /*    u**10 v**17     */
    p_g->c1117y = all_coeff[ 869];            /*    u**11 v**17     */
    p_g->c1217y = all_coeff[ 870];            /*    u**12 v**17     */
    p_g->c1317y = all_coeff[ 871];            /*    u**13 v**17     */
    p_g->c1417y = all_coeff[ 872];            /*    u**14 v**17     */
    p_g->c1517y = all_coeff[ 873];            /*    u**15 v**17     */
    p_g->c1617y = all_coeff[ 874];            /*    u**16 v**17     */
    p_g->c1717y = all_coeff[ 875];            /*    u**17 v**17     */
    p_g->c1817y = all_coeff[ 876];            /*    u**18 v**17     */
    p_g->c1917y = all_coeff[ 877];            /*    u**19 v**17     */
    p_g->c2017y = all_coeff[ 878];            /*    u**20 v**17     */
    p_g->c2117y = all_coeff[ 879];            /*    u**21 v**17     */

    p_g->c0018y = all_coeff[ 880];            /*    u** 0 v**18     */
    p_g->c0118y = all_coeff[ 881];            /*    u** 1 v**18     */
    p_g->c0218y = all_coeff[ 882];            /*    u** 2 v**18     */
    p_g->c0318y = all_coeff[ 883];            /*    u** 3 v**18     */
    p_g->c0418y = all_coeff[ 884];            /*    u** 4 v**18     */
    p_g->c0518y = all_coeff[ 885];            /*    u** 5 v**18     */
    p_g->c0618y = all_coeff[ 886];            /*    u** 6 v**18     */
    p_g->c0718y = all_coeff[ 887];            /*    u** 7 v**18     */
    p_g->c0818y = all_coeff[ 888];            /*    u** 8 v**18     */
    p_g->c0918y = all_coeff[ 889];            /*    u** 9 v**18     */
    p_g->c1018y = all_coeff[ 890];            /*    u**10 v**18     */
    p_g->c1118y = all_coeff[ 891];            /*    u**11 v**18     */
    p_g->c1218y = all_coeff[ 892];            /*    u**12 v**18     */
    p_g->c1318y = all_coeff[ 893];            /*    u**13 v**18     */
    p_g->c1418y = all_coeff[ 894];            /*    u**14 v**18     */
    p_g->c1518y = all_coeff[ 895];            /*    u**15 v**18     */
    p_g->c1618y = all_coeff[ 896];            /*    u**16 v**18     */
    p_g->c1718y = all_coeff[ 897];            /*    u**17 v**18     */
    p_g->c1818y = all_coeff[ 898];            /*    u**18 v**18     */
    p_g->c1918y = all_coeff[ 899];            /*    u**19 v**18     */
    p_g->c2018y = all_coeff[ 900];            /*    u**20 v**18     */
    p_g->c2118y = all_coeff[ 901];            /*    u**21 v**18     */

    p_g->c0019y = all_coeff[ 902];            /*    u** 0 v**19     */
    p_g->c0119y = all_coeff[ 903];            /*    u** 1 v**19     */
    p_g->c0219y = all_coeff[ 904];            /*    u** 2 v**19     */
    p_g->c0319y = all_coeff[ 905];            /*    u** 3 v**19     */
    p_g->c0419y = all_coeff[ 906];            /*    u** 4 v**19     */
    p_g->c0519y = all_coeff[ 907];            /*    u** 5 v**19     */
    p_g->c0619y = all_coeff[ 908];            /*    u** 6 v**19     */
    p_g->c0719y = all_coeff[ 909];            /*    u** 7 v**19     */
    p_g->c0819y = all_coeff[ 910];            /*    u** 8 v**19     */
    p_g->c0919y = all_coeff[ 911];            /*    u** 9 v**19     */
    p_g->c1019y = all_coeff[ 912];            /*    u**10 v**19     */
    p_g->c1119y = all_coeff[ 913];            /*    u**11 v**19     */
    p_g->c1219y = all_coeff[ 914];            /*    u**12 v**19     */
    p_g->c1319y = all_coeff[ 915];            /*    u**13 v**19     */
    p_g->c1419y = all_coeff[ 916];            /*    u**14 v**19     */
    p_g->c1519y = all_coeff[ 917];            /*    u**15 v**19     */
    p_g->c1619y = all_coeff[ 918];            /*    u**16 v**19     */
    p_g->c1719y = all_coeff[ 919];            /*    u**17 v**19     */
    p_g->c1819y = all_coeff[ 920];            /*    u**18 v**19     */
    p_g->c1919y = all_coeff[ 921];            /*    u**19 v**19     */
    p_g->c2019y = all_coeff[ 922];            /*    u**20 v**19     */
    p_g->c2119y = all_coeff[ 923];            /*    u**21 v**19     */

    p_g->c0020y = all_coeff[ 924];            /*    u** 0 v**20     */
    p_g->c0120y = all_coeff[ 925];            /*    u** 1 v**20     */
    p_g->c0220y = all_coeff[ 926];            /*    u** 2 v**20     */
    p_g->c0320y = all_coeff[ 927];            /*    u** 3 v**20     */
    p_g->c0420y = all_coeff[ 928];            /*    u** 4 v**20     */
    p_g->c0520y = all_coeff[ 929];            /*    u** 5 v**20     */
    p_g->c0620y = all_coeff[ 930];            /*    u** 6 v**20     */
    p_g->c0720y = all_coeff[ 931];            /*    u** 7 v**20     */
    p_g->c0820y = all_coeff[ 932];            /*    u** 8 v**20     */
    p_g->c0920y = all_coeff[ 933];            /*    u** 9 v**20     */
    p_g->c1020y = all_coeff[ 934];            /*    u**10 v**20     */
    p_g->c1120y = all_coeff[ 935];            /*    u**11 v**20     */
    p_g->c1220y = all_coeff[ 936];            /*    u**12 v**20     */
    p_g->c1320y = all_coeff[ 937];            /*    u**13 v**20     */
    p_g->c1420y = all_coeff[ 938];            /*    u**14 v**20     */
    p_g->c1520y = all_coeff[ 939];            /*    u**15 v**20     */
    p_g->c1620y = all_coeff[ 940];            /*    u**16 v**20     */
    p_g->c1720y = all_coeff[ 941];            /*    u**17 v**20     */
    p_g->c1820y = all_coeff[ 942];            /*    u**18 v**20     */
    p_g->c1920y = all_coeff[ 943];            /*    u**19 v**20     */
    p_g->c2020y = all_coeff[ 944];            /*    u**20 v**20     */
    p_g->c2120y = all_coeff[ 945];            /*    u**21 v**20     */

    p_g->c0021y = all_coeff[ 946];            /*    u** 0 v**21     */
    p_g->c0121y = all_coeff[ 947];            /*    u** 1 v**21     */
    p_g->c0221y = all_coeff[ 948];            /*    u** 2 v**21     */
    p_g->c0321y = all_coeff[ 949];            /*    u** 3 v**21     */
    p_g->c0421y = all_coeff[ 950];            /*    u** 4 v**21     */
    p_g->c0521y = all_coeff[ 951];            /*    u** 5 v**21     */
    p_g->c0621y = all_coeff[ 952];            /*    u** 6 v**21     */
    p_g->c0721y = all_coeff[ 953];            /*    u** 7 v**21     */
    p_g->c0821y = all_coeff[ 954];            /*    u** 8 v**21     */
    p_g->c0921y = all_coeff[ 955];            /*    u** 9 v**21     */
    p_g->c1021y = all_coeff[ 956];            /*    u**10 v**21     */
    p_g->c1121y = all_coeff[ 957];            /*    u**11 v**21     */
    p_g->c1221y = all_coeff[ 958];            /*    u**12 v**21     */
    p_g->c1321y = all_coeff[ 959];            /*    u**13 v**21     */
    p_g->c1421y = all_coeff[ 960];            /*    u**14 v**21     */
    p_g->c1521y = all_coeff[ 961];            /*    u**15 v**21     */
    p_g->c1621y = all_coeff[ 962];            /*    u**16 v**21     */
    p_g->c1721y = all_coeff[ 963];            /*    u**17 v**21     */
    p_g->c1821y = all_coeff[ 964];            /*    u**18 v**21     */
    p_g->c1921y = all_coeff[ 965];            /*    u**19 v**21     */
    p_g->c2021y = all_coeff[ 966];            /*    u**20 v**21     */
    p_g->c2121y = all_coeff[ 967];            /*    u**21 v**21     */


    p_g->c0000z = all_coeff[ 968];            /*    u** 0 v** 0     */
    p_g->c0100z = all_coeff[ 969];            /*    u** 1 v** 0     */
    p_g->c0200z = all_coeff[ 970];            /*    u** 2 v** 0     */
    p_g->c0300z = all_coeff[ 971];            /*    u** 3 v** 0     */
    p_g->c0400z = all_coeff[ 972];            /*    u** 4 v** 0     */
    p_g->c0500z = all_coeff[ 973];            /*    u** 5 v** 0     */
    p_g->c0600z = all_coeff[ 974];            /*    u** 6 v** 0     */
    p_g->c0700z = all_coeff[ 975];            /*    u** 7 v** 0     */
    p_g->c0800z = all_coeff[ 976];            /*    u** 8 v** 0     */
    p_g->c0900z = all_coeff[ 977];            /*    u** 9 v** 0     */
    p_g->c1000z = all_coeff[ 978];            /*    u**10 v** 0     */
    p_g->c1100z = all_coeff[ 979];            /*    u**11 v** 0     */
    p_g->c1200z = all_coeff[ 980];            /*    u**12 v** 0     */
    p_g->c1300z = all_coeff[ 981];            /*    u**13 v** 0     */
    p_g->c1400z = all_coeff[ 982];            /*    u**14 v** 0     */
    p_g->c1500z = all_coeff[ 983];            /*    u**15 v** 0     */
    p_g->c1600z = all_coeff[ 984];            /*    u**16 v** 0     */
    p_g->c1700z = all_coeff[ 985];            /*    u**17 v** 0     */
    p_g->c1800z = all_coeff[ 986];            /*    u**18 v** 0     */
    p_g->c1900z = all_coeff[ 987];            /*    u**19 v** 0     */
    p_g->c2000z = all_coeff[ 988];            /*    u**20 v** 0     */
    p_g->c2100z = all_coeff[ 989];            /*    u**21 v** 0     */

    p_g->c0001z = all_coeff[ 990];            /*    u** 0 v** 1     */
    p_g->c0101z = all_coeff[ 991];            /*    u** 1 v** 1     */
    p_g->c0201z = all_coeff[ 992];            /*    u** 2 v** 1     */
    p_g->c0301z = all_coeff[ 993];            /*    u** 3 v** 1     */
    p_g->c0401z = all_coeff[ 994];            /*    u** 4 v** 1     */
    p_g->c0501z = all_coeff[ 995];            /*    u** 5 v** 1     */
    p_g->c0601z = all_coeff[ 996];            /*    u** 6 v** 1     */
    p_g->c0701z = all_coeff[ 997];            /*    u** 7 v** 1     */
    p_g->c0801z = all_coeff[ 998];            /*    u** 8 v** 1     */
    p_g->c0901z = all_coeff[ 999];            /*    u** 9 v** 1     */
    p_g->c1001z = all_coeff[1000];            /*    u**10 v** 1     */
    p_g->c1101z = all_coeff[1001];            /*    u**11 v** 1     */
    p_g->c1201z = all_coeff[1002];            /*    u**12 v** 1     */
    p_g->c1301z = all_coeff[1003];            /*    u**13 v** 1     */
    p_g->c1401z = all_coeff[1004];            /*    u**14 v** 1     */
    p_g->c1501z = all_coeff[1005];            /*    u**15 v** 1     */
    p_g->c1601z = all_coeff[1006];            /*    u**16 v** 1     */
    p_g->c1701z = all_coeff[1007];            /*    u**17 v** 1     */
    p_g->c1801z = all_coeff[1008];            /*    u**18 v** 1     */
    p_g->c1901z = all_coeff[1009];            /*    u**19 v** 1     */
    p_g->c2001z = all_coeff[1010];            /*    u**20 v** 1     */
    p_g->c2101z = all_coeff[1011];            /*    u**21 v** 1     */

    p_g->c0002z = all_coeff[1012];            /*    u** 0 v** 2     */
    p_g->c0102z = all_coeff[1013];            /*    u** 1 v** 2     */
    p_g->c0202z = all_coeff[1014];            /*    u** 2 v** 2     */
    p_g->c0302z = all_coeff[1015];            /*    u** 3 v** 2     */
    p_g->c0402z = all_coeff[1016];            /*    u** 4 v** 2     */
    p_g->c0502z = all_coeff[1017];            /*    u** 5 v** 2     */
    p_g->c0602z = all_coeff[1018];            /*    u** 6 v** 2     */
    p_g->c0702z = all_coeff[1019];            /*    u** 7 v** 2     */
    p_g->c0802z = all_coeff[1020];            /*    u** 8 v** 2     */
    p_g->c0902z = all_coeff[1021];            /*    u** 9 v** 2     */
    p_g->c1002z = all_coeff[1022];            /*    u**10 v** 2     */
    p_g->c1102z = all_coeff[1023];            /*    u**11 v** 2     */
    p_g->c1202z = all_coeff[1024];            /*    u**12 v** 2     */
    p_g->c1302z = all_coeff[1025];            /*    u**13 v** 2     */
    p_g->c1402z = all_coeff[1026];            /*    u**14 v** 2     */
    p_g->c1502z = all_coeff[1027];            /*    u**15 v** 2     */
    p_g->c1602z = all_coeff[1028];            /*    u**16 v** 2     */
    p_g->c1702z = all_coeff[1029];            /*    u**17 v** 2     */
    p_g->c1802z = all_coeff[1030];            /*    u**18 v** 2     */
    p_g->c1902z = all_coeff[1031];            /*    u**19 v** 2     */
    p_g->c2002z = all_coeff[1032];            /*    u**20 v** 2     */
    p_g->c2102z = all_coeff[1033];            /*    u**21 v** 2     */

    p_g->c0003z = all_coeff[1034];            /*    u** 0 v** 3     */
    p_g->c0103z = all_coeff[1035];            /*    u** 1 v** 3     */
    p_g->c0203z = all_coeff[1036];            /*    u** 2 v** 3     */
    p_g->c0303z = all_coeff[1037];            /*    u** 3 v** 3     */
    p_g->c0403z = all_coeff[1038];            /*    u** 4 v** 3     */
    p_g->c0503z = all_coeff[1039];            /*    u** 5 v** 3     */
    p_g->c0603z = all_coeff[1040];            /*    u** 6 v** 3     */
    p_g->c0703z = all_coeff[1041];            /*    u** 7 v** 3     */
    p_g->c0803z = all_coeff[1042];            /*    u** 8 v** 3     */
    p_g->c0903z = all_coeff[1043];            /*    u** 9 v** 3     */
    p_g->c1003z = all_coeff[1044];            /*    u**10 v** 3     */
    p_g->c1103z = all_coeff[1045];            /*    u**11 v** 3     */
    p_g->c1203z = all_coeff[1046];            /*    u**12 v** 3     */
    p_g->c1303z = all_coeff[1047];            /*    u**13 v** 3     */
    p_g->c1403z = all_coeff[1048];            /*    u**14 v** 3     */
    p_g->c1503z = all_coeff[1049];            /*    u**15 v** 3     */
    p_g->c1603z = all_coeff[1050];            /*    u**16 v** 3     */
    p_g->c1703z = all_coeff[1051];            /*    u**17 v** 3     */
    p_g->c1803z = all_coeff[1052];            /*    u**18 v** 3     */
    p_g->c1903z = all_coeff[1053];            /*    u**19 v** 3     */
    p_g->c2003z = all_coeff[1054];            /*    u**20 v** 3     */
    p_g->c2103z = all_coeff[1055];            /*    u**21 v** 3     */

    p_g->c0004z = all_coeff[1056];            /*    u** 0 v** 4     */
    p_g->c0104z = all_coeff[1057];            /*    u** 1 v** 4     */
    p_g->c0204z = all_coeff[1058];            /*    u** 2 v** 4     */
    p_g->c0304z = all_coeff[1059];            /*    u** 3 v** 4     */
    p_g->c0404z = all_coeff[1060];            /*    u** 4 v** 4     */
    p_g->c0504z = all_coeff[1061];            /*    u** 5 v** 4     */
    p_g->c0604z = all_coeff[1062];            /*    u** 6 v** 4     */
    p_g->c0704z = all_coeff[1063];            /*    u** 7 v** 4     */
    p_g->c0804z = all_coeff[1064];            /*    u** 8 v** 4     */
    p_g->c0904z = all_coeff[1065];            /*    u** 9 v** 4     */
    p_g->c1004z = all_coeff[1066];            /*    u**10 v** 4     */
    p_g->c1104z = all_coeff[1067];            /*    u**11 v** 4     */
    p_g->c1204z = all_coeff[1068];            /*    u**12 v** 4     */
    p_g->c1304z = all_coeff[1069];            /*    u**13 v** 4     */
    p_g->c1404z = all_coeff[1070];            /*    u**14 v** 4     */
    p_g->c1504z = all_coeff[1071];            /*    u**15 v** 4     */
    p_g->c1604z = all_coeff[1072];            /*    u**16 v** 4     */
    p_g->c1704z = all_coeff[1073];            /*    u**17 v** 4     */
    p_g->c1804z = all_coeff[1074];            /*    u**18 v** 4     */
    p_g->c1904z = all_coeff[1075];            /*    u**19 v** 4     */
    p_g->c2004z = all_coeff[1076];            /*    u**20 v** 4     */
    p_g->c2104z = all_coeff[1077];            /*    u**21 v** 4     */

    p_g->c0005z = all_coeff[1078];            /*    u** 0 v** 5     */
    p_g->c0105z = all_coeff[1079];            /*    u** 1 v** 5     */
    p_g->c0205z = all_coeff[1080];            /*    u** 2 v** 5     */
    p_g->c0305z = all_coeff[1081];            /*    u** 3 v** 5     */
    p_g->c0405z = all_coeff[1082];            /*    u** 4 v** 5     */
    p_g->c0505z = all_coeff[1083];            /*    u** 5 v** 5     */
    p_g->c0605z = all_coeff[1084];            /*    u** 6 v** 5     */
    p_g->c0705z = all_coeff[1085];            /*    u** 7 v** 5     */
    p_g->c0805z = all_coeff[1086];            /*    u** 8 v** 5     */
    p_g->c0905z = all_coeff[1087];            /*    u** 9 v** 5     */
    p_g->c1005z = all_coeff[1088];            /*    u**10 v** 5     */
    p_g->c1105z = all_coeff[1089];            /*    u**11 v** 5     */
    p_g->c1205z = all_coeff[1090];            /*    u**12 v** 5     */
    p_g->c1305z = all_coeff[1091];            /*    u**13 v** 5     */
    p_g->c1405z = all_coeff[1092];            /*    u**14 v** 5     */
    p_g->c1505z = all_coeff[1093];            /*    u**15 v** 5     */
    p_g->c1605z = all_coeff[1094];            /*    u**16 v** 5     */
    p_g->c1705z = all_coeff[1095];            /*    u**17 v** 5     */
    p_g->c1805z = all_coeff[1096];            /*    u**18 v** 5     */
    p_g->c1905z = all_coeff[1097];            /*    u**19 v** 5     */
    p_g->c2005z = all_coeff[1098];            /*    u**20 v** 5     */
    p_g->c2105z = all_coeff[1099];            /*    u**21 v** 5     */

    p_g->c0006z = all_coeff[1100];            /*    u** 0 v** 6     */
    p_g->c0106z = all_coeff[1101];            /*    u** 1 v** 6     */
    p_g->c0206z = all_coeff[1102];            /*    u** 2 v** 6     */
    p_g->c0306z = all_coeff[1103];            /*    u** 3 v** 6     */
    p_g->c0406z = all_coeff[1104];            /*    u** 4 v** 6     */
    p_g->c0506z = all_coeff[1105];            /*    u** 5 v** 6     */
    p_g->c0606z = all_coeff[1106];            /*    u** 6 v** 6     */
    p_g->c0706z = all_coeff[1107];            /*    u** 7 v** 6     */
    p_g->c0806z = all_coeff[1108];            /*    u** 8 v** 6     */
    p_g->c0906z = all_coeff[1109];            /*    u** 9 v** 6     */
    p_g->c1006z = all_coeff[1110];            /*    u**10 v** 6     */
    p_g->c1106z = all_coeff[1111];            /*    u**11 v** 6     */
    p_g->c1206z = all_coeff[1112];            /*    u**12 v** 6     */
    p_g->c1306z = all_coeff[1113];            /*    u**13 v** 6     */
    p_g->c1406z = all_coeff[1114];            /*    u**14 v** 6     */
    p_g->c1506z = all_coeff[1115];            /*    u**15 v** 6     */
    p_g->c1606z = all_coeff[1116];            /*    u**16 v** 6     */
    p_g->c1706z = all_coeff[1117];            /*    u**17 v** 6     */
    p_g->c1806z = all_coeff[1118];            /*    u**18 v** 6     */
    p_g->c1906z = all_coeff[1119];            /*    u**19 v** 6     */
    p_g->c2006z = all_coeff[1120];            /*    u**20 v** 6     */
    p_g->c2106z = all_coeff[1121];            /*    u**21 v** 6     */

    p_g->c0007z = all_coeff[1122];            /*    u** 0 v** 7     */
    p_g->c0107z = all_coeff[1123];            /*    u** 1 v** 7     */
    p_g->c0207z = all_coeff[1124];            /*    u** 2 v** 7     */
    p_g->c0307z = all_coeff[1125];            /*    u** 3 v** 7     */
    p_g->c0407z = all_coeff[1126];            /*    u** 4 v** 7     */
    p_g->c0507z = all_coeff[1127];            /*    u** 5 v** 7     */
    p_g->c0607z = all_coeff[1128];            /*    u** 6 v** 7     */
    p_g->c0707z = all_coeff[1129];            /*    u** 7 v** 7     */
    p_g->c0807z = all_coeff[1130];            /*    u** 8 v** 7     */
    p_g->c0907z = all_coeff[1131];            /*    u** 9 v** 7     */
    p_g->c1007z = all_coeff[1132];            /*    u**10 v** 7     */
    p_g->c1107z = all_coeff[1133];            /*    u**11 v** 7     */
    p_g->c1207z = all_coeff[1134];            /*    u**12 v** 7     */
    p_g->c1307z = all_coeff[1135];            /*    u**13 v** 7     */
    p_g->c1407z = all_coeff[1136];            /*    u**14 v** 7     */
    p_g->c1507z = all_coeff[1137];            /*    u**15 v** 7     */
    p_g->c1607z = all_coeff[1138];            /*    u**16 v** 7     */
    p_g->c1707z = all_coeff[1139];            /*    u**17 v** 7     */
    p_g->c1807z = all_coeff[1140];            /*    u**18 v** 7     */
    p_g->c1907z = all_coeff[1141];            /*    u**19 v** 7     */
    p_g->c2007z = all_coeff[1142];            /*    u**20 v** 7     */
    p_g->c2107z = all_coeff[1143];            /*    u**21 v** 7     */

    p_g->c0008z = all_coeff[1144];            /*    u** 0 v** 8     */
    p_g->c0108z = all_coeff[1145];            /*    u** 1 v** 8     */
    p_g->c0208z = all_coeff[1146];            /*    u** 2 v** 8     */
    p_g->c0308z = all_coeff[1147];            /*    u** 3 v** 8     */
    p_g->c0408z = all_coeff[1148];            /*    u** 4 v** 8     */
    p_g->c0508z = all_coeff[1149];            /*    u** 5 v** 8     */
    p_g->c0608z = all_coeff[1150];            /*    u** 6 v** 8     */
    p_g->c0708z = all_coeff[1151];            /*    u** 7 v** 8     */
    p_g->c0808z = all_coeff[1152];            /*    u** 8 v** 8     */
    p_g->c0908z = all_coeff[1153];            /*    u** 9 v** 8     */
    p_g->c1008z = all_coeff[1154];            /*    u**10 v** 8     */
    p_g->c1108z = all_coeff[1155];            /*    u**11 v** 8     */
    p_g->c1208z = all_coeff[1156];            /*    u**12 v** 8     */
    p_g->c1308z = all_coeff[1157];            /*    u**13 v** 8     */
    p_g->c1408z = all_coeff[1158];            /*    u**14 v** 8     */
    p_g->c1508z = all_coeff[1159];            /*    u**15 v** 8     */
    p_g->c1608z = all_coeff[1160];            /*    u**16 v** 8     */
    p_g->c1708z = all_coeff[1161];            /*    u**17 v** 8     */
    p_g->c1808z = all_coeff[1162];            /*    u**18 v** 8     */
    p_g->c1908z = all_coeff[1163];            /*    u**19 v** 8     */
    p_g->c2008z = all_coeff[1164];            /*    u**20 v** 8     */
    p_g->c2108z = all_coeff[1165];            /*    u**21 v** 8     */

    p_g->c0009z = all_coeff[1166];            /*    u** 0 v** 9     */
    p_g->c0109z = all_coeff[1167];            /*    u** 1 v** 9     */
    p_g->c0209z = all_coeff[1168];            /*    u** 2 v** 9     */
    p_g->c0309z = all_coeff[1169];            /*    u** 3 v** 9     */
    p_g->c0409z = all_coeff[1170];            /*    u** 4 v** 9     */
    p_g->c0509z = all_coeff[1171];            /*    u** 5 v** 9     */
    p_g->c0609z = all_coeff[1172];            /*    u** 6 v** 9     */
    p_g->c0709z = all_coeff[1173];            /*    u** 7 v** 9     */
    p_g->c0809z = all_coeff[1174];            /*    u** 8 v** 9     */
    p_g->c0909z = all_coeff[1175];            /*    u** 9 v** 9     */
    p_g->c1009z = all_coeff[1176];            /*    u**10 v** 9     */
    p_g->c1109z = all_coeff[1177];            /*    u**11 v** 9     */
    p_g->c1209z = all_coeff[1178];            /*    u**12 v** 9     */
    p_g->c1309z = all_coeff[1179];            /*    u**13 v** 9     */
    p_g->c1409z = all_coeff[1180];            /*    u**14 v** 9     */
    p_g->c1509z = all_coeff[1181];            /*    u**15 v** 9     */
    p_g->c1609z = all_coeff[1182];            /*    u**16 v** 9     */
    p_g->c1709z = all_coeff[1183];            /*    u**17 v** 9     */
    p_g->c1809z = all_coeff[1184];            /*    u**18 v** 9     */
    p_g->c1909z = all_coeff[1185];            /*    u**19 v** 9     */
    p_g->c2009z = all_coeff[1186];            /*    u**20 v** 9     */
    p_g->c2109z = all_coeff[1187];            /*    u**21 v** 9     */

    p_g->c0010z = all_coeff[1188];            /*    u** 0 v**10     */
    p_g->c0110z = all_coeff[1189];            /*    u** 1 v**10     */
    p_g->c0210z = all_coeff[1190];            /*    u** 2 v**10     */
    p_g->c0310z = all_coeff[1191];            /*    u** 3 v**10     */
    p_g->c0410z = all_coeff[1192];            /*    u** 4 v**10     */
    p_g->c0510z = all_coeff[1193];            /*    u** 5 v**10     */
    p_g->c0610z = all_coeff[1194];            /*    u** 6 v**10     */
    p_g->c0710z = all_coeff[1195];            /*    u** 7 v**10     */
    p_g->c0810z = all_coeff[1196];            /*    u** 8 v**10     */
    p_g->c0910z = all_coeff[1197];            /*    u** 9 v**10     */
    p_g->c1010z = all_coeff[1198];            /*    u**10 v**10     */
    p_g->c1110z = all_coeff[1199];            /*    u**11 v**10     */
    p_g->c1210z = all_coeff[1200];            /*    u**12 v**10     */
    p_g->c1310z = all_coeff[1201];            /*    u**13 v**10     */
    p_g->c1410z = all_coeff[1202];            /*    u**14 v**10     */
    p_g->c1510z = all_coeff[1203];            /*    u**15 v**10     */
    p_g->c1610z = all_coeff[1204];            /*    u**16 v**10     */
    p_g->c1710z = all_coeff[1205];            /*    u**17 v**10     */
    p_g->c1810z = all_coeff[1206];            /*    u**18 v**10     */
    p_g->c1910z = all_coeff[1207];            /*    u**19 v**10     */
    p_g->c2010z = all_coeff[1208];            /*    u**20 v**10     */
    p_g->c2110z = all_coeff[1209];            /*    u**21 v**10     */

    p_g->c0011z = all_coeff[1210];            /*    u** 0 v**11     */
    p_g->c0111z = all_coeff[1211];            /*    u** 1 v**11     */
    p_g->c0211z = all_coeff[1212];            /*    u** 2 v**11     */
    p_g->c0311z = all_coeff[1213];            /*    u** 3 v**11     */
    p_g->c0411z = all_coeff[1214];            /*    u** 4 v**11     */
    p_g->c0511z = all_coeff[1215];            /*    u** 5 v**11     */
    p_g->c0611z = all_coeff[1216];            /*    u** 6 v**11     */
    p_g->c0711z = all_coeff[1217];            /*    u** 7 v**11     */
    p_g->c0811z = all_coeff[1218];            /*    u** 8 v**11     */
    p_g->c0911z = all_coeff[1219];            /*    u** 9 v**11     */
    p_g->c1011z = all_coeff[1220];            /*    u**10 v**11     */
    p_g->c1111z = all_coeff[1221];            /*    u**11 v**11     */
    p_g->c1211z = all_coeff[1222];            /*    u**12 v**11     */
    p_g->c1311z = all_coeff[1223];            /*    u**13 v**11     */
    p_g->c1411z = all_coeff[1224];            /*    u**14 v**11     */
    p_g->c1511z = all_coeff[1225];            /*    u**15 v**11     */
    p_g->c1611z = all_coeff[1226];            /*    u**16 v**11     */
    p_g->c1711z = all_coeff[1227];            /*    u**17 v**11     */
    p_g->c1811z = all_coeff[1228];            /*    u**18 v**11     */
    p_g->c1911z = all_coeff[1229];            /*    u**19 v**11     */
    p_g->c2011z = all_coeff[1230];            /*    u**20 v**11     */
    p_g->c2111z = all_coeff[1231];            /*    u**21 v**11     */

    p_g->c0012z = all_coeff[1232];            /*    u** 0 v**12     */
    p_g->c0112z = all_coeff[1233];            /*    u** 1 v**12     */
    p_g->c0212z = all_coeff[1234];            /*    u** 2 v**12     */
    p_g->c0312z = all_coeff[1235];            /*    u** 3 v**12     */
    p_g->c0412z = all_coeff[1236];            /*    u** 4 v**12     */
    p_g->c0512z = all_coeff[1237];            /*    u** 5 v**12     */
    p_g->c0612z = all_coeff[1238];            /*    u** 6 v**12     */
    p_g->c0712z = all_coeff[1239];            /*    u** 7 v**12     */
    p_g->c0812z = all_coeff[1240];            /*    u** 8 v**12     */
    p_g->c0912z = all_coeff[1241];            /*    u** 9 v**12     */
    p_g->c1012z = all_coeff[1242];            /*    u**10 v**12     */
    p_g->c1112z = all_coeff[1243];            /*    u**11 v**12     */
    p_g->c1212z = all_coeff[1244];            /*    u**12 v**12     */
    p_g->c1312z = all_coeff[1245];            /*    u**13 v**12     */
    p_g->c1412z = all_coeff[1246];            /*    u**14 v**12     */
    p_g->c1512z = all_coeff[1247];            /*    u**15 v**12     */
    p_g->c1612z = all_coeff[1248];            /*    u**16 v**12     */
    p_g->c1712z = all_coeff[1249];            /*    u**17 v**12     */
    p_g->c1812z = all_coeff[1250];            /*    u**18 v**12     */
    p_g->c1912z = all_coeff[1251];            /*    u**19 v**12     */
    p_g->c2012z = all_coeff[1252];            /*    u**20 v**12     */
    p_g->c2112z = all_coeff[1253];            /*    u**21 v**12     */

    p_g->c0013z = all_coeff[1254];            /*    u** 0 v**13     */
    p_g->c0113z = all_coeff[1255];            /*    u** 1 v**13     */
    p_g->c0213z = all_coeff[1256];            /*    u** 2 v**13     */
    p_g->c0313z = all_coeff[1257];            /*    u** 3 v**13     */
    p_g->c0413z = all_coeff[1258];            /*    u** 4 v**13     */
    p_g->c0513z = all_coeff[1259];            /*    u** 5 v**13     */
    p_g->c0613z = all_coeff[1260];            /*    u** 6 v**13     */
    p_g->c0713z = all_coeff[1261];            /*    u** 7 v**13     */
    p_g->c0813z = all_coeff[1262];            /*    u** 8 v**13     */
    p_g->c0913z = all_coeff[1263];            /*    u** 9 v**13     */
    p_g->c1013z = all_coeff[1264];            /*    u**10 v**13     */
    p_g->c1113z = all_coeff[1265];            /*    u**11 v**13     */
    p_g->c1213z = all_coeff[1266];            /*    u**12 v**13     */
    p_g->c1313z = all_coeff[1267];            /*    u**13 v**13     */
    p_g->c1413z = all_coeff[1268];            /*    u**14 v**13     */
    p_g->c1513z = all_coeff[1269];            /*    u**15 v**13     */
    p_g->c1613z = all_coeff[1270];            /*    u**16 v**13     */
    p_g->c1713z = all_coeff[1271];            /*    u**17 v**13     */
    p_g->c1813z = all_coeff[1272];            /*    u**18 v**13     */
    p_g->c1913z = all_coeff[1273];            /*    u**19 v**13     */
    p_g->c2013z = all_coeff[1274];            /*    u**20 v**13     */
    p_g->c2113z = all_coeff[1275];            /*    u**21 v**13     */

    p_g->c0014z = all_coeff[1276];            /*    u** 0 v**14     */
    p_g->c0114z = all_coeff[1277];            /*    u** 1 v**14     */
    p_g->c0214z = all_coeff[1278];            /*    u** 2 v**14     */
    p_g->c0314z = all_coeff[1279];            /*    u** 3 v**14     */
    p_g->c0414z = all_coeff[1280];            /*    u** 4 v**14     */
    p_g->c0514z = all_coeff[1281];            /*    u** 5 v**14     */
    p_g->c0614z = all_coeff[1282];            /*    u** 6 v**14     */
    p_g->c0714z = all_coeff[1283];            /*    u** 7 v**14     */
    p_g->c0814z = all_coeff[1284];            /*    u** 8 v**14     */
    p_g->c0914z = all_coeff[1285];            /*    u** 9 v**14     */
    p_g->c1014z = all_coeff[1286];            /*    u**10 v**14     */
    p_g->c1114z = all_coeff[1287];            /*    u**11 v**14     */
    p_g->c1214z = all_coeff[1288];            /*    u**12 v**14     */
    p_g->c1314z = all_coeff[1289];            /*    u**13 v**14     */
    p_g->c1414z = all_coeff[1290];            /*    u**14 v**14     */
    p_g->c1514z = all_coeff[1291];            /*    u**15 v**14     */
    p_g->c1614z = all_coeff[1292];            /*    u**16 v**14     */
    p_g->c1714z = all_coeff[1293];            /*    u**17 v**14     */
    p_g->c1814z = all_coeff[1294];            /*    u**18 v**14     */
    p_g->c1914z = all_coeff[1295];            /*    u**19 v**14     */
    p_g->c2014z = all_coeff[1296];            /*    u**20 v**14     */
    p_g->c2114z = all_coeff[1297];            /*    u**21 v**14     */

    p_g->c0015z = all_coeff[1298];            /*    u** 0 v**15     */
    p_g->c0115z = all_coeff[1299];            /*    u** 1 v**15     */
    p_g->c0215z = all_coeff[1300];            /*    u** 2 v**15     */
    p_g->c0315z = all_coeff[1301];            /*    u** 3 v**15     */
    p_g->c0415z = all_coeff[1302];            /*    u** 4 v**15     */
    p_g->c0515z = all_coeff[1303];            /*    u** 5 v**15     */
    p_g->c0615z = all_coeff[1304];            /*    u** 6 v**15     */
    p_g->c0715z = all_coeff[1305];            /*    u** 7 v**15     */
    p_g->c0815z = all_coeff[1306];            /*    u** 8 v**15     */
    p_g->c0915z = all_coeff[1307];            /*    u** 9 v**15     */
    p_g->c1015z = all_coeff[1308];            /*    u**10 v**15     */
    p_g->c1115z = all_coeff[1309];            /*    u**11 v**15     */
    p_g->c1215z = all_coeff[1310];            /*    u**12 v**15     */
    p_g->c1315z = all_coeff[1311];            /*    u**13 v**15     */
    p_g->c1415z = all_coeff[1312];            /*    u**14 v**15     */
    p_g->c1515z = all_coeff[1313];            /*    u**15 v**15     */
    p_g->c1615z = all_coeff[1314];            /*    u**16 v**15     */
    p_g->c1715z = all_coeff[1315];            /*    u**17 v**15     */
    p_g->c1815z = all_coeff[1316];            /*    u**18 v**15     */
    p_g->c1915z = all_coeff[1317];            /*    u**19 v**15     */
    p_g->c2015z = all_coeff[1318];            /*    u**20 v**15     */
    p_g->c2115z = all_coeff[1319];            /*    u**21 v**15     */

    p_g->c0016z = all_coeff[1320];            /*    u** 0 v**16     */
    p_g->c0116z = all_coeff[1321];            /*    u** 1 v**16     */
    p_g->c0216z = all_coeff[1322];            /*    u** 2 v**16     */
    p_g->c0316z = all_coeff[1323];            /*    u** 3 v**16     */
    p_g->c0416z = all_coeff[1324];            /*    u** 4 v**16     */
    p_g->c0516z = all_coeff[1325];            /*    u** 5 v**16     */
    p_g->c0616z = all_coeff[1326];            /*    u** 6 v**16     */
    p_g->c0716z = all_coeff[1327];            /*    u** 7 v**16     */
    p_g->c0816z = all_coeff[1328];            /*    u** 8 v**16     */
    p_g->c0916z = all_coeff[1329];            /*    u** 9 v**16     */
    p_g->c1016z = all_coeff[1330];            /*    u**10 v**16     */
    p_g->c1116z = all_coeff[1331];            /*    u**11 v**16     */
    p_g->c1216z = all_coeff[1332];            /*    u**12 v**16     */
    p_g->c1316z = all_coeff[1333];            /*    u**13 v**16     */
    p_g->c1416z = all_coeff[1334];            /*    u**14 v**16     */
    p_g->c1516z = all_coeff[1335];            /*    u**15 v**16     */
    p_g->c1616z = all_coeff[1336];            /*    u**16 v**16     */
    p_g->c1716z = all_coeff[1337];            /*    u**17 v**16     */
    p_g->c1816z = all_coeff[1338];            /*    u**18 v**16     */
    p_g->c1916z = all_coeff[1339];            /*    u**19 v**16     */
    p_g->c2016z = all_coeff[1340];            /*    u**20 v**16     */
    p_g->c2116z = all_coeff[1341];            /*    u**21 v**16     */

    p_g->c0017z = all_coeff[1342];            /*    u** 0 v**17     */
    p_g->c0117z = all_coeff[1343];            /*    u** 1 v**17     */
    p_g->c0217z = all_coeff[1344];            /*    u** 2 v**17     */
    p_g->c0317z = all_coeff[1345];            /*    u** 3 v**17     */
    p_g->c0417z = all_coeff[1346];            /*    u** 4 v**17     */
    p_g->c0517z = all_coeff[1347];            /*    u** 5 v**17     */
    p_g->c0617z = all_coeff[1348];            /*    u** 6 v**17     */
    p_g->c0717z = all_coeff[1349];            /*    u** 7 v**17     */
    p_g->c0817z = all_coeff[1350];            /*    u** 8 v**17     */
    p_g->c0917z = all_coeff[1351];            /*    u** 9 v**17     */
    p_g->c1017z = all_coeff[1352];            /*    u**10 v**17     */
    p_g->c1117z = all_coeff[1353];            /*    u**11 v**17     */
    p_g->c1217z = all_coeff[1354];            /*    u**12 v**17     */
    p_g->c1317z = all_coeff[1355];            /*    u**13 v**17     */
    p_g->c1417z = all_coeff[1356];            /*    u**14 v**17     */
    p_g->c1517z = all_coeff[1357];            /*    u**15 v**17     */
    p_g->c1617z = all_coeff[1358];            /*    u**16 v**17     */
    p_g->c1717z = all_coeff[1359];            /*    u**17 v**17     */
    p_g->c1817z = all_coeff[1360];            /*    u**18 v**17     */
    p_g->c1917z = all_coeff[1361];            /*    u**19 v**17     */
    p_g->c2017z = all_coeff[1362];            /*    u**20 v**17     */
    p_g->c2117z = all_coeff[1363];            /*    u**21 v**17     */

    p_g->c0018z = all_coeff[1364];            /*    u** 0 v**18     */
    p_g->c0118z = all_coeff[1365];            /*    u** 1 v**18     */
    p_g->c0218z = all_coeff[1366];            /*    u** 2 v**18     */
    p_g->c0318z = all_coeff[1367];            /*    u** 3 v**18     */
    p_g->c0418z = all_coeff[1368];            /*    u** 4 v**18     */
    p_g->c0518z = all_coeff[1369];            /*    u** 5 v**18     */
    p_g->c0618z = all_coeff[1370];            /*    u** 6 v**18     */
    p_g->c0718z = all_coeff[1371];            /*    u** 7 v**18     */
    p_g->c0818z = all_coeff[1372];            /*    u** 8 v**18     */
    p_g->c0918z = all_coeff[1373];            /*    u** 9 v**18     */
    p_g->c1018z = all_coeff[1374];            /*    u**10 v**18     */
    p_g->c1118z = all_coeff[1375];            /*    u**11 v**18     */
    p_g->c1218z = all_coeff[1376];            /*    u**12 v**18     */
    p_g->c1318z = all_coeff[1377];            /*    u**13 v**18     */
    p_g->c1418z = all_coeff[1378];            /*    u**14 v**18     */
    p_g->c1518z = all_coeff[1379];            /*    u**15 v**18     */
    p_g->c1618z = all_coeff[1380];            /*    u**16 v**18     */
    p_g->c1718z = all_coeff[1381];            /*    u**17 v**18     */
    p_g->c1818z = all_coeff[1382];            /*    u**18 v**18     */
    p_g->c1918z = all_coeff[1383];            /*    u**19 v**18     */
    p_g->c2018z = all_coeff[1384];            /*    u**20 v**18     */
    p_g->c2118z = all_coeff[1385];            /*    u**21 v**18     */

    p_g->c0019z = all_coeff[1386];            /*    u** 0 v**19     */
    p_g->c0119z = all_coeff[1387];            /*    u** 1 v**19     */
    p_g->c0219z = all_coeff[1388];            /*    u** 2 v**19     */
    p_g->c0319z = all_coeff[1389];            /*    u** 3 v**19     */
    p_g->c0419z = all_coeff[1390];            /*    u** 4 v**19     */
    p_g->c0519z = all_coeff[1391];            /*    u** 5 v**19     */
    p_g->c0619z = all_coeff[1392];            /*    u** 6 v**19     */
    p_g->c0719z = all_coeff[1393];            /*    u** 7 v**19     */
    p_g->c0819z = all_coeff[1394];            /*    u** 8 v**19     */
    p_g->c0919z = all_coeff[1395];            /*    u** 9 v**19     */
    p_g->c1019z = all_coeff[1396];            /*    u**10 v**19     */
    p_g->c1119z = all_coeff[1397];            /*    u**11 v**19     */
    p_g->c1219z = all_coeff[1398];            /*    u**12 v**19     */
    p_g->c1319z = all_coeff[1399];            /*    u**13 v**19     */
    p_g->c1419z = all_coeff[1400];            /*    u**14 v**19     */
    p_g->c1519z = all_coeff[1401];            /*    u**15 v**19     */
    p_g->c1619z = all_coeff[1402];            /*    u**16 v**19     */
    p_g->c1719z = all_coeff[1403];            /*    u**17 v**19     */
    p_g->c1819z = all_coeff[1404];            /*    u**18 v**19     */
    p_g->c1919z = all_coeff[1405];            /*    u**19 v**19     */
    p_g->c2019z = all_coeff[1406];            /*    u**20 v**19     */
    p_g->c2119z = all_coeff[1407];            /*    u**21 v**19     */

    p_g->c0020z = all_coeff[1408];            /*    u** 0 v**20     */
    p_g->c0120z = all_coeff[1409];            /*    u** 1 v**20     */
    p_g->c0220z = all_coeff[1410];            /*    u** 2 v**20     */
    p_g->c0320z = all_coeff[1411];            /*    u** 3 v**20     */
    p_g->c0420z = all_coeff[1412];            /*    u** 4 v**20     */
    p_g->c0520z = all_coeff[1413];            /*    u** 5 v**20     */
    p_g->c0620z = all_coeff[1414];            /*    u** 6 v**20     */
    p_g->c0720z = all_coeff[1415];            /*    u** 7 v**20     */
    p_g->c0820z = all_coeff[1416];            /*    u** 8 v**20     */
    p_g->c0920z = all_coeff[1417];            /*    u** 9 v**20     */
    p_g->c1020z = all_coeff[1418];            /*    u**10 v**20     */
    p_g->c1120z = all_coeff[1419];            /*    u**11 v**20     */
    p_g->c1220z = all_coeff[1420];            /*    u**12 v**20     */
    p_g->c1320z = all_coeff[1421];            /*    u**13 v**20     */
    p_g->c1420z = all_coeff[1422];            /*    u**14 v**20     */
    p_g->c1520z = all_coeff[1423];            /*    u**15 v**20     */
    p_g->c1620z = all_coeff[1424];            /*    u**16 v**20     */
    p_g->c1720z = all_coeff[1425];            /*    u**17 v**20     */
    p_g->c1820z = all_coeff[1426];            /*    u**18 v**20     */
    p_g->c1920z = all_coeff[1427];            /*    u**19 v**20     */
    p_g->c2020z = all_coeff[1428];            /*    u**20 v**20     */
    p_g->c2120z = all_coeff[1429];            /*    u**21 v**20     */

    p_g->c0021z = all_coeff[1430];            /*    u** 0 v**21     */
    p_g->c0121z = all_coeff[1431];            /*    u** 1 v**21     */
    p_g->c0221z = all_coeff[1432];            /*    u** 2 v**21     */
    p_g->c0321z = all_coeff[1433];            /*    u** 3 v**21     */
    p_g->c0421z = all_coeff[1434];            /*    u** 4 v**21     */
    p_g->c0521z = all_coeff[1435];            /*    u** 5 v**21     */
    p_g->c0621z = all_coeff[1436];            /*    u** 6 v**21     */
    p_g->c0721z = all_coeff[1437];            /*    u** 7 v**21     */
    p_g->c0821z = all_coeff[1438];            /*    u** 8 v**21     */
    p_g->c0921z = all_coeff[1439];            /*    u** 9 v**21     */
    p_g->c1021z = all_coeff[1440];            /*    u**10 v**21     */
    p_g->c1121z = all_coeff[1441];            /*    u**11 v**21     */
    p_g->c1221z = all_coeff[1442];            /*    u**12 v**21     */
    p_g->c1321z = all_coeff[1443];            /*    u**13 v**21     */
    p_g->c1421z = all_coeff[1444];            /*    u**14 v**21     */
    p_g->c1521z = all_coeff[1445];            /*    u**15 v**21     */
    p_g->c1621z = all_coeff[1446];            /*    u**16 v**21     */
    p_g->c1721z = all_coeff[1447];            /*    u**17 v**21     */
    p_g->c1821z = all_coeff[1448];            /*    u**18 v**21     */
    p_g->c1921z = all_coeff[1449];            /*    u**19 v**21     */
    p_g->c2021z = all_coeff[1450];            /*    u**20 v**21     */
    p_g->c2121z = all_coeff[1451];            /*    u**21 v**21     */






    p_g->ofs_pat = 0.0;                  /* Offset for patch        */




#ifdef DEBUG
if ( dbglev(SURPAC) == 1 )
{
fprintf(dbgfil(SURPAC),
"sur559 Exit*varkon_vda_rp21  * i_l %d n_coeff %d n_retrieved %d\n", 
                  (short)i_l, (short)n_coeff, (short)n_retrieved );
fflush(dbgfil(SURPAC));
}
#endif

    return(SUCCED);

  }

/*********************************************************/

Generated by  Doxygen 1.6.0   Back to index