* $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
*
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
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