From 75f4f395cb8871c2cc4787641b1cb5557f23d82b Mon Sep 17 00:00:00 2001 From: hristov Date: Mon, 11 Sep 2000 13:31:15 +0000 Subject: [PATCH] Minor corrections needed on alpha --- PYTHIA6/pythia6_address.c | 20 ++++++++++---------- PYTHIA6/pythia6_common_block_address.F | 6 ++++-- 2 files changed, 14 insertions(+), 12 deletions(-) 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 -- 2.43.5