From: hristov Date: Mon, 11 Sep 2000 13:31:15 +0000 (+0000) Subject: Minor corrections needed on alpha X-Git-Url: http://git.uio.no/git/?p=u%2Fmrichter%2FAliRoot.git;a=commitdiff_plain;h=75f4f395cb8871c2cc4787641b1cb5557f23d82b Minor corrections needed on alpha --- diff --git a/PYTHIA6/pythia6_address.c b/PYTHIA6/pythia6_address.c index e19af5a7145..7f7e98969c7 100644 --- a/PYTHIA6/pythia6_address.c +++ b/PYTHIA6/pythia6_address.c @@ -1,15 +1,15 @@ #if defined(CERNLIB_WINNT) - #define pythia6_addressc PYTHIA^_ADDRESSC - #define pythia6_addressf PYTHIA^_ADDRESSF - #define pythia6_addressi PYTHIA^_ADDRESSI - #define pythia6_addressd PYTHIA^_ADDRESSD - #define type_of_call _stdcall +# define pythia6_addressc PYTHIA^_ADDRESSC +# define pythia6_addressf PYTHIA^_ADDRESSF +# define pythia6_addressi PYTHIA^_ADDRESSI +# define pythia6_addressd PYTHIA^_ADDRESSD +# define type_of_call _stdcall #else - #define pythia6_addressc pythia6_addressc_ - #define pythia6_addressf pythia6_addressf_ - #define pythia6_addressi pythia6_addressi_ - #define pythia6_addressd pythia6_addressd_ - #define type_of_call +# define pythia6_addressc pythia6_addressc_ +# define pythia6_addressf pythia6_addressf_ +# define pythia6_addressi pythia6_addressi_ +# define pythia6_addressd pythia6_addressd_ +# define type_of_call #endif char* type_of_call pythia6_addressc(char *arg) diff --git a/PYTHIA6/pythia6_common_block_address.F b/PYTHIA6/pythia6_common_block_address.F index d74b5594d24..4bfe45bc1be 100644 --- a/PYTHIA6/pythia6_common_block_address.F +++ b/PYTHIA6/pythia6_common_block_address.F @@ -12,8 +12,10 @@ c external pydata c c----------------------------------------------------------------------- - integer adrressc, pythia6_addressi, pythia6_addressf - integer pythia6_addressd + integer pythia6_addressc, pythia6_addressi + integer pythia6_addressd, pythia6_addressf + external pythia6_addressc, pythia6_addressi + external pythia6_addressd, pythia6_addressf integer common_block_address c----------------------------------------------------------------------- common_block_address = 0