/*************************************************************************
 *                  
 *       (c) Copyright 1992,1993,1994 by G & A Technical Software, Inc.,
 *             28 Research Drive, Hampton, Virginia, 23666.
 *
 *   All Rights Reserved. No part of this software or publication may be
 *   reproduced, stored in a retrieval system, or transmitted, in any form
 *   or by any means, electronic, mechanical, photocopying, recording, or
 *   otherwise without the prior written permission of G & A Technical
 *   Software, Inc.
 *  
 *************************************************************************
 *
 * Filename: callr.c
 *
 * Purpose:  Performs the actual subroutine or function call. 
 *
 * Author:   John Burton
 *
 * Date:     06/17/94
 *
 *************************************************************************
 *
 * Modification History:
 *
 * $Log: s3_callr.c,v $
 * Revision 2.1  1994/07/08  18:07:39  jcburt
 * No changes since last commit. Just bringing everything up to the same
 * revision number
 *
 * Revision 2.0.0.1  1994/06/28  18:48:26  jcburt
 * S3 Version 2.0 Initial Source
 *
 * Revision 1.5  1993/09/09  17:54:47  jcburt
 * Initial Production Release of s3
 *
 * Revision 1.4  1993/09/09  17:53:39  jcburt
 * Initial Production version of s3 - version 1.0
 *
 * Revision 1.3  1993/03/29  16:30:06  jcburt
 * Added support for multi-dimensional character arrays
 *
 * Revision 1.2  1992/12/01  15:46:28  jcburt
 * added rcsid character string
 *
 *
 *************************************************************************
 *
 * Revision Control Information:
 */
   static char rcsid[]  = "$Id: s3_callr.c,v 2.1 1994/07/08 18:07:39 jcburt Exp $";
   static char rcsrev[] = "$Revision: 2.1 $";

/*************************************************************************
 * 
 * Include Files
 *
 *************************************************************************/

#include "s3_defines.h"
#include "s3_typedefs.h"


/****************************************************************************/
/*  Written by:                                                             */
/*    John Burton                                                           */
/*    jcburt@gatsibm.larc.nasa.gov                                          */
/*  Date:                                                                   */
/*    02/20/92                                                              */
/****************************************************************************/
/*  Routines and Revision History:                                          */
/*                                                                          */
/*    void call_subroutine                                                  */
/*      - 02/20/92 Original version created                 (John Burton)   */
/*                                                                          */
/*    int call_function                                                     */
/*      - 02/20/92 Original version created                 (John Burton)   */
/*                                                                          */
/****************************************************************************/


/*  Okay, its a kludge, but I couldn't think of anything better at the time */

/*************************************************************************
 *
 * Module:          s3_call_subroutine
 *
 * Description:     Performs the actual subroutine call as set up by
 *                  s3_call_f_subroutine or s3_call_c_subroutine.
 *
 * Syntax:          s3_call_subroutine(int (*func)(), char **a, int n)
 *
 * Inputs:          *func:  A pointer to the subroutine to be called
 *                  **a:    An array of pointers to the datasets being 
 *                          passed as parameters.
 *                  n:      The number of datasets being passed.
 * 
 * Outputs:        
 *
 * Returns:
 *
 * Modules Called:  func
 *
 *************************************************************************/

