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

sur514.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_pat_trap21                    File: sur514.c   */
/*  =============================================================   */
/*                                                                  */
/*  Purpose                                                         */
/*  -------                                                         */
/*                                                                  */
/*  Transforms a GMPATP21  patch with the input transformation      */
/*  matrix (the input coordinate system).                           */
/*                                                                  */
/*  The input patch will not be copied if the input and output      */
/*  patch adresses are equal.                                       */
/*                                                                  */
/*  Author: Gunnar Liden                                            */
/*                                                                  */
/*  Revisions                                                       */
/*                                                                  */
/*  1996-10-29   Originally written                                 */
/*  1996-12-05   ifdef UNIX and WIN32, temporary fix for Windows 95 */
/*  1997-02-07   ifdef  SAAB                                        */
/*  1998-02-07   pragma Switch off optimizer in compiler            */
/*  1998-03-22   DEF_P21 replaces SAAB, pragma deleted              */
/*  1999-11-30   Free source code modifications                     */
/*                                                                  */
/*                                                                  */
/******************************************************************!*/

/* ------------- Short description of function -----------------*/
/*                                                              */
/*sdescr varkon_pat_trap21     Transformation of GMPATP21       */
/*                                                              */
/*--------------------------------------------------------------*/

/*!-------------- Function calls (external) ------------------------*/
/*                                                                  */
/* varkon_erpush          * Error message to terminal               */
/*                                                                  */
/*-----------------------------------------------------------------!*/

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


/*!****************** Function **************************************/
/*                                                                  */
       DBstatus   varkon_pat_trap21 (

/*-------------- Argument declarations -----------------------------*/
/*                                                                  */
/* In:                                                              */

  GMPATP21  *p_i,        /* Pointer to the input  patch             */
  DBTmat    *p_c,        /* Local coordinate system                 */
  GMPATP21  *p_o )       /* Pointer to the output patch             */

/* Out:                                                             */
/*        Coefficients of the transformed patch                     */
/*                                                                  */
/*-----------------------------------------------------------------!*/


