/usr/include/geant321/gcbank.inc is in libgeant321-2-dev 1:3.21.14.dfsg-11.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 | *
* $Id: gcbank.inc,v 1.1.1.1 1995/10/24 10:20:31 cernlib Exp $
*
* $Log: gcbank.inc,v $
* Revision 1.1.1.1 1995/10/24 10:20:31 cernlib
* Geant
*
*
#ifndef CERNLIB_GEANT321_GCBANK_INC
#define CERNLIB_GEANT321_GCBANK_INC
*
*
* gcbank.inc
*
#if !defined(CERNLIB_INCLUDE)
#if defined(CERNLIB_TYPE)
#include <geant321/gtbank.inc>
#endif
PARAMETER (KWBANK=69000,KWWORK=5200)
COMMON/GCBANK/NZEBRA,GVERSN,ZVERSN,IXSTOR,IXDIV,IXCONS,FENDQ(16)
+ ,LMAIN,LR1,WS(KWBANK)
DIMENSION IQ(2),Q(2),LQ(8000),IWS(2)
EQUIVALENCE (Q(1),IQ(1),LQ(9)),(LQ(1),LMAIN),(IWS(1),WS(1))
EQUIVALENCE (JCG,JGSTAT)
#include <geant321/gclink.inc>
#endif
*
* gcbank.inc
*
#if defined(CERNLIB_INCLUDE)
*
#include <geant321/incbeg.inc>
+ gcbank
#include <geant321/incend.inc>
#endif
#endif
|