]> git.uio.no Git - u/mrichter/AliRoot.git/blame - GEANT321/comad/gcadd.cxx
Introduction of the Copyright and cvs Log
[u/mrichter/AliRoot.git] / GEANT321 / comad / gcadd.cxx
CommitLineData
4c039060 1/**************************************************************************
2 * Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
3 * *
4 * Author: The ALICE Off-line Project. *
5 * Contributors are mentioned in the code where appropriate. *
6 * *
7 * Permission to use, copy, modify and distribute this software and its *
8 * documentation strictly for non-commercial purposes is hereby granted *
9 * without fee, provided that the above copyright notice appears in all *
10 * copies and that both the copyright notice and this permission notice *
11 * appear in the supporting documentation. The authors make no claims *
12 * about the suitability of this software for any purpose. It is *
13 * provided "as is" without express or implied warranty. *
14 **************************************************************************/
15
16/*
17$Log$
18*/
19
fe4da5cc 20#if defined(CERNLIB_WINNT)
21 #define gcaddc GCADDC
22 #define gcaddf GCADDF
6d462b1c 23 #define gcaddd GCADDD
fe4da5cc 24 #define gcaddi GCADDI
25 #define gcaddl GCADDL
26 #define type_of_call _stdcall
27#else
28 #define gcaddc gcaddc_
29 #define gcaddf gcaddf_
6d462b1c 30 #define gcaddd gcaddd_
fe4da5cc 31 #define gcaddi gcaddi_
32 #define gcaddl gcaddl_
33 #define type_of_call
34#endif
35
36extern "C" char* type_of_call gcaddc(char *arg)
37{
38 return arg;
39}
6d462b1c 40extern "C" double* type_of_call gcaddd(double *arg)
41{
42 return arg;
43}
fe4da5cc 44extern "C" int* type_of_call gcaddi(int *arg)
45{
46 return arg;
47}
48extern "C" float* type_of_call gcaddf(float *arg)
49{
50 return arg;
51}
52extern "C" int* type_of_call gcaddl(int *arg)
53{
54 return arg;
55}