Minor fixes needed on Mac with g95

diff --git a/HERWIG/jimmy/cernmisc/jmdbska.F b/HERWIG/jimmy/cernmisc/jmdbska.F
index b9499b7eac90e92cac0325606f540c7f9197a51b..6e0d8a6fb4e7135b9855a03b66678c2d48e2ef4d 100644 (file)
--- a/HERWIG/jimmy/cernmisc/jmdbska.F
+++ b/HERWIG/jimmy/cernmisc/jmdbska.F
@@ -2,6 +2,9 @@
 * $Id$
 *
 * $Log$
 * $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
 *
 * 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
       IMPLICIT DOUBLE PRECISION (A-H,J,O-Z)
       SAVE
       LOGICAL LEX

-      INTEGER JA
+      INTEGER JA,J

 
       CHARACTER NAME*(*),ENAM*(*)
       CHARACTER*80 ERRTXT
 
       CHARACTER NAME*(*),ENAM*(*)
       CHARACTER*80 ERRTXT


@@ -126,6 +129,9 @@
 * $Id$
 *
 * $Log$
 * $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
 *
 * 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)
       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 37a1877732b84718ec804ced4de52263b4dc9748..d1632751d4153f8eb60e34669533ce18bec3a6b2 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/
       COMMON /ZEETRM/ ITRMF
 C
       DATA INITL/0/

-      SAVE INITL
+CPH      SAVE INITL

       SAVE
       IF(INITL.NE.0) RETURN
       INITL=1
       SAVE
       IF(INITL.NE.0) RETURN
       INITL=1

diff --git a/HERWIG/jimmy/divon4/genpnt.F b/HERWIG/jimmy/divon4/genpnt.F
index e4ba91a4aeb2d5491e89350db1d01adbba82266a..5eca82730d7d40880a0f9a94c014be94c20152a3 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
       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
       REAL UPLUS(10),UMINUS(10),XSAVE(10),WWTSVE
       SAVE
       MODE=1