/*
 * $Id: cscali.c,v 1.3 1997/03/14 12:02:24 mclareni Exp $
 *
 * $Log: cscali.c,v $
 * Revision 1.3  1997/03/14 12:02:24  mclareni
 * WNT mods
 *
 * Revision 1.2.2.1  1997/01/21 11:34:43  mclareni
 * All mods for Winnt 96a on winnt branch
 *
 * Revision 1.2  1996/03/14 13:44:11  berezhno
 * mods for WINNT
 *
 * Revision 1.1.1.1  1996/02/26 17:16:55  mclareni
 * Comis
 *
 */
#include "comis/pilot.h"
#if !defined(CERNLIB_ALPHA_OSF)
/*CMZ :          22/11/95  10.39.30  by  Julian Bunn*/
/*-- Author :*/

#define cscali
#undef  cscali

#ifdef CERNLIB_WINNT
# include <stdio.h>
#endif

#if (defined(CERNLIB_QX_SC))&&(!defined(CERNLIB_WINNT))
int cscali_ (name,n,p)
#endif
#if defined(CERNLIB_QXNO_SC)
int cscali (name,n,p)
#endif
#if defined(CERNLIB_QXCAPT)
int type_of_call CSCALI (name,n,p)
#endif
 int (type_of_call *(*name)) ();
 int *n;
 int *p[15];
{
      switch (*n)
     {
        case 0:
    return( (*(*name))());
        case 1:
    return( (*(*name))(p[0]));
        case 2:
    return( (*(*name))(p[0],p[1] ));
        case 3:
    return( (*(*name))(p[0],p[1],p[2] ));
        case 4:
    return( (*(*name))(p[0],p[1],p[2],p[3] ));
        case 5:
    return( (*(*name))(p[0],p[1],p[2],p[3],p[4] ));
        case 6:
    return( (*(*name))(p[0],p[1],p[2],p[3],p[4],p[5] ));
        case 7:
    return( (*(*name))(p[0],p[1],p[2],p[3],p[4],p[5],p[6] ));
        case 8:
    return( (*(*name))(p[0],p[1],p[2],p[3],p[4],p[5],p[6]
         ,p[7] ));
        case 9:
    return( (*(*name))(p[0],p[1],p[2],p[3],p[4],p[5],p[6]
         ,p[7],p[8] ));
        case 10:
    return( (*(*name))(p[0],p[1],p[2],p[3],p[4],p[5],p[6]
         ,p[7],p[8],p[9] ));
        case 11:
    return( (*(*name))(p[0],p[1],p[2],p[3],p[4],p[5],p[6]
         ,p[7],p[8],p[9],p[10] ));
        case 12:
    return( (*(*name))(p[0],p[1],p[2],p[3],p[4],p[5],p[6]
         ,p[7],p[8],p[9],p[10],p[11] ));
        case 13:
    return( (*(*name))(p[0],p[1],p[2],p[3],p[4],p[5],p[6]
         ,p[7],p[8],p[9],p[10],p[11],p[12] ));
        case 14:
    return( (*(*name))(p[0],p[1],p[2],p[3],p[4],p[5],p[6]
         ,p[7],p[8],p[9],p[10],p[11],p[12],p[13] ));
        case 15:
    return( (*(*name))(p[0],p[1],p[2],p[3],p[4],p[5],p[6]
         ,p[7],p[8],p[9],p[10],p[11],p[12],p[13],p[14]));
        case 16:
    return( (*(*name))(p[0],p[1],p[2],p[3],p[4],p[5],p[6]
         ,p[7],p[8],p[9],p[10],p[11],p[12],p[13],p[14],p[15]));
       default:
        printf("\n More then 16 arguments in call users routine");
     }
}
#endif