Minor fixes needed on Mac with g95
authorhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Mon, 2 Oct 2006 15:36:20 +0000 (15:36 +0000)
committerhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Mon, 2 Oct 2006 15:36:20 +0000 (15:36 +0000)
HERWIG/jimmy/cernmisc/jmdbska.F
HERWIG/jimmy/divon4/dvnbkd.F
HERWIG/jimmy/divon4/genpnt.F

index b9499b7eac90e92cac0325606f540c7f9197a51b..6e0d8a6fb4e7135b9855a03b66678c2d48e2ef4d 100644 (file)
@@ -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
 * $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
 *
       JMDBESI0=H
       RETURN
   101 FORMAT(' NON-POSITIVE ARGUMENT X = ',1P,E15.6)
-      END
\ No newline at end of file
+      END
index 37a1877732b84718ec804ced4de52263b4dc9748..d1632751d4153f8eb60e34669533ce18bec3a6b2 100644 (file)
@@ -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
index e4ba91a4aeb2d5491e89350db1d01adbba82266a..5eca82730d7d40880a0f9a94c014be94c20152a3 100644 (file)
@@ -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