Minor corrections needed on alpha
authorhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Mon, 11 Sep 2000 13:31:15 +0000 (13:31 +0000)
committerhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Mon, 11 Sep 2000 13:31:15 +0000 (13:31 +0000)
PYTHIA6/pythia6_address.c
PYTHIA6/pythia6_common_block_address.F

index e19af5a714509e959d0f95968bd876780da91c2c..7f7e98969c7ea47309845625f3e433a052feb8b9 100644 (file)
@@ -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)
index d74b5594d242d1e5eafca72ed6bc5b7858ab40da..4bfe45bc1bef45e757b09d07987985185f5ea7a4 100644 (file)
@@ -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