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 }