dlsym not supported on HP, reverting to gcomad
[u/mrichter/AliRoot.git] / GEANT321 / comad / gcadd.cxx
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 Revision 1.3  1999/09/29 09:24:14  fca
19 Introduction of the Copyright and cvs Log
20
21 */
22
23 #if defined(CERNLIB_WINNT)
24   #define gcaddc GCADDC
25   #define gcaddf GCADDF
26   #define gcaddd GCADDD
27   #define gcaddi GCADDI
28   #define gcaddl GCADDL
29   #define type_of_call _stdcall
30 #else
31   #define gcaddc gcaddc_
32   #define gcaddf gcaddf_
33   #define gcaddd gcaddd_
34   #define gcaddi gcaddi_
35   #define gcaddl gcaddl_
36   #define type_of_call
37 #endif
38
39 extern "C" char* type_of_call gcaddc(char *arg)
40 {
41   return arg;
42 }
43 extern "C" double* type_of_call gcaddd(double *arg)
44 {
45   return arg;
46 }
47 extern "C" int*  type_of_call gcaddi(int  *arg)
48 {
49   return arg;
50 }
51 extern "C" float* type_of_call gcaddf(float *arg)
52 {
53   return arg;
54 }
55 extern "C" int* type_of_call gcaddl(int *arg)
56 {
57   return arg;
58 }