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

sur557.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_rp7                         File: sur557.c */
/*  =============================================================== */
/*                                                                  */
/*  Purpose                                                         */
/*  -------                                                         */
/*                                                                  */
/*  Retrieve VDA-FS coefficients for P7_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_rp7        Read P7_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_rp7    (sur557) */
/*                                                                  */
/*-----------------------------------------------------------------!*/


/*!****************** Function **************************************/
/*                                                                  */
       DBstatus   varkon_vda_rp7 (

/*-------------- 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[192];/* Retrieved coefficients                 */
   DBfloat all_coeff[192];/* All coefficients                       */
   DBint   n_degree;     /* Degree for patch P7_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   */
/*                                                                  */
/*-----------------------------------------------------------------!*/

   GMPATP7  *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),"sur557*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 = 7  ;  

  for ( i_f = 0; i_f < 192; ++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%%sur557");
    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%%sur557");
        return(varkon_erpush("SU2943",errbuf));
        }
/*!                                                                 */
/*    iii. Loop all floats from the line                            */
/*                                                                 !*/

  if ( n_flt <= 0 )
    {
    sprintf(errbuf,"n_flt=0%%sur557");
    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%%sur557");
  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%%sur557");
    return(varkon_erpush("SU2993",errbuf));
    }
    

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

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

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

  p_t->styp_pat = P7_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 <   192; ++i_l )
{
fprintf(dbgfil(SURPAC),
"sur557 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)%%sur557");
    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->c0001x = all_coeff[   8];            /*    u** 0 v** 1     */
    p_g->c0101x = all_coeff[   9];            /*    u** 1 v** 1     */
    p_g->c0201x = all_coeff[  10];            /*    u** 2 v** 1     */
    p_g->c0301x = all_coeff[  11];            /*    u** 3 v** 1     */
    p_g->c0401x = all_coeff[  12];            /*    u** 4 v** 1     */
    p_g->c0501x = all_coeff[  13];            /*    u** 5 v** 1     */
    p_g->c0601x = all_coeff[  14];            /*    u** 6 v** 1     */
    p_g->c0701x = all_coeff[  15];            /*    u** 7 v** 1     */

    p_g->c0002x = all_coeff[  16];            /*    u** 0 v** 2     */
    p_g->c0102x = all_coeff[  17];            /*    u** 1 v** 2     */
    p_g->c0202x = all_coeff[  18];            /*    u** 2 v** 2     */
    p_g->c0302x = all_coeff[  19];            /*    u** 3 v** 2     */
    p_g->c0402x = all_coeff[  20];            /*    u** 4 v** 2     */
    p_g->c0502x = all_coeff[  21];            /*    u** 5 v** 2     */
    p_g->c0602x = all_coeff[  22];            /*    u** 6 v** 2     */
    p_g->c0702x = all_coeff[  23];            /*    u** 7 v** 2     */

    p_g->c0003x = all_coeff[  24];            /*    u** 0 v** 3     */
    p_g->c0103x = all_coeff[  25];            /*    u** 1 v** 3     */
    p_g->c0203x = all_coeff[  26];            /*    u** 2 v** 3     */
    p_g->c0303x = all_coeff[  27];            /*    u** 3 v** 3     */
    p_g->c0403x = all_coeff[  28];            /*    u** 4 v** 3     */
    p_g->c0503x = all_coeff[  29];            /*    u** 5 v** 3     */
    p_g->c0603x = all_coeff[  30];            /*    u** 6 v** 3     */
    p_g->c0703x = all_coeff[  31];            /*    u** 7 v** 3     */

    p_g->c0004x = all_coeff[  32];            /*    u** 0 v** 4     */
    p_g->c0104x = all_coeff[  33];            /*    u** 1 v** 4     */
    p_g->c0204x = all_coeff[  34];            /*    u** 2 v** 4     */
    p_g->c0304x = all_coeff[  35];            /*    u** 3 v** 4     */
    p_g->c0404x = all_coeff[  36];            /*    u** 4 v** 4     */
    p_g->c0504x = all_coeff[  37];            /*    u** 5 v** 4     */
    p_g->c0604x = all_coeff[  38];            /*    u** 6 v** 4     */
    p_g->c0704x = all_coeff[  39];            /*    u** 7 v** 4     */

    p_g->c0005x = all_coeff[  40];            /*    u** 0 v** 5     */
    p_g->c0105x = all_coeff[  41];            /*    u** 1 v** 5     */
    p_g->c0205x = all_coeff[  42];            /*    u** 2 v** 5     */
    p_g->c0305x = all_coeff[  43];            /*    u** 3 v** 5     */
    p_g->c0405x = all_coeff[  44];            /*    u** 4 v** 5     */
    p_g->c0505x = all_coeff[  45];            /*    u** 5 v** 5     */
    p_g->c0605x = all_coeff[  46];            /*    u** 6 v** 5     */
    p_g->c0705x = all_coeff[  47];            /*    u** 7 v** 5     */

    p_g->c0006x = all_coeff[  48];            /*    u** 0 v** 6     */
    p_g->c0106x = all_coeff[  49];            /*    u** 1 v** 6     */
    p_g->c0206x = all_coeff[  50];            /*    u** 2 v** 6     */
    p_g->c0306x = all_coeff[  51];            /*    u** 3 v** 6     */
    p_g->c0406x = all_coeff[  52];            /*    u** 4 v** 6     */
    p_g->c0506x = all_coeff[  53];            /*    u** 5 v** 6     */
    p_g->c0606x = all_coeff[  54];            /*    u** 6 v** 6     */
    p_g->c0706x = all_coeff[  55];            /*    u** 7 v** 6     */

    p_g->c0007x = all_coeff[  56];            /*    u** 0 v** 7     */
    p_g->c0107x = all_coeff[  57];            /*    u** 1 v** 7     */
    p_g->c0207x = all_coeff[  58];            /*    u** 2 v** 7     */
    p_g->c0307x = all_coeff[  59];            /*    u** 3 v** 7     */
    p_g->c0407x = all_coeff[  60];            /*    u** 4 v** 7     */
    p_g->c0507x = all_coeff[  61];            /*    u** 5 v** 7     */
    p_g->c0607x = all_coeff[  62];            /*    u** 6 v** 7     */
    p_g->c0707x = all_coeff[  63];            /*    u** 7 v** 7     */


    p_g->c0000y = all_coeff[  64];            /*    u** 0 v** 0     */
    p_g->c0100y = all_coeff[  65];            /*    u** 1 v** 0     */
    p_g->c0200y = all_coeff[  66];            /*    u** 2 v** 0     */
    p_g->c0300y = all_coeff[  67];            /*    u** 3 v** 0     */
    p_g->c0400y = all_coeff[  68];            /*    u** 4 v** 0     */
    p_g->c0500y = all_coeff[  69];            /*    u** 5 v** 0     */
    p_g->c0600y = all_coeff[  70];            /*    u** 6 v** 0     */
    p_g->c0700y = all_coeff[  71];            /*    u** 7 v** 0     */

    p_g->c0001y = all_coeff[  72];            /*    u** 0 v** 1     */
    p_g->c0101y = all_coeff[  73];            /*    u** 1 v** 1     */
    p_g->c0201y = all_coeff[  74];            /*    u** 2 v** 1     */
    p_g->c0301y = all_coeff[  75];            /*    u** 3 v** 1     */
    p_g->c0401y = all_coeff[  76];            /*    u** 4 v** 1     */
    p_g->c0501y = all_coeff[  77];            /*    u** 5 v** 1     */
    p_g->c0601y = all_coeff[  78];            /*    u** 6 v** 1     */
    p_g->c0701y = all_coeff[  79];            /*    u** 7 v** 1     */

    p_g->c0002y = all_coeff[  80];            /*    u** 0 v** 2     */
    p_g->c0102y = all_coeff[  81];            /*    u** 1 v** 2     */
    p_g->c0202y = all_coeff[  82];            /*    u** 2 v** 2     */
    p_g->c0302y = all_coeff[  83];            /*    u** 3 v** 2     */
    p_g->c0402y = all_coeff[  84];            /*    u** 4 v** 2     */
    p_g->c0502y = all_coeff[  85];            /*    u** 5 v** 2     */
    p_g->c0602y = all_coeff[  86];            /*    u** 6 v** 2     */
    p_g->c0702y = all_coeff[  87];            /*    u** 7 v** 2     */

    p_g->c0003y = all_coeff[  88];            /*    u** 0 v** 3     */
    p_g->c0103y = all_coeff[  89];            /*    u** 1 v** 3     */
    p_g->c0203y = all_coeff[  90];            /*    u** 2 v** 3     */
    p_g->c0303y = all_coeff[  91];            /*    u** 3 v** 3     */
    p_g->c0403y = all_coeff[  92];            /*    u** 4 v** 3     */
    p_g->c0503y = all_coeff[  93];            /*    u** 5 v** 3     */
    p_g->c0603y = all_coeff[  94];            /*    u** 6 v** 3     */
    p_g->c0703y = all_coeff[  95];            /*    u** 7 v** 3     */

    p_g->c0004y = all_coeff[  96];            /*    u** 0 v** 4     */
    p_g->c0104y = all_coeff[  97];            /*    u** 1 v** 4     */
    p_g->c0204y = all_coeff[  98];            /*    u** 2 v** 4     */
    p_g->c0304y = all_coeff[  99];            /*    u** 3 v** 4     */
    p_g->c0404y = all_coeff[ 100];            /*    u** 4 v** 4     */
    p_g->c0504y = all_coeff[ 101];            /*    u** 5 v** 4     */
    p_g->c0604y = all_coeff[ 102];            /*    u** 6 v** 4     */
    p_g->c0704y = all_coeff[ 103];            /*    u** 7 v** 4     */

    p_g->c0005y = all_coeff[ 104];            /*    u** 0 v** 5     */
    p_g->c0105y = all_coeff[ 105];            /*    u** 1 v** 5     */
    p_g->c0205y = all_coeff[ 106];            /*    u** 2 v** 5     */
    p_g->c0305y = all_coeff[ 107];            /*    u** 3 v** 5     */
    p_g->c0405y = all_coeff[ 108];            /*    u** 4 v** 5     */
    p_g->c0505y = all_coeff[ 109];            /*    u** 5 v** 5     */
    p_g->c0605y = all_coeff[ 110];            /*    u** 6 v** 5     */
    p_g->c0705y = all_coeff[ 111];            /*    u** 7 v** 5     */

    p_g->c0006y = all_coeff[ 112];            /*    u** 0 v** 6     */
    p_g->c0106y = all_coeff[ 113];            /*    u** 1 v** 6     */
    p_g->c0206y = all_coeff[ 114];            /*    u** 2 v** 6     */
    p_g->c0306y = all_coeff[ 115];            /*    u** 3 v** 6     */
    p_g->c0406y = all_coeff[ 116];            /*    u** 4 v** 6     */
    p_g->c0506y = all_coeff[ 117];            /*    u** 5 v** 6     */
    p_g->c0606y = all_coeff[ 118];            /*    u** 6 v** 6     */
    p_g->c0706y = all_coeff[ 119];            /*    u** 7 v** 6     */

    p_g->c0007y = all_coeff[ 120];            /*    u** 0 v** 7     */
    p_g->c0107y = all_coeff[ 121];            /*    u** 1 v** 7     */
    p_g->c0207y = all_coeff[ 122];            /*    u** 2 v** 7     */
    p_g->c0307y = all_coeff[ 123];            /*    u** 3 v** 7     */
    p_g->c0407y = all_coeff[ 124];            /*    u** 4 v** 7     */
    p_g->c0507y = all_coeff[ 125];            /*    u** 5 v** 7     */
    p_g->c0607y = all_coeff[ 126];            /*    u** 6 v** 7     */
    p_g->c0707y = all_coeff[ 127];            /*    u** 7 v** 7     */


    p_g->c0000z = all_coeff[ 128];            /*    u** 0 v** 0     */
    p_g->c0100z = all_coeff[ 129];            /*    u** 1 v** 0     */
    p_g->c0200z = all_coeff[ 130];            /*    u** 2 v** 0     */
    p_g->c0300z = all_coeff[ 131];            /*    u** 3 v** 0     */
    p_g->c0400z = all_coeff[ 132];            /*    u** 4 v** 0     */
    p_g->c0500z = all_coeff[ 133];            /*    u** 5 v** 0     */
    p_g->c0600z = all_coeff[ 134];            /*    u** 6 v** 0     */
    p_g->c0700z = all_coeff[ 135];            /*    u** 7 v** 0     */

    p_g->c0001z = all_coeff[ 136];            /*    u** 0 v** 1     */
    p_g->c0101z = all_coeff[ 137];            /*    u** 1 v** 1     */
    p_g->c0201z = all_coeff[ 138];            /*    u** 2 v** 1     */
    p_g->c0301z = all_coeff[ 139];            /*    u** 3 v** 1     */
    p_g->c0401z = all_coeff[ 140];            /*    u** 4 v** 1     */
    p_g->c0501z = all_coeff[ 141];            /*    u** 5 v** 1     */
    p_g->c0601z = all_coeff[ 142];            /*    u** 6 v** 1     */
    p_g->c0701z = all_coeff[ 143];            /*    u** 7 v** 1     */

    p_g->c0002z = all_coeff[ 144];            /*    u** 0 v** 2     */
    p_g->c0102z = all_coeff[ 145];            /*    u** 1 v** 2     */
    p_g->c0202z = all_coeff[ 146];            /*    u** 2 v** 2     */
    p_g->c0302z = all_coeff[ 147];            /*    u** 3 v** 2     */
    p_g->c0402z = all_coeff[ 148];            /*    u** 4 v** 2     */
    p_g->c0502z = all_coeff[ 149];            /*    u** 5 v** 2     */
    p_g->c0602z = all_coeff[ 150];            /*    u** 6 v** 2     */
    p_g->c0702z = all_coeff[ 151];            /*    u** 7 v** 2     */

    p_g->c0003z = all_coeff[ 152];            /*    u** 0 v** 3     */
    p_g->c0103z = all_coeff[ 153];            /*    u** 1 v** 3     */
    p_g->c0203z = all_coeff[ 154];            /*    u** 2 v** 3     */
    p_g->c0303z = all_coeff[ 155];            /*    u** 3 v** 3     */
    p_g->c0403z = all_coeff[ 156];            /*    u** 4 v** 3     */
    p_g->c0503z = all_coeff[ 157];            /*    u** 5 v** 3     */
    p_g->c0603z = all_coeff[ 158];            /*    u** 6 v** 3     */
    p_g->c0703z = all_coeff[ 159];            /*    u** 7 v** 3     */

    p_g->c0004z = all_coeff[ 160];            /*    u** 0 v** 4     */
    p_g->c0104z = all_coeff[ 161];            /*    u** 1 v** 4     */
    p_g->c0204z = all_coeff[ 162];            /*    u** 2 v** 4     */
    p_g->c0304z = all_coeff[ 163];            /*    u** 3 v** 4     */
    p_g->c0404z = all_coeff[ 164];            /*    u** 4 v** 4     */
    p_g->c0504z = all_coeff[ 165];            /*    u** 5 v** 4     */
    p_g->c0604z = all_coeff[ 166];            /*    u** 6 v** 4     */
    p_g->c0704z = all_coeff[ 167];            /*    u** 7 v** 4     */

    p_g->c0005z = all_coeff[ 168];            /*    u** 0 v** 5     */
    p_g->c0105z = all_coeff[ 169];            /*    u** 1 v** 5     */
    p_g->c0205z = all_coeff[ 170];            /*    u** 2 v** 5     */
    p_g->c0305z = all_coeff[ 171];            /*    u** 3 v** 5     */
    p_g->c0405z = all_coeff[ 172];            /*    u** 4 v** 5     */
    p_g->c0505z = all_coeff[ 173];            /*    u** 5 v** 5     */
    p_g->c0605z = all_coeff[ 174];            /*    u** 6 v** 5     */
    p_g->c0705z = all_coeff[ 175];            /*    u** 7 v** 5     */

    p_g->c0006z = all_coeff[ 176];            /*    u** 0 v** 6     */
    p_g->c0106z = all_coeff[ 177];            /*    u** 1 v** 6     */
    p_g->c0206z = all_coeff[ 178];            /*    u** 2 v** 6     */
    p_g->c0306z = all_coeff[ 179];            /*    u** 3 v** 6     */
    p_g->c0406z = all_coeff[ 180];            /*    u** 4 v** 6     */
    p_g->c0506z = all_coeff[ 181];            /*    u** 5 v** 6     */
    p_g->c0606z = all_coeff[ 182];            /*    u** 6 v** 6     */
    p_g->c0706z = all_coeff[ 183];            /*    u** 7 v** 6     */

    p_g->c0007z = all_coeff[ 184];            /*    u** 0 v** 7     */
    p_g->c0107z = all_coeff[ 185];            /*    u** 1 v** 7     */
    p_g->c0207z = all_coeff[ 186];            /*    u** 2 v** 7     */
    p_g->c0307z = all_coeff[ 187];            /*    u** 3 v** 7     */
    p_g->c0407z = all_coeff[ 188];            /*    u** 4 v** 7     */
    p_g->c0507z = all_coeff[ 189];            /*    u** 5 v** 7     */
    p_g->c0607z = all_coeff[ 190];            /*    u** 6 v** 7     */
    p_g->c0707z = all_coeff[ 191];            /*    u** 7 v** 7     */






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




#ifdef DEBUG
if ( dbglev(SURPAC) == 1 )
{
fprintf(dbgfil(SURPAC),
"sur557 Exit*varkon_vda_rp7   * 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