Minor fixes needed on Mac with g95

diff --git a/HERWIG/jimmy/cernmisc/jmdbska.F b/HERWIG/jimmy/cernmisc/jmdbska.F
index b9499b7..6e0d8a6 100644 (file)
--- a/HERWIG/jimmy/cernmisc/jmdbska.F
+++ b/HERWIG/jimmy/cernmisc/jmdbska.F
@@ -2,6 +2,9 @@
 * $Id$
 *
 * $Log$
+* Revision 1.1  2006/10/02 10:45:20  morsch
+* JIMMY first commit.
+*
 * Revision 1.1  2005/07/29 16:15:46  jmb
 * Include the various CERNLIB functions jimmy needs
 *
@@ -13,7 +16,7 @@
       IMPLICIT DOUBLE PRECISION (A-H,J,O-Z)
       SAVE
       LOGICAL LEX
-      INTEGER JA
+      INTEGER JA,J
 
       CHARACTER NAME*(*),ENAM*(*)
       CHARACTER*80 ERRTXT
@@ -126,6 +129,9 @@
 * $Id$
 *
 * $Log$
+* Revision 1.1  2006/10/02 10:45:20  morsch
+* JIMMY first commit.
+*
 * Revision 1.1  2005/07/29 16:15:46  jmb
 * Include the various CERNLIB functions jimmy needs
 *
@@ -435,4 +441,4 @@
       JMDBESI0=H
       RETURN
   101 FORMAT(' NON-POSITIVE ARGUMENT X = ',1P,E15.6)
-      END
\ No newline at end of file
+      END

diff --git a/HERWIG/jimmy/divon4/dvnbkd.F b/HERWIG/jimmy/divon4/dvnbkd.F
index 37a1877..d163275 100644 (file)
--- a/HERWIG/jimmy/divon4/dvnbkd.F
+++ b/HERWIG/jimmy/divon4/dvnbkd.F
@@ -40,7 +40,7 @@ C     BLOCK DATA
       COMMON /ZEETRM/ ITRMF
 C
       DATA INITL/0/
-      SAVE INITL
+CPH      SAVE INITL
       SAVE
       IF(INITL.NE.0) RETURN
       INITL=1

diff --git a/HERWIG/jimmy/divon4/genpnt.F b/HERWIG/jimmy/divon4/genpnt.F
index e4ba91a..5eca827 100644 (file)
--- a/HERWIG/jimmy/divon4/genpnt.F
+++ b/HERWIG/jimmy/divon4/genpnt.F
@@ -16,7 +16,7 @@
       INTEGER NFUN,JNLGEN,INLGEN
       INTEGER PARENT,PNTR,NTIMES,MODE
 ** JMB
-      SAVE MODE
+CPH      SAVE MODE
       REAL UPLUS(10),UMINUS(10),XSAVE(10),WWTSVE
       SAVE
       MODE=1