void s3_call_subroutine(int (*func)(), char **a, int n)
{
  int maxargs = MAXARGS;

#ifdef _PARAMETERS_ON_STACK
/*
 *     Assume that all structures are placed as values on the stack and
 *     all parameters are placed on the stack. This version passes an 
 *     array of pointers as a structure so that the called routine 
 *     sees the individual pointers as individual parameters being
 *     passed by reference.
 */
  struct {
    char *args[MAXARGS];
  } params;
  register int i;

  if(n > maxargs)
    s3_error(LOC,"Illegal number of parameters to be passed - %d, max - %d",n,maxargs);
  for(i=0;i<n;i++)
    params.args[i] = a[i];
  i = (*func)(params);

#else
/*     Okay, we can't do it the elegant way, so we have to do it the
 *     ugly way. This is the generic version for systems that do not
 *     pass all the parameters on the stack. This version explicitly 
 *     passes each dataset pointed to in the array as an individual 
 *     parameter. This is a brute force approach that consumes lots 
 *     of code, but it should work on all systems.
 */


  switch(n) 
    {
    case 0 :
      (func)();
      break;
    case 1 :
      (func)(a[0]);
      break;
    case 2 :
      (func)(a[0],a[1]);
      break;
    case 3 :
      (func)(a[0],a[1],a[2]);
      break;
    case 4 :
      (func)(a[0],a[1],a[2],a[3]);
      break;
    case 5 :
      (func)(a[0],a[1],a[2],a[3],a[4]);
      break;
    case 6 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5]);
      break;
    case 7 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6]);
      break;
    case 8 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7]);
      break;
    case 9 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8]);
      break;
    case 10 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9]);
      break;
    case 11 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10]);
      break;
    case 12 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11]);
      break;
    case 13 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12]);
      break;
    case 14 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13]);
      break;
    case 15 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14]);
      break;
    case 16 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15]);
      break;
    case 17 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16]);
      break;
    case 18 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17]);
      break;
    case 19 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18]);
      break;
    case 20 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19]);
      break;
    case 21 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20]);
      break;
    case 22 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21]);
      break;
    case 23 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22]);
      break;
    case 24 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23]);
      break;
    case 25 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24]);
      break;
    case 26 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25]);
      break;
    case 27 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26]);
      break;
    case 28 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27]);
      break;
    case 29 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28]);
      break;
    case 30 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29]);
      break;
    case 31 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30]);
      break;
    case 32 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31]);
      break;
    case 33 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32]);
      break;
    case 34 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33]);
      break;
    case 35 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34]);
      break;
    case 36 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35]);
      break;
    case 37 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36]);
      break;
    case 38 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37]);
      break;
    case 39 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38]);
      break;
    case 40 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39]);
      break;
    case 41 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40]);
      break;
    case 42 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41]);
      break;
    case 43 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42]);
      break;
    case 44 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43]);
      break;
    case 45 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44]);
      break;
    case 46 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45]);
      break;
    case 47 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46]);
      break;
    case 48 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47]);
      break;
    case 49 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48]);
      break;
    case 50 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49]);
      break;
    case 51 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
             a[50]);
      break;
    case 52 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
             a[50],a[51]);
      break;
    case 53 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
             a[50],a[51],a[52]);
      break;
    case 54 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
             a[50],a[51],a[52],a[53]);
      break;
    case 55 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
             a[50],a[51],a[52],a[53],a[54]);
      break;
    case 56 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
             a[50],a[51],a[52],a[53],a[54],a[55]);
      break;
    case 57 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
             a[50],a[51],a[52],a[53],a[54],a[55],a[56]);
      break;
    case 58 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
             a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57]);
      break;
    case 59 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
             a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58]);
      break;
    case 60 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
             a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59]);
      break;
    case 61 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
             a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
	     a[60]);
      break;
    case 62 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
             a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
	     a[60],a[61]);
      break;
    case 63 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
             a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
	     a[60],a[61],a[62]);
      break;
    case 64 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
             a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
	     a[60],a[61],a[62],a[63]);
      break;
    case 65 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
             a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
	     a[60],a[61],a[62],a[63],a[64]);
      break;
    case 66 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
             a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
	     a[60],a[61],a[62],a[63],a[64],a[65]);
      break;
    case 67 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
             a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
	     a[60],a[61],a[62],a[63],a[64],a[65],a[66]);
      break;
    case 68 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
             a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
	     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67]);
      break;
    case 69 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
             a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
	     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68]);
      break;
    case 70 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
             a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
	     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68],a[69]);
      break;
    case 71 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
             a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
	     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68],a[69],
	     a[70]);
      break;
    case 72 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
             a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
	     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68],a[69],
	     a[70],a[71]);
      break;
    case 73 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
             a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
	     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68],a[69],
	     a[70],a[71],a[72]);
      break;
    case 74 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
             a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
	     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68],a[69],
	     a[70],a[71],a[72],a[73]);
      break;
    case 75 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
             a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
	     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68],a[69],
	     a[70],a[71],a[72],a[73],a[74]);
      break;
    case 76 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
             a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
	     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68],a[69],
	     a[70],a[71],a[72],a[73],a[74],a[75]);
      break;
    case 77 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
             a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
	     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68],a[69],
	     a[70],a[71],a[72],a[73],a[74],a[75],a[76]);
      break;
    case 78 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
             a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
	     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68],a[69],
	     a[70],a[71],a[72],a[73],a[74],a[75],a[76],a[77]);
      break;
    case 79 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
             a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
	     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68],a[69],
	     a[70],a[71],a[72],a[73],a[74],a[75],a[76],a[77],a[78]);
      break;
    case 80 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
             a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
	     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68],a[69],
	     a[70],a[71],a[72],a[73],a[74],a[75],a[76],a[77],a[78],a[79]);
      break;
    case 81 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
             a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
	     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68],a[69],
	     a[70],a[71],a[72],a[73],a[74],a[75],a[76],a[77],a[78],a[79],
	     a[80]);
      break;
     case 82 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
             a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
	     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68],a[69],
	     a[70],a[71],a[72],a[73],a[74],a[75],a[76],a[77],a[78],a[79],
	     a[80],a[81]);
      break;
    case 83 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
             a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
	     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68],a[69],
	     a[70],a[71],a[72],a[73],a[74],a[75],a[76],a[77],a[78],a[79],
	     a[80],a[81],a[82]);
      break;
    case 84 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
             a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
	     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68],a[69],
	     a[70],a[71],a[72],a[73],a[74],a[75],a[76],a[77],a[78],a[79],
	     a[80],a[81],a[82],a[83]);
      break;
    case 85 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
             a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
	     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68],a[69],
	     a[70],a[71],a[72],a[73],a[74],a[75],a[76],a[77],a[78],a[79],
	     a[80],a[81],a[82],a[83],a[84]);
      break;
    case 86 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
             a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
	     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68],a[69],
	     a[70],a[71],a[72],a[73],a[74],a[75],a[76],a[77],a[78],a[79],
	     a[80],a[81],a[82],a[83],a[84],a[85]);
      break;
    case 87 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
             a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
	     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68],a[69],
	     a[70],a[71],a[72],a[73],a[74],a[75],a[76],a[77],a[78],a[79],
	     a[80],a[81],a[82],a[83],a[84],a[85],a[86]);
      break;
    case 88 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
             a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
	     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68],a[69],
	     a[70],a[71],a[72],a[73],a[74],a[75],a[76],a[77],a[78],a[79],
	     a[80],a[81],a[82],a[83],a[84],a[85],a[86],a[87]);
      break;
    case 89 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
             a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
	     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68],a[69],
	     a[70],a[71],a[72],a[73],a[74],a[75],a[76],a[77],a[78],a[79],
	     a[80],a[81],a[82],a[83],a[84],a[85],a[86],a[87],a[88]);
      break;
    case 90 :
      (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
             a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
             a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
             a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
             a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
             a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
	     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68],a[69],
	     a[70],a[71],a[72],a[73],a[74],a[75],a[76],a[77],a[78],a[79],
	     a[80],a[81],a[82],a[83],a[84],a[85],a[86],a[87],a[88],a[89]);
      break;
   default :
      s3_error(LOC,"Illegal number of parameters to be passed - %d, max - %d",n,maxargs);
    }
