* * $Id: gzisaj.F,v 1.9 2000/01/12 11:04:22 mclareni Exp $ * * $Log: gzisaj.F,v $ * Revision 1.9 2000/01/12 11:04:22 mclareni * Version 7.48 from author, plus modified Imakefiles * * #include "sys/CERNLIB_machine.h" #include "_isajet/pilot.h" FUNCTION GZISAJ() C---------------------------------------------------------------------- C- C- Purpose and Methods : C- Find pointer to ISAJ C- C- Created MAY-20-88 Serban D. Protopopescu C- C---------------------------------------------------------------------- #if defined(CERNLIB_IMPNONE) IMPLICIT NONE #endif INTEGER GZISAJ #include "zebcom.inc" #include "izisaj.inc" C---------------------------------------------------------------------- C GZISAJ=0 IF(LISAE.NE.0) GZISAJ=LQ(LISAE-IZISAJ) C RETURN END