{ /* Start of function */

/*!--------------- Internal variables ------------------------------*/
/*                                                                  */
#ifdef  DEF_P21
   GMPATP21   p_t;       /* Transformed (temporary used) patch      */
#endif
/*                                                                  */
/*-----------------------------------------------------------------!*/

   char   errbuf[80];    /* String for error message fctn erpush    */

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

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

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

/*!                                                                 */
/* 1. Check of input data and initiations                           */
/* ______________________________________                           */
/*                                                                 !*/

#ifdef  DEF_P21
#ifdef DEBUG
if ( dbglev(SURPAC) == 1 )
{
fprintf(dbgfil(SURPAC),
  "sur514 Enter ***** varkon_pat_trap21 ********\n");
fflush(dbgfil(SURPAC));
}
#endif
#else   /*  DEF_P21  */
#ifdef DEBUG
if ( dbglev(SURPAC) == 1 )
{
fprintf(dbgfil(SURPAC),
  "sur514 Enter ***** varkon_pat_trap21 ********\n");
fflush(dbgfil(SURPAC)); 
}
if ( dbglev(SURPAC) == 1 )
{
fprintf(dbgfil(SURPAC),
"sur504 Function not compiled with constant DEF_P21. Return error\n" );
fflush(dbgfil(SURPAC)); 
}
#endif
       sprintf(errbuf,"DEF_P21 undefined%%sur504");
       return(varkon_erpush("SU2993",errbuf));
#endif  /*  DEF_P21  */


#ifdef  DEF_P21
/*!                                                                 */
/*  Check transformation matrix p_c.  Error SU2993 if not defined   */
/*                                                                 !*/

if ( p_c == NULL )                       /* Check that the system   */
 {                                       /* p_c is defined          */
 sprintf(errbuf,                         /* Error SU2993 for p_c    */
 "(p_c)%%varkon_pat_trap21 (sur514");    /* failure                 */
 return(varkon_erpush("SU2993",errbuf)); /*                         */
 }

/*!                                                                 */
/* 2. Transform the coefficients for the patch                      */
/* ___________________________________________                      */
/*                                                                 !*/


    p_t.ofs_pat = p_i->ofs_pat;          /* Offset for patch        */

    p_t.c0000x =                                   /*    c0000x     */
    p_i->c0000x*p_c->g11 +p_i->c0000y*p_c->g12 +
    p_i->c0000z*p_c->g13 +  1.0      *p_c->g14;
    p_t.c0001x =                                   /*    c0001x     */
    p_i->c0001x*p_c->g11 +p_i->c0001y*p_c->g12 +
    p_i->c0001z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0002x =                                   /*    c0002x     */
    p_i->c0002x*p_c->g11 +p_i->c0002y*p_c->g12 +
    p_i->c0002z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0003x =                                   /*    c0003x     */
    p_i->c0003x*p_c->g11 +p_i->c0003y*p_c->g12 +
    p_i->c0003z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0004x =                                   /*    c0004x     */
    p_i->c0004x*p_c->g11 +p_i->c0004y*p_c->g12 +
    p_i->c0004z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0005x =                                   /*    c0005x     */
    p_i->c0005x*p_c->g11 +p_i->c0005y*p_c->g12 +
    p_i->c0005z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0006x =                                   /*    c0006x     */
    p_i->c0006x*p_c->g11 +p_i->c0006y*p_c->g12 +
    p_i->c0006z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0007x =                                   /*    c0007x     */
    p_i->c0007x*p_c->g11 +p_i->c0007y*p_c->g12 +
    p_i->c0007z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0008x =                                   /*    c0008x     */
    p_i->c0008x*p_c->g11 +p_i->c0008y*p_c->g12 +
    p_i->c0008z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0009x =                                   /*    c0009x     */
    p_i->c0009x*p_c->g11 +p_i->c0009y*p_c->g12 +
    p_i->c0009z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0010x =                                   /*    c0010x     */
    p_i->c0010x*p_c->g11 +p_i->c0010y*p_c->g12 +
    p_i->c0010z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0011x =                                   /*    c0011x     */
    p_i->c0011x*p_c->g11 +p_i->c0011y*p_c->g12 +
    p_i->c0011z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0012x =                                   /*    c0012x     */
    p_i->c0012x*p_c->g11 +p_i->c0012y*p_c->g12 +
    p_i->c0012z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0013x =                                   /*    c0013x     */
    p_i->c0013x*p_c->g11 +p_i->c0013y*p_c->g12 +
    p_i->c0013z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0014x =                                   /*    c0014x     */
    p_i->c0014x*p_c->g11 +p_i->c0014y*p_c->g12 +
    p_i->c0014z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0015x =                                   /*    c0015x     */
    p_i->c0015x*p_c->g11 +p_i->c0015y*p_c->g12 +
    p_i->c0015z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0016x =                                   /*    c0016x     */
    p_i->c0016x*p_c->g11 +p_i->c0016y*p_c->g12 +
    p_i->c0016z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0017x =                                   /*    c0017x     */
    p_i->c0017x*p_c->g11 +p_i->c0017y*p_c->g12 +
    p_i->c0017z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0018x =                                   /*    c0018x     */
    p_i->c0018x*p_c->g11 +p_i->c0018y*p_c->g12 +
    p_i->c0018z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0019x =                                   /*    c0019x     */
    p_i->c0019x*p_c->g11 +p_i->c0019y*p_c->g12 +
    p_i->c0019z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0020x =                                   /*    c0020x     */
    p_i->c0020x*p_c->g11 +p_i->c0020y*p_c->g12 +
    p_i->c0020z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0021x =                                   /*    c0021x     */
    p_i->c0021x*p_c->g11 +p_i->c0021y*p_c->g12 +
    p_i->c0021z*p_c->g13 +  0.0      *p_c->g14;

    p_t.c0100x =                                   /*    c0100x     */
    p_i->c0100x*p_c->g11 +p_i->c0100y*p_c->g12 +
    p_i->c0100z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0101x =                                   /*    c0101x     */
    p_i->c0101x*p_c->g11 +p_i->c0101y*p_c->g12 +
    p_i->c0101z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0102x =                                   /*    c0102x     */
    p_i->c0102x*p_c->g11 +p_i->c0102y*p_c->g12 +
    p_i->c0102z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0103x =                                   /*    c0103x     */
    p_i->c0103x*p_c->g11 +p_i->c0103y*p_c->g12 +
    p_i->c0103z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0104x =                                   /*    c0104x     */
    p_i->c0104x*p_c->g11 +p_i->c0104y*p_c->g12 +
    p_i->c0104z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0105x =                                   /*    c0105x     */
    p_i->c0105x*p_c->g11 +p_i->c0105y*p_c->g12 +
    p_i->c0105z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0106x =                                   /*    c0106x     */
    p_i->c0106x*p_c->g11 +p_i->c0106y*p_c->g12 +
    p_i->c0106z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0107x =                                   /*    c0107x     */
    p_i->c0107x*p_c->g11 +p_i->c0107y*p_c->g12 +
    p_i->c0107z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0108x =                                   /*    c0108x     */
    p_i->c0108x*p_c->g11 +p_i->c0108y*p_c->g12 +
    p_i->c0108z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0109x =                                   /*    c0109x     */
    p_i->c0109x*p_c->g11 +p_i->c0109y*p_c->g12 +
    p_i->c0109z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0110x =                                   /*    c0110x     */
    p_i->c0110x*p_c->g11 +p_i->c0110y*p_c->g12 +
    p_i->c0110z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0111x =                                   /*    c0111x     */
    p_i->c0111x*p_c->g11 +p_i->c0111y*p_c->g12 +
    p_i->c0111z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0112x =                                   /*    c0112x     */
    p_i->c0112x*p_c->g11 +p_i->c0112y*p_c->g12 +
    p_i->c0112z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0113x =                                   /*    c0113x     */
    p_i->c0113x*p_c->g11 +p_i->c0113y*p_c->g12 +
    p_i->c0113z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0114x =                                   /*    c0114x     */
    p_i->c0114x*p_c->g11 +p_i->c0114y*p_c->g12 +
    p_i->c0114z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0115x =                                   /*    c0115x     */
    p_i->c0115x*p_c->g11 +p_i->c0115y*p_c->g12 +
    p_i->c0115z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0116x =                                   /*    c0116x     */
    p_i->c0116x*p_c->g11 +p_i->c0116y*p_c->g12 +
    p_i->c0116z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0117x =                                   /*    c0117x     */
    p_i->c0117x*p_c->g11 +p_i->c0117y*p_c->g12 +
    p_i->c0117z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0118x =                                   /*    c0118x     */
    p_i->c0118x*p_c->g11 +p_i->c0118y*p_c->g12 +
    p_i->c0118z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0119x =                                   /*    c0119x     */
    p_i->c0119x*p_c->g11 +p_i->c0119y*p_c->g12 +
    p_i->c0119z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0120x =                                   /*    c0120x     */
    p_i->c0120x*p_c->g11 +p_i->c0120y*p_c->g12 +
    p_i->c0120z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0121x =                                   /*    c0121x     */
    p_i->c0121x*p_c->g11 +p_i->c0121y*p_c->g12 +
    p_i->c0121z*p_c->g13 +  0.0      *p_c->g14;

    p_t.c0200x =                                   /*    c0200x     */
    p_i->c0200x*p_c->g11 +p_i->c0200y*p_c->g12 +
    p_i->c0200z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0201x =                                   /*    c0201x     */
    p_i->c0201x*p_c->g11 +p_i->c0201y*p_c->g12 +
    p_i->c0201z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0202x =                                   /*    c0202x     */
    p_i->c0202x*p_c->g11 +p_i->c0202y*p_c->g12 +
    p_i->c0202z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0203x =                                   /*    c0203x     */
    p_i->c0203x*p_c->g11 +p_i->c0203y*p_c->g12 +
    p_i->c0203z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0204x =                                   /*    c0204x     */
    p_i->c0204x*p_c->g11 +p_i->c0204y*p_c->g12 +
    p_i->c0204z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0205x =                                   /*    c0205x     */
    p_i->c0205x*p_c->g11 +p_i->c0205y*p_c->g12 +
    p_i->c0205z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0206x =                                   /*    c0206x     */
    p_i->c0206x*p_c->g11 +p_i->c0206y*p_c->g12 +
    p_i->c0206z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0207x =                                   /*    c0207x     */
    p_i->c0207x*p_c->g11 +p_i->c0207y*p_c->g12 +
    p_i->c0207z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0208x =                                   /*    c0208x     */
    p_i->c0208x*p_c->g11 +p_i->c0208y*p_c->g12 +
    p_i->c0208z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0209x =                                   /*    c0209x     */
    p_i->c0209x*p_c->g11 +p_i->c0209y*p_c->g12 +
    p_i->c0209z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0210x =                                   /*    c0210x     */
    p_i->c0210x*p_c->g11 +p_i->c0210y*p_c->g12 +
    p_i->c0210z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0211x =                                   /*    c0211x     */
    p_i->c0211x*p_c->g11 +p_i->c0211y*p_c->g12 +
    p_i->c0211z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0212x =                                   /*    c0212x     */
    p_i->c0212x*p_c->g11 +p_i->c0212y*p_c->g12 +
    p_i->c0212z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0213x =                                   /*    c0213x     */
    p_i->c0213x*p_c->g11 +p_i->c0213y*p_c->g12 +
    p_i->c0213z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0214x =                                   /*    c0214x     */
    p_i->c0214x*p_c->g11 +p_i->c0214y*p_c->g12 +
    p_i->c0214z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0215x =                                   /*    c0215x     */
    p_i->c0215x*p_c->g11 +p_i->c0215y*p_c->g12 +
    p_i->c0215z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0216x =                                   /*    c0216x     */
    p_i->c0216x*p_c->g11 +p_i->c0216y*p_c->g12 +
    p_i->c0216z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0217x =                                   /*    c0217x     */
    p_i->c0217x*p_c->g11 +p_i->c0217y*p_c->g12 +
    p_i->c0217z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0218x =                                   /*    c0218x     */
    p_i->c0218x*p_c->g11 +p_i->c0218y*p_c->g12 +
    p_i->c0218z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0219x =                                   /*    c0219x     */
    p_i->c0219x*p_c->g11 +p_i->c0219y*p_c->g12 +
    p_i->c0219z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0220x =                                   /*    c0220x     */
    p_i->c0220x*p_c->g11 +p_i->c0220y*p_c->g12 +
    p_i->c0220z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0221x =                                   /*    c0221x     */
    p_i->c0221x*p_c->g11 +p_i->c0221y*p_c->g12 +
    p_i->c0221z*p_c->g13 +  0.0      *p_c->g14;

    p_t.c0300x =                                   /*    c0300x     */
    p_i->c0300x*p_c->g11 +p_i->c0300y*p_c->g12 +
    p_i->c0300z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0301x =                                   /*    c0301x     */
    p_i->c0301x*p_c->g11 +p_i->c0301y*p_c->g12 +
    p_i->c0301z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0302x =                                   /*    c0302x     */
    p_i->c0302x*p_c->g11 +p_i->c0302y*p_c->g12 +
    p_i->c0302z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0303x =                                   /*    c0303x     */
    p_i->c0303x*p_c->g11 +p_i->c0303y*p_c->g12 +
    p_i->c0303z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0304x =                                   /*    c0304x     */
    p_i->c0304x*p_c->g11 +p_i->c0304y*p_c->g12 +
    p_i->c0304z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0305x =                                   /*    c0305x     */
    p_i->c0305x*p_c->g11 +p_i->c0305y*p_c->g12 +
    p_i->c0305z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0306x =                                   /*    c0306x     */
    p_i->c0306x*p_c->g11 +p_i->c0306y*p_c->g12 +
    p_i->c0306z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0307x =                                   /*    c0307x     */
    p_i->c0307x*p_c->g11 +p_i->c0307y*p_c->g12 +
    p_i->c0307z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0308x =                                   /*    c0308x     */
    p_i->c0308x*p_c->g11 +p_i->c0308y*p_c->g12 +
    p_i->c0308z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0309x =                                   /*    c0309x     */
    p_i->c0309x*p_c->g11 +p_i->c0309y*p_c->g12 +
    p_i->c0309z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0310x =                                   /*    c0310x     */
    p_i->c0310x*p_c->g11 +p_i->c0310y*p_c->g12 +
    p_i->c0310z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0311x =                                   /*    c0311x     */
    p_i->c0311x*p_c->g11 +p_i->c0311y*p_c->g12 +
    p_i->c0311z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0312x =                                   /*    c0312x     */
    p_i->c0312x*p_c->g11 +p_i->c0312y*p_c->g12 +
    p_i->c0312z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0313x =                                   /*    c0313x     */
    p_i->c0313x*p_c->g11 +p_i->c0313y*p_c->g12 +
    p_i->c0313z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0314x =                                   /*    c0314x     */
    p_i->c0314x*p_c->g11 +p_i->c0314y*p_c->g12 +
    p_i->c0314z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0315x =                                   /*    c0315x     */
    p_i->c0315x*p_c->g11 +p_i->c0315y*p_c->g12 +
    p_i->c0315z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0316x =                                   /*    c0316x     */
    p_i->c0316x*p_c->g11 +p_i->c0316y*p_c->g12 +
    p_i->c0316z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0317x =                                   /*    c0317x     */
    p_i->c0317x*p_c->g11 +p_i->c0317y*p_c->g12 +
    p_i->c0317z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0318x =                                   /*    c0318x     */
    p_i->c0318x*p_c->g11 +p_i->c0318y*p_c->g12 +
    p_i->c0318z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0319x =                                   /*    c0319x     */
    p_i->c0319x*p_c->g11 +p_i->c0319y*p_c->g12 +
    p_i->c0319z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0320x =                                   /*    c0320x     */
    p_i->c0320x*p_c->g11 +p_i->c0320y*p_c->g12 +
    p_i->c0320z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0321x =                                   /*    c0321x     */
    p_i->c0321x*p_c->g11 +p_i->c0321y*p_c->g12 +
    p_i->c0321z*p_c->g13 +  0.0      *p_c->g14;

    p_t.c0400x =                                   /*    c0400x     */
    p_i->c0400x*p_c->g11 +p_i->c0400y*p_c->g12 +
    p_i->c0400z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0401x =                                   /*    c0401x     */
    p_i->c0401x*p_c->g11 +p_i->c0401y*p_c->g12 +
    p_i->c0401z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0402x =                                   /*    c0402x     */
    p_i->c0402x*p_c->g11 +p_i->c0402y*p_c->g12 +
    p_i->c0402z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0403x =                                   /*    c0403x     */
    p_i->c0403x*p_c->g11 +p_i->c0403y*p_c->g12 +
    p_i->c0403z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0404x =                                   /*    c0404x     */
    p_i->c0404x*p_c->g11 +p_i->c0404y*p_c->g12 +
    p_i->c0404z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0405x =                                   /*    c0405x     */
    p_i->c0405x*p_c->g11 +p_i->c0405y*p_c->g12 +
    p_i->c0405z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0406x =                                   /*    c0406x     */
    p_i->c0406x*p_c->g11 +p_i->c0406y*p_c->g12 +
    p_i->c0406z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0407x =                                   /*    c0407x     */
    p_i->c0407x*p_c->g11 +p_i->c0407y*p_c->g12 +
    p_i->c0407z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0408x =                                   /*    c0408x     */
    p_i->c0408x*p_c->g11 +p_i->c0408y*p_c->g12 +
    p_i->c0408z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0409x =                                   /*    c0409x     */
    p_i->c0409x*p_c->g11 +p_i->c0409y*p_c->g12 +
    p_i->c0409z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0410x =                                   /*    c0410x     */
    p_i->c0410x*p_c->g11 +p_i->c0410y*p_c->g12 +
    p_i->c0410z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0411x =                                   /*    c0411x     */
    p_i->c0411x*p_c->g11 +p_i->c0411y*p_c->g12 +
    p_i->c0411z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0412x =                                   /*    c0412x     */
    p_i->c0412x*p_c->g11 +p_i->c0412y*p_c->g12 +
    p_i->c0412z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0413x =                                   /*    c0413x     */
    p_i->c0413x*p_c->g11 +p_i->c0413y*p_c->g12 +
    p_i->c0413z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0414x =                                   /*    c0414x     */
    p_i->c0414x*p_c->g11 +p_i->c0414y*p_c->g12 +
    p_i->c0414z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0415x =                                   /*    c0415x     */
    p_i->c0415x*p_c->g11 +p_i->c0415y*p_c->g12 +
    p_i->c0415z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0416x =                                   /*    c0416x     */
    p_i->c0416x*p_c->g11 +p_i->c0416y*p_c->g12 +
    p_i->c0416z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0417x =                                   /*    c0417x     */
    p_i->c0417x*p_c->g11 +p_i->c0417y*p_c->g12 +
    p_i->c0417z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0418x =                                   /*    c0418x     */
    p_i->c0418x*p_c->g11 +p_i->c0418y*p_c->g12 +
    p_i->c0418z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0419x =                                   /*    c0419x     */
    p_i->c0419x*p_c->g11 +p_i->c0419y*p_c->g12 +
    p_i->c0419z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0420x =                                   /*    c0420x     */
    p_i->c0420x*p_c->g11 +p_i->c0420y*p_c->g12 +
    p_i->c0420z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0421x =                                   /*    c0421x     */
    p_i->c0421x*p_c->g11 +p_i->c0421y*p_c->g12 +
    p_i->c0421z*p_c->g13 +  0.0      *p_c->g14;

    p_t.c0500x =                                   /*    c0500x     */
    p_i->c0500x*p_c->g11 +p_i->c0500y*p_c->g12 +
    p_i->c0500z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0501x =                                   /*    c0501x     */
    p_i->c0501x*p_c->g11 +p_i->c0501y*p_c->g12 +
    p_i->c0501z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0502x =                                   /*    c0502x     */
    p_i->c0502x*p_c->g11 +p_i->c0502y*p_c->g12 +
    p_i->c0502z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0503x =                                   /*    c0503x     */
    p_i->c0503x*p_c->g11 +p_i->c0503y*p_c->g12 +
    p_i->c0503z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0504x =                                   /*    c0504x     */
    p_i->c0504x*p_c->g11 +p_i->c0504y*p_c->g12 +
    p_i->c0504z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0505x =                                   /*    c0505x     */
    p_i->c0505x*p_c->g11 +p_i->c0505y*p_c->g12 +
    p_i->c0505z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0506x =                                   /*    c0506x     */
    p_i->c0506x*p_c->g11 +p_i->c0506y*p_c->g12 +
    p_i->c0506z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0507x =                                   /*    c0507x     */
    p_i->c0507x*p_c->g11 +p_i->c0507y*p_c->g12 +
    p_i->c0507z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0508x =                                   /*    c0508x     */
    p_i->c0508x*p_c->g11 +p_i->c0508y*p_c->g12 +
    p_i->c0508z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0509x =                                   /*    c0509x     */
    p_i->c0509x*p_c->g11 +p_i->c0509y*p_c->g12 +
    p_i->c0509z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0510x =                                   /*    c0510x     */
    p_i->c0510x*p_c->g11 +p_i->c0510y*p_c->g12 +
    p_i->c0510z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0511x =                                   /*    c0511x     */
    p_i->c0511x*p_c->g11 +p_i->c0511y*p_c->g12 +
    p_i->c0511z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0512x =                                   /*    c0512x     */
    p_i->c0512x*p_c->g11 +p_i->c0512y*p_c->g12 +
    p_i->c0512z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0513x =                                   /*    c0513x     */
    p_i->c0513x*p_c->g11 +p_i->c0513y*p_c->g12 +
    p_i->c0513z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0514x =                                   /*    c0514x     */
    p_i->c0514x*p_c->g11 +p_i->c0514y*p_c->g12 +
    p_i->c0514z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0515x =                                   /*    c0515x     */
    p_i->c0515x*p_c->g11 +p_i->c0515y*p_c->g12 +
    p_i->c0515z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0516x =                                   /*    c0516x     */
    p_i->c0516x*p_c->g11 +p_i->c0516y*p_c->g12 +
    p_i->c0516z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0517x =                                   /*    c0517x     */
    p_i->c0517x*p_c->g11 +p_i->c0517y*p_c->g12 +
    p_i->c0517z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0518x =                                   /*    c0518x     */
    p_i->c0518x*p_c->g11 +p_i->c0518y*p_c->g12 +
    p_i->c0518z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0519x =                                   /*    c0519x     */
    p_i->c0519x*p_c->g11 +p_i->c0519y*p_c->g12 +
    p_i->c0519z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0520x =                                   /*    c0520x     */
    p_i->c0520x*p_c->g11 +p_i->c0520y*p_c->g12 +
    p_i->c0520z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0521x =                                   /*    c0521x     */
    p_i->c0521x*p_c->g11 +p_i->c0521y*p_c->g12 +
    p_i->c0521z*p_c->g13 +  0.0      *p_c->g14;

    p_t.c0600x =                                   /*    c0600x     */
    p_i->c0600x*p_c->g11 +p_i->c0600y*p_c->g12 +
    p_i->c0600z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0601x =                                   /*    c0601x     */
    p_i->c0601x*p_c->g11 +p_i->c0601y*p_c->g12 +
    p_i->c0601z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0602x =                                   /*    c0602x     */
    p_i->c0602x*p_c->g11 +p_i->c0602y*p_c->g12 +
    p_i->c0602z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0603x =                                   /*    c0603x     */
    p_i->c0603x*p_c->g11 +p_i->c0603y*p_c->g12 +
    p_i->c0603z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0604x =                                   /*    c0604x     */
    p_i->c0604x*p_c->g11 +p_i->c0604y*p_c->g12 +
    p_i->c0604z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0605x =                                   /*    c0605x     */
    p_i->c0605x*p_c->g11 +p_i->c0605y*p_c->g12 +
    p_i->c0605z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0606x =                                   /*    c0606x     */
    p_i->c0606x*p_c->g11 +p_i->c0606y*p_c->g12 +
    p_i->c0606z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0607x =                                   /*    c0607x     */
    p_i->c0607x*p_c->g11 +p_i->c0607y*p_c->g12 +
    p_i->c0607z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0608x =                                   /*    c0608x     */
    p_i->c0608x*p_c->g11 +p_i->c0608y*p_c->g12 +
    p_i->c0608z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0609x =                                   /*    c0609x     */
    p_i->c0609x*p_c->g11 +p_i->c0609y*p_c->g12 +
    p_i->c0609z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0610x =                                   /*    c0610x     */
    p_i->c0610x*p_c->g11 +p_i->c0610y*p_c->g12 +
    p_i->c0610z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0611x =                                   /*    c0611x     */
    p_i->c0611x*p_c->g11 +p_i->c0611y*p_c->g12 +
    p_i->c0611z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0612x =                                   /*    c0612x     */
    p_i->c0612x*p_c->g11 +p_i->c0612y*p_c->g12 +
    p_i->c0612z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0613x =                                   /*    c0613x     */
    p_i->c0613x*p_c->g11 +p_i->c0613y*p_c->g12 +
    p_i->c0613z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0614x =                                   /*    c0614x     */
    p_i->c0614x*p_c->g11 +p_i->c0614y*p_c->g12 +
    p_i->c0614z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0615x =                                   /*    c0615x     */
    p_i->c0615x*p_c->g11 +p_i->c0615y*p_c->g12 +
    p_i->c0615z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0616x =                                   /*    c0616x     */
    p_i->c0616x*p_c->g11 +p_i->c0616y*p_c->g12 +
    p_i->c0616z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0617x =                                   /*    c0617x     */
    p_i->c0617x*p_c->g11 +p_i->c0617y*p_c->g12 +
    p_i->c0617z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0618x =                                   /*    c0618x     */
    p_i->c0618x*p_c->g11 +p_i->c0618y*p_c->g12 +
    p_i->c0618z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0619x =                                   /*    c0619x     */
    p_i->c0619x*p_c->g11 +p_i->c0619y*p_c->g12 +
    p_i->c0619z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0620x =                                   /*    c0620x     */
    p_i->c0620x*p_c->g11 +p_i->c0620y*p_c->g12 +
    p_i->c0620z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0621x =                                   /*    c0621x     */
    p_i->c0621x*p_c->g11 +p_i->c0621y*p_c->g12 +
    p_i->c0621z*p_c->g13 +  0.0      *p_c->g14;

    p_t.c0700x =                                   /*    c0700x     */
    p_i->c0700x*p_c->g11 +p_i->c0700y*p_c->g12 +
    p_i->c0700z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0701x =                                   /*    c0701x     */
    p_i->c0701x*p_c->g11 +p_i->c0701y*p_c->g12 +
    p_i->c0701z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0702x =                                   /*    c0702x     */
    p_i->c0702x*p_c->g11 +p_i->c0702y*p_c->g12 +
    p_i->c0702z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0703x =                                   /*    c0703x     */
    p_i->c0703x*p_c->g11 +p_i->c0703y*p_c->g12 +
    p_i->c0703z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0704x =                                   /*    c0704x     */
    p_i->c0704x*p_c->g11 +p_i->c0704y*p_c->g12 +
    p_i->c0704z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0705x =                                   /*    c0705x     */
    p_i->c0705x*p_c->g11 +p_i->c0705y*p_c->g12 +
    p_i->c0705z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0706x =                                   /*    c0706x     */
    p_i->c0706x*p_c->g11 +p_i->c0706y*p_c->g12 +
    p_i->c0706z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0707x =                                   /*    c0707x     */
    p_i->c0707x*p_c->g11 +p_i->c0707y*p_c->g12 +
    p_i->c0707z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0708x =                                   /*    c0708x     */
    p_i->c0708x*p_c->g11 +p_i->c0708y*p_c->g12 +
    p_i->c0708z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0709x =                                   /*    c0709x     */
    p_i->c0709x*p_c->g11 +p_i->c0709y*p_c->g12 +
    p_i->c0709z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0710x =                                   /*    c0710x     */
    p_i->c0710x*p_c->g11 +p_i->c0710y*p_c->g12 +
    p_i->c0710z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0711x =                                   /*    c0711x     */
    p_i->c0711x*p_c->g11 +p_i->c0711y*p_c->g12 +
    p_i->c0711z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0712x =                                   /*    c0712x     */
    p_i->c0712x*p_c->g11 +p_i->c0712y*p_c->g12 +
    p_i->c0712z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0713x =                                   /*    c0713x     */
    p_i->c0713x*p_c->g11 +p_i->c0713y*p_c->g12 +
    p_i->c0713z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0714x =                                   /*    c0714x     */
    p_i->c0714x*p_c->g11 +p_i->c0714y*p_c->g12 +
    p_i->c0714z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0715x =                                   /*    c0715x     */
    p_i->c0715x*p_c->g11 +p_i->c0715y*p_c->g12 +
    p_i->c0715z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0716x =                                   /*    c0716x     */
    p_i->c0716x*p_c->g11 +p_i->c0716y*p_c->g12 +
    p_i->c0716z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0717x =                                   /*    c0717x     */
    p_i->c0717x*p_c->g11 +p_i->c0717y*p_c->g12 +
    p_i->c0717z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0718x =                                   /*    c0718x     */
    p_i->c0718x*p_c->g11 +p_i->c0718y*p_c->g12 +
    p_i->c0718z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0719x =                                   /*    c0719x     */
    p_i->c0719x*p_c->g11 +p_i->c0719y*p_c->g12 +
    p_i->c0719z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0720x =                                   /*    c0720x     */
    p_i->c0720x*p_c->g11 +p_i->c0720y*p_c->g12 +
    p_i->c0720z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0721x =                                   /*    c0721x     */
    p_i->c0721x*p_c->g11 +p_i->c0721y*p_c->g12 +
    p_i->c0721z*p_c->g13 +  0.0      *p_c->g14;

    p_t.c0800x =                                   /*    c0800x     */
    p_i->c0800x*p_c->g11 +p_i->c0800y*p_c->g12 +
    p_i->c0800z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0801x =                                   /*    c0801x     */
    p_i->c0801x*p_c->g11 +p_i->c0801y*p_c->g12 +
    p_i->c0801z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0802x =                                   /*    c0802x     */
    p_i->c0802x*p_c->g11 +p_i->c0802y*p_c->g12 +
    p_i->c0802z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0803x =                                   /*    c0803x     */
    p_i->c0803x*p_c->g11 +p_i->c0803y*p_c->g12 +
    p_i->c0803z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0804x =                                   /*    c0804x     */
    p_i->c0804x*p_c->g11 +p_i->c0804y*p_c->g12 +
    p_i->c0804z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0805x =                                   /*    c0805x     */
    p_i->c0805x*p_c->g11 +p_i->c0805y*p_c->g12 +
    p_i->c0805z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0806x =                                   /*    c0806x     */
    p_i->c0806x*p_c->g11 +p_i->c0806y*p_c->g12 +
    p_i->c0806z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0807x =                                   /*    c0807x     */
    p_i->c0807x*p_c->g11 +p_i->c0807y*p_c->g12 +
    p_i->c0807z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0808x =                                   /*    c0808x     */
    p_i->c0808x*p_c->g11 +p_i->c0808y*p_c->g12 +
    p_i->c0808z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0809x =                                   /*    c0809x     */
    p_i->c0809x*p_c->g11 +p_i->c0809y*p_c->g12 +
    p_i->c0809z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0810x =                                   /*    c0810x     */
    p_i->c0810x*p_c->g11 +p_i->c0810y*p_c->g12 +
    p_i->c0810z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0811x =                                   /*    c0811x     */
    p_i->c0811x*p_c->g11 +p_i->c0811y*p_c->g12 +
    p_i->c0811z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0812x =                                   /*    c0812x     */
    p_i->c0812x*p_c->g11 +p_i->c0812y*p_c->g12 +
    p_i->c0812z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0813x =                                   /*    c0813x     */
    p_i->c0813x*p_c->g11 +p_i->c0813y*p_c->g12 +
    p_i->c0813z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0814x =                                   /*    c0814x     */
    p_i->c0814x*p_c->g11 +p_i->c0814y*p_c->g12 +
    p_i->c0814z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0815x =                                   /*    c0815x     */
    p_i->c0815x*p_c->g11 +p_i->c0815y*p_c->g12 +
    p_i->c0815z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0816x =                                   /*    c0816x     */
    p_i->c0816x*p_c->g11 +p_i->c0816y*p_c->g12 +
    p_i->c0816z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0817x =                                   /*    c0817x     */
    p_i->c0817x*p_c->g11 +p_i->c0817y*p_c->g12 +
    p_i->c0817z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0818x =                                   /*    c0818x     */
    p_i->c0818x*p_c->g11 +p_i->c0818y*p_c->g12 +
    p_i->c0818z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0819x =                                   /*    c0819x     */
    p_i->c0819x*p_c->g11 +p_i->c0819y*p_c->g12 +
    p_i->c0819z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0820x =                                   /*    c0820x     */
    p_i->c0820x*p_c->g11 +p_i->c0820y*p_c->g12 +
    p_i->c0820z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0821x =                                   /*    c0821x     */
    p_i->c0821x*p_c->g11 +p_i->c0821y*p_c->g12 +
    p_i->c0821z*p_c->g13 +  0.0      *p_c->g14;

    p_t.c0900x =                                   /*    c0900x     */
    p_i->c0900x*p_c->g11 +p_i->c0900y*p_c->g12 +
    p_i->c0900z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0901x =                                   /*    c0901x     */
    p_i->c0901x*p_c->g11 +p_i->c0901y*p_c->g12 +
    p_i->c0901z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0902x =                                   /*    c0902x     */
    p_i->c0902x*p_c->g11 +p_i->c0902y*p_c->g12 +
    p_i->c0902z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0903x =                                   /*    c0903x     */
    p_i->c0903x*p_c->g11 +p_i->c0903y*p_c->g12 +
    p_i->c0903z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0904x =                                   /*    c0904x     */
    p_i->c0904x*p_c->g11 +p_i->c0904y*p_c->g12 +
    p_i->c0904z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0905x =                                   /*    c0905x     */
    p_i->c0905x*p_c->g11 +p_i->c0905y*p_c->g12 +
    p_i->c0905z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0906x =                                   /*    c0906x     */
    p_i->c0906x*p_c->g11 +p_i->c0906y*p_c->g12 +
    p_i->c0906z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0907x =                                   /*    c0907x     */
    p_i->c0907x*p_c->g11 +p_i->c0907y*p_c->g12 +
    p_i->c0907z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0908x =                                   /*    c0908x     */
    p_i->c0908x*p_c->g11 +p_i->c0908y*p_c->g12 +
    p_i->c0908z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0909x =                                   /*    c0909x     */
    p_i->c0909x*p_c->g11 +p_i->c0909y*p_c->g12 +
    p_i->c0909z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0910x =                                   /*    c0910x     */
    p_i->c0910x*p_c->g11 +p_i->c0910y*p_c->g12 +
    p_i->c0910z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0911x =                                   /*    c0911x     */
    p_i->c0911x*p_c->g11 +p_i->c0911y*p_c->g12 +
    p_i->c0911z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0912x =                                   /*    c0912x     */
    p_i->c0912x*p_c->g11 +p_i->c0912y*p_c->g12 +
    p_i->c0912z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0913x =                                   /*    c0913x     */
    p_i->c0913x*p_c->g11 +p_i->c0913y*p_c->g12 +
    p_i->c0913z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0914x =                                   /*    c0914x     */
    p_i->c0914x*p_c->g11 +p_i->c0914y*p_c->g12 +
    p_i->c0914z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0915x =                                   /*    c0915x     */
    p_i->c0915x*p_c->g11 +p_i->c0915y*p_c->g12 +
    p_i->c0915z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0916x =                                   /*    c0916x     */
    p_i->c0916x*p_c->g11 +p_i->c0916y*p_c->g12 +
    p_i->c0916z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0917x =                                   /*    c0917x     */
    p_i->c0917x*p_c->g11 +p_i->c0917y*p_c->g12 +
    p_i->c0917z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0918x =                                   /*    c0918x     */
    p_i->c0918x*p_c->g11 +p_i->c0918y*p_c->g12 +
    p_i->c0918z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0919x =                                   /*    c0919x     */
    p_i->c0919x*p_c->g11 +p_i->c0919y*p_c->g12 +
    p_i->c0919z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0920x =                                   /*    c0920x     */
    p_i->c0920x*p_c->g11 +p_i->c0920y*p_c->g12 +
    p_i->c0920z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c0921x =                                   /*    c0921x     */
    p_i->c0921x*p_c->g11 +p_i->c0921y*p_c->g12 +
    p_i->c0921z*p_c->g13 +  0.0      *p_c->g14;

    p_t.c1000x =                                   /*    c1000x     */
    p_i->c1000x*p_c->g11 +p_i->c1000y*p_c->g12 +
    p_i->c1000z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1001x =                                   /*    c1001x     */
    p_i->c1001x*p_c->g11 +p_i->c1001y*p_c->g12 +
    p_i->c1001z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1002x =                                   /*    c1002x     */
    p_i->c1002x*p_c->g11 +p_i->c1002y*p_c->g12 +
    p_i->c1002z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1003x =                                   /*    c1003x     */
    p_i->c1003x*p_c->g11 +p_i->c1003y*p_c->g12 +
    p_i->c1003z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1004x =                                   /*    c1004x     */
    p_i->c1004x*p_c->g11 +p_i->c1004y*p_c->g12 +
    p_i->c1004z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1005x =                                   /*    c1005x     */
    p_i->c1005x*p_c->g11 +p_i->c1005y*p_c->g12 +
    p_i->c1005z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1006x =                                   /*    c1006x     */
    p_i->c1006x*p_c->g11 +p_i->c1006y*p_c->g12 +
    p_i->c1006z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1007x =                                   /*    c1007x     */
    p_i->c1007x*p_c->g11 +p_i->c1007y*p_c->g12 +
    p_i->c1007z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1008x =                                   /*    c1008x     */
    p_i->c1008x*p_c->g11 +p_i->c1008y*p_c->g12 +
    p_i->c1008z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1009x =                                   /*    c1009x     */
    p_i->c1009x*p_c->g11 +p_i->c1009y*p_c->g12 +
    p_i->c1009z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1010x =                                   /*    c1010x     */
    p_i->c1010x*p_c->g11 +p_i->c1010y*p_c->g12 +
    p_i->c1010z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1011x =                                   /*    c1011x     */
    p_i->c1011x*p_c->g11 +p_i->c1011y*p_c->g12 +
    p_i->c1011z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1012x =                                   /*    c1012x     */
    p_i->c1012x*p_c->g11 +p_i->c1012y*p_c->g12 +
    p_i->c1012z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1013x =                                   /*    c1013x     */
    p_i->c1013x*p_c->g11 +p_i->c1013y*p_c->g12 +
    p_i->c1013z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1014x =                                   /*    c1014x     */
    p_i->c1014x*p_c->g11 +p_i->c1014y*p_c->g12 +
    p_i->c1014z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1015x =                                   /*    c1015x     */
    p_i->c1015x*p_c->g11 +p_i->c1015y*p_c->g12 +
    p_i->c1015z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1016x =                                   /*    c1016x     */
    p_i->c1016x*p_c->g11 +p_i->c1016y*p_c->g12 +
    p_i->c1016z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1017x =                                   /*    c1017x     */
    p_i->c1017x*p_c->g11 +p_i->c1017y*p_c->g12 +
    p_i->c1017z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1018x =                                   /*    c1018x     */
    p_i->c1018x*p_c->g11 +p_i->c1018y*p_c->g12 +
    p_i->c1018z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1019x =                                   /*    c1019x     */
    p_i->c1019x*p_c->g11 +p_i->c1019y*p_c->g12 +
    p_i->c1019z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1020x =                                   /*    c1020x     */
    p_i->c1020x*p_c->g11 +p_i->c1020y*p_c->g12 +
    p_i->c1020z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1021x =                                   /*    c1021x     */
    p_i->c1021x*p_c->g11 +p_i->c1021y*p_c->g12 +
    p_i->c1021z*p_c->g13 +  0.0      *p_c->g14;

    p_t.c1100x =                                   /*    c1100x     */
    p_i->c1100x*p_c->g11 +p_i->c1100y*p_c->g12 +
    p_i->c1100z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1101x =                                   /*    c1101x     */
    p_i->c1101x*p_c->g11 +p_i->c1101y*p_c->g12 +
    p_i->c1101z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1102x =                                   /*    c1102x     */
    p_i->c1102x*p_c->g11 +p_i->c1102y*p_c->g12 +
    p_i->c1102z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1103x =                                   /*    c1103x     */
    p_i->c1103x*p_c->g11 +p_i->c1103y*p_c->g12 +
    p_i->c1103z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1104x =                                   /*    c1104x     */
    p_i->c1104x*p_c->g11 +p_i->c1104y*p_c->g12 +
    p_i->c1104z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1105x =                                   /*    c1105x     */
    p_i->c1105x*p_c->g11 +p_i->c1105y*p_c->g12 +
    p_i->c1105z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1106x =                                   /*    c1106x     */
    p_i->c1106x*p_c->g11 +p_i->c1106y*p_c->g12 +
    p_i->c1106z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1107x =                                   /*    c1107x     */
    p_i->c1107x*p_c->g11 +p_i->c1107y*p_c->g12 +
    p_i->c1107z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1108x =                                   /*    c1108x     */
    p_i->c1108x*p_c->g11 +p_i->c1108y*p_c->g12 +
    p_i->c1108z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1109x =                                   /*    c1109x     */
    p_i->c1109x*p_c->g11 +p_i->c1109y*p_c->g12 +
    p_i->c1109z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1110x =                                   /*    c1110x     */
    p_i->c1110x*p_c->g11 +p_i->c1110y*p_c->g12 +
    p_i->c1110z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1111x =                                   /*    c1111x     */
    p_i->c1111x*p_c->g11 +p_i->c1111y*p_c->g12 +
    p_i->c1111z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1112x =                                   /*    c1112x     */
    p_i->c1112x*p_c->g11 +p_i->c1112y*p_c->g12 +
    p_i->c1112z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1113x =                                   /*    c1113x     */
    p_i->c1113x*p_c->g11 +p_i->c1113y*p_c->g12 +
    p_i->c1113z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1114x =                                   /*    c1114x     */
    p_i->c1114x*p_c->g11 +p_i->c1114y*p_c->g12 +
    p_i->c1114z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1115x =                                   /*    c1115x     */
    p_i->c1115x*p_c->g11 +p_i->c1115y*p_c->g12 +
    p_i->c1115z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1116x =                                   /*    c1116x     */
    p_i->c1116x*p_c->g11 +p_i->c1116y*p_c->g12 +
    p_i->c1116z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1117x =                                   /*    c1117x     */
    p_i->c1117x*p_c->g11 +p_i->c1117y*p_c->g12 +
    p_i->c1117z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1118x =                                   /*    c1118x     */
    p_i->c1118x*p_c->g11 +p_i->c1118y*p_c->g12 +
    p_i->c1118z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1119x =                                   /*    c1119x     */
    p_i->c1119x*p_c->g11 +p_i->c1119y*p_c->g12 +
    p_i->c1119z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1120x =                                   /*    c1120x     */
    p_i->c1120x*p_c->g11 +p_i->c1120y*p_c->g12 +
    p_i->c1120z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1121x =                                   /*    c1121x     */
    p_i->c1121x*p_c->g11 +p_i->c1121y*p_c->g12 +
    p_i->c1121z*p_c->g13 +  0.0      *p_c->g14;

    p_t.c1200x =                                   /*    c1200x     */
    p_i->c1200x*p_c->g11 +p_i->c1200y*p_c->g12 +
    p_i->c1200z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1201x =                                   /*    c1201x     */
    p_i->c1201x*p_c->g11 +p_i->c1201y*p_c->g12 +
    p_i->c1201z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1202x =                                   /*    c1202x     */
    p_i->c1202x*p_c->g11 +p_i->c1202y*p_c->g12 +
    p_i->c1202z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1203x =                                   /*    c1203x     */
    p_i->c1203x*p_c->g11 +p_i->c1203y*p_c->g12 +
    p_i->c1203z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1204x =                                   /*    c1204x     */
    p_i->c1204x*p_c->g11 +p_i->c1204y*p_c->g12 +
    p_i->c1204z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1205x =                                   /*    c1205x     */
    p_i->c1205x*p_c->g11 +p_i->c1205y*p_c->g12 +
    p_i->c1205z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1206x =                                   /*    c1206x     */
    p_i->c1206x*p_c->g11 +p_i->c1206y*p_c->g12 +
    p_i->c1206z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1207x =                                   /*    c1207x     */
    p_i->c1207x*p_c->g11 +p_i->c1207y*p_c->g12 +
    p_i->c1207z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1208x =                                   /*    c1208x     */
    p_i->c1208x*p_c->g11 +p_i->c1208y*p_c->g12 +
    p_i->c1208z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1209x =                                   /*    c1209x     */
    p_i->c1209x*p_c->g11 +p_i->c1209y*p_c->g12 +
    p_i->c1209z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1210x =                                   /*    c1210x     */
    p_i->c1210x*p_c->g11 +p_i->c1210y*p_c->g12 +
    p_i->c1210z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1211x =                                   /*    c1211x     */
    p_i->c1211x*p_c->g11 +p_i->c1211y*p_c->g12 +
    p_i->c1211z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1212x =                                   /*    c1212x     */
    p_i->c1212x*p_c->g11 +p_i->c1212y*p_c->g12 +
    p_i->c1212z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1213x =                                   /*    c1213x     */
    p_i->c1213x*p_c->g11 +p_i->c1213y*p_c->g12 +
    p_i->c1213z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1214x =                                   /*    c1214x     */
    p_i->c1214x*p_c->g11 +p_i->c1214y*p_c->g12 +
    p_i->c1214z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1215x =                                   /*    c1215x     */
    p_i->c1215x*p_c->g11 +p_i->c1215y*p_c->g12 +
    p_i->c1215z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1216x =                                   /*    c1216x     */
    p_i->c1216x*p_c->g11 +p_i->c1216y*p_c->g12 +
    p_i->c1216z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1217x =                                   /*    c1217x     */
    p_i->c1217x*p_c->g11 +p_i->c1217y*p_c->g12 +
    p_i->c1217z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1218x =                                   /*    c1218x     */
    p_i->c1218x*p_c->g11 +p_i->c1218y*p_c->g12 +
    p_i->c1218z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1219x =                                   /*    c1219x     */
    p_i->c1219x*p_c->g11 +p_i->c1219y*p_c->g12 +
    p_i->c1219z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1220x =                                   /*    c1220x     */
    p_i->c1220x*p_c->g11 +p_i->c1220y*p_c->g12 +
    p_i->c1220z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1221x =                                   /*    c1221x     */
    p_i->c1221x*p_c->g11 +p_i->c1221y*p_c->g12 +
    p_i->c1221z*p_c->g13 +  0.0      *p_c->g14;

    p_t.c1300x =                                   /*    c1300x     */
    p_i->c1300x*p_c->g11 +p_i->c1300y*p_c->g12 +
    p_i->c1300z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1301x =                                   /*    c1301x     */
    p_i->c1301x*p_c->g11 +p_i->c1301y*p_c->g12 +
    p_i->c1301z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1302x =                                   /*    c1302x     */
    p_i->c1302x*p_c->g11 +p_i->c1302y*p_c->g12 +
    p_i->c1302z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1303x =                                   /*    c1303x     */
    p_i->c1303x*p_c->g11 +p_i->c1303y*p_c->g12 +
    p_i->c1303z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1304x =                                   /*    c1304x     */
    p_i->c1304x*p_c->g11 +p_i->c1304y*p_c->g12 +
    p_i->c1304z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1305x =                                   /*    c1305x     */
    p_i->c1305x*p_c->g11 +p_i->c1305y*p_c->g12 +
    p_i->c1305z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1306x =                                   /*    c1306x     */
    p_i->c1306x*p_c->g11 +p_i->c1306y*p_c->g12 +
    p_i->c1306z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1307x =                                   /*    c1307x     */
    p_i->c1307x*p_c->g11 +p_i->c1307y*p_c->g12 +
    p_i->c1307z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1308x =                                   /*    c1308x     */
    p_i->c1308x*p_c->g11 +p_i->c1308y*p_c->g12 +
    p_i->c1308z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1309x =                                   /*    c1309x     */
    p_i->c1309x*p_c->g11 +p_i->c1309y*p_c->g12 +
    p_i->c1309z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1310x =                                   /*    c1310x     */
    p_i->c1310x*p_c->g11 +p_i->c1310y*p_c->g12 +
    p_i->c1310z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1311x =                                   /*    c1311x     */
    p_i->c1311x*p_c->g11 +p_i->c1311y*p_c->g12 +
    p_i->c1311z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1312x =                                   /*    c1312x     */
    p_i->c1312x*p_c->g11 +p_i->c1312y*p_c->g12 +
    p_i->c1312z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1313x =                                   /*    c1313x     */
    p_i->c1313x*p_c->g11 +p_i->c1313y*p_c->g12 +
    p_i->c1313z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1314x =                                   /*    c1314x     */
    p_i->c1314x*p_c->g11 +p_i->c1314y*p_c->g12 +
    p_i->c1314z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1315x =                                   /*    c1315x     */
    p_i->c1315x*p_c->g11 +p_i->c1315y*p_c->g12 +
    p_i->c1315z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1316x =                                   /*    c1316x     */
    p_i->c1316x*p_c->g11 +p_i->c1316y*p_c->g12 +
    p_i->c1316z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1317x =                                   /*    c1317x     */
    p_i->c1317x*p_c->g11 +p_i->c1317y*p_c->g12 +
    p_i->c1317z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1318x =                                   /*    c1318x     */
    p_i->c1318x*p_c->g11 +p_i->c1318y*p_c->g12 +
    p_i->c1318z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1319x =                                   /*    c1319x     */
    p_i->c1319x*p_c->g11 +p_i->c1319y*p_c->g12 +
    p_i->c1319z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1320x =                                   /*    c1320x     */
    p_i->c1320x*p_c->g11 +p_i->c1320y*p_c->g12 +
    p_i->c1320z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1321x =                                   /*    c1321x     */
    p_i->c1321x*p_c->g11 +p_i->c1321y*p_c->g12 +
    p_i->c1321z*p_c->g13 +  0.0      *p_c->g14;

    p_t.c1400x =                                   /*    c1400x     */
    p_i->c1400x*p_c->g11 +p_i->c1400y*p_c->g12 +
    p_i->c1400z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1401x =                                   /*    c1401x     */
    p_i->c1401x*p_c->g11 +p_i->c1401y*p_c->g12 +
    p_i->c1401z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1402x =                                   /*    c1402x     */
    p_i->c1402x*p_c->g11 +p_i->c1402y*p_c->g12 +
    p_i->c1402z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1403x =                                   /*    c1403x     */
    p_i->c1403x*p_c->g11 +p_i->c1403y*p_c->g12 +
    p_i->c1403z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1404x =                                   /*    c1404x     */
    p_i->c1404x*p_c->g11 +p_i->c1404y*p_c->g12 +
    p_i->c1404z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1405x =                                   /*    c1405x     */
    p_i->c1405x*p_c->g11 +p_i->c1405y*p_c->g12 +
    p_i->c1405z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1406x =                                   /*    c1406x     */
    p_i->c1406x*p_c->g11 +p_i->c1406y*p_c->g12 +
    p_i->c1406z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1407x =                                   /*    c1407x     */
    p_i->c1407x*p_c->g11 +p_i->c1407y*p_c->g12 +
    p_i->c1407z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1408x =                                   /*    c1408x     */
    p_i->c1408x*p_c->g11 +p_i->c1408y*p_c->g12 +
    p_i->c1408z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1409x =                                   /*    c1409x     */
    p_i->c1409x*p_c->g11 +p_i->c1409y*p_c->g12 +
    p_i->c1409z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1410x =                                   /*    c1410x     */
    p_i->c1410x*p_c->g11 +p_i->c1410y*p_c->g12 +
    p_i->c1410z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1411x =                                   /*    c1411x     */
    p_i->c1411x*p_c->g11 +p_i->c1411y*p_c->g12 +
    p_i->c1411z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1412x =                                   /*    c1412x     */
    p_i->c1412x*p_c->g11 +p_i->c1412y*p_c->g12 +
    p_i->c1412z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1413x =                                   /*    c1413x     */
    p_i->c1413x*p_c->g11 +p_i->c1413y*p_c->g12 +
    p_i->c1413z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1414x =                                   /*    c1414x     */
    p_i->c1414x*p_c->g11 +p_i->c1414y*p_c->g12 +
    p_i->c1414z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1415x =                                   /*    c1415x     */
    p_i->c1415x*p_c->g11 +p_i->c1415y*p_c->g12 +
    p_i->c1415z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1416x =                                   /*    c1416x     */
    p_i->c1416x*p_c->g11 +p_i->c1416y*p_c->g12 +
    p_i->c1416z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1417x =                                   /*    c1417x     */
    p_i->c1417x*p_c->g11 +p_i->c1417y*p_c->g12 +
    p_i->c1417z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1418x =                                   /*    c1418x     */
    p_i->c1418x*p_c->g11 +p_i->c1418y*p_c->g12 +
    p_i->c1418z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1419x =                                   /*    c1419x     */
    p_i->c1419x*p_c->g11 +p_i->c1419y*p_c->g12 +
    p_i->c1419z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1420x =                                   /*    c1420x     */
    p_i->c1420x*p_c->g11 +p_i->c1420y*p_c->g12 +
    p_i->c1420z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1421x =                                   /*    c1421x     */
    p_i->c1421x*p_c->g11 +p_i->c1421y*p_c->g12 +
    p_i->c1421z*p_c->g13 +  0.0      *p_c->g14;

    p_t.c1500x =                                   /*    c1500x     */
    p_i->c1500x*p_c->g11 +p_i->c1500y*p_c->g12 +
    p_i->c1500z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1501x =                                   /*    c1501x     */
    p_i->c1501x*p_c->g11 +p_i->c1501y*p_c->g12 +
    p_i->c1501z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1502x =                                   /*    c1502x     */
    p_i->c1502x*p_c->g11 +p_i->c1502y*p_c->g12 +
    p_i->c1502z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1503x =                                   /*    c1503x     */
    p_i->c1503x*p_c->g11 +p_i->c1503y*p_c->g12 +
    p_i->c1503z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1504x =                                   /*    c1504x     */
    p_i->c1504x*p_c->g11 +p_i->c1504y*p_c->g12 +
    p_i->c1504z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1505x =                                   /*    c1505x     */
    p_i->c1505x*p_c->g11 +p_i->c1505y*p_c->g12 +
    p_i->c1505z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1506x =                                   /*    c1506x     */
    p_i->c1506x*p_c->g11 +p_i->c1506y*p_c->g12 +
    p_i->c1506z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1507x =                                   /*    c1507x     */
    p_i->c1507x*p_c->g11 +p_i->c1507y*p_c->g12 +
    p_i->c1507z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1508x =                                   /*    c1508x     */
    p_i->c1508x*p_c->g11 +p_i->c1508y*p_c->g12 +
    p_i->c1508z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1509x =                                   /*    c1509x     */
    p_i->c1509x*p_c->g11 +p_i->c1509y*p_c->g12 +
    p_i->c1509z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1510x =                                   /*    c1510x     */
    p_i->c1510x*p_c->g11 +p_i->c1510y*p_c->g12 +
    p_i->c1510z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1511x =                                   /*    c1511x     */
    p_i->c1511x*p_c->g11 +p_i->c1511y*p_c->g12 +
    p_i->c1511z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1512x =                                   /*    c1512x     */
    p_i->c1512x*p_c->g11 +p_i->c1512y*p_c->g12 +
    p_i->c1512z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1513x =                                   /*    c1513x     */
    p_i->c1513x*p_c->g11 +p_i->c1513y*p_c->g12 +
    p_i->c1513z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1514x =                                   /*    c1514x     */
    p_i->c1514x*p_c->g11 +p_i->c1514y*p_c->g12 +
    p_i->c1514z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1515x =                                   /*    c1515x     */
    p_i->c1515x*p_c->g11 +p_i->c1515y*p_c->g12 +
    p_i->c1515z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1516x =                                   /*    c1516x     */
    p_i->c1516x*p_c->g11 +p_i->c1516y*p_c->g12 +
    p_i->c1516z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1517x =                                   /*    c1517x     */
    p_i->c1517x*p_c->g11 +p_i->c1517y*p_c->g12 +
    p_i->c1517z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1518x =                                   /*    c1518x     */
    p_i->c1518x*p_c->g11 +p_i->c1518y*p_c->g12 +
    p_i->c1518z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1519x =                                   /*    c1519x     */
    p_i->c1519x*p_c->g11 +p_i->c1519y*p_c->g12 +
    p_i->c1519z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1520x =                                   /*    c1520x     */
    p_i->c1520x*p_c->g11 +p_i->c1520y*p_c->g12 +
    p_i->c1520z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1521x =                                   /*    c1521x     */
    p_i->c1521x*p_c->g11 +p_i->c1521y*p_c->g12 +
    p_i->c1521z*p_c->g13 +  0.0      *p_c->g14;

    p_t.c1600x =                                   /*    c1600x     */
    p_i->c1600x*p_c->g11 +p_i->c1600y*p_c->g12 +
    p_i->c1600z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1601x =                                   /*    c1601x     */
    p_i->c1601x*p_c->g11 +p_i->c1601y*p_c->g12 +
    p_i->c1601z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1602x =                                   /*    c1602x     */
    p_i->c1602x*p_c->g11 +p_i->c1602y*p_c->g12 +
    p_i->c1602z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1603x =                                   /*    c1603x     */
    p_i->c1603x*p_c->g11 +p_i->c1603y*p_c->g12 +
    p_i->c1603z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1604x =                                   /*    c1604x     */
    p_i->c1604x*p_c->g11 +p_i->c1604y*p_c->g12 +
    p_i->c1604z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1605x =                                   /*    c1605x     */
    p_i->c1605x*p_c->g11 +p_i->c1605y*p_c->g12 +
    p_i->c1605z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1606x =                                   /*    c1606x     */
    p_i->c1606x*p_c->g11 +p_i->c1606y*p_c->g12 +
    p_i->c1606z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1607x =                                   /*    c1607x     */
    p_i->c1607x*p_c->g11 +p_i->c1607y*p_c->g12 +
    p_i->c1607z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1608x =                                   /*    c1608x     */
    p_i->c1608x*p_c->g11 +p_i->c1608y*p_c->g12 +
    p_i->c1608z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1609x =                                   /*    c1609x     */
    p_i->c1609x*p_c->g11 +p_i->c1609y*p_c->g12 +
    p_i->c1609z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1610x =                                   /*    c1610x     */
    p_i->c1610x*p_c->g11 +p_i->c1610y*p_c->g12 +
    p_i->c1610z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1611x =                                   /*    c1611x     */
    p_i->c1611x*p_c->g11 +p_i->c1611y*p_c->g12 +
    p_i->c1611z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1612x =                                   /*    c1612x     */
    p_i->c1612x*p_c->g11 +p_i->c1612y*p_c->g12 +
    p_i->c1612z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1613x =                                   /*    c1613x     */
    p_i->c1613x*p_c->g11 +p_i->c1613y*p_c->g12 +
    p_i->c1613z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1614x =                                   /*    c1614x     */
    p_i->c1614x*p_c->g11 +p_i->c1614y*p_c->g12 +
    p_i->c1614z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1615x =                                   /*    c1615x     */
    p_i->c1615x*p_c->g11 +p_i->c1615y*p_c->g12 +
    p_i->c1615z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1616x =                                   /*    c1616x     */
    p_i->c1616x*p_c->g11 +p_i->c1616y*p_c->g12 +
    p_i->c1616z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1617x =                                   /*    c1617x     */
    p_i->c1617x*p_c->g11 +p_i->c1617y*p_c->g12 +
    p_i->c1617z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1618x =                                   /*    c1618x     */
    p_i->c1618x*p_c->g11 +p_i->c1618y*p_c->g12 +
    p_i->c1618z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1619x =                                   /*    c1619x     */
    p_i->c1619x*p_c->g11 +p_i->c1619y*p_c->g12 +
    p_i->c1619z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1620x =                                   /*    c1620x     */
    p_i->c1620x*p_c->g11 +p_i->c1620y*p_c->g12 +
    p_i->c1620z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1621x =                                   /*    c1621x     */
    p_i->c1621x*p_c->g11 +p_i->c1621y*p_c->g12 +
    p_i->c1621z*p_c->g13 +  0.0      *p_c->g14;

    p_t.c1700x =                                   /*    c1700x     */
    p_i->c1700x*p_c->g11 +p_i->c1700y*p_c->g12 +
    p_i->c1700z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1701x =                                   /*    c1701x     */
    p_i->c1701x*p_c->g11 +p_i->c1701y*p_c->g12 +
    p_i->c1701z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1702x =                                   /*    c1702x     */
    p_i->c1702x*p_c->g11 +p_i->c1702y*p_c->g12 +
    p_i->c1702z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1703x =                                   /*    c1703x     */
    p_i->c1703x*p_c->g11 +p_i->c1703y*p_c->g12 +
    p_i->c1703z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1704x =                                   /*    c1704x     */
    p_i->c1704x*p_c->g11 +p_i->c1704y*p_c->g12 +
    p_i->c1704z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1705x =                                   /*    c1705x     */
    p_i->c1705x*p_c->g11 +p_i->c1705y*p_c->g12 +
    p_i->c1705z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1706x =                                   /*    c1706x     */
    p_i->c1706x*p_c->g11 +p_i->c1706y*p_c->g12 +
    p_i->c1706z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1707x =                                   /*    c1707x     */
    p_i->c1707x*p_c->g11 +p_i->c1707y*p_c->g12 +
    p_i->c1707z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1708x =                                   /*    c1708x     */
    p_i->c1708x*p_c->g11 +p_i->c1708y*p_c->g12 +
    p_i->c1708z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1709x =                                   /*    c1709x     */
    p_i->c1709x*p_c->g11 +p_i->c1709y*p_c->g12 +
    p_i->c1709z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1710x =                                   /*    c1710x     */
    p_i->c1710x*p_c->g11 +p_i->c1710y*p_c->g12 +
    p_i->c1710z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1711x =                                   /*    c1711x     */
    p_i->c1711x*p_c->g11 +p_i->c1711y*p_c->g12 +
    p_i->c1711z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1712x =                                   /*    c1712x     */
    p_i->c1712x*p_c->g11 +p_i->c1712y*p_c->g12 +
    p_i->c1712z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1713x =                                   /*    c1713x     */
    p_i->c1713x*p_c->g11 +p_i->c1713y*p_c->g12 +
    p_i->c1713z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1714x =                                   /*    c1714x     */
    p_i->c1714x*p_c->g11 +p_i->c1714y*p_c->g12 +
    p_i->c1714z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1715x =                                   /*    c1715x     */
    p_i->c1715x*p_c->g11 +p_i->c1715y*p_c->g12 +
    p_i->c1715z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1716x =                                   /*    c1716x     */
    p_i->c1716x*p_c->g11 +p_i->c1716y*p_c->g12 +
    p_i->c1716z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1717x =                                   /*    c1717x     */
    p_i->c1717x*p_c->g11 +p_i->c1717y*p_c->g12 +
    p_i->c1717z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1718x =                                   /*    c1718x     */
    p_i->c1718x*p_c->g11 +p_i->c1718y*p_c->g12 +
    p_i->c1718z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1719x =                                   /*    c1719x     */
    p_i->c1719x*p_c->g11 +p_i->c1719y*p_c->g12 +
    p_i->c1719z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1720x =                                   /*    c1720x     */
    p_i->c1720x*p_c->g11 +p_i->c1720y*p_c->g12 +
    p_i->c1720z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1721x =                                   /*    c1721x     */
    p_i->c1721x*p_c->g11 +p_i->c1721y*p_c->g12 +
    p_i->c1721z*p_c->g13 +  0.0      *p_c->g14;

    p_t.c1800x =                                   /*    c1800x     */
    p_i->c1800x*p_c->g11 +p_i->c1800y*p_c->g12 +
    p_i->c1800z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1801x =                                   /*    c1801x     */
    p_i->c1801x*p_c->g11 +p_i->c1801y*p_c->g12 +
    p_i->c1801z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1802x =                                   /*    c1802x     */
    p_i->c1802x*p_c->g11 +p_i->c1802y*p_c->g12 +
    p_i->c1802z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1803x =                                   /*    c1803x     */
    p_i->c1803x*p_c->g11 +p_i->c1803y*p_c->g12 +
    p_i->c1803z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1804x =                                   /*    c1804x     */
    p_i->c1804x*p_c->g11 +p_i->c1804y*p_c->g12 +
    p_i->c1804z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1805x =                                   /*    c1805x     */
    p_i->c1805x*p_c->g11 +p_i->c1805y*p_c->g12 +
    p_i->c1805z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1806x =                                   /*    c1806x     */
    p_i->c1806x*p_c->g11 +p_i->c1806y*p_c->g12 +
    p_i->c1806z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1807x =                                   /*    c1807x     */
    p_i->c1807x*p_c->g11 +p_i->c1807y*p_c->g12 +
    p_i->c1807z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1808x =                                   /*    c1808x     */
    p_i->c1808x*p_c->g11 +p_i->c1808y*p_c->g12 +
    p_i->c1808z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1809x =                                   /*    c1809x     */
    p_i->c1809x*p_c->g11 +p_i->c1809y*p_c->g12 +
    p_i->c1809z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1810x =                                   /*    c1810x     */
    p_i->c1810x*p_c->g11 +p_i->c1810y*p_c->g12 +
    p_i->c1810z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1811x =                                   /*    c1811x     */
    p_i->c1811x*p_c->g11 +p_i->c1811y*p_c->g12 +
    p_i->c1811z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1812x =                                   /*    c1812x     */
    p_i->c1812x*p_c->g11 +p_i->c1812y*p_c->g12 +
    p_i->c1812z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1813x =                                   /*    c1813x     */
    p_i->c1813x*p_c->g11 +p_i->c1813y*p_c->g12 +
    p_i->c1813z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1814x =                                   /*    c1814x     */
    p_i->c1814x*p_c->g11 +p_i->c1814y*p_c->g12 +
    p_i->c1814z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1815x =                                   /*    c1815x     */
    p_i->c1815x*p_c->g11 +p_i->c1815y*p_c->g12 +
    p_i->c1815z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1816x =                                   /*    c1816x     */
    p_i->c1816x*p_c->g11 +p_i->c1816y*p_c->g12 +
    p_i->c1816z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1817x =                                   /*    c1817x     */
    p_i->c1817x*p_c->g11 +p_i->c1817y*p_c->g12 +
    p_i->c1817z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1818x =                                   /*    c1818x     */
    p_i->c1818x*p_c->g11 +p_i->c1818y*p_c->g12 +
    p_i->c1818z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1819x =                                   /*    c1819x     */
    p_i->c1819x*p_c->g11 +p_i->c1819y*p_c->g12 +
    p_i->c1819z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1820x =                                   /*    c1820x     */
    p_i->c1820x*p_c->g11 +p_i->c1820y*p_c->g12 +
    p_i->c1820z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1821x =                                   /*    c1821x     */
    p_i->c1821x*p_c->g11 +p_i->c1821y*p_c->g12 +
    p_i->c1821z*p_c->g13 +  0.0      *p_c->g14;

    p_t.c1900x =                                   /*    c1900x     */
    p_i->c1900x*p_c->g11 +p_i->c1900y*p_c->g12 +
    p_i->c1900z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1901x =                                   /*    c1901x     */
    p_i->c1901x*p_c->g11 +p_i->c1901y*p_c->g12 +
    p_i->c1901z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1902x =                                   /*    c1902x     */
    p_i->c1902x*p_c->g11 +p_i->c1902y*p_c->g12 +
    p_i->c1902z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1903x =                                   /*    c1903x     */
    p_i->c1903x*p_c->g11 +p_i->c1903y*p_c->g12 +
    p_i->c1903z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1904x =                                   /*    c1904x     */
    p_i->c1904x*p_c->g11 +p_i->c1904y*p_c->g12 +
    p_i->c1904z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1905x =                                   /*    c1905x     */
    p_i->c1905x*p_c->g11 +p_i->c1905y*p_c->g12 +
    p_i->c1905z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1906x =                                   /*    c1906x     */
    p_i->c1906x*p_c->g11 +p_i->c1906y*p_c->g12 +
    p_i->c1906z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1907x =                                   /*    c1907x     */
    p_i->c1907x*p_c->g11 +p_i->c1907y*p_c->g12 +
    p_i->c1907z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1908x =                                   /*    c1908x     */
    p_i->c1908x*p_c->g11 +p_i->c1908y*p_c->g12 +
    p_i->c1908z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1909x =                                   /*    c1909x     */
    p_i->c1909x*p_c->g11 +p_i->c1909y*p_c->g12 +
    p_i->c1909z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1910x =                                   /*    c1910x     */
    p_i->c1910x*p_c->g11 +p_i->c1910y*p_c->g12 +
    p_i->c1910z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1911x =                                   /*    c1911x     */
    p_i->c1911x*p_c->g11 +p_i->c1911y*p_c->g12 +
    p_i->c1911z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1912x =                                   /*    c1912x     */
    p_i->c1912x*p_c->g11 +p_i->c1912y*p_c->g12 +
    p_i->c1912z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1913x =                                   /*    c1913x     */
    p_i->c1913x*p_c->g11 +p_i->c1913y*p_c->g12 +
    p_i->c1913z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1914x =                                   /*    c1914x     */
    p_i->c1914x*p_c->g11 +p_i->c1914y*p_c->g12 +
    p_i->c1914z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1915x =                                   /*    c1915x     */
    p_i->c1915x*p_c->g11 +p_i->c1915y*p_c->g12 +
    p_i->c1915z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1916x =                                   /*    c1916x     */
    p_i->c1916x*p_c->g11 +p_i->c1916y*p_c->g12 +
    p_i->c1916z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1917x =                                   /*    c1917x     */
    p_i->c1917x*p_c->g11 +p_i->c1917y*p_c->g12 +
    p_i->c1917z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1918x =                                   /*    c1918x     */
    p_i->c1918x*p_c->g11 +p_i->c1918y*p_c->g12 +
    p_i->c1918z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1919x =                                   /*    c1919x     */
    p_i->c1919x*p_c->g11 +p_i->c1919y*p_c->g12 +
    p_i->c1919z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1920x =                                   /*    c1920x     */
    p_i->c1920x*p_c->g11 +p_i->c1920y*p_c->g12 +
    p_i->c1920z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c1921x =                                   /*    c1921x     */
    p_i->c1921x*p_c->g11 +p_i->c1921y*p_c->g12 +
    p_i->c1921z*p_c->g13 +  0.0      *p_c->g14;

    p_t.c2000x =                                   /*    c2000x     */
    p_i->c2000x*p_c->g11 +p_i->c2000y*p_c->g12 +
    p_i->c2000z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c2001x =                                   /*    c2001x     */
    p_i->c2001x*p_c->g11 +p_i->c2001y*p_c->g12 +
    p_i->c2001z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c2002x =                                   /*    c2002x     */
    p_i->c2002x*p_c->g11 +p_i->c2002y*p_c->g12 +
    p_i->c2002z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c2003x =                                   /*    c2003x     */
    p_i->c2003x*p_c->g11 +p_i->c2003y*p_c->g12 +
    p_i->c2003z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c2004x =                                   /*    c2004x     */
    p_i->c2004x*p_c->g11 +p_i->c2004y*p_c->g12 +
    p_i->c2004z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c2005x =                                   /*    c2005x     */
    p_i->c2005x*p_c->g11 +p_i->c2005y*p_c->g12 +
    p_i->c2005z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c2006x =                                   /*    c2006x     */
    p_i->c2006x*p_c->g11 +p_i->c2006y*p_c->g12 +
    p_i->c2006z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c2007x =                                   /*    c2007x     */
    p_i->c2007x*p_c->g11 +p_i->c2007y*p_c->g12 +
    p_i->c2007z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c2008x =                                   /*    c2008x     */
    p_i->c2008x*p_c->g11 +p_i->c2008y*p_c->g12 +
    p_i->c2008z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c2009x =                                   /*    c2009x     */
    p_i->c2009x*p_c->g11 +p_i->c2009y*p_c->g12 +
    p_i->c2009z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c2010x =                                   /*    c2010x     */
    p_i->c2010x*p_c->g11 +p_i->c2010y*p_c->g12 +
    p_i->c2010z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c2011x =                                   /*    c2011x     */
    p_i->c2011x*p_c->g11 +p_i->c2011y*p_c->g12 +
    p_i->c2011z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c2012x =                                   /*    c2012x     */
    p_i->c2012x*p_c->g11 +p_i->c2012y*p_c->g12 +
    p_i->c2012z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c2013x =                                   /*    c2013x     */
    p_i->c2013x*p_c->g11 +p_i->c2013y*p_c->g12 +
    p_i->c2013z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c2014x =                                   /*    c2014x     */
    p_i->c2014x*p_c->g11 +p_i->c2014y*p_c->g12 +
    p_i->c2014z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c2015x =                                   /*    c2015x     */
    p_i->c2015x*p_c->g11 +p_i->c2015y*p_c->g12 +
    p_i->c2015z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c2016x =                                   /*    c2016x     */
    p_i->c2016x*p_c->g11 +p_i->c2016y*p_c->g12 +
    p_i->c2016z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c2017x =                                   /*    c2017x     */
    p_i->c2017x*p_c->g11 +p_i->c2017y*p_c->g12 +
    p_i->c2017z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c2018x =                                   /*    c2018x     */
    p_i->c2018x*p_c->g11 +p_i->c2018y*p_c->g12 +
    p_i->c2018z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c2019x =                                   /*    c2019x     */
    p_i->c2019x*p_c->g11 +p_i->c2019y*p_c->g12 +
    p_i->c2019z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c2020x =                                   /*    c2020x     */
    p_i->c2020x*p_c->g11 +p_i->c2020y*p_c->g12 +
    p_i->c2020z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c2021x =                                   /*    c2021x     */
    p_i->c2021x*p_c->g11 +p_i->c2021y*p_c->g12 +
    p_i->c2021z*p_c->g13 +  0.0      *p_c->g14;

    p_t.c2100x =                                   /*    c2100x     */
    p_i->c2100x*p_c->g11 +p_i->c2100y*p_c->g12 +
    p_i->c2100z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c2101x =                                   /*    c2101x     */
    p_i->c2101x*p_c->g11 +p_i->c2101y*p_c->g12 +
    p_i->c2101z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c2102x =                                   /*    c2102x     */
    p_i->c2102x*p_c->g11 +p_i->c2102y*p_c->g12 +
    p_i->c2102z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c2103x =                                   /*    c2103x     */
    p_i->c2103x*p_c->g11 +p_i->c2103y*p_c->g12 +
    p_i->c2103z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c2104x =                                   /*    c2104x     */
    p_i->c2104x*p_c->g11 +p_i->c2104y*p_c->g12 +
    p_i->c2104z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c2105x =                                   /*    c2105x     */
    p_i->c2105x*p_c->g11 +p_i->c2105y*p_c->g12 +
    p_i->c2105z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c2106x =                                   /*    c2106x     */
    p_i->c2106x*p_c->g11 +p_i->c2106y*p_c->g12 +
    p_i->c2106z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c2107x =                                   /*    c2107x     */
    p_i->c2107x*p_c->g11 +p_i->c2107y*p_c->g12 +
    p_i->c2107z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c2108x =                                   /*    c2108x     */
    p_i->c2108x*p_c->g11 +p_i->c2108y*p_c->g12 +
    p_i->c2108z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c2109x =                                   /*    c2109x     */
    p_i->c2109x*p_c->g11 +p_i->c2109y*p_c->g12 +
    p_i->c2109z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c2110x =                                   /*    c2110x     */
    p_i->c2110x*p_c->g11 +p_i->c2110y*p_c->g12 +
    p_i->c2110z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c2111x =                                   /*    c2111x     */
    p_i->c2111x*p_c->g11 +p_i->c2111y*p_c->g12 +
    p_i->c2111z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c2112x =                                   /*    c2112x     */
    p_i->c2112x*p_c->g11 +p_i->c2112y*p_c->g12 +
    p_i->c2112z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c2113x =                                   /*    c2113x     */
    p_i->c2113x*p_c->g11 +p_i->c2113y*p_c->g12 +
    p_i->c2113z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c2114x =                                   /*    c2114x     */
    p_i->c2114x*p_c->g11 +p_i->c2114y*p_c->g12 +
    p_i->c2114z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c2115x =                                   /*    c2115x     */
    p_i->c2115x*p_c->g11 +p_i->c2115y*p_c->g12 +
    p_i->c2115z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c2116x =                                   /*    c2116x     */
    p_i->c2116x*p_c->g11 +p_i->c2116y*p_c->g12 +
    p_i->c2116z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c2117x =                                   /*    c2117x     */
    p_i->c2117x*p_c->g11 +p_i->c2117y*p_c->g12 +
    p_i->c2117z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c2118x =                                   /*    c2118x     */
    p_i->c2118x*p_c->g11 +p_i->c2118y*p_c->g12 +
    p_i->c2118z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c2119x =                                   /*    c2119x     */
    p_i->c2119x*p_c->g11 +p_i->c2119y*p_c->g12 +
    p_i->c2119z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c2120x =                                   /*    c2120x     */
    p_i->c2120x*p_c->g11 +p_i->c2120y*p_c->g12 +
    p_i->c2120z*p_c->g13 +  0.0      *p_c->g14;
    p_t.c2121x =                                   /*    c2121x     */
    p_i->c2121x*p_c->g11 +p_i->c2121y*p_c->g12 +
    p_i->c2121z*p_c->g13 +  0.0      *p_c->g14;


    p_t.c0000y =                                   /*    c0000y     */
    p_i->c0000x*p_c->g21 +p_i->c0000y*p_c->g22 +
    p_i->c0000z*p_c->g23 +  1.0      *p_c->g24;
    p_t.c0001y =                                   /*    c0001y     */
    p_i->c0001x*p_c->g21 +p_i->c0001y*p_c->g22 +
    p_i->c0001z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0002y =                                   /*    c0002y     */
    p_i->c0002x*p_c->g21 +p_i->c0002y*p_c->g22 +
    p_i->c0002z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0003y =                                   /*    c0003y     */
    p_i->c0003x*p_c->g21 +p_i->c0003y*p_c->g22 +
    p_i->c0003z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0004y =                                   /*    c0004y     */
    p_i->c0004x*p_c->g21 +p_i->c0004y*p_c->g22 +
    p_i->c0004z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0005y =                                   /*    c0005y     */
    p_i->c0005x*p_c->g21 +p_i->c0005y*p_c->g22 +
    p_i->c0005z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0006y =                                   /*    c0006y     */
    p_i->c0006x*p_c->g21 +p_i->c0006y*p_c->g22 +
    p_i->c0006z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0007y =                                   /*    c0007y     */
    p_i->c0007x*p_c->g21 +p_i->c0007y*p_c->g22 +
    p_i->c0007z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0008y =                                   /*    c0008y     */
    p_i->c0008x*p_c->g21 +p_i->c0008y*p_c->g22 +
    p_i->c0008z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0009y =                                   /*    c0009y     */
    p_i->c0009x*p_c->g21 +p_i->c0009y*p_c->g22 +
    p_i->c0009z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0010y =                                   /*    c0010y     */
    p_i->c0010x*p_c->g21 +p_i->c0010y*p_c->g22 +
    p_i->c0010z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0011y =                                   /*    c0011y     */
    p_i->c0011x*p_c->g21 +p_i->c0011y*p_c->g22 +
    p_i->c0011z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0012y =                                   /*    c0012y     */
    p_i->c0012x*p_c->g21 +p_i->c0012y*p_c->g22 +
    p_i->c0012z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0013y =                                   /*    c0013y     */
    p_i->c0013x*p_c->g21 +p_i->c0013y*p_c->g22 +
    p_i->c0013z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0014y =                                   /*    c0014y     */
    p_i->c0014x*p_c->g21 +p_i->c0014y*p_c->g22 +
    p_i->c0014z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0015y =                                   /*    c0015y     */
    p_i->c0015x*p_c->g21 +p_i->c0015y*p_c->g22 +
    p_i->c0015z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0016y =                                   /*    c0016y     */
    p_i->c0016x*p_c->g21 +p_i->c0016y*p_c->g22 +
    p_i->c0016z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0017y =                                   /*    c0017y     */
    p_i->c0017x*p_c->g21 +p_i->c0017y*p_c->g22 +
    p_i->c0017z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0018y =                                   /*    c0018y     */
    p_i->c0018x*p_c->g21 +p_i->c0018y*p_c->g22 +
    p_i->c0018z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0019y =                                   /*    c0019y     */
    p_i->c0019x*p_c->g21 +p_i->c0019y*p_c->g22 +
    p_i->c0019z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0020y =                                   /*    c0020y     */
    p_i->c0020x*p_c->g21 +p_i->c0020y*p_c->g22 +
    p_i->c0020z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0021y =                                   /*    c0021y     */
    p_i->c0021x*p_c->g21 +p_i->c0021y*p_c->g22 +
    p_i->c0021z*p_c->g23 +  0.0      *p_c->g24;

    p_t.c0100y =                                   /*    c0100y     */
    p_i->c0100x*p_c->g21 +p_i->c0100y*p_c->g22 +
    p_i->c0100z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0101y =                                   /*    c0101y     */
    p_i->c0101x*p_c->g21 +p_i->c0101y*p_c->g22 +
    p_i->c0101z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0102y =                                   /*    c0102y     */
    p_i->c0102x*p_c->g21 +p_i->c0102y*p_c->g22 +
    p_i->c0102z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0103y =                                   /*    c0103y     */
    p_i->c0103x*p_c->g21 +p_i->c0103y*p_c->g22 +
    p_i->c0103z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0104y =                                   /*    c0104y     */
    p_i->c0104x*p_c->g21 +p_i->c0104y*p_c->g22 +
    p_i->c0104z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0105y =                                   /*    c0105y     */
    p_i->c0105x*p_c->g21 +p_i->c0105y*p_c->g22 +
    p_i->c0105z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0106y =                                   /*    c0106y     */
    p_i->c0106x*p_c->g21 +p_i->c0106y*p_c->g22 +
    p_i->c0106z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0107y =                                   /*    c0107y     */
    p_i->c0107x*p_c->g21 +p_i->c0107y*p_c->g22 +
    p_i->c0107z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0108y =                                   /*    c0108y     */
    p_i->c0108x*p_c->g21 +p_i->c0108y*p_c->g22 +
    p_i->c0108z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0109y =                                   /*    c0109y     */
    p_i->c0109x*p_c->g21 +p_i->c0109y*p_c->g22 +
    p_i->c0109z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0110y =                                   /*    c0110y     */
    p_i->c0110x*p_c->g21 +p_i->c0110y*p_c->g22 +
    p_i->c0110z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0111y =                                   /*    c0111y     */
    p_i->c0111x*p_c->g21 +p_i->c0111y*p_c->g22 +
    p_i->c0111z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0112y =                                   /*    c0112y     */
    p_i->c0112x*p_c->g21 +p_i->c0112y*p_c->g22 +
    p_i->c0112z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0113y =                                   /*    c0113y     */
    p_i->c0113x*p_c->g21 +p_i->c0113y*p_c->g22 +
    p_i->c0113z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0114y =                                   /*    c0114y     */
    p_i->c0114x*p_c->g21 +p_i->c0114y*p_c->g22 +
    p_i->c0114z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0115y =                                   /*    c0115y     */
    p_i->c0115x*p_c->g21 +p_i->c0115y*p_c->g22 +
    p_i->c0115z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0116y =                                   /*    c0116y     */
    p_i->c0116x*p_c->g21 +p_i->c0116y*p_c->g22 +
    p_i->c0116z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0117y =                                   /*    c0117y     */
    p_i->c0117x*p_c->g21 +p_i->c0117y*p_c->g22 +
    p_i->c0117z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0118y =                                   /*    c0118y     */
    p_i->c0118x*p_c->g21 +p_i->c0118y*p_c->g22 +
    p_i->c0118z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0119y =                                   /*    c0119y     */
    p_i->c0119x*p_c->g21 +p_i->c0119y*p_c->g22 +
    p_i->c0119z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0120y =                                   /*    c0120y     */
    p_i->c0120x*p_c->g21 +p_i->c0120y*p_c->g22 +
    p_i->c0120z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0121y =                                   /*    c0121y     */
    p_i->c0121x*p_c->g21 +p_i->c0121y*p_c->g22 +
    p_i->c0121z*p_c->g23 +  0.0      *p_c->g24;

    p_t.c0200y =                                   /*    c0200y     */
    p_i->c0200x*p_c->g21 +p_i->c0200y*p_c->g22 +
    p_i->c0200z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0201y =                                   /*    c0201y     */
    p_i->c0201x*p_c->g21 +p_i->c0201y*p_c->g22 +
    p_i->c0201z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0202y =                                   /*    c0202y     */
    p_i->c0202x*p_c->g21 +p_i->c0202y*p_c->g22 +
    p_i->c0202z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0203y =                                   /*    c0203y     */
    p_i->c0203x*p_c->g21 +p_i->c0203y*p_c->g22 +
    p_i->c0203z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0204y =                                   /*    c0204y     */
    p_i->c0204x*p_c->g21 +p_i->c0204y*p_c->g22 +
    p_i->c0204z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0205y =                                   /*    c0205y     */
    p_i->c0205x*p_c->g21 +p_i->c0205y*p_c->g22 +
    p_i->c0205z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0206y =                                   /*    c0206y     */
    p_i->c0206x*p_c->g21 +p_i->c0206y*p_c->g22 +
    p_i->c0206z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0207y =                                   /*    c0207y     */
    p_i->c0207x*p_c->g21 +p_i->c0207y*p_c->g22 +
    p_i->c0207z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0208y =                                   /*    c0208y     */
    p_i->c0208x*p_c->g21 +p_i->c0208y*p_c->g22 +
    p_i->c0208z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0209y =                                   /*    c0209y     */
    p_i->c0209x*p_c->g21 +p_i->c0209y*p_c->g22 +
    p_i->c0209z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0210y =                                   /*    c0210y     */
    p_i->c0210x*p_c->g21 +p_i->c0210y*p_c->g22 +
    p_i->c0210z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0211y =                                   /*    c0211y     */
    p_i->c0211x*p_c->g21 +p_i->c0211y*p_c->g22 +
    p_i->c0211z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0212y =                                   /*    c0212y     */
    p_i->c0212x*p_c->g21 +p_i->c0212y*p_c->g22 +
    p_i->c0212z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0213y =                                   /*    c0213y     */
    p_i->c0213x*p_c->g21 +p_i->c0213y*p_c->g22 +
    p_i->c0213z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0214y =                                   /*    c0214y     */
    p_i->c0214x*p_c->g21 +p_i->c0214y*p_c->g22 +
    p_i->c0214z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0215y =                                   /*    c0215y     */
    p_i->c0215x*p_c->g21 +p_i->c0215y*p_c->g22 +
    p_i->c0215z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0216y =                                   /*    c0216y     */
    p_i->c0216x*p_c->g21 +p_i->c0216y*p_c->g22 +
    p_i->c0216z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0217y =                                   /*    c0217y     */
    p_i->c0217x*p_c->g21 +p_i->c0217y*p_c->g22 +
    p_i->c0217z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0218y =                                   /*    c0218y     */
    p_i->c0218x*p_c->g21 +p_i->c0218y*p_c->g22 +
    p_i->c0218z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0219y =                                   /*    c0219y     */
    p_i->c0219x*p_c->g21 +p_i->c0219y*p_c->g22 +
    p_i->c0219z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0220y =                                   /*    c0220y     */
    p_i->c0220x*p_c->g21 +p_i->c0220y*p_c->g22 +
    p_i->c0220z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0221y =                                   /*    c0221y     */
    p_i->c0221x*p_c->g21 +p_i->c0221y*p_c->g22 +
    p_i->c0221z*p_c->g23 +  0.0      *p_c->g24;

    p_t.c0300y =                                   /*    c0300y     */
    p_i->c0300x*p_c->g21 +p_i->c0300y*p_c->g22 +
    p_i->c0300z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0301y =                                   /*    c0301y     */
    p_i->c0301x*p_c->g21 +p_i->c0301y*p_c->g22 +
    p_i->c0301z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0302y =                                   /*    c0302y     */
    p_i->c0302x*p_c->g21 +p_i->c0302y*p_c->g22 +
    p_i->c0302z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0303y =                                   /*    c0303y     */
    p_i->c0303x*p_c->g21 +p_i->c0303y*p_c->g22 +
    p_i->c0303z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0304y =                                   /*    c0304y     */
    p_i->c0304x*p_c->g21 +p_i->c0304y*p_c->g22 +
    p_i->c0304z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0305y =                                   /*    c0305y     */
    p_i->c0305x*p_c->g21 +p_i->c0305y*p_c->g22 +
    p_i->c0305z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0306y =                                   /*    c0306y     */
    p_i->c0306x*p_c->g21 +p_i->c0306y*p_c->g22 +
    p_i->c0306z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0307y =                                   /*    c0307y     */
    p_i->c0307x*p_c->g21 +p_i->c0307y*p_c->g22 +
    p_i->c0307z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0308y =                                   /*    c0308y     */
    p_i->c0308x*p_c->g21 +p_i->c0308y*p_c->g22 +
    p_i->c0308z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0309y =                                   /*    c0309y     */
    p_i->c0309x*p_c->g21 +p_i->c0309y*p_c->g22 +
    p_i->c0309z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0310y =                                   /*    c0310y     */
    p_i->c0310x*p_c->g21 +p_i->c0310y*p_c->g22 +
    p_i->c0310z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0311y =                                   /*    c0311y     */
    p_i->c0311x*p_c->g21 +p_i->c0311y*p_c->g22 +
    p_i->c0311z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0312y =                                   /*    c0312y     */
    p_i->c0312x*p_c->g21 +p_i->c0312y*p_c->g22 +
    p_i->c0312z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0313y =                                   /*    c0313y     */
    p_i->c0313x*p_c->g21 +p_i->c0313y*p_c->g22 +
    p_i->c0313z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0314y =                                   /*    c0314y     */
    p_i->c0314x*p_c->g21 +p_i->c0314y*p_c->g22 +
    p_i->c0314z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0315y =                                   /*    c0315y     */
    p_i->c0315x*p_c->g21 +p_i->c0315y*p_c->g22 +
    p_i->c0315z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0316y =                                   /*    c0316y     */
    p_i->c0316x*p_c->g21 +p_i->c0316y*p_c->g22 +
    p_i->c0316z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0317y =                                   /*    c0317y     */
    p_i->c0317x*p_c->g21 +p_i->c0317y*p_c->g22 +
    p_i->c0317z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0318y =                                   /*    c0318y     */
    p_i->c0318x*p_c->g21 +p_i->c0318y*p_c->g22 +
    p_i->c0318z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0319y =                                   /*    c0319y     */
    p_i->c0319x*p_c->g21 +p_i->c0319y*p_c->g22 +
    p_i->c0319z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0320y =                                   /*    c0320y     */
    p_i->c0320x*p_c->g21 +p_i->c0320y*p_c->g22 +
    p_i->c0320z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0321y =                                   /*    c0321y     */
    p_i->c0321x*p_c->g21 +p_i->c0321y*p_c->g22 +
    p_i->c0321z*p_c->g23 +  0.0      *p_c->g24;

    p_t.c0400y =                                   /*    c0400y     */
    p_i->c0400x*p_c->g21 +p_i->c0400y*p_c->g22 +
    p_i->c0400z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0401y =                                   /*    c0401y     */
    p_i->c0401x*p_c->g21 +p_i->c0401y*p_c->g22 +
    p_i->c0401z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0402y =                                   /*    c0402y     */
    p_i->c0402x*p_c->g21 +p_i->c0402y*p_c->g22 +
    p_i->c0402z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0403y =                                   /*    c0403y     */
    p_i->c0403x*p_c->g21 +p_i->c0403y*p_c->g22 +
    p_i->c0403z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0404y =                                   /*    c0404y     */
    p_i->c0404x*p_c->g21 +p_i->c0404y*p_c->g22 +
    p_i->c0404z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0405y =                                   /*    c0405y     */
    p_i->c0405x*p_c->g21 +p_i->c0405y*p_c->g22 +
    p_i->c0405z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0406y =                                   /*    c0406y     */
    p_i->c0406x*p_c->g21 +p_i->c0406y*p_c->g22 +
    p_i->c0406z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0407y =                                   /*    c0407y     */
    p_i->c0407x*p_c->g21 +p_i->c0407y*p_c->g22 +
    p_i->c0407z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0408y =                                   /*    c0408y     */
    p_i->c0408x*p_c->g21 +p_i->c0408y*p_c->g22 +
    p_i->c0408z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0409y =                                   /*    c0409y     */
    p_i->c0409x*p_c->g21 +p_i->c0409y*p_c->g22 +
    p_i->c0409z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0410y =                                   /*    c0410y     */
    p_i->c0410x*p_c->g21 +p_i->c0410y*p_c->g22 +
    p_i->c0410z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0411y =                                   /*    c0411y     */
    p_i->c0411x*p_c->g21 +p_i->c0411y*p_c->g22 +
    p_i->c0411z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0412y =                                   /*    c0412y     */
    p_i->c0412x*p_c->g21 +p_i->c0412y*p_c->g22 +
    p_i->c0412z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0413y =                                   /*    c0413y     */
    p_i->c0413x*p_c->g21 +p_i->c0413y*p_c->g22 +
    p_i->c0413z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0414y =                                   /*    c0414y     */
    p_i->c0414x*p_c->g21 +p_i->c0414y*p_c->g22 +
    p_i->c0414z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0415y =                                   /*    c0415y     */
    p_i->c0415x*p_c->g21 +p_i->c0415y*p_c->g22 +
    p_i->c0415z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0416y =                                   /*    c0416y     */
    p_i->c0416x*p_c->g21 +p_i->c0416y*p_c->g22 +
    p_i->c0416z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0417y =                                   /*    c0417y     */
    p_i->c0417x*p_c->g21 +p_i->c0417y*p_c->g22 +
    p_i->c0417z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0418y =                                   /*    c0418y     */
    p_i->c0418x*p_c->g21 +p_i->c0418y*p_c->g22 +
    p_i->c0418z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0419y =                                   /*    c0419y     */
    p_i->c0419x*p_c->g21 +p_i->c0419y*p_c->g22 +
    p_i->c0419z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0420y =                                   /*    c0420y     */
    p_i->c0420x*p_c->g21 +p_i->c0420y*p_c->g22 +
    p_i->c0420z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0421y =                                   /*    c0421y     */
    p_i->c0421x*p_c->g21 +p_i->c0421y*p_c->g22 +
    p_i->c0421z*p_c->g23 +  0.0      *p_c->g24;

    p_t.c0500y =                                   /*    c0500y     */
    p_i->c0500x*p_c->g21 +p_i->c0500y*p_c->g22 +
    p_i->c0500z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0501y =                                   /*    c0501y     */
    p_i->c0501x*p_c->g21 +p_i->c0501y*p_c->g22 +
    p_i->c0501z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0502y =                                   /*    c0502y     */
    p_i->c0502x*p_c->g21 +p_i->c0502y*p_c->g22 +
    p_i->c0502z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0503y =                                   /*    c0503y     */
    p_i->c0503x*p_c->g21 +p_i->c0503y*p_c->g22 +
    p_i->c0503z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0504y =                                   /*    c0504y     */
    p_i->c0504x*p_c->g21 +p_i->c0504y*p_c->g22 +
    p_i->c0504z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0505y =                                   /*    c0505y     */
    p_i->c0505x*p_c->g21 +p_i->c0505y*p_c->g22 +
    p_i->c0505z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0506y =                                   /*    c0506y     */
    p_i->c0506x*p_c->g21 +p_i->c0506y*p_c->g22 +
    p_i->c0506z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0507y =                                   /*    c0507y     */
    p_i->c0507x*p_c->g21 +p_i->c0507y*p_c->g22 +
    p_i->c0507z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0508y =                                   /*    c0508y     */
    p_i->c0508x*p_c->g21 +p_i->c0508y*p_c->g22 +
    p_i->c0508z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0509y =                                   /*    c0509y     */
    p_i->c0509x*p_c->g21 +p_i->c0509y*p_c->g22 +
    p_i->c0509z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0510y =                                   /*    c0510y     */
    p_i->c0510x*p_c->g21 +p_i->c0510y*p_c->g22 +
    p_i->c0510z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0511y =                                   /*    c0511y     */
    p_i->c0511x*p_c->g21 +p_i->c0511y*p_c->g22 +
    p_i->c0511z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0512y =                                   /*    c0512y     */
    p_i->c0512x*p_c->g21 +p_i->c0512y*p_c->g22 +
    p_i->c0512z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0513y =                                   /*    c0513y     */
    p_i->c0513x*p_c->g21 +p_i->c0513y*p_c->g22 +
    p_i->c0513z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0514y =                                   /*    c0514y     */
    p_i->c0514x*p_c->g21 +p_i->c0514y*p_c->g22 +
    p_i->c0514z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0515y =                                   /*    c0515y     */
    p_i->c0515x*p_c->g21 +p_i->c0515y*p_c->g22 +
    p_i->c0515z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0516y =                                   /*    c0516y     */
    p_i->c0516x*p_c->g21 +p_i->c0516y*p_c->g22 +
    p_i->c0516z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0517y =                                   /*    c0517y     */
    p_i->c0517x*p_c->g21 +p_i->c0517y*p_c->g22 +
    p_i->c0517z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0518y =                                   /*    c0518y     */
    p_i->c0518x*p_c->g21 +p_i->c0518y*p_c->g22 +
    p_i->c0518z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0519y =                                   /*    c0519y     */
    p_i->c0519x*p_c->g21 +p_i->c0519y*p_c->g22 +
    p_i->c0519z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0520y =                                   /*    c0520y     */
    p_i->c0520x*p_c->g21 +p_i->c0520y*p_c->g22 +
    p_i->c0520z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0521y =                                   /*    c0521y     */
    p_i->c0521x*p_c->g21 +p_i->c0521y*p_c->g22 +
    p_i->c0521z*p_c->g23 +  0.0      *p_c->g24;

    p_t.c0600y =                                   /*    c0600y     */
    p_i->c0600x*p_c->g21 +p_i->c0600y*p_c->g22 +
    p_i->c0600z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0601y =                                   /*    c0601y     */
    p_i->c0601x*p_c->g21 +p_i->c0601y*p_c->g22 +
    p_i->c0601z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0602y =                                   /*    c0602y     */
    p_i->c0602x*p_c->g21 +p_i->c0602y*p_c->g22 +
    p_i->c0602z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0603y =                                   /*    c0603y     */
    p_i->c0603x*p_c->g21 +p_i->c0603y*p_c->g22 +
    p_i->c0603z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0604y =                                   /*    c0604y     */
    p_i->c0604x*p_c->g21 +p_i->c0604y*p_c->g22 +
    p_i->c0604z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0605y =                                   /*    c0605y     */
    p_i->c0605x*p_c->g21 +p_i->c0605y*p_c->g22 +
    p_i->c0605z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0606y =                                   /*    c0606y     */
    p_i->c0606x*p_c->g21 +p_i->c0606y*p_c->g22 +
    p_i->c0606z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0607y =                                   /*    c0607y     */
    p_i->c0607x*p_c->g21 +p_i->c0607y*p_c->g22 +
    p_i->c0607z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0608y =                                   /*    c0608y     */
    p_i->c0608x*p_c->g21 +p_i->c0608y*p_c->g22 +
    p_i->c0608z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0609y =                                   /*    c0609y     */
    p_i->c0609x*p_c->g21 +p_i->c0609y*p_c->g22 +
    p_i->c0609z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0610y =                                   /*    c0610y     */
    p_i->c0610x*p_c->g21 +p_i->c0610y*p_c->g22 +
    p_i->c0610z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0611y =                                   /*    c0611y     */
    p_i->c0611x*p_c->g21 +p_i->c0611y*p_c->g22 +
    p_i->c0611z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0612y =                                   /*    c0612y     */
    p_i->c0612x*p_c->g21 +p_i->c0612y*p_c->g22 +
    p_i->c0612z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0613y =                                   /*    c0613y     */
    p_i->c0613x*p_c->g21 +p_i->c0613y*p_c->g22 +
    p_i->c0613z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0614y =                                   /*    c0614y     */
    p_i->c0614x*p_c->g21 +p_i->c0614y*p_c->g22 +
    p_i->c0614z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0615y =                                   /*    c0615y     */
    p_i->c0615x*p_c->g21 +p_i->c0615y*p_c->g22 +
    p_i->c0615z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0616y =                                   /*    c0616y     */
    p_i->c0616x*p_c->g21 +p_i->c0616y*p_c->g22 +
    p_i->c0616z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0617y =                                   /*    c0617y     */
    p_i->c0617x*p_c->g21 +p_i->c0617y*p_c->g22 +
    p_i->c0617z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0618y =                                   /*    c0618y     */
    p_i->c0618x*p_c->g21 +p_i->c0618y*p_c->g22 +
    p_i->c0618z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0619y =                                   /*    c0619y     */
    p_i->c0619x*p_c->g21 +p_i->c0619y*p_c->g22 +
    p_i->c0619z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0620y =                                   /*    c0620y     */
    p_i->c0620x*p_c->g21 +p_i->c0620y*p_c->g22 +
    p_i->c0620z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0621y =                                   /*    c0621y     */
    p_i->c0621x*p_c->g21 +p_i->c0621y*p_c->g22 +
    p_i->c0621z*p_c->g23 +  0.0      *p_c->g24;

    p_t.c0700y =                                   /*    c0700y     */
    p_i->c0700x*p_c->g21 +p_i->c0700y*p_c->g22 +
    p_i->c0700z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0701y =                                   /*    c0701y     */
    p_i->c0701x*p_c->g21 +p_i->c0701y*p_c->g22 +
    p_i->c0701z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0702y =                                   /*    c0702y     */
    p_i->c0702x*p_c->g21 +p_i->c0702y*p_c->g22 +
    p_i->c0702z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0703y =                                   /*    c0703y     */
    p_i->c0703x*p_c->g21 +p_i->c0703y*p_c->g22 +
    p_i->c0703z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0704y =                                   /*    c0704y     */
    p_i->c0704x*p_c->g21 +p_i->c0704y*p_c->g22 +
    p_i->c0704z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0705y =                                   /*    c0705y     */
    p_i->c0705x*p_c->g21 +p_i->c0705y*p_c->g22 +
    p_i->c0705z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0706y =                                   /*    c0706y     */
    p_i->c0706x*p_c->g21 +p_i->c0706y*p_c->g22 +
    p_i->c0706z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0707y =                                   /*    c0707y     */
    p_i->c0707x*p_c->g21 +p_i->c0707y*p_c->g22 +
    p_i->c0707z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0708y =                                   /*    c0708y     */
    p_i->c0708x*p_c->g21 +p_i->c0708y*p_c->g22 +
    p_i->c0708z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0709y =                                   /*    c0709y     */
    p_i->c0709x*p_c->g21 +p_i->c0709y*p_c->g22 +
    p_i->c0709z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0710y =                                   /*    c0710y     */
    p_i->c0710x*p_c->g21 +p_i->c0710y*p_c->g22 +
    p_i->c0710z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0711y =                                   /*    c0711y     */
    p_i->c0711x*p_c->g21 +p_i->c0711y*p_c->g22 +
    p_i->c0711z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0712y =                                   /*    c0712y     */
    p_i->c0712x*p_c->g21 +p_i->c0712y*p_c->g22 +
    p_i->c0712z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0713y =                                   /*    c0713y     */
    p_i->c0713x*p_c->g21 +p_i->c0713y*p_c->g22 +
    p_i->c0713z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0714y =                                   /*    c0714y     */
    p_i->c0714x*p_c->g21 +p_i->c0714y*p_c->g22 +
    p_i->c0714z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0715y =                                   /*    c0715y     */
    p_i->c0715x*p_c->g21 +p_i->c0715y*p_c->g22 +
    p_i->c0715z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0716y =                                   /*    c0716y     */
    p_i->c0716x*p_c->g21 +p_i->c0716y*p_c->g22 +
    p_i->c0716z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0717y =                                   /*    c0717y     */
    p_i->c0717x*p_c->g21 +p_i->c0717y*p_c->g22 +
    p_i->c0717z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0718y =                                   /*    c0718y     */
    p_i->c0718x*p_c->g21 +p_i->c0718y*p_c->g22 +
    p_i->c0718z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0719y =                                   /*    c0719y     */
    p_i->c0719x*p_c->g21 +p_i->c0719y*p_c->g22 +
    p_i->c0719z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0720y =                                   /*    c0720y     */
    p_i->c0720x*p_c->g21 +p_i->c0720y*p_c->g22 +
    p_i->c0720z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0721y =                                   /*    c0721y     */
    p_i->c0721x*p_c->g21 +p_i->c0721y*p_c->g22 +
    p_i->c0721z*p_c->g23 +  0.0      *p_c->g24;

    p_t.c0800y =                                   /*    c0800y     */
    p_i->c0800x*p_c->g21 +p_i->c0800y*p_c->g22 +
    p_i->c0800z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0801y =                                   /*    c0801y     */
    p_i->c0801x*p_c->g21 +p_i->c0801y*p_c->g22 +
    p_i->c0801z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0802y =                                   /*    c0802y     */
    p_i->c0802x*p_c->g21 +p_i->c0802y*p_c->g22 +
    p_i->c0802z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0803y =                                   /*    c0803y     */
    p_i->c0803x*p_c->g21 +p_i->c0803y*p_c->g22 +
    p_i->c0803z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0804y =                                   /*    c0804y     */
    p_i->c0804x*p_c->g21 +p_i->c0804y*p_c->g22 +
    p_i->c0804z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0805y =                                   /*    c0805y     */
    p_i->c0805x*p_c->g21 +p_i->c0805y*p_c->g22 +
    p_i->c0805z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0806y =                                   /*    c0806y     */
    p_i->c0806x*p_c->g21 +p_i->c0806y*p_c->g22 +
    p_i->c0806z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0807y =                                   /*    c0807y     */
    p_i->c0807x*p_c->g21 +p_i->c0807y*p_c->g22 +
    p_i->c0807z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0808y =                                   /*    c0808y     */
    p_i->c0808x*p_c->g21 +p_i->c0808y*p_c->g22 +
    p_i->c0808z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0809y =                                   /*    c0809y     */
    p_i->c0809x*p_c->g21 +p_i->c0809y*p_c->g22 +
    p_i->c0809z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0810y =                                   /*    c0810y     */
    p_i->c0810x*p_c->g21 +p_i->c0810y*p_c->g22 +
    p_i->c0810z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0811y =                                   /*    c0811y     */
    p_i->c0811x*p_c->g21 +p_i->c0811y*p_c->g22 +
    p_i->c0811z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0812y =                                   /*    c0812y     */
    p_i->c0812x*p_c->g21 +p_i->c0812y*p_c->g22 +
    p_i->c0812z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0813y =                                   /*    c0813y     */
    p_i->c0813x*p_c->g21 +p_i->c0813y*p_c->g22 +
    p_i->c0813z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0814y =                                   /*    c0814y     */
    p_i->c0814x*p_c->g21 +p_i->c0814y*p_c->g22 +
    p_i->c0814z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0815y =                                   /*    c0815y     */
    p_i->c0815x*p_c->g21 +p_i->c0815y*p_c->g22 +
    p_i->c0815z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0816y =                                   /*    c0816y     */
    p_i->c0816x*p_c->g21 +p_i->c0816y*p_c->g22 +
    p_i->c0816z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0817y =                                   /*    c0817y     */
    p_i->c0817x*p_c->g21 +p_i->c0817y*p_c->g22 +
    p_i->c0817z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0818y =                                   /*    c0818y     */
    p_i->c0818x*p_c->g21 +p_i->c0818y*p_c->g22 +
    p_i->c0818z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0819y =                                   /*    c0819y     */
    p_i->c0819x*p_c->g21 +p_i->c0819y*p_c->g22 +
    p_i->c0819z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0820y =                                   /*    c0820y     */
    p_i->c0820x*p_c->g21 +p_i->c0820y*p_c->g22 +
    p_i->c0820z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0821y =                                   /*    c0821y     */
    p_i->c0821x*p_c->g21 +p_i->c0821y*p_c->g22 +
    p_i->c0821z*p_c->g23 +  0.0      *p_c->g24;

    p_t.c0900y =                                   /*    c0900y     */
    p_i->c0900x*p_c->g21 +p_i->c0900y*p_c->g22 +
    p_i->c0900z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0901y =                                   /*    c0901y     */
    p_i->c0901x*p_c->g21 +p_i->c0901y*p_c->g22 +
    p_i->c0901z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0902y =                                   /*    c0902y     */
    p_i->c0902x*p_c->g21 +p_i->c0902y*p_c->g22 +
    p_i->c0902z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0903y =                                   /*    c0903y     */
    p_i->c0903x*p_c->g21 +p_i->c0903y*p_c->g22 +
    p_i->c0903z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0904y =                                   /*    c0904y     */
    p_i->c0904x*p_c->g21 +p_i->c0904y*p_c->g22 +
    p_i->c0904z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0905y =                                   /*    c0905y     */
    p_i->c0905x*p_c->g21 +p_i->c0905y*p_c->g22 +
    p_i->c0905z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0906y =                                   /*    c0906y     */
    p_i->c0906x*p_c->g21 +p_i->c0906y*p_c->g22 +
    p_i->c0906z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0907y =                                   /*    c0907y     */
    p_i->c0907x*p_c->g21 +p_i->c0907y*p_c->g22 +
    p_i->c0907z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0908y =                                   /*    c0908y     */
    p_i->c0908x*p_c->g21 +p_i->c0908y*p_c->g22 +
    p_i->c0908z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0909y =                                   /*    c0909y     */
    p_i->c0909x*p_c->g21 +p_i->c0909y*p_c->g22 +
    p_i->c0909z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0910y =                                   /*    c0910y     */
    p_i->c0910x*p_c->g21 +p_i->c0910y*p_c->g22 +
    p_i->c0910z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0911y =                                   /*    c0911y     */
    p_i->c0911x*p_c->g21 +p_i->c0911y*p_c->g22 +
    p_i->c0911z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0912y =                                   /*    c0912y     */
    p_i->c0912x*p_c->g21 +p_i->c0912y*p_c->g22 +
    p_i->c0912z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0913y =                                   /*    c0913y     */
    p_i->c0913x*p_c->g21 +p_i->c0913y*p_c->g22 +
    p_i->c0913z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0914y =                                   /*    c0914y     */
    p_i->c0914x*p_c->g21 +p_i->c0914y*p_c->g22 +
    p_i->c0914z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0915y =                                   /*    c0915y     */
    p_i->c0915x*p_c->g21 +p_i->c0915y*p_c->g22 +
    p_i->c0915z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0916y =                                   /*    c0916y     */
    p_i->c0916x*p_c->g21 +p_i->c0916y*p_c->g22 +
    p_i->c0916z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0917y =                                   /*    c0917y     */
    p_i->c0917x*p_c->g21 +p_i->c0917y*p_c->g22 +
    p_i->c0917z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0918y =                                   /*    c0918y     */
    p_i->c0918x*p_c->g21 +p_i->c0918y*p_c->g22 +
    p_i->c0918z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0919y =                                   /*    c0919y     */
    p_i->c0919x*p_c->g21 +p_i->c0919y*p_c->g22 +
    p_i->c0919z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0920y =                                   /*    c0920y     */
    p_i->c0920x*p_c->g21 +p_i->c0920y*p_c->g22 +
    p_i->c0920z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c0921y =                                   /*    c0921y     */
    p_i->c0921x*p_c->g21 +p_i->c0921y*p_c->g22 +
    p_i->c0921z*p_c->g23 +  0.0      *p_c->g24;

    p_t.c1000y =                                   /*    c1000y     */
    p_i->c1000x*p_c->g21 +p_i->c1000y*p_c->g22 +
    p_i->c1000z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1001y =                                   /*    c1001y     */
    p_i->c1001x*p_c->g21 +p_i->c1001y*p_c->g22 +
    p_i->c1001z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1002y =                                   /*    c1002y     */
    p_i->c1002x*p_c->g21 +p_i->c1002y*p_c->g22 +
    p_i->c1002z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1003y =                                   /*    c1003y     */
    p_i->c1003x*p_c->g21 +p_i->c1003y*p_c->g22 +
    p_i->c1003z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1004y =                                   /*    c1004y     */
    p_i->c1004x*p_c->g21 +p_i->c1004y*p_c->g22 +
    p_i->c1004z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1005y =                                   /*    c1005y     */
    p_i->c1005x*p_c->g21 +p_i->c1005y*p_c->g22 +
    p_i->c1005z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1006y =                                   /*    c1006y     */
    p_i->c1006x*p_c->g21 +p_i->c1006y*p_c->g22 +
    p_i->c1006z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1007y =                                   /*    c1007y     */
    p_i->c1007x*p_c->g21 +p_i->c1007y*p_c->g22 +
    p_i->c1007z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1008y =                                   /*    c1008y     */
    p_i->c1008x*p_c->g21 +p_i->c1008y*p_c->g22 +
    p_i->c1008z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1009y =                                   /*    c1009y     */
    p_i->c1009x*p_c->g21 +p_i->c1009y*p_c->g22 +
    p_i->c1009z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1010y =                                   /*    c1010y     */
    p_i->c1010x*p_c->g21 +p_i->c1010y*p_c->g22 +
    p_i->c1010z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1011y =                                   /*    c1011y     */
    p_i->c1011x*p_c->g21 +p_i->c1011y*p_c->g22 +
    p_i->c1011z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1012y =                                   /*    c1012y     */
    p_i->c1012x*p_c->g21 +p_i->c1012y*p_c->g22 +
    p_i->c1012z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1013y =                                   /*    c1013y     */
    p_i->c1013x*p_c->g21 +p_i->c1013y*p_c->g22 +
    p_i->c1013z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1014y =                                   /*    c1014y     */
    p_i->c1014x*p_c->g21 +p_i->c1014y*p_c->g22 +
    p_i->c1014z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1015y =                                   /*    c1015y     */
    p_i->c1015x*p_c->g21 +p_i->c1015y*p_c->g22 +
    p_i->c1015z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1016y =                                   /*    c1016y     */
    p_i->c1016x*p_c->g21 +p_i->c1016y*p_c->g22 +
    p_i->c1016z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1017y =                                   /*    c1017y     */
    p_i->c1017x*p_c->g21 +p_i->c1017y*p_c->g22 +
    p_i->c1017z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1018y =                                   /*    c1018y     */
    p_i->c1018x*p_c->g21 +p_i->c1018y*p_c->g22 +
    p_i->c1018z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1019y =                                   /*    c1019y     */
    p_i->c1019x*p_c->g21 +p_i->c1019y*p_c->g22 +
    p_i->c1019z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1020y =                                   /*    c1020y     */
    p_i->c1020x*p_c->g21 +p_i->c1020y*p_c->g22 +
    p_i->c1020z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1021y =                                   /*    c1021y     */
    p_i->c1021x*p_c->g21 +p_i->c1021y*p_c->g22 +
    p_i->c1021z*p_c->g23 +  0.0      *p_c->g24;

    p_t.c1100y =                                   /*    c1100y     */
    p_i->c1100x*p_c->g21 +p_i->c1100y*p_c->g22 +
    p_i->c1100z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1101y =                                   /*    c1101y     */
    p_i->c1101x*p_c->g21 +p_i->c1101y*p_c->g22 +
    p_i->c1101z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1102y =                                   /*    c1102y     */
    p_i->c1102x*p_c->g21 +p_i->c1102y*p_c->g22 +
    p_i->c1102z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1103y =                                   /*    c1103y     */
    p_i->c1103x*p_c->g21 +p_i->c1103y*p_c->g22 +
    p_i->c1103z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1104y =                                   /*    c1104y     */
    p_i->c1104x*p_c->g21 +p_i->c1104y*p_c->g22 +
    p_i->c1104z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1105y =                                   /*    c1105y     */
    p_i->c1105x*p_c->g21 +p_i->c1105y*p_c->g22 +
    p_i->c1105z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1106y =                                   /*    c1106y     */
    p_i->c1106x*p_c->g21 +p_i->c1106y*p_c->g22 +
    p_i->c1106z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1107y =                                   /*    c1107y     */
    p_i->c1107x*p_c->g21 +p_i->c1107y*p_c->g22 +
    p_i->c1107z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1108y =                                   /*    c1108y     */
    p_i->c1108x*p_c->g21 +p_i->c1108y*p_c->g22 +
    p_i->c1108z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1109y =                                   /*    c1109y     */
    p_i->c1109x*p_c->g21 +p_i->c1109y*p_c->g22 +
    p_i->c1109z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1110y =                                   /*    c1110y     */
    p_i->c1110x*p_c->g21 +p_i->c1110y*p_c->g22 +
    p_i->c1110z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1111y =                                   /*    c1111y     */
    p_i->c1111x*p_c->g21 +p_i->c1111y*p_c->g22 +
    p_i->c1111z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1112y =                                   /*    c1112y     */
    p_i->c1112x*p_c->g21 +p_i->c1112y*p_c->g22 +
    p_i->c1112z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1113y =                                   /*    c1113y     */
    p_i->c1113x*p_c->g21 +p_i->c1113y*p_c->g22 +
    p_i->c1113z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1114y =                                   /*    c1114y     */
    p_i->c1114x*p_c->g21 +p_i->c1114y*p_c->g22 +
    p_i->c1114z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1115y =                                   /*    c1115y     */
    p_i->c1115x*p_c->g21 +p_i->c1115y*p_c->g22 +
    p_i->c1115z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1116y =                                   /*    c1116y     */
    p_i->c1116x*p_c->g21 +p_i->c1116y*p_c->g22 +
    p_i->c1116z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1117y =                                   /*    c1117y     */
    p_i->c1117x*p_c->g21 +p_i->c1117y*p_c->g22 +
    p_i->c1117z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1118y =                                   /*    c1118y     */
    p_i->c1118x*p_c->g21 +p_i->c1118y*p_c->g22 +
    p_i->c1118z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1119y =                                   /*    c1119y     */
    p_i->c1119x*p_c->g21 +p_i->c1119y*p_c->g22 +
    p_i->c1119z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1120y =                                   /*    c1120y     */
    p_i->c1120x*p_c->g21 +p_i->c1120y*p_c->g22 +
    p_i->c1120z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1121y =                                   /*    c1121y     */
    p_i->c1121x*p_c->g21 +p_i->c1121y*p_c->g22 +
    p_i->c1121z*p_c->g23 +  0.0      *p_c->g24;

    p_t.c1200y =                                   /*    c1200y     */
    p_i->c1200x*p_c->g21 +p_i->c1200y*p_c->g22 +
    p_i->c1200z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1201y =                                   /*    c1201y     */
    p_i->c1201x*p_c->g21 +p_i->c1201y*p_c->g22 +
    p_i->c1201z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1202y =                                   /*    c1202y     */
    p_i->c1202x*p_c->g21 +p_i->c1202y*p_c->g22 +
    p_i->c1202z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1203y =                                   /*    c1203y     */
    p_i->c1203x*p_c->g21 +p_i->c1203y*p_c->g22 +
    p_i->c1203z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1204y =                                   /*    c1204y     */
    p_i->c1204x*p_c->g21 +p_i->c1204y*p_c->g22 +
    p_i->c1204z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1205y =                                   /*    c1205y     */
    p_i->c1205x*p_c->g21 +p_i->c1205y*p_c->g22 +
    p_i->c1205z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1206y =                                   /*    c1206y     */
    p_i->c1206x*p_c->g21 +p_i->c1206y*p_c->g22 +
    p_i->c1206z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1207y =                                   /*    c1207y     */
    p_i->c1207x*p_c->g21 +p_i->c1207y*p_c->g22 +
    p_i->c1207z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1208y =                                   /*    c1208y     */
    p_i->c1208x*p_c->g21 +p_i->c1208y*p_c->g22 +
    p_i->c1208z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1209y =                                   /*    c1209y     */
    p_i->c1209x*p_c->g21 +p_i->c1209y*p_c->g22 +
    p_i->c1209z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1210y =                                   /*    c1210y     */
    p_i->c1210x*p_c->g21 +p_i->c1210y*p_c->g22 +
    p_i->c1210z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1211y =                                   /*    c1211y     */
    p_i->c1211x*p_c->g21 +p_i->c1211y*p_c->g22 +
    p_i->c1211z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1212y =                                   /*    c1212y     */
    p_i->c1212x*p_c->g21 +p_i->c1212y*p_c->g22 +
    p_i->c1212z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1213y =                                   /*    c1213y     */
    p_i->c1213x*p_c->g21 +p_i->c1213y*p_c->g22 +
    p_i->c1213z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1214y =                                   /*    c1214y     */
    p_i->c1214x*p_c->g21 +p_i->c1214y*p_c->g22 +
    p_i->c1214z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1215y =                                   /*    c1215y     */
    p_i->c1215x*p_c->g21 +p_i->c1215y*p_c->g22 +
    p_i->c1215z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1216y =                                   /*    c1216y     */
    p_i->c1216x*p_c->g21 +p_i->c1216y*p_c->g22 +
    p_i->c1216z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1217y =                                   /*    c1217y     */
    p_i->c1217x*p_c->g21 +p_i->c1217y*p_c->g22 +
    p_i->c1217z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1218y =                                   /*    c1218y     */
    p_i->c1218x*p_c->g21 +p_i->c1218y*p_c->g22 +
    p_i->c1218z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1219y =                                   /*    c1219y     */
    p_i->c1219x*p_c->g21 +p_i->c1219y*p_c->g22 +
    p_i->c1219z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1220y =                                   /*    c1220y     */
    p_i->c1220x*p_c->g21 +p_i->c1220y*p_c->g22 +
    p_i->c1220z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1221y =                                   /*    c1221y     */
    p_i->c1221x*p_c->g21 +p_i->c1221y*p_c->g22 +
    p_i->c1221z*p_c->g23 +  0.0      *p_c->g24;

    p_t.c1300y =                                   /*    c1300y     */
    p_i->c1300x*p_c->g21 +p_i->c1300y*p_c->g22 +
    p_i->c1300z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1301y =                                   /*    c1301y     */
    p_i->c1301x*p_c->g21 +p_i->c1301y*p_c->g22 +
    p_i->c1301z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1302y =                                   /*    c1302y     */
    p_i->c1302x*p_c->g21 +p_i->c1302y*p_c->g22 +
    p_i->c1302z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1303y =                                   /*    c1303y     */
    p_i->c1303x*p_c->g21 +p_i->c1303y*p_c->g22 +
    p_i->c1303z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1304y =                                   /*    c1304y     */
    p_i->c1304x*p_c->g21 +p_i->c1304y*p_c->g22 +
    p_i->c1304z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1305y =                                   /*    c1305y     */
    p_i->c1305x*p_c->g21 +p_i->c1305y*p_c->g22 +
    p_i->c1305z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1306y =                                   /*    c1306y     */
    p_i->c1306x*p_c->g21 +p_i->c1306y*p_c->g22 +
    p_i->c1306z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1307y =                                   /*    c1307y     */
    p_i->c1307x*p_c->g21 +p_i->c1307y*p_c->g22 +
    p_i->c1307z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1308y =                                   /*    c1308y     */
    p_i->c1308x*p_c->g21 +p_i->c1308y*p_c->g22 +
    p_i->c1308z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1309y =                                   /*    c1309y     */
    p_i->c1309x*p_c->g21 +p_i->c1309y*p_c->g22 +
    p_i->c1309z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1310y =                                   /*    c1310y     */
    p_i->c1310x*p_c->g21 +p_i->c1310y*p_c->g22 +
    p_i->c1310z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1311y =                                   /*    c1311y     */
    p_i->c1311x*p_c->g21 +p_i->c1311y*p_c->g22 +
    p_i->c1311z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1312y =                                   /*    c1312y     */
    p_i->c1312x*p_c->g21 +p_i->c1312y*p_c->g22 +
    p_i->c1312z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1313y =                                   /*    c1313y     */
    p_i->c1313x*p_c->g21 +p_i->c1313y*p_c->g22 +
    p_i->c1313z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1314y =                                   /*    c1314y     */
    p_i->c1314x*p_c->g21 +p_i->c1314y*p_c->g22 +
    p_i->c1314z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1315y =                                   /*    c1315y     */
    p_i->c1315x*p_c->g21 +p_i->c1315y*p_c->g22 +
    p_i->c1315z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1316y =                                   /*    c1316y     */
    p_i->c1316x*p_c->g21 +p_i->c1316y*p_c->g22 +
    p_i->c1316z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1317y =                                   /*    c1317y     */
    p_i->c1317x*p_c->g21 +p_i->c1317y*p_c->g22 +
    p_i->c1317z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1318y =                                   /*    c1318y     */
    p_i->c1318x*p_c->g21 +p_i->c1318y*p_c->g22 +
    p_i->c1318z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1319y =                                   /*    c1319y     */
    p_i->c1319x*p_c->g21 +p_i->c1319y*p_c->g22 +
    p_i->c1319z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1320y =                                   /*    c1320y     */
    p_i->c1320x*p_c->g21 +p_i->c1320y*p_c->g22 +
    p_i->c1320z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1321y =                                   /*    c1321y     */
    p_i->c1321x*p_c->g21 +p_i->c1321y*p_c->g22 +
    p_i->c1321z*p_c->g23 +  0.0      *p_c->g24;

    p_t.c1400y =                                   /*    c1400y     */
    p_i->c1400x*p_c->g21 +p_i->c1400y*p_c->g22 +
    p_i->c1400z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1401y =                                   /*    c1401y     */
    p_i->c1401x*p_c->g21 +p_i->c1401y*p_c->g22 +
    p_i->c1401z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1402y =                                   /*    c1402y     */
    p_i->c1402x*p_c->g21 +p_i->c1402y*p_c->g22 +
    p_i->c1402z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1403y =                                   /*    c1403y     */
    p_i->c1403x*p_c->g21 +p_i->c1403y*p_c->g22 +
    p_i->c1403z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1404y =                                   /*    c1404y     */
    p_i->c1404x*p_c->g21 +p_i->c1404y*p_c->g22 +
    p_i->c1404z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1405y =                                   /*    c1405y     */
    p_i->c1405x*p_c->g21 +p_i->c1405y*p_c->g22 +
    p_i->c1405z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1406y =                                   /*    c1406y     */
    p_i->c1406x*p_c->g21 +p_i->c1406y*p_c->g22 +
    p_i->c1406z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1407y =                                   /*    c1407y     */
    p_i->c1407x*p_c->g21 +p_i->c1407y*p_c->g22 +
    p_i->c1407z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1408y =                                   /*    c1408y     */
    p_i->c1408x*p_c->g21 +p_i->c1408y*p_c->g22 +
    p_i->c1408z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1409y =                                   /*    c1409y     */
    p_i->c1409x*p_c->g21 +p_i->c1409y*p_c->g22 +
    p_i->c1409z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1410y =                                   /*    c1410y     */
    p_i->c1410x*p_c->g21 +p_i->c1410y*p_c->g22 +
    p_i->c1410z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1411y =                                   /*    c1411y     */
    p_i->c1411x*p_c->g21 +p_i->c1411y*p_c->g22 +
    p_i->c1411z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1412y =                                   /*    c1412y     */
    p_i->c1412x*p_c->g21 +p_i->c1412y*p_c->g22 +
    p_i->c1412z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1413y =                                   /*    c1413y     */
    p_i->c1413x*p_c->g21 +p_i->c1413y*p_c->g22 +
    p_i->c1413z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1414y =                                   /*    c1414y     */
    p_i->c1414x*p_c->g21 +p_i->c1414y*p_c->g22 +
    p_i->c1414z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1415y =                                   /*    c1415y     */
    p_i->c1415x*p_c->g21 +p_i->c1415y*p_c->g22 +
    p_i->c1415z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1416y =                                   /*    c1416y     */
    p_i->c1416x*p_c->g21 +p_i->c1416y*p_c->g22 +
    p_i->c1416z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1417y =                                   /*    c1417y     */
    p_i->c1417x*p_c->g21 +p_i->c1417y*p_c->g22 +
    p_i->c1417z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1418y =                                   /*    c1418y     */
    p_i->c1418x*p_c->g21 +p_i->c1418y*p_c->g22 +
    p_i->c1418z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1419y =                                   /*    c1419y     */
    p_i->c1419x*p_c->g21 +p_i->c1419y*p_c->g22 +
    p_i->c1419z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1420y =                                   /*    c1420y     */
    p_i->c1420x*p_c->g21 +p_i->c1420y*p_c->g22 +
    p_i->c1420z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1421y =                                   /*    c1421y     */
    p_i->c1421x*p_c->g21 +p_i->c1421y*p_c->g22 +
    p_i->c1421z*p_c->g23 +  0.0      *p_c->g24;

    p_t.c1500y =                                   /*    c1500y     */
    p_i->c1500x*p_c->g21 +p_i->c1500y*p_c->g22 +
    p_i->c1500z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1501y =                                   /*    c1501y     */
    p_i->c1501x*p_c->g21 +p_i->c1501y*p_c->g22 +
    p_i->c1501z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1502y =                                   /*    c1502y     */
    p_i->c1502x*p_c->g21 +p_i->c1502y*p_c->g22 +
    p_i->c1502z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1503y =                                   /*    c1503y     */
    p_i->c1503x*p_c->g21 +p_i->c1503y*p_c->g22 +
    p_i->c1503z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1504y =                                   /*    c1504y     */
    p_i->c1504x*p_c->g21 +p_i->c1504y*p_c->g22 +
    p_i->c1504z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1505y =                                   /*    c1505y     */
    p_i->c1505x*p_c->g21 +p_i->c1505y*p_c->g22 +
    p_i->c1505z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1506y =                                   /*    c1506y     */
    p_i->c1506x*p_c->g21 +p_i->c1506y*p_c->g22 +
    p_i->c1506z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1507y =                                   /*    c1507y     */
    p_i->c1507x*p_c->g21 +p_i->c1507y*p_c->g22 +
    p_i->c1507z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1508y =                                   /*    c1508y     */
    p_i->c1508x*p_c->g21 +p_i->c1508y*p_c->g22 +
    p_i->c1508z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1509y =                                   /*    c1509y     */
    p_i->c1509x*p_c->g21 +p_i->c1509y*p_c->g22 +
    p_i->c1509z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1510y =                                   /*    c1510y     */
    p_i->c1510x*p_c->g21 +p_i->c1510y*p_c->g22 +
    p_i->c1510z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1511y =                                   /*    c1511y     */
    p_i->c1511x*p_c->g21 +p_i->c1511y*p_c->g22 +
    p_i->c1511z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1512y =                                   /*    c1512y     */
    p_i->c1512x*p_c->g21 +p_i->c1512y*p_c->g22 +
    p_i->c1512z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1513y =                                   /*    c1513y     */
    p_i->c1513x*p_c->g21 +p_i->c1513y*p_c->g22 +
    p_i->c1513z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1514y =                                   /*    c1514y     */
    p_i->c1514x*p_c->g21 +p_i->c1514y*p_c->g22 +
    p_i->c1514z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1515y =                                   /*    c1515y     */
    p_i->c1515x*p_c->g21 +p_i->c1515y*p_c->g22 +
    p_i->c1515z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1516y =                                   /*    c1516y     */
    p_i->c1516x*p_c->g21 +p_i->c1516y*p_c->g22 +
    p_i->c1516z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1517y =                                   /*    c1517y     */
    p_i->c1517x*p_c->g21 +p_i->c1517y*p_c->g22 +
    p_i->c1517z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1518y =                                   /*    c1518y     */
    p_i->c1518x*p_c->g21 +p_i->c1518y*p_c->g22 +
    p_i->c1518z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1519y =                                   /*    c1519y     */
    p_i->c1519x*p_c->g21 +p_i->c1519y*p_c->g22 +
    p_i->c1519z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1520y =                                   /*    c1520y     */
    p_i->c1520x*p_c->g21 +p_i->c1520y*p_c->g22 +
    p_i->c1520z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1521y =                                   /*    c1521y     */
    p_i->c1521x*p_c->g21 +p_i->c1521y*p_c->g22 +
    p_i->c1521z*p_c->g23 +  0.0      *p_c->g24;

    p_t.c1600y =                                   /*    c1600y     */
    p_i->c1600x*p_c->g21 +p_i->c1600y*p_c->g22 +
    p_i->c1600z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1601y =                                   /*    c1601y     */
    p_i->c1601x*p_c->g21 +p_i->c1601y*p_c->g22 +
    p_i->c1601z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1602y =                                   /*    c1602y     */
    p_i->c1602x*p_c->g21 +p_i->c1602y*p_c->g22 +
    p_i->c1602z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1603y =                                   /*    c1603y     */
    p_i->c1603x*p_c->g21 +p_i->c1603y*p_c->g22 +
    p_i->c1603z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1604y =                                   /*    c1604y     */
    p_i->c1604x*p_c->g21 +p_i->c1604y*p_c->g22 +
    p_i->c1604z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1605y =                                   /*    c1605y     */
    p_i->c1605x*p_c->g21 +p_i->c1605y*p_c->g22 +
    p_i->c1605z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1606y =                                   /*    c1606y     */
    p_i->c1606x*p_c->g21 +p_i->c1606y*p_c->g22 +
    p_i->c1606z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1607y =                                   /*    c1607y     */
    p_i->c1607x*p_c->g21 +p_i->c1607y*p_c->g22 +
    p_i->c1607z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1608y =                                   /*    c1608y     */
    p_i->c1608x*p_c->g21 +p_i->c1608y*p_c->g22 +
    p_i->c1608z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1609y =                                   /*    c1609y     */
    p_i->c1609x*p_c->g21 +p_i->c1609y*p_c->g22 +
    p_i->c1609z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1610y =                                   /*    c1610y     */
    p_i->c1610x*p_c->g21 +p_i->c1610y*p_c->g22 +
    p_i->c1610z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1611y =                                   /*    c1611y     */
    p_i->c1611x*p_c->g21 +p_i->c1611y*p_c->g22 +
    p_i->c1611z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1612y =                                   /*    c1612y     */
    p_i->c1612x*p_c->g21 +p_i->c1612y*p_c->g22 +
    p_i->c1612z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1613y =                                   /*    c1613y     */
    p_i->c1613x*p_c->g21 +p_i->c1613y*p_c->g22 +
    p_i->c1613z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1614y =                                   /*    c1614y     */
    p_i->c1614x*p_c->g21 +p_i->c1614y*p_c->g22 +
    p_i->c1614z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1615y =                                   /*    c1615y     */
    p_i->c1615x*p_c->g21 +p_i->c1615y*p_c->g22 +
    p_i->c1615z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1616y =                                   /*    c1616y     */
    p_i->c1616x*p_c->g21 +p_i->c1616y*p_c->g22 +
    p_i->c1616z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1617y =                                   /*    c1617y     */
    p_i->c1617x*p_c->g21 +p_i->c1617y*p_c->g22 +
    p_i->c1617z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1618y =                                   /*    c1618y     */
    p_i->c1618x*p_c->g21 +p_i->c1618y*p_c->g22 +
    p_i->c1618z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1619y =                                   /*    c1619y     */
    p_i->c1619x*p_c->g21 +p_i->c1619y*p_c->g22 +
    p_i->c1619z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1620y =                                   /*    c1620y     */
    p_i->c1620x*p_c->g21 +p_i->c1620y*p_c->g22 +
    p_i->c1620z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1621y =                                   /*    c1621y     */
    p_i->c1621x*p_c->g21 +p_i->c1621y*p_c->g22 +
    p_i->c1621z*p_c->g23 +  0.0      *p_c->g24;

    p_t.c1700y =                                   /*    c1700y     */
    p_i->c1700x*p_c->g21 +p_i->c1700y*p_c->g22 +
    p_i->c1700z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1701y =                                   /*    c1701y     */
    p_i->c1701x*p_c->g21 +p_i->c1701y*p_c->g22 +
    p_i->c1701z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1702y =                                   /*    c1702y     */
    p_i->c1702x*p_c->g21 +p_i->c1702y*p_c->g22 +
    p_i->c1702z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1703y =                                   /*    c1703y     */
    p_i->c1703x*p_c->g21 +p_i->c1703y*p_c->g22 +
    p_i->c1703z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1704y =                                   /*    c1704y     */
    p_i->c1704x*p_c->g21 +p_i->c1704y*p_c->g22 +
    p_i->c1704z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1705y =                                   /*    c1705y     */
    p_i->c1705x*p_c->g21 +p_i->c1705y*p_c->g22 +
    p_i->c1705z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1706y =                                   /*    c1706y     */
    p_i->c1706x*p_c->g21 +p_i->c1706y*p_c->g22 +
    p_i->c1706z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1707y =                                   /*    c1707y     */
    p_i->c1707x*p_c->g21 +p_i->c1707y*p_c->g22 +
    p_i->c1707z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1708y =                                   /*    c1708y     */
    p_i->c1708x*p_c->g21 +p_i->c1708y*p_c->g22 +
    p_i->c1708z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1709y =                                   /*    c1709y     */
    p_i->c1709x*p_c->g21 +p_i->c1709y*p_c->g22 +
    p_i->c1709z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1710y =                                   /*    c1710y     */
    p_i->c1710x*p_c->g21 +p_i->c1710y*p_c->g22 +
    p_i->c1710z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1711y =                                   /*    c1711y     */
    p_i->c1711x*p_c->g21 +p_i->c1711y*p_c->g22 +
    p_i->c1711z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1712y =                                   /*    c1712y     */
    p_i->c1712x*p_c->g21 +p_i->c1712y*p_c->g22 +
    p_i->c1712z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1713y =                                   /*    c1713y     */
    p_i->c1713x*p_c->g21 +p_i->c1713y*p_c->g22 +
    p_i->c1713z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1714y =                                   /*    c1714y     */
    p_i->c1714x*p_c->g21 +p_i->c1714y*p_c->g22 +
    p_i->c1714z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1715y =                                   /*    c1715y     */
    p_i->c1715x*p_c->g21 +p_i->c1715y*p_c->g22 +
    p_i->c1715z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1716y =                                   /*    c1716y     */
    p_i->c1716x*p_c->g21 +p_i->c1716y*p_c->g22 +
    p_i->c1716z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1717y =                                   /*    c1717y     */
    p_i->c1717x*p_c->g21 +p_i->c1717y*p_c->g22 +
    p_i->c1717z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1718y =                                   /*    c1718y     */
    p_i->c1718x*p_c->g21 +p_i->c1718y*p_c->g22 +
    p_i->c1718z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1719y =                                   /*    c1719y     */
    p_i->c1719x*p_c->g21 +p_i->c1719y*p_c->g22 +
    p_i->c1719z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1720y =                                   /*    c1720y     */
    p_i->c1720x*p_c->g21 +p_i->c1720y*p_c->g22 +
    p_i->c1720z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1721y =                                   /*    c1721y     */
    p_i->c1721x*p_c->g21 +p_i->c1721y*p_c->g22 +
    p_i->c1721z*p_c->g23 +  0.0      *p_c->g24;

    p_t.c1800y =                                   /*    c1800y     */
    p_i->c1800x*p_c->g21 +p_i->c1800y*p_c->g22 +
    p_i->c1800z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1801y =                                   /*    c1801y     */
    p_i->c1801x*p_c->g21 +p_i->c1801y*p_c->g22 +
    p_i->c1801z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1802y =                                   /*    c1802y     */
    p_i->c1802x*p_c->g21 +p_i->c1802y*p_c->g22 +
    p_i->c1802z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1803y =                                   /*    c1803y     */
    p_i->c1803x*p_c->g21 +p_i->c1803y*p_c->g22 +
    p_i->c1803z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1804y =                                   /*    c1804y     */
    p_i->c1804x*p_c->g21 +p_i->c1804y*p_c->g22 +
    p_i->c1804z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1805y =                                   /*    c1805y     */
    p_i->c1805x*p_c->g21 +p_i->c1805y*p_c->g22 +
    p_i->c1805z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1806y =                                   /*    c1806y     */
    p_i->c1806x*p_c->g21 +p_i->c1806y*p_c->g22 +
    p_i->c1806z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1807y =                                   /*    c1807y     */
    p_i->c1807x*p_c->g21 +p_i->c1807y*p_c->g22 +
    p_i->c1807z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1808y =                                   /*    c1808y     */
    p_i->c1808x*p_c->g21 +p_i->c1808y*p_c->g22 +
    p_i->c1808z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1809y =                                   /*    c1809y     */
    p_i->c1809x*p_c->g21 +p_i->c1809y*p_c->g22 +
    p_i->c1809z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1810y =                                   /*    c1810y     */
    p_i->c1810x*p_c->g21 +p_i->c1810y*p_c->g22 +
    p_i->c1810z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1811y =                                   /*    c1811y     */
    p_i->c1811x*p_c->g21 +p_i->c1811y*p_c->g22 +
    p_i->c1811z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1812y =                                   /*    c1812y     */
    p_i->c1812x*p_c->g21 +p_i->c1812y*p_c->g22 +
    p_i->c1812z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1813y =                                   /*    c1813y     */
    p_i->c1813x*p_c->g21 +p_i->c1813y*p_c->g22 +
    p_i->c1813z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1814y =                                   /*    c1814y     */
    p_i->c1814x*p_c->g21 +p_i->c1814y*p_c->g22 +
    p_i->c1814z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1815y =                                   /*    c1815y     */
    p_i->c1815x*p_c->g21 +p_i->c1815y*p_c->g22 +
    p_i->c1815z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1816y =                                   /*    c1816y     */
    p_i->c1816x*p_c->g21 +p_i->c1816y*p_c->g22 +
    p_i->c1816z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1817y =                                   /*    c1817y     */
    p_i->c1817x*p_c->g21 +p_i->c1817y*p_c->g22 +
    p_i->c1817z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1818y =                                   /*    c1818y     */
    p_i->c1818x*p_c->g21 +p_i->c1818y*p_c->g22 +
    p_i->c1818z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1819y =                                   /*    c1819y     */
    p_i->c1819x*p_c->g21 +p_i->c1819y*p_c->g22 +
    p_i->c1819z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1820y =                                   /*    c1820y     */
    p_i->c1820x*p_c->g21 +p_i->c1820y*p_c->g22 +
    p_i->c1820z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1821y =                                   /*    c1821y     */
    p_i->c1821x*p_c->g21 +p_i->c1821y*p_c->g22 +
    p_i->c1821z*p_c->g23 +  0.0      *p_c->g24;

    p_t.c1900y =                                   /*    c1900y     */
    p_i->c1900x*p_c->g21 +p_i->c1900y*p_c->g22 +
    p_i->c1900z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1901y =                                   /*    c1901y     */
    p_i->c1901x*p_c->g21 +p_i->c1901y*p_c->g22 +
    p_i->c1901z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1902y =                                   /*    c1902y     */
    p_i->c1902x*p_c->g21 +p_i->c1902y*p_c->g22 +
    p_i->c1902z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1903y =                                   /*    c1903y     */
    p_i->c1903x*p_c->g21 +p_i->c1903y*p_c->g22 +
    p_i->c1903z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1904y =                                   /*    c1904y     */
    p_i->c1904x*p_c->g21 +p_i->c1904y*p_c->g22 +
    p_i->c1904z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1905y =                                   /*    c1905y     */
    p_i->c1905x*p_c->g21 +p_i->c1905y*p_c->g22 +
    p_i->c1905z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1906y =                                   /*    c1906y     */
    p_i->c1906x*p_c->g21 +p_i->c1906y*p_c->g22 +
    p_i->c1906z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1907y =                                   /*    c1907y     */
    p_i->c1907x*p_c->g21 +p_i->c1907y*p_c->g22 +
    p_i->c1907z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1908y =                                   /*    c1908y     */
    p_i->c1908x*p_c->g21 +p_i->c1908y*p_c->g22 +
    p_i->c1908z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1909y =                                   /*    c1909y     */
    p_i->c1909x*p_c->g21 +p_i->c1909y*p_c->g22 +
    p_i->c1909z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1910y =                                   /*    c1910y     */
    p_i->c1910x*p_c->g21 +p_i->c1910y*p_c->g22 +
    p_i->c1910z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1911y =                                   /*    c1911y     */
    p_i->c1911x*p_c->g21 +p_i->c1911y*p_c->g22 +
    p_i->c1911z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1912y =                                   /*    c1912y     */
    p_i->c1912x*p_c->g21 +p_i->c1912y*p_c->g22 +
    p_i->c1912z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1913y =                                   /*    c1913y     */
    p_i->c1913x*p_c->g21 +p_i->c1913y*p_c->g22 +
    p_i->c1913z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1914y =                                   /*    c1914y     */
    p_i->c1914x*p_c->g21 +p_i->c1914y*p_c->g22 +
    p_i->c1914z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1915y =                                   /*    c1915y     */
    p_i->c1915x*p_c->g21 +p_i->c1915y*p_c->g22 +
    p_i->c1915z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1916y =                                   /*    c1916y     */
    p_i->c1916x*p_c->g21 +p_i->c1916y*p_c->g22 +
    p_i->c1916z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1917y =                                   /*    c1917y     */
    p_i->c1917x*p_c->g21 +p_i->c1917y*p_c->g22 +
    p_i->c1917z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1918y =                                   /*    c1918y     */
    p_i->c1918x*p_c->g21 +p_i->c1918y*p_c->g22 +
    p_i->c1918z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1919y =                                   /*    c1919y     */
    p_i->c1919x*p_c->g21 +p_i->c1919y*p_c->g22 +
    p_i->c1919z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1920y =                                   /*    c1920y     */
    p_i->c1920x*p_c->g21 +p_i->c1920y*p_c->g22 +
    p_i->c1920z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c1921y =                                   /*    c1921y     */
    p_i->c1921x*p_c->g21 +p_i->c1921y*p_c->g22 +
    p_i->c1921z*p_c->g23 +  0.0      *p_c->g24;

    p_t.c2000y =                                   /*    c2000y     */
    p_i->c2000x*p_c->g21 +p_i->c2000y*p_c->g22 +
    p_i->c2000z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c2001y =                                   /*    c2001y     */
    p_i->c2001x*p_c->g21 +p_i->c2001y*p_c->g22 +
    p_i->c2001z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c2002y =                                   /*    c2002y     */
    p_i->c2002x*p_c->g21 +p_i->c2002y*p_c->g22 +
    p_i->c2002z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c2003y =                                   /*    c2003y     */
    p_i->c2003x*p_c->g21 +p_i->c2003y*p_c->g22 +
    p_i->c2003z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c2004y =                                   /*    c2004y     */
    p_i->c2004x*p_c->g21 +p_i->c2004y*p_c->g22 +
    p_i->c2004z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c2005y =                                   /*    c2005y     */
    p_i->c2005x*p_c->g21 +p_i->c2005y*p_c->g22 +
    p_i->c2005z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c2006y =                                   /*    c2006y     */
    p_i->c2006x*p_c->g21 +p_i->c2006y*p_c->g22 +
    p_i->c2006z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c2007y =                                   /*    c2007y     */
    p_i->c2007x*p_c->g21 +p_i->c2007y*p_c->g22 +
    p_i->c2007z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c2008y =                                   /*    c2008y     */
    p_i->c2008x*p_c->g21 +p_i->c2008y*p_c->g22 +
    p_i->c2008z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c2009y =                                   /*    c2009y     */
    p_i->c2009x*p_c->g21 +p_i->c2009y*p_c->g22 +
    p_i->c2009z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c2010y =                                   /*    c2010y     */
    p_i->c2010x*p_c->g21 +p_i->c2010y*p_c->g22 +
    p_i->c2010z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c2011y =                                   /*    c2011y     */
    p_i->c2011x*p_c->g21 +p_i->c2011y*p_c->g22 +
    p_i->c2011z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c2012y =                                   /*    c2012y     */
    p_i->c2012x*p_c->g21 +p_i->c2012y*p_c->g22 +
    p_i->c2012z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c2013y =                                   /*    c2013y     */
    p_i->c2013x*p_c->g21 +p_i->c2013y*p_c->g22 +
    p_i->c2013z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c2014y =                                   /*    c2014y     */
    p_i->c2014x*p_c->g21 +p_i->c2014y*p_c->g22 +
    p_i->c2014z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c2015y =                                   /*    c2015y     */
    p_i->c2015x*p_c->g21 +p_i->c2015y*p_c->g22 +
    p_i->c2015z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c2016y =                                   /*    c2016y     */
    p_i->c2016x*p_c->g21 +p_i->c2016y*p_c->g22 +
    p_i->c2016z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c2017y =                                   /*    c2017y     */
    p_i->c2017x*p_c->g21 +p_i->c2017y*p_c->g22 +
    p_i->c2017z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c2018y =                                   /*    c2018y     */
    p_i->c2018x*p_c->g21 +p_i->c2018y*p_c->g22 +
    p_i->c2018z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c2019y =                                   /*    c2019y     */
    p_i->c2019x*p_c->g21 +p_i->c2019y*p_c->g22 +
    p_i->c2019z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c2020y =                                   /*    c2020y     */
    p_i->c2020x*p_c->g21 +p_i->c2020y*p_c->g22 +
    p_i->c2020z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c2021y =                                   /*    c2021y     */
    p_i->c2021x*p_c->g21 +p_i->c2021y*p_c->g22 +
    p_i->c2021z*p_c->g23 +  0.0      *p_c->g24;

    p_t.c2100y =                                   /*    c2100y     */
    p_i->c2100x*p_c->g21 +p_i->c2100y*p_c->g22 +
    p_i->c2100z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c2101y =                                   /*    c2101y     */
    p_i->c2101x*p_c->g21 +p_i->c2101y*p_c->g22 +
    p_i->c2101z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c2102y =                                   /*    c2102y     */
    p_i->c2102x*p_c->g21 +p_i->c2102y*p_c->g22 +
    p_i->c2102z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c2103y =                                   /*    c2103y     */
    p_i->c2103x*p_c->g21 +p_i->c2103y*p_c->g22 +
    p_i->c2103z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c2104y =                                   /*    c2104y     */
    p_i->c2104x*p_c->g21 +p_i->c2104y*p_c->g22 +
    p_i->c2104z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c2105y =                                   /*    c2105y     */
    p_i->c2105x*p_c->g21 +p_i->c2105y*p_c->g22 +
    p_i->c2105z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c2106y =                                   /*    c2106y     */
    p_i->c2106x*p_c->g21 +p_i->c2106y*p_c->g22 +
    p_i->c2106z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c2107y =                                   /*    c2107y     */
    p_i->c2107x*p_c->g21 +p_i->c2107y*p_c->g22 +
    p_i->c2107z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c2108y =                                   /*    c2108y     */
    p_i->c2108x*p_c->g21 +p_i->c2108y*p_c->g22 +
    p_i->c2108z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c2109y =                                   /*    c2109y     */
    p_i->c2109x*p_c->g21 +p_i->c2109y*p_c->g22 +
    p_i->c2109z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c2110y =                                   /*    c2110y     */
    p_i->c2110x*p_c->g21 +p_i->c2110y*p_c->g22 +
    p_i->c2110z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c2111y =                                   /*    c2111y     */
    p_i->c2111x*p_c->g21 +p_i->c2111y*p_c->g22 +
    p_i->c2111z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c2112y =                                   /*    c2112y     */
    p_i->c2112x*p_c->g21 +p_i->c2112y*p_c->g22 +
    p_i->c2112z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c2113y =                                   /*    c2113y     */
    p_i->c2113x*p_c->g21 +p_i->c2113y*p_c->g22 +
    p_i->c2113z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c2114y =                                   /*    c2114y     */
    p_i->c2114x*p_c->g21 +p_i->c2114y*p_c->g22 +
    p_i->c2114z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c2115y =                                   /*    c2115y     */
    p_i->c2115x*p_c->g21 +p_i->c2115y*p_c->g22 +
    p_i->c2115z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c2116y =                                   /*    c2116y     */
    p_i->c2116x*p_c->g21 +p_i->c2116y*p_c->g22 +
    p_i->c2116z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c2117y =                                   /*    c2117y     */
    p_i->c2117x*p_c->g21 +p_i->c2117y*p_c->g22 +
    p_i->c2117z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c2118y =                                   /*    c2118y     */
    p_i->c2118x*p_c->g21 +p_i->c2118y*p_c->g22 +
    p_i->c2118z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c2119y =                                   /*    c2119y     */
    p_i->c2119x*p_c->g21 +p_i->c2119y*p_c->g22 +
    p_i->c2119z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c2120y =                                   /*    c2120y     */
    p_i->c2120x*p_c->g21 +p_i->c2120y*p_c->g22 +
    p_i->c2120z*p_c->g23 +  0.0      *p_c->g24;
    p_t.c2121y =                                   /*    c2121y     */
    p_i->c2121x*p_c->g21 +p_i->c2121y*p_c->g22 +
    p_i->c2121z*p_c->g23 +  0.0      *p_c->g24;


    p_t.c0000z =                                   /*    c0000z     */
    p_i->c0000x*p_c->g31 +p_i->c0000y*p_c->g32 +
    p_i->c0000z*p_c->g33 +  1.0      *p_c->g34;
    p_t.c0001z =                                   /*    c0001z     */
    p_i->c0001x*p_c->g31 +p_i->c0001y*p_c->g32 +
    p_i->c0001z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0002z =                                   /*    c0002z     */
    p_i->c0002x*p_c->g31 +p_i->c0002y*p_c->g32 +
    p_i->c0002z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0003z =                                   /*    c0003z     */
    p_i->c0003x*p_c->g31 +p_i->c0003y*p_c->g32 +
    p_i->c0003z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0004z =                                   /*    c0004z     */
    p_i->c0004x*p_c->g31 +p_i->c0004y*p_c->g32 +
    p_i->c0004z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0005z =                                   /*    c0005z     */
    p_i->c0005x*p_c->g31 +p_i->c0005y*p_c->g32 +
    p_i->c0005z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0006z =                                   /*    c0006z     */
    p_i->c0006x*p_c->g31 +p_i->c0006y*p_c->g32 +
    p_i->c0006z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0007z =                                   /*    c0007z     */
    p_i->c0007x*p_c->g31 +p_i->c0007y*p_c->g32 +
    p_i->c0007z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0008z =                                   /*    c0008z     */
    p_i->c0008x*p_c->g31 +p_i->c0008y*p_c->g32 +
    p_i->c0008z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0009z =                                   /*    c0009z     */
    p_i->c0009x*p_c->g31 +p_i->c0009y*p_c->g32 +
    p_i->c0009z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0010z =                                   /*    c0010z     */
    p_i->c0010x*p_c->g31 +p_i->c0010y*p_c->g32 +
    p_i->c0010z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0011z =                                   /*    c0011z     */
    p_i->c0011x*p_c->g31 +p_i->c0011y*p_c->g32 +
    p_i->c0011z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0012z =                                   /*    c0012z     */
    p_i->c0012x*p_c->g31 +p_i->c0012y*p_c->g32 +
    p_i->c0012z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0013z =                                   /*    c0013z     */
    p_i->c0013x*p_c->g31 +p_i->c0013y*p_c->g32 +
    p_i->c0013z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0014z =                                   /*    c0014z     */
    p_i->c0014x*p_c->g31 +p_i->c0014y*p_c->g32 +
    p_i->c0014z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0015z =                                   /*    c0015z     */
    p_i->c0015x*p_c->g31 +p_i->c0015y*p_c->g32 +
    p_i->c0015z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0016z =                                   /*    c0016z     */
    p_i->c0016x*p_c->g31 +p_i->c0016y*p_c->g32 +
    p_i->c0016z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0017z =                                   /*    c0017z     */
    p_i->c0017x*p_c->g31 +p_i->c0017y*p_c->g32 +
    p_i->c0017z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0018z =                                   /*    c0018z     */
    p_i->c0018x*p_c->g31 +p_i->c0018y*p_c->g32 +
    p_i->c0018z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0019z =                                   /*    c0019z     */
    p_i->c0019x*p_c->g31 +p_i->c0019y*p_c->g32 +
    p_i->c0019z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0020z =                                   /*    c0020z     */
    p_i->c0020x*p_c->g31 +p_i->c0020y*p_c->g32 +
    p_i->c0020z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0021z =                                   /*    c0021z     */
    p_i->c0021x*p_c->g31 +p_i->c0021y*p_c->g32 +
    p_i->c0021z*p_c->g33 +  0.0      *p_c->g34;

    p_t.c0100z =                                   /*    c0100z     */
    p_i->c0100x*p_c->g31 +p_i->c0100y*p_c->g32 +
    p_i->c0100z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0101z =                                   /*    c0101z     */
    p_i->c0101x*p_c->g31 +p_i->c0101y*p_c->g32 +
    p_i->c0101z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0102z =                                   /*    c0102z     */
    p_i->c0102x*p_c->g31 +p_i->c0102y*p_c->g32 +
    p_i->c0102z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0103z =                                   /*    c0103z     */
    p_i->c0103x*p_c->g31 +p_i->c0103y*p_c->g32 +
    p_i->c0103z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0104z =                                   /*    c0104z     */
    p_i->c0104x*p_c->g31 +p_i->c0104y*p_c->g32 +
    p_i->c0104z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0105z =                                   /*    c0105z     */
    p_i->c0105x*p_c->g31 +p_i->c0105y*p_c->g32 +
    p_i->c0105z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0106z =                                   /*    c0106z     */
    p_i->c0106x*p_c->g31 +p_i->c0106y*p_c->g32 +
    p_i->c0106z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0107z =                                   /*    c0107z     */
    p_i->c0107x*p_c->g31 +p_i->c0107y*p_c->g32 +
    p_i->c0107z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0108z =                                   /*    c0108z     */
    p_i->c0108x*p_c->g31 +p_i->c0108y*p_c->g32 +
    p_i->c0108z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0109z =                                   /*    c0109z     */
    p_i->c0109x*p_c->g31 +p_i->c0109y*p_c->g32 +
    p_i->c0109z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0110z =                                   /*    c0110z     */
    p_i->c0110x*p_c->g31 +p_i->c0110y*p_c->g32 +
    p_i->c0110z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0111z =                                   /*    c0111z     */
    p_i->c0111x*p_c->g31 +p_i->c0111y*p_c->g32 +
    p_i->c0111z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0112z =                                   /*    c0112z     */
    p_i->c0112x*p_c->g31 +p_i->c0112y*p_c->g32 +
    p_i->c0112z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0113z =                                   /*    c0113z     */
    p_i->c0113x*p_c->g31 +p_i->c0113y*p_c->g32 +
    p_i->c0113z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0114z =                                   /*    c0114z     */
    p_i->c0114x*p_c->g31 +p_i->c0114y*p_c->g32 +
    p_i->c0114z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0115z =                                   /*    c0115z     */
    p_i->c0115x*p_c->g31 +p_i->c0115y*p_c->g32 +
    p_i->c0115z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0116z =                                   /*    c0116z     */
    p_i->c0116x*p_c->g31 +p_i->c0116y*p_c->g32 +
    p_i->c0116z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0117z =                                   /*    c0117z     */
    p_i->c0117x*p_c->g31 +p_i->c0117y*p_c->g32 +
    p_i->c0117z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0118z =                                   /*    c0118z     */
    p_i->c0118x*p_c->g31 +p_i->c0118y*p_c->g32 +
    p_i->c0118z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0119z =                                   /*    c0119z     */
    p_i->c0119x*p_c->g31 +p_i->c0119y*p_c->g32 +
    p_i->c0119z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0120z =                                   /*    c0120z     */
    p_i->c0120x*p_c->g31 +p_i->c0120y*p_c->g32 +
    p_i->c0120z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0121z =                                   /*    c0121z     */
    p_i->c0121x*p_c->g31 +p_i->c0121y*p_c->g32 +
    p_i->c0121z*p_c->g33 +  0.0      *p_c->g34;

    p_t.c0200z =                                   /*    c0200z     */
    p_i->c0200x*p_c->g31 +p_i->c0200y*p_c->g32 +
    p_i->c0200z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0201z =                                   /*    c0201z     */
    p_i->c0201x*p_c->g31 +p_i->c0201y*p_c->g32 +
    p_i->c0201z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0202z =                                   /*    c0202z     */
    p_i->c0202x*p_c->g31 +p_i->c0202y*p_c->g32 +
    p_i->c0202z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0203z =                                   /*    c0203z     */
    p_i->c0203x*p_c->g31 +p_i->c0203y*p_c->g32 +
    p_i->c0203z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0204z =                                   /*    c0204z     */
    p_i->c0204x*p_c->g31 +p_i->c0204y*p_c->g32 +
    p_i->c0204z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0205z =                                   /*    c0205z     */
    p_i->c0205x*p_c->g31 +p_i->c0205y*p_c->g32 +
    p_i->c0205z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0206z =                                   /*    c0206z     */
    p_i->c0206x*p_c->g31 +p_i->c0206y*p_c->g32 +
    p_i->c0206z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0207z =                                   /*    c0207z     */
    p_i->c0207x*p_c->g31 +p_i->c0207y*p_c->g32 +
    p_i->c0207z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0208z =                                   /*    c0208z     */
    p_i->c0208x*p_c->g31 +p_i->c0208y*p_c->g32 +
    p_i->c0208z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0209z =                                   /*    c0209z     */
    p_i->c0209x*p_c->g31 +p_i->c0209y*p_c->g32 +
    p_i->c0209z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0210z =                                   /*    c0210z     */
    p_i->c0210x*p_c->g31 +p_i->c0210y*p_c->g32 +
    p_i->c0210z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0211z =                                   /*    c0211z     */
    p_i->c0211x*p_c->g31 +p_i->c0211y*p_c->g32 +
    p_i->c0211z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0212z =                                   /*    c0212z     */
    p_i->c0212x*p_c->g31 +p_i->c0212y*p_c->g32 +
    p_i->c0212z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0213z =                                   /*    c0213z     */
    p_i->c0213x*p_c->g31 +p_i->c0213y*p_c->g32 +
    p_i->c0213z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0214z =                                   /*    c0214z     */
    p_i->c0214x*p_c->g31 +p_i->c0214y*p_c->g32 +
    p_i->c0214z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0215z =                                   /*    c0215z     */
    p_i->c0215x*p_c->g31 +p_i->c0215y*p_c->g32 +
    p_i->c0215z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0216z =                                   /*    c0216z     */
    p_i->c0216x*p_c->g31 +p_i->c0216y*p_c->g32 +
    p_i->c0216z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0217z =                                   /*    c0217z     */
    p_i->c0217x*p_c->g31 +p_i->c0217y*p_c->g32 +
    p_i->c0217z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0218z =                                   /*    c0218z     */
    p_i->c0218x*p_c->g31 +p_i->c0218y*p_c->g32 +
    p_i->c0218z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0219z =                                   /*    c0219z     */
    p_i->c0219x*p_c->g31 +p_i->c0219y*p_c->g32 +
    p_i->c0219z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0220z =                                   /*    c0220z     */
    p_i->c0220x*p_c->g31 +p_i->c0220y*p_c->g32 +
    p_i->c0220z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0221z =                                   /*    c0221z     */
    p_i->c0221x*p_c->g31 +p_i->c0221y*p_c->g32 +
    p_i->c0221z*p_c->g33 +  0.0      *p_c->g34;

    p_t.c0300z =                                   /*    c0300z     */
    p_i->c0300x*p_c->g31 +p_i->c0300y*p_c->g32 +
    p_i->c0300z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0301z =                                   /*    c0301z     */
    p_i->c0301x*p_c->g31 +p_i->c0301y*p_c->g32 +
    p_i->c0301z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0302z =                                   /*    c0302z     */
    p_i->c0302x*p_c->g31 +p_i->c0302y*p_c->g32 +
    p_i->c0302z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0303z =                                   /*    c0303z     */
    p_i->c0303x*p_c->g31 +p_i->c0303y*p_c->g32 +
    p_i->c0303z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0304z =                                   /*    c0304z     */
    p_i->c0304x*p_c->g31 +p_i->c0304y*p_c->g32 +
    p_i->c0304z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0305z =                                   /*    c0305z     */
    p_i->c0305x*p_c->g31 +p_i->c0305y*p_c->g32 +
    p_i->c0305z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0306z =                                   /*    c0306z     */
    p_i->c0306x*p_c->g31 +p_i->c0306y*p_c->g32 +
    p_i->c0306z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0307z =                                   /*    c0307z     */
    p_i->c0307x*p_c->g31 +p_i->c0307y*p_c->g32 +
    p_i->c0307z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0308z =                                   /*    c0308z     */
    p_i->c0308x*p_c->g31 +p_i->c0308y*p_c->g32 +
    p_i->c0308z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0309z =                                   /*    c0309z     */
    p_i->c0309x*p_c->g31 +p_i->c0309y*p_c->g32 +
    p_i->c0309z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0310z =                                   /*    c0310z     */
    p_i->c0310x*p_c->g31 +p_i->c0310y*p_c->g32 +
    p_i->c0310z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0311z =                                   /*    c0311z     */
    p_i->c0311x*p_c->g31 +p_i->c0311y*p_c->g32 +
    p_i->c0311z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0312z =                                   /*    c0312z     */
    p_i->c0312x*p_c->g31 +p_i->c0312y*p_c->g32 +
    p_i->c0312z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0313z =                                   /*    c0313z     */
    p_i->c0313x*p_c->g31 +p_i->c0313y*p_c->g32 +
    p_i->c0313z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0314z =                                   /*    c0314z     */
    p_i->c0314x*p_c->g31 +p_i->c0314y*p_c->g32 +
    p_i->c0314z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0315z =                                   /*    c0315z     */
    p_i->c0315x*p_c->g31 +p_i->c0315y*p_c->g32 +
    p_i->c0315z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0316z =                                   /*    c0316z     */
    p_i->c0316x*p_c->g31 +p_i->c0316y*p_c->g32 +
    p_i->c0316z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0317z =                                   /*    c0317z     */
    p_i->c0317x*p_c->g31 +p_i->c0317y*p_c->g32 +
    p_i->c0317z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0318z =                                   /*    c0318z     */
    p_i->c0318x*p_c->g31 +p_i->c0318y*p_c->g32 +
    p_i->c0318z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0319z =                                   /*    c0319z     */
    p_i->c0319x*p_c->g31 +p_i->c0319y*p_c->g32 +
    p_i->c0319z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0320z =                                   /*    c0320z     */
    p_i->c0320x*p_c->g31 +p_i->c0320y*p_c->g32 +
    p_i->c0320z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0321z =                                   /*    c0321z     */
    p_i->c0321x*p_c->g31 +p_i->c0321y*p_c->g32 +
    p_i->c0321z*p_c->g33 +  0.0      *p_c->g34;

    p_t.c0400z =                                   /*    c0400z     */
    p_i->c0400x*p_c->g31 +p_i->c0400y*p_c->g32 +
    p_i->c0400z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0401z =                                   /*    c0401z     */
    p_i->c0401x*p_c->g31 +p_i->c0401y*p_c->g32 +
    p_i->c0401z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0402z =                                   /*    c0402z     */
    p_i->c0402x*p_c->g31 +p_i->c0402y*p_c->g32 +
    p_i->c0402z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0403z =                                   /*    c0403z     */
    p_i->c0403x*p_c->g31 +p_i->c0403y*p_c->g32 +
    p_i->c0403z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0404z =                                   /*    c0404z     */
    p_i->c0404x*p_c->g31 +p_i->c0404y*p_c->g32 +
    p_i->c0404z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0405z =                                   /*    c0405z     */
    p_i->c0405x*p_c->g31 +p_i->c0405y*p_c->g32 +
    p_i->c0405z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0406z =                                   /*    c0406z     */
    p_i->c0406x*p_c->g31 +p_i->c0406y*p_c->g32 +
    p_i->c0406z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0407z =                                   /*    c0407z     */
    p_i->c0407x*p_c->g31 +p_i->c0407y*p_c->g32 +
    p_i->c0407z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0408z =                                   /*    c0408z     */
    p_i->c0408x*p_c->g31 +p_i->c0408y*p_c->g32 +
    p_i->c0408z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0409z =                                   /*    c0409z     */
    p_i->c0409x*p_c->g31 +p_i->c0409y*p_c->g32 +
    p_i->c0409z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0410z =                                   /*    c0410z     */
    p_i->c0410x*p_c->g31 +p_i->c0410y*p_c->g32 +
    p_i->c0410z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0411z =                                   /*    c0411z     */
    p_i->c0411x*p_c->g31 +p_i->c0411y*p_c->g32 +
    p_i->c0411z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0412z =                                   /*    c0412z     */
    p_i->c0412x*p_c->g31 +p_i->c0412y*p_c->g32 +
    p_i->c0412z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0413z =                                   /*    c0413z     */
    p_i->c0413x*p_c->g31 +p_i->c0413y*p_c->g32 +
    p_i->c0413z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0414z =                                   /*    c0414z     */
    p_i->c0414x*p_c->g31 +p_i->c0414y*p_c->g32 +
    p_i->c0414z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0415z =                                   /*    c0415z     */
    p_i->c0415x*p_c->g31 +p_i->c0415y*p_c->g32 +
    p_i->c0415z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0416z =                                   /*    c0416z     */
    p_i->c0416x*p_c->g31 +p_i->c0416y*p_c->g32 +
    p_i->c0416z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0417z =                                   /*    c0417z     */
    p_i->c0417x*p_c->g31 +p_i->c0417y*p_c->g32 +
    p_i->c0417z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0418z =                                   /*    c0418z     */
    p_i->c0418x*p_c->g31 +p_i->c0418y*p_c->g32 +
    p_i->c0418z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0419z =                                   /*    c0419z     */
    p_i->c0419x*p_c->g31 +p_i->c0419y*p_c->g32 +
    p_i->c0419z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0420z =                                   /*    c0420z     */
    p_i->c0420x*p_c->g31 +p_i->c0420y*p_c->g32 +
    p_i->c0420z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0421z =                                   /*    c0421z     */
    p_i->c0421x*p_c->g31 +p_i->c0421y*p_c->g32 +
    p_i->c0421z*p_c->g33 +  0.0      *p_c->g34;

    p_t.c0500z =                                   /*    c0500z     */
    p_i->c0500x*p_c->g31 +p_i->c0500y*p_c->g32 +
    p_i->c0500z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0501z =                                   /*    c0501z     */
    p_i->c0501x*p_c->g31 +p_i->c0501y*p_c->g32 +
    p_i->c0501z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0502z =                                   /*    c0502z     */
    p_i->c0502x*p_c->g31 +p_i->c0502y*p_c->g32 +
    p_i->c0502z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0503z =                                   /*    c0503z     */
    p_i->c0503x*p_c->g31 +p_i->c0503y*p_c->g32 +
    p_i->c0503z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0504z =                                   /*    c0504z     */
    p_i->c0504x*p_c->g31 +p_i->c0504y*p_c->g32 +
    p_i->c0504z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0505z =                                   /*    c0505z     */
    p_i->c0505x*p_c->g31 +p_i->c0505y*p_c->g32 +
    p_i->c0505z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0506z =                                   /*    c0506z     */
    p_i->c0506x*p_c->g31 +p_i->c0506y*p_c->g32 +
    p_i->c0506z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0507z =                                   /*    c0507z     */
    p_i->c0507x*p_c->g31 +p_i->c0507y*p_c->g32 +
    p_i->c0507z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0508z =                                   /*    c0508z     */
    p_i->c0508x*p_c->g31 +p_i->c0508y*p_c->g32 +
    p_i->c0508z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0509z =                                   /*    c0509z     */
    p_i->c0509x*p_c->g31 +p_i->c0509y*p_c->g32 +
    p_i->c0509z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0510z =                                   /*    c0510z     */
    p_i->c0510x*p_c->g31 +p_i->c0510y*p_c->g32 +
    p_i->c0510z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0511z =                                   /*    c0511z     */
    p_i->c0511x*p_c->g31 +p_i->c0511y*p_c->g32 +
    p_i->c0511z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0512z =                                   /*    c0512z     */
    p_i->c0512x*p_c->g31 +p_i->c0512y*p_c->g32 +
    p_i->c0512z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0513z =                                   /*    c0513z     */
    p_i->c0513x*p_c->g31 +p_i->c0513y*p_c->g32 +
    p_i->c0513z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0514z =                                   /*    c0514z     */
    p_i->c0514x*p_c->g31 +p_i->c0514y*p_c->g32 +
    p_i->c0514z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0515z =                                   /*    c0515z     */
    p_i->c0515x*p_c->g31 +p_i->c0515y*p_c->g32 +
    p_i->c0515z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0516z =                                   /*    c0516z     */
    p_i->c0516x*p_c->g31 +p_i->c0516y*p_c->g32 +
    p_i->c0516z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0517z =                                   /*    c0517z     */
    p_i->c0517x*p_c->g31 +p_i->c0517y*p_c->g32 +
    p_i->c0517z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0518z =                                   /*    c0518z     */
    p_i->c0518x*p_c->g31 +p_i->c0518y*p_c->g32 +
    p_i->c0518z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0519z =                                   /*    c0519z     */
    p_i->c0519x*p_c->g31 +p_i->c0519y*p_c->g32 +
    p_i->c0519z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0520z =                                   /*    c0520z     */
    p_i->c0520x*p_c->g31 +p_i->c0520y*p_c->g32 +
    p_i->c0520z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0521z =                                   /*    c0521z     */
    p_i->c0521x*p_c->g31 +p_i->c0521y*p_c->g32 +
    p_i->c0521z*p_c->g33 +  0.0      *p_c->g34;

    p_t.c0600z =                                   /*    c0600z     */
    p_i->c0600x*p_c->g31 +p_i->c0600y*p_c->g32 +
    p_i->c0600z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0601z =                                   /*    c0601z     */
    p_i->c0601x*p_c->g31 +p_i->c0601y*p_c->g32 +
    p_i->c0601z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0602z =                                   /*    c0602z     */
    p_i->c0602x*p_c->g31 +p_i->c0602y*p_c->g32 +
    p_i->c0602z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0603z =                                   /*    c0603z     */
    p_i->c0603x*p_c->g31 +p_i->c0603y*p_c->g32 +
    p_i->c0603z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0604z =                                   /*    c0604z     */
    p_i->c0604x*p_c->g31 +p_i->c0604y*p_c->g32 +
    p_i->c0604z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0605z =                                   /*    c0605z     */
    p_i->c0605x*p_c->g31 +p_i->c0605y*p_c->g32 +
    p_i->c0605z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0606z =                                   /*    c0606z     */
    p_i->c0606x*p_c->g31 +p_i->c0606y*p_c->g32 +
    p_i->c0606z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0607z =                                   /*    c0607z     */
    p_i->c0607x*p_c->g31 +p_i->c0607y*p_c->g32 +
    p_i->c0607z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0608z =                                   /*    c0608z     */
    p_i->c0608x*p_c->g31 +p_i->c0608y*p_c->g32 +
    p_i->c0608z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0609z =                                   /*    c0609z     */
    p_i->c0609x*p_c->g31 +p_i->c0609y*p_c->g32 +
    p_i->c0609z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0610z =                                   /*    c0610z     */
    p_i->c0610x*p_c->g31 +p_i->c0610y*p_c->g32 +
    p_i->c0610z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0611z =                                   /*    c0611z     */
    p_i->c0611x*p_c->g31 +p_i->c0611y*p_c->g32 +
    p_i->c0611z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0612z =                                   /*    c0612z     */
    p_i->c0612x*p_c->g31 +p_i->c0612y*p_c->g32 +
    p_i->c0612z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0613z =                                   /*    c0613z     */
    p_i->c0613x*p_c->g31 +p_i->c0613y*p_c->g32 +
    p_i->c0613z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0614z =                                   /*    c0614z     */
    p_i->c0614x*p_c->g31 +p_i->c0614y*p_c->g32 +
    p_i->c0614z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0615z =                                   /*    c0615z     */
    p_i->c0615x*p_c->g31 +p_i->c0615y*p_c->g32 +
    p_i->c0615z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0616z =                                   /*    c0616z     */
    p_i->c0616x*p_c->g31 +p_i->c0616y*p_c->g32 +
    p_i->c0616z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0617z =                                   /*    c0617z     */
    p_i->c0617x*p_c->g31 +p_i->c0617y*p_c->g32 +
    p_i->c0617z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0618z =                                   /*    c0618z     */
    p_i->c0618x*p_c->g31 +p_i->c0618y*p_c->g32 +
    p_i->c0618z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0619z =                                   /*    c0619z     */
    p_i->c0619x*p_c->g31 +p_i->c0619y*p_c->g32 +
    p_i->c0619z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0620z =                                   /*    c0620z     */
    p_i->c0620x*p_c->g31 +p_i->c0620y*p_c->g32 +
    p_i->c0620z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0621z =                                   /*    c0621z     */
    p_i->c0621x*p_c->g31 +p_i->c0621y*p_c->g32 +
    p_i->c0621z*p_c->g33 +  0.0      *p_c->g34;

    p_t.c0700z =                                   /*    c0700z     */
    p_i->c0700x*p_c->g31 +p_i->c0700y*p_c->g32 +
    p_i->c0700z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0701z =                                   /*    c0701z     */
    p_i->c0701x*p_c->g31 +p_i->c0701y*p_c->g32 +
    p_i->c0701z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0702z =                                   /*    c0702z     */
    p_i->c0702x*p_c->g31 +p_i->c0702y*p_c->g32 +
    p_i->c0702z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0703z =                                   /*    c0703z     */
    p_i->c0703x*p_c->g31 +p_i->c0703y*p_c->g32 +
    p_i->c0703z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0704z =                                   /*    c0704z     */
    p_i->c0704x*p_c->g31 +p_i->c0704y*p_c->g32 +
    p_i->c0704z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0705z =                                   /*    c0705z     */
    p_i->c0705x*p_c->g31 +p_i->c0705y*p_c->g32 +
    p_i->c0705z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0706z =                                   /*    c0706z     */
    p_i->c0706x*p_c->g31 +p_i->c0706y*p_c->g32 +
    p_i->c0706z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0707z =                                   /*    c0707z     */
    p_i->c0707x*p_c->g31 +p_i->c0707y*p_c->g32 +
    p_i->c0707z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0708z =                                   /*    c0708z     */
    p_i->c0708x*p_c->g31 +p_i->c0708y*p_c->g32 +
    p_i->c0708z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0709z =                                   /*    c0709z     */
    p_i->c0709x*p_c->g31 +p_i->c0709y*p_c->g32 +
    p_i->c0709z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0710z =                                   /*    c0710z     */
    p_i->c0710x*p_c->g31 +p_i->c0710y*p_c->g32 +
    p_i->c0710z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0711z =                                   /*    c0711z     */
    p_i->c0711x*p_c->g31 +p_i->c0711y*p_c->g32 +
    p_i->c0711z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0712z =                                   /*    c0712z     */
    p_i->c0712x*p_c->g31 +p_i->c0712y*p_c->g32 +
    p_i->c0712z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0713z =                                   /*    c0713z     */
    p_i->c0713x*p_c->g31 +p_i->c0713y*p_c->g32 +
    p_i->c0713z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0714z =                                   /*    c0714z     */
    p_i->c0714x*p_c->g31 +p_i->c0714y*p_c->g32 +
    p_i->c0714z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0715z =                                   /*    c0715z     */
    p_i->c0715x*p_c->g31 +p_i->c0715y*p_c->g32 +
    p_i->c0715z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0716z =                                   /*    c0716z     */
    p_i->c0716x*p_c->g31 +p_i->c0716y*p_c->g32 +
    p_i->c0716z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0717z =                                   /*    c0717z     */
    p_i->c0717x*p_c->g31 +p_i->c0717y*p_c->g32 +
    p_i->c0717z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0718z =                                   /*    c0718z     */
    p_i->c0718x*p_c->g31 +p_i->c0718y*p_c->g32 +
    p_i->c0718z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0719z =                                   /*    c0719z     */
    p_i->c0719x*p_c->g31 +p_i->c0719y*p_c->g32 +
    p_i->c0719z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0720z =                                   /*    c0720z     */
    p_i->c0720x*p_c->g31 +p_i->c0720y*p_c->g32 +
    p_i->c0720z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0721z =                                   /*    c0721z     */
    p_i->c0721x*p_c->g31 +p_i->c0721y*p_c->g32 +
    p_i->c0721z*p_c->g33 +  0.0      *p_c->g34;

    p_t.c0800z =                                   /*    c0800z     */
    p_i->c0800x*p_c->g31 +p_i->c0800y*p_c->g32 +
    p_i->c0800z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0801z =                                   /*    c0801z     */
    p_i->c0801x*p_c->g31 +p_i->c0801y*p_c->g32 +
    p_i->c0801z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0802z =                                   /*    c0802z     */
    p_i->c0802x*p_c->g31 +p_i->c0802y*p_c->g32 +
    p_i->c0802z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0803z =                                   /*    c0803z     */
    p_i->c0803x*p_c->g31 +p_i->c0803y*p_c->g32 +
    p_i->c0803z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0804z =                                   /*    c0804z     */
    p_i->c0804x*p_c->g31 +p_i->c0804y*p_c->g32 +
    p_i->c0804z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0805z =                                   /*    c0805z     */
    p_i->c0805x*p_c->g31 +p_i->c0805y*p_c->g32 +
    p_i->c0805z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0806z =                                   /*    c0806z     */
    p_i->c0806x*p_c->g31 +p_i->c0806y*p_c->g32 +
    p_i->c0806z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0807z =                                   /*    c0807z     */
    p_i->c0807x*p_c->g31 +p_i->c0807y*p_c->g32 +
    p_i->c0807z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0808z =                                   /*    c0808z     */
    p_i->c0808x*p_c->g31 +p_i->c0808y*p_c->g32 +
    p_i->c0808z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0809z =                                   /*    c0809z     */
    p_i->c0809x*p_c->g31 +p_i->c0809y*p_c->g32 +
    p_i->c0809z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0810z =                                   /*    c0810z     */
    p_i->c0810x*p_c->g31 +p_i->c0810y*p_c->g32 +
    p_i->c0810z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0811z =                                   /*    c0811z     */
    p_i->c0811x*p_c->g31 +p_i->c0811y*p_c->g32 +
    p_i->c0811z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0812z =                                   /*    c0812z     */
    p_i->c0812x*p_c->g31 +p_i->c0812y*p_c->g32 +
    p_i->c0812z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0813z =                                   /*    c0813z     */
    p_i->c0813x*p_c->g31 +p_i->c0813y*p_c->g32 +
    p_i->c0813z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0814z =                                   /*    c0814z     */
    p_i->c0814x*p_c->g31 +p_i->c0814y*p_c->g32 +
    p_i->c0814z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0815z =                                   /*    c0815z     */
    p_i->c0815x*p_c->g31 +p_i->c0815y*p_c->g32 +
    p_i->c0815z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0816z =                                   /*    c0816z     */
    p_i->c0816x*p_c->g31 +p_i->c0816y*p_c->g32 +
    p_i->c0816z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0817z =                                   /*    c0817z     */
    p_i->c0817x*p_c->g31 +p_i->c0817y*p_c->g32 +
    p_i->c0817z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0818z =                                   /*    c0818z     */
    p_i->c0818x*p_c->g31 +p_i->c0818y*p_c->g32 +
    p_i->c0818z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0819z =                                   /*    c0819z     */
    p_i->c0819x*p_c->g31 +p_i->c0819y*p_c->g32 +
    p_i->c0819z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0820z =                                   /*    c0820z     */
    p_i->c0820x*p_c->g31 +p_i->c0820y*p_c->g32 +
    p_i->c0820z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0821z =                                   /*    c0821z     */
    p_i->c0821x*p_c->g31 +p_i->c0821y*p_c->g32 +
    p_i->c0821z*p_c->g33 +  0.0      *p_c->g34;

    p_t.c0900z =                                   /*    c0900z     */
    p_i->c0900x*p_c->g31 +p_i->c0900y*p_c->g32 +
    p_i->c0900z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0901z =                                   /*    c0901z     */
    p_i->c0901x*p_c->g31 +p_i->c0901y*p_c->g32 +
    p_i->c0901z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0902z =                                   /*    c0902z     */
    p_i->c0902x*p_c->g31 +p_i->c0902y*p_c->g32 +
    p_i->c0902z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0903z =                                   /*    c0903z     */
    p_i->c0903x*p_c->g31 +p_i->c0903y*p_c->g32 +
    p_i->c0903z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0904z =                                   /*    c0904z     */
    p_i->c0904x*p_c->g31 +p_i->c0904y*p_c->g32 +
    p_i->c0904z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0905z =                                   /*    c0905z     */
    p_i->c0905x*p_c->g31 +p_i->c0905y*p_c->g32 +
    p_i->c0905z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0906z =                                   /*    c0906z     */
    p_i->c0906x*p_c->g31 +p_i->c0906y*p_c->g32 +
    p_i->c0906z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0907z =                                   /*    c0907z     */
    p_i->c0907x*p_c->g31 +p_i->c0907y*p_c->g32 +
    p_i->c0907z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0908z =                                   /*    c0908z     */
    p_i->c0908x*p_c->g31 +p_i->c0908y*p_c->g32 +
    p_i->c0908z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0909z =                                   /*    c0909z     */
    p_i->c0909x*p_c->g31 +p_i->c0909y*p_c->g32 +
    p_i->c0909z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0910z =                                   /*    c0910z     */
    p_i->c0910x*p_c->g31 +p_i->c0910y*p_c->g32 +
    p_i->c0910z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0911z =                                   /*    c0911z     */
    p_i->c0911x*p_c->g31 +p_i->c0911y*p_c->g32 +
    p_i->c0911z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0912z =                                   /*    c0912z     */
    p_i->c0912x*p_c->g31 +p_i->c0912y*p_c->g32 +
    p_i->c0912z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0913z =                                   /*    c0913z     */
    p_i->c0913x*p_c->g31 +p_i->c0913y*p_c->g32 +
    p_i->c0913z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0914z =                                   /*    c0914z     */
    p_i->c0914x*p_c->g31 +p_i->c0914y*p_c->g32 +
    p_i->c0914z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0915z =                                   /*    c0915z     */
    p_i->c0915x*p_c->g31 +p_i->c0915y*p_c->g32 +
    p_i->c0915z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0916z =                                   /*    c0916z     */
    p_i->c0916x*p_c->g31 +p_i->c0916y*p_c->g32 +
    p_i->c0916z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0917z =                                   /*    c0917z     */
    p_i->c0917x*p_c->g31 +p_i->c0917y*p_c->g32 +
    p_i->c0917z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0918z =                                   /*    c0918z     */
    p_i->c0918x*p_c->g31 +p_i->c0918y*p_c->g32 +
    p_i->c0918z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0919z =                                   /*    c0919z     */
    p_i->c0919x*p_c->g31 +p_i->c0919y*p_c->g32 +
    p_i->c0919z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0920z =                                   /*    c0920z     */
    p_i->c0920x*p_c->g31 +p_i->c0920y*p_c->g32 +
    p_i->c0920z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c0921z =                                   /*    c0921z     */
    p_i->c0921x*p_c->g31 +p_i->c0921y*p_c->g32 +
    p_i->c0921z*p_c->g33 +  0.0      *p_c->g34;

    p_t.c1000z =                                   /*    c1000z     */
    p_i->c1000x*p_c->g31 +p_i->c1000y*p_c->g32 +
    p_i->c1000z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1001z =                                   /*    c1001z     */
    p_i->c1001x*p_c->g31 +p_i->c1001y*p_c->g32 +
    p_i->c1001z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1002z =                                   /*    c1002z     */
    p_i->c1002x*p_c->g31 +p_i->c1002y*p_c->g32 +
    p_i->c1002z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1003z =                                   /*    c1003z     */
    p_i->c1003x*p_c->g31 +p_i->c1003y*p_c->g32 +
    p_i->c1003z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1004z =                                   /*    c1004z     */
    p_i->c1004x*p_c->g31 +p_i->c1004y*p_c->g32 +
    p_i->c1004z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1005z =                                   /*    c1005z     */
    p_i->c1005x*p_c->g31 +p_i->c1005y*p_c->g32 +
    p_i->c1005z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1006z =                                   /*    c1006z     */
    p_i->c1006x*p_c->g31 +p_i->c1006y*p_c->g32 +
    p_i->c1006z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1007z =                                   /*    c1007z     */
    p_i->c1007x*p_c->g31 +p_i->c1007y*p_c->g32 +
    p_i->c1007z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1008z =                                   /*    c1008z     */
    p_i->c1008x*p_c->g31 +p_i->c1008y*p_c->g32 +
    p_i->c1008z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1009z =                                   /*    c1009z     */
    p_i->c1009x*p_c->g31 +p_i->c1009y*p_c->g32 +
    p_i->c1009z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1010z =                                   /*    c1010z     */
    p_i->c1010x*p_c->g31 +p_i->c1010y*p_c->g32 +
    p_i->c1010z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1011z =                                   /*    c1011z     */
    p_i->c1011x*p_c->g31 +p_i->c1011y*p_c->g32 +
    p_i->c1011z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1012z =                                   /*    c1012z     */
    p_i->c1012x*p_c->g31 +p_i->c1012y*p_c->g32 +
    p_i->c1012z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1013z =                                   /*    c1013z     */
    p_i->c1013x*p_c->g31 +p_i->c1013y*p_c->g32 +
    p_i->c1013z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1014z =                                   /*    c1014z     */
    p_i->c1014x*p_c->g31 +p_i->c1014y*p_c->g32 +
    p_i->c1014z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1015z =                                   /*    c1015z     */
    p_i->c1015x*p_c->g31 +p_i->c1015y*p_c->g32 +
    p_i->c1015z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1016z =                                   /*    c1016z     */
    p_i->c1016x*p_c->g31 +p_i->c1016y*p_c->g32 +
    p_i->c1016z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1017z =                                   /*    c1017z     */
    p_i->c1017x*p_c->g31 +p_i->c1017y*p_c->g32 +
    p_i->c1017z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1018z =                                   /*    c1018z     */
    p_i->c1018x*p_c->g31 +p_i->c1018y*p_c->g32 +
    p_i->c1018z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1019z =                                   /*    c1019z     */
    p_i->c1019x*p_c->g31 +p_i->c1019y*p_c->g32 +
    p_i->c1019z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1020z =                                   /*    c1020z     */
    p_i->c1020x*p_c->g31 +p_i->c1020y*p_c->g32 +
    p_i->c1020z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1021z =                                   /*    c1021z     */
    p_i->c1021x*p_c->g31 +p_i->c1021y*p_c->g32 +
    p_i->c1021z*p_c->g33 +  0.0      *p_c->g34;

    p_t.c1100z =                                   /*    c1100z     */
    p_i->c1100x*p_c->g31 +p_i->c1100y*p_c->g32 +
    p_i->c1100z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1101z =                                   /*    c1101z     */
    p_i->c1101x*p_c->g31 +p_i->c1101y*p_c->g32 +
    p_i->c1101z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1102z =                                   /*    c1102z     */
    p_i->c1102x*p_c->g31 +p_i->c1102y*p_c->g32 +
    p_i->c1102z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1103z =                                   /*    c1103z     */
    p_i->c1103x*p_c->g31 +p_i->c1103y*p_c->g32 +
    p_i->c1103z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1104z =                                   /*    c1104z     */
    p_i->c1104x*p_c->g31 +p_i->c1104y*p_c->g32 +
    p_i->c1104z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1105z =                                   /*    c1105z     */
    p_i->c1105x*p_c->g31 +p_i->c1105y*p_c->g32 +
    p_i->c1105z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1106z =                                   /*    c1106z     */
    p_i->c1106x*p_c->g31 +p_i->c1106y*p_c->g32 +
    p_i->c1106z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1107z =                                   /*    c1107z     */
    p_i->c1107x*p_c->g31 +p_i->c1107y*p_c->g32 +
    p_i->c1107z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1108z =                                   /*    c1108z     */
    p_i->c1108x*p_c->g31 +p_i->c1108y*p_c->g32 +
    p_i->c1108z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1109z =                                   /*    c1109z     */
    p_i->c1109x*p_c->g31 +p_i->c1109y*p_c->g32 +
    p_i->c1109z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1110z =                                   /*    c1110z     */
    p_i->c1110x*p_c->g31 +p_i->c1110y*p_c->g32 +
    p_i->c1110z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1111z =                                   /*    c1111z     */
    p_i->c1111x*p_c->g31 +p_i->c1111y*p_c->g32 +
    p_i->c1111z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1112z =                                   /*    c1112z     */
    p_i->c1112x*p_c->g31 +p_i->c1112y*p_c->g32 +
    p_i->c1112z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1113z =                                   /*    c1113z     */
    p_i->c1113x*p_c->g31 +p_i->c1113y*p_c->g32 +
    p_i->c1113z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1114z =                                   /*    c1114z     */
    p_i->c1114x*p_c->g31 +p_i->c1114y*p_c->g32 +
    p_i->c1114z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1115z =                                   /*    c1115z     */
    p_i->c1115x*p_c->g31 +p_i->c1115y*p_c->g32 +
    p_i->c1115z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1116z =                                   /*    c1116z     */
    p_i->c1116x*p_c->g31 +p_i->c1116y*p_c->g32 +
    p_i->c1116z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1117z =                                   /*    c1117z     */
    p_i->c1117x*p_c->g31 +p_i->c1117y*p_c->g32 +
    p_i->c1117z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1118z =                                   /*    c1118z     */
    p_i->c1118x*p_c->g31 +p_i->c1118y*p_c->g32 +
    p_i->c1118z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1119z =                                   /*    c1119z     */
    p_i->c1119x*p_c->g31 +p_i->c1119y*p_c->g32 +
    p_i->c1119z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1120z =                                   /*    c1120z     */
    p_i->c1120x*p_c->g31 +p_i->c1120y*p_c->g32 +
    p_i->c1120z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1121z =                                   /*    c1121z     */
    p_i->c1121x*p_c->g31 +p_i->c1121y*p_c->g32 +
    p_i->c1121z*p_c->g33 +  0.0      *p_c->g34;

    p_t.c1200z =                                   /*    c1200z     */
    p_i->c1200x*p_c->g31 +p_i->c1200y*p_c->g32 +
    p_i->c1200z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1201z =                                   /*    c1201z     */
    p_i->c1201x*p_c->g31 +p_i->c1201y*p_c->g32 +
    p_i->c1201z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1202z =                                   /*    c1202z     */
    p_i->c1202x*p_c->g31 +p_i->c1202y*p_c->g32 +
    p_i->c1202z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1203z =                                   /*    c1203z     */
    p_i->c1203x*p_c->g31 +p_i->c1203y*p_c->g32 +
    p_i->c1203z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1204z =                                   /*    c1204z     */
    p_i->c1204x*p_c->g31 +p_i->c1204y*p_c->g32 +
    p_i->c1204z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1205z =                                   /*    c1205z     */
    p_i->c1205x*p_c->g31 +p_i->c1205y*p_c->g32 +
    p_i->c1205z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1206z =                                   /*    c1206z     */
    p_i->c1206x*p_c->g31 +p_i->c1206y*p_c->g32 +
    p_i->c1206z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1207z =                                   /*    c1207z     */
    p_i->c1207x*p_c->g31 +p_i->c1207y*p_c->g32 +
    p_i->c1207z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1208z =                                   /*    c1208z     */
    p_i->c1208x*p_c->g31 +p_i->c1208y*p_c->g32 +
    p_i->c1208z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1209z =                                   /*    c1209z     */
    p_i->c1209x*p_c->g31 +p_i->c1209y*p_c->g32 +
    p_i->c1209z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1210z =                                   /*    c1210z     */
    p_i->c1210x*p_c->g31 +p_i->c1210y*p_c->g32 +
    p_i->c1210z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1211z =                                   /*    c1211z     */
    p_i->c1211x*p_c->g31 +p_i->c1211y*p_c->g32 +
    p_i->c1211z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1212z =                                   /*    c1212z     */
    p_i->c1212x*p_c->g31 +p_i->c1212y*p_c->g32 +
    p_i->c1212z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1213z =                                   /*    c1213z     */
    p_i->c1213x*p_c->g31 +p_i->c1213y*p_c->g32 +
    p_i->c1213z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1214z =                                   /*    c1214z     */
    p_i->c1214x*p_c->g31 +p_i->c1214y*p_c->g32 +
    p_i->c1214z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1215z =                                   /*    c1215z     */
    p_i->c1215x*p_c->g31 +p_i->c1215y*p_c->g32 +
    p_i->c1215z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1216z =                                   /*    c1216z     */
    p_i->c1216x*p_c->g31 +p_i->c1216y*p_c->g32 +
    p_i->c1216z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1217z =                                   /*    c1217z     */
    p_i->c1217x*p_c->g31 +p_i->c1217y*p_c->g32 +
    p_i->c1217z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1218z =                                   /*    c1218z     */
    p_i->c1218x*p_c->g31 +p_i->c1218y*p_c->g32 +
    p_i->c1218z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1219z =                                   /*    c1219z     */
    p_i->c1219x*p_c->g31 +p_i->c1219y*p_c->g32 +
    p_i->c1219z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1220z =                                   /*    c1220z     */
    p_i->c1220x*p_c->g31 +p_i->c1220y*p_c->g32 +
    p_i->c1220z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1221z =                                   /*    c1221z     */
    p_i->c1221x*p_c->g31 +p_i->c1221y*p_c->g32 +
    p_i->c1221z*p_c->g33 +  0.0      *p_c->g34;

    p_t.c1300z =                                   /*    c1300z     */
    p_i->c1300x*p_c->g31 +p_i->c1300y*p_c->g32 +
    p_i->c1300z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1301z =                                   /*    c1301z     */
    p_i->c1301x*p_c->g31 +p_i->c1301y*p_c->g32 +
    p_i->c1301z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1302z =                                   /*    c1302z     */
    p_i->c1302x*p_c->g31 +p_i->c1302y*p_c->g32 +
    p_i->c1302z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1303z =                                   /*    c1303z     */
    p_i->c1303x*p_c->g31 +p_i->c1303y*p_c->g32 +
    p_i->c1303z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1304z =                                   /*    c1304z     */
    p_i->c1304x*p_c->g31 +p_i->c1304y*p_c->g32 +
    p_i->c1304z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1305z =                                   /*    c1305z     */
    p_i->c1305x*p_c->g31 +p_i->c1305y*p_c->g32 +
    p_i->c1305z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1306z =                                   /*    c1306z     */
    p_i->c1306x*p_c->g31 +p_i->c1306y*p_c->g32 +
    p_i->c1306z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1307z =                                   /*    c1307z     */
    p_i->c1307x*p_c->g31 +p_i->c1307y*p_c->g32 +
    p_i->c1307z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1308z =                                   /*    c1308z     */
    p_i->c1308x*p_c->g31 +p_i->c1308y*p_c->g32 +
    p_i->c1308z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1309z =                                   /*    c1309z     */
    p_i->c1309x*p_c->g31 +p_i->c1309y*p_c->g32 +
    p_i->c1309z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1310z =                                   /*    c1310z     */
    p_i->c1310x*p_c->g31 +p_i->c1310y*p_c->g32 +
    p_i->c1310z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1311z =                                   /*    c1311z     */
    p_i->c1311x*p_c->g31 +p_i->c1311y*p_c->g32 +
    p_i->c1311z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1312z =                                   /*    c1312z     */
    p_i->c1312x*p_c->g31 +p_i->c1312y*p_c->g32 +
    p_i->c1312z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1313z =                                   /*    c1313z     */
    p_i->c1313x*p_c->g31 +p_i->c1313y*p_c->g32 +
    p_i->c1313z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1314z =                                   /*    c1314z     */
    p_i->c1314x*p_c->g31 +p_i->c1314y*p_c->g32 +
    p_i->c1314z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1315z =                                   /*    c1315z     */
    p_i->c1315x*p_c->g31 +p_i->c1315y*p_c->g32 +
    p_i->c1315z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1316z =                                   /*    c1316z     */
    p_i->c1316x*p_c->g31 +p_i->c1316y*p_c->g32 +
    p_i->c1316z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1317z =                                   /*    c1317z     */
    p_i->c1317x*p_c->g31 +p_i->c1317y*p_c->g32 +
    p_i->c1317z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1318z =                                   /*    c1318z     */
    p_i->c1318x*p_c->g31 +p_i->c1318y*p_c->g32 +
    p_i->c1318z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1319z =                                   /*    c1319z     */
    p_i->c1319x*p_c->g31 +p_i->c1319y*p_c->g32 +
    p_i->c1319z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1320z =                                   /*    c1320z     */
    p_i->c1320x*p_c->g31 +p_i->c1320y*p_c->g32 +
    p_i->c1320z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1321z =                                   /*    c1321z     */
    p_i->c1321x*p_c->g31 +p_i->c1321y*p_c->g32 +
    p_i->c1321z*p_c->g33 +  0.0      *p_c->g34;

    p_t.c1400z =                                   /*    c1400z     */
    p_i->c1400x*p_c->g31 +p_i->c1400y*p_c->g32 +
    p_i->c1400z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1401z =                                   /*    c1401z     */
    p_i->c1401x*p_c->g31 +p_i->c1401y*p_c->g32 +
    p_i->c1401z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1402z =                                   /*    c1402z     */
    p_i->c1402x*p_c->g31 +p_i->c1402y*p_c->g32 +
    p_i->c1402z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1403z =                                   /*    c1403z     */
    p_i->c1403x*p_c->g31 +p_i->c1403y*p_c->g32 +
    p_i->c1403z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1404z =                                   /*    c1404z     */
    p_i->c1404x*p_c->g31 +p_i->c1404y*p_c->g32 +
    p_i->c1404z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1405z =                                   /*    c1405z     */
    p_i->c1405x*p_c->g31 +p_i->c1405y*p_c->g32 +
    p_i->c1405z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1406z =                                   /*    c1406z     */
    p_i->c1406x*p_c->g31 +p_i->c1406y*p_c->g32 +
    p_i->c1406z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1407z =                                   /*    c1407z     */
    p_i->c1407x*p_c->g31 +p_i->c1407y*p_c->g32 +
    p_i->c1407z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1408z =                                   /*    c1408z     */
    p_i->c1408x*p_c->g31 +p_i->c1408y*p_c->g32 +
    p_i->c1408z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1409z =                                   /*    c1409z     */
    p_i->c1409x*p_c->g31 +p_i->c1409y*p_c->g32 +
    p_i->c1409z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1410z =                                   /*    c1410z     */
    p_i->c1410x*p_c->g31 +p_i->c1410y*p_c->g32 +
    p_i->c1410z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1411z =                                   /*    c1411z     */
    p_i->c1411x*p_c->g31 +p_i->c1411y*p_c->g32 +
    p_i->c1411z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1412z =                                   /*    c1412z     */
    p_i->c1412x*p_c->g31 +p_i->c1412y*p_c->g32 +
    p_i->c1412z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1413z =                                   /*    c1413z     */
    p_i->c1413x*p_c->g31 +p_i->c1413y*p_c->g32 +
    p_i->c1413z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1414z =                                   /*    c1414z     */
    p_i->c1414x*p_c->g31 +p_i->c1414y*p_c->g32 +
    p_i->c1414z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1415z =                                   /*    c1415z     */
    p_i->c1415x*p_c->g31 +p_i->c1415y*p_c->g32 +
    p_i->c1415z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1416z =                                   /*    c1416z     */
    p_i->c1416x*p_c->g31 +p_i->c1416y*p_c->g32 +
    p_i->c1416z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1417z =                                   /*    c1417z     */
    p_i->c1417x*p_c->g31 +p_i->c1417y*p_c->g32 +
    p_i->c1417z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1418z =                                   /*    c1418z     */
    p_i->c1418x*p_c->g31 +p_i->c1418y*p_c->g32 +
    p_i->c1418z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1419z =                                   /*    c1419z     */
    p_i->c1419x*p_c->g31 +p_i->c1419y*p_c->g32 +
    p_i->c1419z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1420z =                                   /*    c1420z     */
    p_i->c1420x*p_c->g31 +p_i->c1420y*p_c->g32 +
    p_i->c1420z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1421z =                                   /*    c1421z     */
    p_i->c1421x*p_c->g31 +p_i->c1421y*p_c->g32 +
    p_i->c1421z*p_c->g33 +  0.0      *p_c->g34;

    p_t.c1500z =                                   /*    c1500z     */
    p_i->c1500x*p_c->g31 +p_i->c1500y*p_c->g32 +
    p_i->c1500z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1501z =                                   /*    c1501z     */
    p_i->c1501x*p_c->g31 +p_i->c1501y*p_c->g32 +
    p_i->c1501z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1502z =                                   /*    c1502z     */
    p_i->c1502x*p_c->g31 +p_i->c1502y*p_c->g32 +
    p_i->c1502z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1503z =                                   /*    c1503z     */
    p_i->c1503x*p_c->g31 +p_i->c1503y*p_c->g32 +
    p_i->c1503z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1504z =                                   /*    c1504z     */
    p_i->c1504x*p_c->g31 +p_i->c1504y*p_c->g32 +
    p_i->c1504z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1505z =                                   /*    c1505z     */
    p_i->c1505x*p_c->g31 +p_i->c1505y*p_c->g32 +
    p_i->c1505z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1506z =                                   /*    c1506z     */
    p_i->c1506x*p_c->g31 +p_i->c1506y*p_c->g32 +
    p_i->c1506z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1507z =                                   /*    c1507z     */
    p_i->c1507x*p_c->g31 +p_i->c1507y*p_c->g32 +
    p_i->c1507z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1508z =                                   /*    c1508z     */
    p_i->c1508x*p_c->g31 +p_i->c1508y*p_c->g32 +
    p_i->c1508z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1509z =                                   /*    c1509z     */
    p_i->c1509x*p_c->g31 +p_i->c1509y*p_c->g32 +
    p_i->c1509z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1510z =                                   /*    c1510z     */
    p_i->c1510x*p_c->g31 +p_i->c1510y*p_c->g32 +
    p_i->c1510z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1511z =                                   /*    c1511z     */
    p_i->c1511x*p_c->g31 +p_i->c1511y*p_c->g32 +
    p_i->c1511z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1512z =                                   /*    c1512z     */
    p_i->c1512x*p_c->g31 +p_i->c1512y*p_c->g32 +
    p_i->c1512z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1513z =                                   /*    c1513z     */
    p_i->c1513x*p_c->g31 +p_i->c1513y*p_c->g32 +
    p_i->c1513z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1514z =                                   /*    c1514z     */
    p_i->c1514x*p_c->g31 +p_i->c1514y*p_c->g32 +
    p_i->c1514z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1515z =                                   /*    c1515z     */
    p_i->c1515x*p_c->g31 +p_i->c1515y*p_c->g32 +
    p_i->c1515z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1516z =                                   /*    c1516z     */
    p_i->c1516x*p_c->g31 +p_i->c1516y*p_c->g32 +
    p_i->c1516z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1517z =                                   /*    c1517z     */
    p_i->c1517x*p_c->g31 +p_i->c1517y*p_c->g32 +
    p_i->c1517z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1518z =                                   /*    c1518z     */
    p_i->c1518x*p_c->g31 +p_i->c1518y*p_c->g32 +
    p_i->c1518z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1519z =                                   /*    c1519z     */
    p_i->c1519x*p_c->g31 +p_i->c1519y*p_c->g32 +
    p_i->c1519z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1520z =                                   /*    c1520z     */
    p_i->c1520x*p_c->g31 +p_i->c1520y*p_c->g32 +
    p_i->c1520z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1521z =                                   /*    c1521z     */
    p_i->c1521x*p_c->g31 +p_i->c1521y*p_c->g32 +
    p_i->c1521z*p_c->g33 +  0.0      *p_c->g34;

    p_t.c1600z =                                   /*    c1600z     */
    p_i->c1600x*p_c->g31 +p_i->c1600y*p_c->g32 +
    p_i->c1600z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1601z =                                   /*    c1601z     */
    p_i->c1601x*p_c->g31 +p_i->c1601y*p_c->g32 +
    p_i->c1601z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1602z =                                   /*    c1602z     */
    p_i->c1602x*p_c->g31 +p_i->c1602y*p_c->g32 +
    p_i->c1602z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1603z =                                   /*    c1603z     */
    p_i->c1603x*p_c->g31 +p_i->c1603y*p_c->g32 +
    p_i->c1603z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1604z =                                   /*    c1604z     */
    p_i->c1604x*p_c->g31 +p_i->c1604y*p_c->g32 +
    p_i->c1604z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1605z =                                   /*    c1605z     */
    p_i->c1605x*p_c->g31 +p_i->c1605y*p_c->g32 +
    p_i->c1605z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1606z =                                   /*    c1606z     */
    p_i->c1606x*p_c->g31 +p_i->c1606y*p_c->g32 +
    p_i->c1606z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1607z =                                   /*    c1607z     */
    p_i->c1607x*p_c->g31 +p_i->c1607y*p_c->g32 +
    p_i->c1607z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1608z =                                   /*    c1608z     */
    p_i->c1608x*p_c->g31 +p_i->c1608y*p_c->g32 +
    p_i->c1608z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1609z =                                   /*    c1609z     */
    p_i->c1609x*p_c->g31 +p_i->c1609y*p_c->g32 +
    p_i->c1609z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1610z =                                   /*    c1610z     */
    p_i->c1610x*p_c->g31 +p_i->c1610y*p_c->g32 +
    p_i->c1610z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1611z =                                   /*    c1611z     */
    p_i->c1611x*p_c->g31 +p_i->c1611y*p_c->g32 +
    p_i->c1611z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1612z =                                   /*    c1612z     */
    p_i->c1612x*p_c->g31 +p_i->c1612y*p_c->g32 +
    p_i->c1612z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1613z =                                   /*    c1613z     */
    p_i->c1613x*p_c->g31 +p_i->c1613y*p_c->g32 +
    p_i->c1613z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1614z =                                   /*    c1614z     */
    p_i->c1614x*p_c->g31 +p_i->c1614y*p_c->g32 +
    p_i->c1614z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1615z =                                   /*    c1615z     */
    p_i->c1615x*p_c->g31 +p_i->c1615y*p_c->g32 +
    p_i->c1615z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1616z =                                   /*    c1616z     */
    p_i->c1616x*p_c->g31 +p_i->c1616y*p_c->g32 +
    p_i->c1616z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1617z =                                   /*    c1617z     */
    p_i->c1617x*p_c->g31 +p_i->c1617y*p_c->g32 +
    p_i->c1617z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1618z =                                   /*    c1618z     */
    p_i->c1618x*p_c->g31 +p_i->c1618y*p_c->g32 +
    p_i->c1618z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1619z =                                   /*    c1619z     */
    p_i->c1619x*p_c->g31 +p_i->c1619y*p_c->g32 +
    p_i->c1619z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1620z =                                   /*    c1620z     */
    p_i->c1620x*p_c->g31 +p_i->c1620y*p_c->g32 +
    p_i->c1620z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1621z =                                   /*    c1621z     */
    p_i->c1621x*p_c->g31 +p_i->c1621y*p_c->g32 +
    p_i->c1621z*p_c->g33 +  0.0      *p_c->g34;

    p_t.c1700z =                                   /*    c1700z     */
    p_i->c1700x*p_c->g31 +p_i->c1700y*p_c->g32 +
    p_i->c1700z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1701z =                                   /*    c1701z     */
    p_i->c1701x*p_c->g31 +p_i->c1701y*p_c->g32 +
    p_i->c1701z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1702z =                                   /*    c1702z     */
    p_i->c1702x*p_c->g31 +p_i->c1702y*p_c->g32 +
    p_i->c1702z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1703z =                                   /*    c1703z     */
    p_i->c1703x*p_c->g31 +p_i->c1703y*p_c->g32 +
    p_i->c1703z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1704z =                                   /*    c1704z     */
    p_i->c1704x*p_c->g31 +p_i->c1704y*p_c->g32 +
    p_i->c1704z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1705z =                                   /*    c1705z     */
    p_i->c1705x*p_c->g31 +p_i->c1705y*p_c->g32 +
    p_i->c1705z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1706z =                                   /*    c1706z     */
    p_i->c1706x*p_c->g31 +p_i->c1706y*p_c->g32 +
    p_i->c1706z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1707z =                                   /*    c1707z     */
    p_i->c1707x*p_c->g31 +p_i->c1707y*p_c->g32 +
    p_i->c1707z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1708z =                                   /*    c1708z     */
    p_i->c1708x*p_c->g31 +p_i->c1708y*p_c->g32 +
    p_i->c1708z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1709z =                                   /*    c1709z     */
    p_i->c1709x*p_c->g31 +p_i->c1709y*p_c->g32 +
    p_i->c1709z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1710z =                                   /*    c1710z     */
    p_i->c1710x*p_c->g31 +p_i->c1710y*p_c->g32 +
    p_i->c1710z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1711z =                                   /*    c1711z     */
    p_i->c1711x*p_c->g31 +p_i->c1711y*p_c->g32 +
    p_i->c1711z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1712z =                                   /*    c1712z     */
    p_i->c1712x*p_c->g31 +p_i->c1712y*p_c->g32 +
    p_i->c1712z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1713z =                                   /*    c1713z     */
    p_i->c1713x*p_c->g31 +p_i->c1713y*p_c->g32 +
    p_i->c1713z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1714z =                                   /*    c1714z     */
    p_i->c1714x*p_c->g31 +p_i->c1714y*p_c->g32 +
    p_i->c1714z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1715z =                                   /*    c1715z     */
    p_i->c1715x*p_c->g31 +p_i->c1715y*p_c->g32 +
    p_i->c1715z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1716z =                                   /*    c1716z     */
    p_i->c1716x*p_c->g31 +p_i->c1716y*p_c->g32 +
    p_i->c1716z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1717z =                                   /*    c1717z     */
    p_i->c1717x*p_c->g31 +p_i->c1717y*p_c->g32 +
    p_i->c1717z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1718z =                                   /*    c1718z     */
    p_i->c1718x*p_c->g31 +p_i->c1718y*p_c->g32 +
    p_i->c1718z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1719z =                                   /*    c1719z     */
    p_i->c1719x*p_c->g31 +p_i->c1719y*p_c->g32 +
    p_i->c1719z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1720z =                                   /*    c1720z     */
    p_i->c1720x*p_c->g31 +p_i->c1720y*p_c->g32 +
    p_i->c1720z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1721z =                                   /*    c1721z     */
    p_i->c1721x*p_c->g31 +p_i->c1721y*p_c->g32 +
    p_i->c1721z*p_c->g33 +  0.0      *p_c->g34;

    p_t.c1800z =                                   /*    c1800z     */
    p_i->c1800x*p_c->g31 +p_i->c1800y*p_c->g32 +
    p_i->c1800z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1801z =                                   /*    c1801z     */
    p_i->c1801x*p_c->g31 +p_i->c1801y*p_c->g32 +
    p_i->c1801z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1802z =                                   /*    c1802z     */
    p_i->c1802x*p_c->g31 +p_i->c1802y*p_c->g32 +
    p_i->c1802z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1803z =                                   /*    c1803z     */
    p_i->c1803x*p_c->g31 +p_i->c1803y*p_c->g32 +
    p_i->c1803z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1804z =                                   /*    c1804z     */
    p_i->c1804x*p_c->g31 +p_i->c1804y*p_c->g32 +
    p_i->c1804z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1805z =                                   /*    c1805z     */
    p_i->c1805x*p_c->g31 +p_i->c1805y*p_c->g32 +
    p_i->c1805z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1806z =                                   /*    c1806z     */
    p_i->c1806x*p_c->g31 +p_i->c1806y*p_c->g32 +
    p_i->c1806z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1807z =                                   /*    c1807z     */
    p_i->c1807x*p_c->g31 +p_i->c1807y*p_c->g32 +
    p_i->c1807z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1808z =                                   /*    c1808z     */
    p_i->c1808x*p_c->g31 +p_i->c1808y*p_c->g32 +
    p_i->c1808z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1809z =                                   /*    c1809z     */
    p_i->c1809x*p_c->g31 +p_i->c1809y*p_c->g32 +
    p_i->c1809z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1810z =                                   /*    c1810z     */
    p_i->c1810x*p_c->g31 +p_i->c1810y*p_c->g32 +
    p_i->c1810z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1811z =                                   /*    c1811z     */
    p_i->c1811x*p_c->g31 +p_i->c1811y*p_c->g32 +
    p_i->c1811z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1812z =                                   /*    c1812z     */
    p_i->c1812x*p_c->g31 +p_i->c1812y*p_c->g32 +
    p_i->c1812z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1813z =                                   /*    c1813z     */
    p_i->c1813x*p_c->g31 +p_i->c1813y*p_c->g32 +
    p_i->c1813z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1814z =                                   /*    c1814z     */
    p_i->c1814x*p_c->g31 +p_i->c1814y*p_c->g32 +
    p_i->c1814z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1815z =                                   /*    c1815z     */
    p_i->c1815x*p_c->g31 +p_i->c1815y*p_c->g32 +
    p_i->c1815z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1816z =                                   /*    c1816z     */
    p_i->c1816x*p_c->g31 +p_i->c1816y*p_c->g32 +
    p_i->c1816z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1817z =                                   /*    c1817z     */
    p_i->c1817x*p_c->g31 +p_i->c1817y*p_c->g32 +
    p_i->c1817z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1818z =                                   /*    c1818z     */
    p_i->c1818x*p_c->g31 +p_i->c1818y*p_c->g32 +
    p_i->c1818z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1819z =                                   /*    c1819z     */
    p_i->c1819x*p_c->g31 +p_i->c1819y*p_c->g32 +
    p_i->c1819z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1820z =                                   /*    c1820z     */
    p_i->c1820x*p_c->g31 +p_i->c1820y*p_c->g32 +
    p_i->c1820z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1821z =                                   /*    c1821z     */
    p_i->c1821x*p_c->g31 +p_i->c1821y*p_c->g32 +
    p_i->c1821z*p_c->g33 +  0.0      *p_c->g34;

    p_t.c1900z =                                   /*    c1900z     */
    p_i->c1900x*p_c->g31 +p_i->c1900y*p_c->g32 +
    p_i->c1900z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1901z =                                   /*    c1901z     */
    p_i->c1901x*p_c->g31 +p_i->c1901y*p_c->g32 +
    p_i->c1901z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1902z =                                   /*    c1902z     */
    p_i->c1902x*p_c->g31 +p_i->c1902y*p_c->g32 +
    p_i->c1902z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1903z =                                   /*    c1903z     */
    p_i->c1903x*p_c->g31 +p_i->c1903y*p_c->g32 +
    p_i->c1903z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1904z =                                   /*    c1904z     */
    p_i->c1904x*p_c->g31 +p_i->c1904y*p_c->g32 +
    p_i->c1904z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1905z =                                   /*    c1905z     */
    p_i->c1905x*p_c->g31 +p_i->c1905y*p_c->g32 +
    p_i->c1905z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1906z =                                   /*    c1906z     */
    p_i->c1906x*p_c->g31 +p_i->c1906y*p_c->g32 +
    p_i->c1906z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1907z =                                   /*    c1907z     */
    p_i->c1907x*p_c->g31 +p_i->c1907y*p_c->g32 +
    p_i->c1907z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1908z =                                   /*    c1908z     */
    p_i->c1908x*p_c->g31 +p_i->c1908y*p_c->g32 +
    p_i->c1908z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1909z =                                   /*    c1909z     */
    p_i->c1909x*p_c->g31 +p_i->c1909y*p_c->g32 +
    p_i->c1909z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1910z =                                   /*    c1910z     */
    p_i->c1910x*p_c->g31 +p_i->c1910y*p_c->g32 +
    p_i->c1910z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1911z =                                   /*    c1911z     */
    p_i->c1911x*p_c->g31 +p_i->c1911y*p_c->g32 +
    p_i->c1911z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1912z =                                   /*    c1912z     */
    p_i->c1912x*p_c->g31 +p_i->c1912y*p_c->g32 +
    p_i->c1912z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1913z =                                   /*    c1913z     */
    p_i->c1913x*p_c->g31 +p_i->c1913y*p_c->g32 +
    p_i->c1913z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1914z =                                   /*    c1914z     */
    p_i->c1914x*p_c->g31 +p_i->c1914y*p_c->g32 +
    p_i->c1914z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1915z =                                   /*    c1915z     */
    p_i->c1915x*p_c->g31 +p_i->c1915y*p_c->g32 +
    p_i->c1915z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1916z =                                   /*    c1916z     */
    p_i->c1916x*p_c->g31 +p_i->c1916y*p_c->g32 +
    p_i->c1916z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1917z =                                   /*    c1917z     */
    p_i->c1917x*p_c->g31 +p_i->c1917y*p_c->g32 +
    p_i->c1917z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1918z =                                   /*    c1918z     */
    p_i->c1918x*p_c->g31 +p_i->c1918y*p_c->g32 +
    p_i->c1918z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1919z =                                   /*    c1919z     */
    p_i->c1919x*p_c->g31 +p_i->c1919y*p_c->g32 +
    p_i->c1919z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1920z =                                   /*    c1920z     */
    p_i->c1920x*p_c->g31 +p_i->c1920y*p_c->g32 +
    p_i->c1920z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c1921z =                                   /*    c1921z     */
    p_i->c1921x*p_c->g31 +p_i->c1921y*p_c->g32 +
    p_i->c1921z*p_c->g33 +  0.0      *p_c->g34;

    p_t.c2000z =                                   /*    c2000z     */
    p_i->c2000x*p_c->g31 +p_i->c2000y*p_c->g32 +
    p_i->c2000z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c2001z =                                   /*    c2001z     */
    p_i->c2001x*p_c->g31 +p_i->c2001y*p_c->g32 +
    p_i->c2001z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c2002z =                                   /*    c2002z     */
    p_i->c2002x*p_c->g31 +p_i->c2002y*p_c->g32 +
    p_i->c2002z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c2003z =                                   /*    c2003z     */
    p_i->c2003x*p_c->g31 +p_i->c2003y*p_c->g32 +
    p_i->c2003z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c2004z =                                   /*    c2004z     */
    p_i->c2004x*p_c->g31 +p_i->c2004y*p_c->g32 +
    p_i->c2004z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c2005z =                                   /*    c2005z     */
    p_i->c2005x*p_c->g31 +p_i->c2005y*p_c->g32 +
    p_i->c2005z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c2006z =                                   /*    c2006z     */
    p_i->c2006x*p_c->g31 +p_i->c2006y*p_c->g32 +
    p_i->c2006z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c2007z =                                   /*    c2007z     */
    p_i->c2007x*p_c->g31 +p_i->c2007y*p_c->g32 +
    p_i->c2007z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c2008z =                                   /*    c2008z     */
    p_i->c2008x*p_c->g31 +p_i->c2008y*p_c->g32 +
    p_i->c2008z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c2009z =                                   /*    c2009z     */
    p_i->c2009x*p_c->g31 +p_i->c2009y*p_c->g32 +
    p_i->c2009z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c2010z =                                   /*    c2010z     */
    p_i->c2010x*p_c->g31 +p_i->c2010y*p_c->g32 +
    p_i->c2010z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c2011z =                                   /*    c2011z     */
    p_i->c2011x*p_c->g31 +p_i->c2011y*p_c->g32 +
    p_i->c2011z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c2012z =                                   /*    c2012z     */
    p_i->c2012x*p_c->g31 +p_i->c2012y*p_c->g32 +
    p_i->c2012z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c2013z =                                   /*    c2013z     */
    p_i->c2013x*p_c->g31 +p_i->c2013y*p_c->g32 +
    p_i->c2013z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c2014z =                                   /*    c2014z     */
    p_i->c2014x*p_c->g31 +p_i->c2014y*p_c->g32 +
    p_i->c2014z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c2015z =                                   /*    c2015z     */
    p_i->c2015x*p_c->g31 +p_i->c2015y*p_c->g32 +
    p_i->c2015z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c2016z =                                   /*    c2016z     */
    p_i->c2016x*p_c->g31 +p_i->c2016y*p_c->g32 +
    p_i->c2016z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c2017z =                                   /*    c2017z     */
    p_i->c2017x*p_c->g31 +p_i->c2017y*p_c->g32 +
    p_i->c2017z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c2018z =                                   /*    c2018z     */
    p_i->c2018x*p_c->g31 +p_i->c2018y*p_c->g32 +
    p_i->c2018z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c2019z =                                   /*    c2019z     */
    p_i->c2019x*p_c->g31 +p_i->c2019y*p_c->g32 +
    p_i->c2019z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c2020z =                                   /*    c2020z     */
    p_i->c2020x*p_c->g31 +p_i->c2020y*p_c->g32 +
    p_i->c2020z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c2021z =                                   /*    c2021z     */
    p_i->c2021x*p_c->g31 +p_i->c2021y*p_c->g32 +
    p_i->c2021z*p_c->g33 +  0.0      *p_c->g34;

    p_t.c2100z =                                   /*    c2100z     */
    p_i->c2100x*p_c->g31 +p_i->c2100y*p_c->g32 +
    p_i->c2100z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c2101z =                                   /*    c2101z     */
    p_i->c2101x*p_c->g31 +p_i->c2101y*p_c->g32 +
    p_i->c2101z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c2102z =                                   /*    c2102z     */
    p_i->c2102x*p_c->g31 +p_i->c2102y*p_c->g32 +
    p_i->c2102z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c2103z =                                   /*    c2103z     */
    p_i->c2103x*p_c->g31 +p_i->c2103y*p_c->g32 +
    p_i->c2103z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c2104z =                                   /*    c2104z     */
    p_i->c2104x*p_c->g31 +p_i->c2104y*p_c->g32 +
    p_i->c2104z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c2105z =                                   /*    c2105z     */
    p_i->c2105x*p_c->g31 +p_i->c2105y*p_c->g32 +
    p_i->c2105z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c2106z =                                   /*    c2106z     */
    p_i->c2106x*p_c->g31 +p_i->c2106y*p_c->g32 +
    p_i->c2106z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c2107z =                                   /*    c2107z     */
    p_i->c2107x*p_c->g31 +p_i->c2107y*p_c->g32 +
    p_i->c2107z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c2108z =                                   /*    c2108z     */
    p_i->c2108x*p_c->g31 +p_i->c2108y*p_c->g32 +
    p_i->c2108z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c2109z =                                   /*    c2109z     */
    p_i->c2109x*p_c->g31 +p_i->c2109y*p_c->g32 +
    p_i->c2109z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c2110z =                                   /*    c2110z     */
    p_i->c2110x*p_c->g31 +p_i->c2110y*p_c->g32 +
    p_i->c2110z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c2111z =                                   /*    c2111z     */
    p_i->c2111x*p_c->g31 +p_i->c2111y*p_c->g32 +
    p_i->c2111z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c2112z =                                   /*    c2112z     */
    p_i->c2112x*p_c->g31 +p_i->c2112y*p_c->g32 +
    p_i->c2112z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c2113z =                                   /*    c2113z     */
    p_i->c2113x*p_c->g31 +p_i->c2113y*p_c->g32 +
    p_i->c2113z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c2114z =                                   /*    c2114z     */
    p_i->c2114x*p_c->g31 +p_i->c2114y*p_c->g32 +
    p_i->c2114z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c2115z =                                   /*    c2115z     */
    p_i->c2115x*p_c->g31 +p_i->c2115y*p_c->g32 +
    p_i->c2115z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c2116z =                                   /*    c2116z     */
    p_i->c2116x*p_c->g31 +p_i->c2116y*p_c->g32 +
    p_i->c2116z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c2117z =                                   /*    c2117z     */
    p_i->c2117x*p_c->g31 +p_i->c2117y*p_c->g32 +
    p_i->c2117z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c2118z =                                   /*    c2118z     */
    p_i->c2118x*p_c->g31 +p_i->c2118y*p_c->g32 +
    p_i->c2118z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c2119z =                                   /*    c2119z     */
    p_i->c2119x*p_c->g31 +p_i->c2119y*p_c->g32 +
    p_i->c2119z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c2120z =                                   /*    c2120z     */
    p_i->c2120x*p_c->g31 +p_i->c2120y*p_c->g32 +
    p_i->c2120z*p_c->g33 +  0.0      *p_c->g34;
    p_t.c2121z =                                   /*    c2121z     */
    p_i->c2121x*p_c->g31 +p_i->c2121y*p_c->g32 +
    p_i->c2121z*p_c->g33 +  0.0      *p_c->g34;


    p_o->c0000x = p_t.c0000x;
    p_o->c0001x = p_t.c0001x;
    p_o->c0002x = p_t.c0002x;
    p_o->c0003x = p_t.c0003x;
    p_o->c0004x = p_t.c0004x;
    p_o->c0005x = p_t.c0005x;
    p_o->c0006x = p_t.c0006x;
    p_o->c0007x = p_t.c0007x;
    p_o->c0008x = p_t.c0008x;
    p_o->c0009x = p_t.c0009x;
    p_o->c0010x = p_t.c0010x;
    p_o->c0011x = p_t.c0011x;
    p_o->c0012x = p_t.c0012x;
    p_o->c0013x = p_t.c0013x;
    p_o->c0014x = p_t.c0014x;
    p_o->c0015x = p_t.c0015x;
    p_o->c0016x = p_t.c0016x;
    p_o->c0017x = p_t.c0017x;
    p_o->c0018x = p_t.c0018x;
    p_o->c0019x = p_t.c0019x;
    p_o->c0020x = p_t.c0020x;
    p_o->c0021x = p_t.c0021x;

    p_o->c0100x = p_t.c0100x;
    p_o->c0101x = p_t.c0101x;
    p_o->c0102x = p_t.c0102x;
    p_o->c0103x = p_t.c0103x;
    p_o->c0104x = p_t.c0104x;
    p_o->c0105x = p_t.c0105x;
    p_o->c0106x = p_t.c0106x;
    p_o->c0107x = p_t.c0107x;
    p_o->c0108x = p_t.c0108x;
    p_o->c0109x = p_t.c0109x;
    p_o->c0110x = p_t.c0110x;
    p_o->c0111x = p_t.c0111x;
    p_o->c0112x = p_t.c0112x;
    p_o->c0113x = p_t.c0113x;
    p_o->c0114x = p_t.c0114x;
    p_o->c0115x = p_t.c0115x;
    p_o->c0116x = p_t.c0116x;
    p_o->c0117x = p_t.c0117x;
    p_o->c0118x = p_t.c0118x;
    p_o->c0119x = p_t.c0119x;
    p_o->c0120x = p_t.c0120x;
    p_o->c0121x = p_t.c0121x;

    p_o->c0200x = p_t.c0200x;
    p_o->c0201x = p_t.c0201x;
    p_o->c0202x = p_t.c0202x;
    p_o->c0203x = p_t.c0203x;
    p_o->c0204x = p_t.c0204x;
    p_o->c0205x = p_t.c0205x;
    p_o->c0206x = p_t.c0206x;
    p_o->c0207x = p_t.c0207x;
    p_o->c0208x = p_t.c0208x;
    p_o->c0209x = p_t.c0209x;
    p_o->c0210x = p_t.c0210x;
    p_o->c0211x = p_t.c0211x;
    p_o->c0212x = p_t.c0212x;
    p_o->c0213x = p_t.c0213x;
    p_o->c0214x = p_t.c0214x;
    p_o->c0215x = p_t.c0215x;
    p_o->c0216x = p_t.c0216x;
    p_o->c0217x = p_t.c0217x;
    p_o->c0218x = p_t.c0218x;
    p_o->c0219x = p_t.c0219x;
    p_o->c0220x = p_t.c0220x;
    p_o->c0221x = p_t.c0221x;

    p_o->c0300x = p_t.c0300x;
    p_o->c0301x = p_t.c0301x;
    p_o->c0302x = p_t.c0302x;
    p_o->c0303x = p_t.c0303x;
    p_o->c0304x = p_t.c0304x;
    p_o->c0305x = p_t.c0305x;
    p_o->c0306x = p_t.c0306x;
    p_o->c0307x = p_t.c0307x;
    p_o->c0308x = p_t.c0308x;
    p_o->c0309x = p_t.c0309x;
    p_o->c0310x = p_t.c0310x;
    p_o->c0311x = p_t.c0311x;
    p_o->c0312x = p_t.c0312x;
    p_o->c0313x = p_t.c0313x;
    p_o->c0314x = p_t.c0314x;
    p_o->c0315x = p_t.c0315x;
    p_o->c0316x = p_t.c0316x;
    p_o->c0317x = p_t.c0317x;
    p_o->c0318x = p_t.c0318x;
    p_o->c0319x = p_t.c0319x;
    p_o->c0320x = p_t.c0320x;
    p_o->c0321x = p_t.c0321x;

    p_o->c0400x = p_t.c0400x;
    p_o->c0401x = p_t.c0401x;
    p_o->c0402x = p_t.c0402x;
    p_o->c0403x = p_t.c0403x;
    p_o->c0404x = p_t.c0404x;
    p_o->c0405x = p_t.c0405x;
    p_o->c0406x = p_t.c0406x;
    p_o->c0407x = p_t.c0407x;
    p_o->c0408x = p_t.c0408x;
    p_o->c0409x = p_t.c0409x;
    p_o->c0410x = p_t.c0410x;
    p_o->c0411x = p_t.c0411x;
    p_o->c0412x = p_t.c0412x;
    p_o->c0413x = p_t.c0413x;
    p_o->c0414x = p_t.c0414x;
    p_o->c0415x = p_t.c0415x;
    p_o->c0416x = p_t.c0416x;
    p_o->c0417x = p_t.c0417x;
    p_o->c0418x = p_t.c0418x;
    p_o->c0419x = p_t.c0419x;
    p_o->c0420x = p_t.c0420x;
    p_o->c0421x = p_t.c0421x;

    p_o->c0500x = p_t.c0500x;
    p_o->c0501x = p_t.c0501x;
    p_o->c0502x = p_t.c0502x;
    p_o->c0503x = p_t.c0503x;
    p_o->c0504x = p_t.c0504x;
    p_o->c0505x = p_t.c0505x;
    p_o->c0506x = p_t.c0506x;
    p_o->c0507x = p_t.c0507x;
    p_o->c0508x = p_t.c0508x;
    p_o->c0509x = p_t.c0509x;
    p_o->c0510x = p_t.c0510x;
    p_o->c0511x = p_t.c0511x;
    p_o->c0512x = p_t.c0512x;
    p_o->c0513x = p_t.c0513x;
    p_o->c0514x = p_t.c0514x;
    p_o->c0515x = p_t.c0515x;
    p_o->c0516x = p_t.c0516x;
    p_o->c0517x = p_t.c0517x;
    p_o->c0518x = p_t.c0518x;
    p_o->c0519x = p_t.c0519x;
    p_o->c0520x = p_t.c0520x;
    p_o->c0521x = p_t.c0521x;

    p_o->c0600x = p_t.c0600x;
    p_o->c0601x = p_t.c0601x;
    p_o->c0602x = p_t.c0602x;
    p_o->c0603x = p_t.c0603x;
    p_o->c0604x = p_t.c0604x;
    p_o->c0605x = p_t.c0605x;
    p_o->c0606x = p_t.c0606x;
    p_o->c0607x = p_t.c0607x;
    p_o->c0608x = p_t.c0608x;
    p_o->c0609x = p_t.c0609x;
    p_o->c0610x = p_t.c0610x;
    p_o->c0611x = p_t.c0611x;
    p_o->c0612x = p_t.c0612x;
    p_o->c0613x = p_t.c0613x;
    p_o->c0614x = p_t.c0614x;
    p_o->c0615x = p_t.c0615x;
    p_o->c0616x = p_t.c0616x;
    p_o->c0617x = p_t.c0617x;
    p_o->c0618x = p_t.c0618x;
    p_o->c0619x = p_t.c0619x;
    p_o->c0620x = p_t.c0620x;
    p_o->c0621x = p_t.c0621x;

    p_o->c0700x = p_t.c0700x;
    p_o->c0701x = p_t.c0701x;
    p_o->c0702x = p_t.c0702x;
    p_o->c0703x = p_t.c0703x;
    p_o->c0704x = p_t.c0704x;
    p_o->c0705x = p_t.c0705x;
    p_o->c0706x = p_t.c0706x;
    p_o->c0707x = p_t.c0707x;
    p_o->c0708x = p_t.c0708x;
    p_o->c0709x = p_t.c0709x;
    p_o->c0710x = p_t.c0710x;
    p_o->c0711x = p_t.c0711x;
    p_o->c0712x = p_t.c0712x;
    p_o->c0713x = p_t.c0713x;
    p_o->c0714x = p_t.c0714x;
    p_o->c0715x = p_t.c0715x;
    p_o->c0716x = p_t.c0716x;
    p_o->c0717x = p_t.c0717x;
    p_o->c0718x = p_t.c0718x;
    p_o->c0719x = p_t.c0719x;
    p_o->c0720x = p_t.c0720x;
    p_o->c0721x = p_t.c0721x;

    p_o->c0800x = p_t.c0800x;
    p_o->c0801x = p_t.c0801x;
    p_o->c0802x = p_t.c0802x;
    p_o->c0803x = p_t.c0803x;
    p_o->c0804x = p_t.c0804x;
    p_o->c0805x = p_t.c0805x;
    p_o->c0806x = p_t.c0806x;
    p_o->c0807x = p_t.c0807x;
    p_o->c0808x = p_t.c0808x;
    p_o->c0809x = p_t.c0809x;
    p_o->c0810x = p_t.c0810x;
    p_o->c0811x = p_t.c0811x;
    p_o->c0812x = p_t.c0812x;
    p_o->c0813x = p_t.c0813x;
    p_o->c0814x = p_t.c0814x;
    p_o->c0815x = p_t.c0815x;
    p_o->c0816x = p_t.c0816x;
    p_o->c0817x = p_t.c0817x;
    p_o->c0818x = p_t.c0818x;
    p_o->c0819x = p_t.c0819x;
    p_o->c0820x = p_t.c0820x;
    p_o->c0821x = p_t.c0821x;

    p_o->c0900x = p_t.c0900x;
    p_o->c0901x = p_t.c0901x;
    p_o->c0902x = p_t.c0902x;
    p_o->c0903x = p_t.c0903x;
    p_o->c0904x = p_t.c0904x;
    p_o->c0905x = p_t.c0905x;
    p_o->c0906x = p_t.c0906x;
    p_o->c0907x = p_t.c0907x;
    p_o->c0908x = p_t.c0908x;
    p_o->c0909x = p_t.c0909x;
    p_o->c0910x = p_t.c0910x;
    p_o->c0911x = p_t.c0911x;
    p_o->c0912x = p_t.c0912x;
    p_o->c0913x = p_t.c0913x;
    p_o->c0914x = p_t.c0914x;
    p_o->c0915x = p_t.c0915x;
    p_o->c0916x = p_t.c0916x;
    p_o->c0917x = p_t.c0917x;
    p_o->c0918x = p_t.c0918x;
    p_o->c0919x = p_t.c0919x;
    p_o->c0920x = p_t.c0920x;
    p_o->c0921x = p_t.c0921x;

    p_o->c1000x = p_t.c1000x;
    p_o->c1001x = p_t.c1001x;
    p_o->c1002x = p_t.c1002x;
    p_o->c1003x = p_t.c1003x;
    p_o->c1004x = p_t.c1004x;
    p_o->