#endif
}



/*************************************************************************
 *
 * Module:          s3_call_function
 *
 * Description:     Performs the actual function call as set up by
 *                  s3_call_f_function or s3_call_c_function.
 *
 * Syntax:          s3_call_function(int (*func)(), char **a, int n)
 *
 * Inputs:          *func:  A pointer to the integer function to be called
 *                  **a:    An array of pointers to the datasets being 
 *                          passed as parameters.
 *                  n:      The number of datasets being passed.
 * 
 * Outputs:        
 *
 * Returns:         The integer value returned by func.
 *
 * Modules Called:  func
 *
 *************************************************************************/

int s3_call_function(int (*func)(), char **a,int n)
{
  int value;
  int maxargs = MAXARGS;

#ifdef _PARAMETERS_ON_STACK
/*
 *     Assume that all structures are placed as values on the stack and
 *     all parameters are placed on the stack. This version passes an 
 *     array of pointers as a structure so that the called routine 
 *     sees the individual pointers as individual parameters being
 *     passed by reference.
 */
  struct {
    char *args[MAXARGS];
  } params;
  register int i;

  if(n > maxargs)
    s3_error(LOC,"Illegal number of parameters to be passed - %d, max - %d",n,maxargs);
  for(i=0;i<n;i++)
    params.args[i] = a[i];
  value = (func)(params);

#else
/*     Okay, we can't do it the elegant way, so we have to do it the
 *     ugly way. This is the generic version for systems that do not
 *     pass all the parameters on the stack. This version explicitly 
 *     passes each dataset pointed to in the array as an individual 
 *     parameter. This is a brute force approach that consumes lots 
 *     of code, but it should work on all systems.
 */

  switch(n) 
    {
    case 0 :
      value = (func)();
      break;
    case 1 :
      value = (func)(a[0]);
      break;
    case 2 :
      value = (func)(a[0],a[1]);
      break;
    case 3 :
      value = (func)(a[0],a[1],a[2]);
      break;
    case 4 :
      value = (func)(a[0],a[1],a[2],a[3]);
      break;
    case 5 :
      value = (func)(a[0],a[1],a[2],a[3],a[4]);
      break;
    case 6 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5]);
      break;
    case 7 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6]);
      break;
    case 8 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7]);
      break;
    case 9 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8]);
      break;
    case 10 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9]);
      break;
    case 11 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10]);
      break;
    case 12 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11]);
      break;
    case 13 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12]);
      break;
    case 14 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13]);
      break;
    case 15 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14]);
      break;
    case 16 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15]);
      break;
    case 17 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16]);
      break;
    case 18 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17]);
      break;
    case 19 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18]);
      break;
    case 20 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19]);
      break;
    case 21 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20]);
      break;
    case 22 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21]);
      break;
    case 23 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22]);
      break;
    case 24 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23]);
      break;
    case 25 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24]);
      break;
    case 26 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25]);
      break;
    case 27 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26]);
      break;
    case 28 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27]);
      break;
    case 29 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28]);
      break;
    case 30 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29]);
      break;
    case 31 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30]);
      break;
    case 32 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31]);
      break;
    case 33 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32]);
      break;
    case 34 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33]);
      break;
    case 35 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34]);
      break;
    case 36 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35]);
      break;
    case 37 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36]);
      break;
    case 38 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37]);
      break;
    case 39 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38]);
      break;
    case 40 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39]);
      break;
    case 41 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40]);
      break;
    case 42 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41]);
      break;
    case 43 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42]);
      break;
    case 44 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43]);
      break;
    case 45 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44]);
      break;
    case 46 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45]);
      break;
    case 47 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46]);
      break;
    case 48 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47]);
      break;
    case 49 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48]);
      break;
    case 50 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49]);
      break;
    case 51 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
		     a[50]);
      break;
    case 52 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
		     a[50],a[51]);
      break;
    case 53 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
		     a[50],a[51],a[52]);
      break;
    case 54 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
		     a[50],a[51],a[52],a[53]);
      break;
    case 55 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
		     a[50],a[51],a[52],a[53],a[54]);
      break;
    case 56 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
		     a[50],a[51],a[52],a[53],a[54],a[55]);
      break;
    case 57 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
		     a[50],a[51],a[52],a[53],a[54],a[55],a[56]);
      break;
    case 58 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
		     a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57]);
      break;
    case 59 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
		     a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58]);
      break;
    case 60 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
		     a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59]);
      break;
    case 61 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
		     a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
		     a[60]);
      break;
    case 62 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
		     a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
		     a[60],a[61]);
      break;
    case 63 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
		     a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
		     a[60],a[61],a[62]);
      break;
    case 64 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
		     a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
		     a[60],a[61],a[62],a[63]);
      break;
    case 65 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
                     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
		     a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
		     a[60],a[61],a[62],a[63],a[64]);
      break;
    case 66 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
		     a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
		     a[60],a[61],a[62],a[63],a[64],a[65]);
      break;
    case 67 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
		     a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
		     a[60],a[61],a[62],a[63],a[64],a[65],a[66]);
      break;
    case 68 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
		     a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
		     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67]);
      break;
    case 69 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
		     a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
		     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68]);
      break;
    case 70 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
		     a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
		     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68],a[69]);
      break;
    case 71 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
		     a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
		     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68],a[69],
		     a[70]);
      break;
    case 72 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
		     a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
		     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68],a[69],
		     a[70],a[71]);
      break;
    case 73 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
		     a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
		     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68],a[69],
		     a[70],a[71],a[72]);
      break;
    case 74 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
		     a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
		     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68],a[69],
		     a[70],a[71],a[72],a[73]);
      break;
    case 75 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
		     a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
		     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68],a[69],
		     a[70],a[71],a[72],a[73],a[74]);
      break;
    case 76 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
		     a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
		     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68],a[69],
		     a[70],a[71],a[72],a[73],a[74],a[75]);
      break;
    case 77 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
		     a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
		     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68],a[69],
		     a[70],a[71],a[72],a[73],a[74],a[75],a[76]);
      break;
    case 78 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
		     a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
		     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68],a[69],
		     a[70],a[71],a[72],a[73],a[74],a[75],a[76],a[77]);
      break;
    case 79 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
		     a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
		     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68],a[69],
		     a[70],a[71],a[72],a[73],a[74],a[75],a[76],a[77],a[78]);
      break;
    case 80 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
		     a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
		     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68],a[69],
		     a[70],a[71],a[72],a[73],a[74],a[75],a[76],a[77],a[78],a[79]);
      break;
    case 81 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
		     a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
		     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68],a[69],
		     a[70],a[71],a[72],a[73],a[74],a[75],a[76],a[77],a[78],a[79],
		     a[80]);
      break;
    case 82 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
		     a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
		     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68],a[69],
		     a[70],a[71],a[72],a[73],a[74],a[75],a[76],a[77],a[78],a[79],
		     a[80],a[81]);
      break;
    case 83 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
		     a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
		     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68],a[69],
		     a[70],a[71],a[72],a[73],a[74],a[75],a[76],a[77],a[78],a[79],
		     a[80],a[81],a[82]);
      break;
    case 84 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
		     a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
		     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68],a[69],
		     a[70],a[71],a[72],a[73],a[74],a[75],a[76],a[77],a[78],a[79],
		     a[80],a[81],a[82],a[83]);
      break;
    case 85 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
		     a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
		     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68],a[69],
		     a[70],a[71],a[72],a[73],a[74],a[75],a[76],a[77],a[78],a[79],
		     a[80],a[81],a[82],a[83],a[84]);
      break;
    case 86 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
		     a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
		     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68],a[69],
		     a[70],a[71],a[72],a[73],a[74],a[75],a[76],a[77],a[78],a[79],
		     a[80],a[81],a[82],a[83],a[84],a[85]);
      break;
    case 87 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
		     a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
		     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68],a[69],
		     a[70],a[71],a[72],a[73],a[74],a[75],a[76],a[77],a[78],a[79],
		     a[80],a[81],a[82],a[83],a[84],a[85],a[86]);
      break;
    case 88 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
		     a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
		     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68],a[69],
		     a[70],a[71],a[72],a[73],a[74],a[75],a[76],a[77],a[78],a[79],
		     a[80],a[81],a[82],a[83],a[84],a[85],a[86],a[87]);
      break;
    case 89 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
		     a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
		     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68],a[69],
		     a[70],a[71],a[72],a[73],a[74],a[75],a[76],a[77],a[78],a[79],
		     a[80],a[81],a[82],a[83],a[84],a[85],a[86],a[87],a[88]);
      break;
    case 90 :
      value = (func)(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
		     a[10],a[11],a[12],a[13],a[14],a[15],a[16],a[17],a[18],a[19],
		     a[20],a[21],a[22],a[23],a[24],a[25],a[26],a[27],a[28],a[29],
		     a[30],a[31],a[32],a[33],a[34],a[35],a[36],a[37],a[38],a[39],
		     a[40],a[41],a[42],a[43],a[44],a[45],a[46],a[47],a[48],a[49],
		     a[50],a[51],a[52],a[53],a[54],a[55],a[56],a[57],a[58],a[59],
		     a[60],a[61],a[62],a[63],a[64],a[65],a[66],a[67],a[68],a[69],
		     a[70],a[71],a[72],a[73],a[74],a[75],a[76],a[77],a[78],a[79],
		     a[80],a[81],a[82],a[83],a[84],a[85],a[86],a[87],a[88],a[89]);
      break;
    default :
      s3_error(LOC,"Illegal number of parameters to be passed - %d, max - %d",n,maxargs);
    }
#endif
  return value;
}