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 b9499b7..6e0d8a6 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 37a1877..d163275 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 e4ba91a..5eca827 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