/usr/include/geant321/gcscan.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 38 39 40 41 42 43 | *
* $Id: gcscan.inc,v 1.1.1.1 1995/10/24 10:20:34 cernlib Exp $
*
* $Log: gcscan.inc,v $
* Revision 1.1.1.1 1995/10/24 10:20:34 cernlib
* Geant
*
*
#ifndef CERNLIB_GEANT321_GCSCAN_INC
#define CERNLIB_GEANT321_GCSCAN_INC
*
*
* gcscan.inc
*
#if !defined(CERNLIB_INCLUDE)
#if defined(CERNLIB_TYPE)
#include <geant321/gtscan.inc>
#endif
PARAMETER (MSLIST=32,MAXMDT=3)
COMMON/GCSCAN/SCANFL,NPHI,PHIMIN,PHIMAX,NTETA,TETMIN,TETMAX,
+ MODTET,IPHIMI,IPHIMA,IPHI1,IPHIL,NSLMAX,
+ NSLIST,ISLIST(MSLIST),VSCAN(3),FACTX0,FACTL,
+ FACTR,IPHI,ITETA,ISCUR,SX0,SABS,TETMID(MAXMDT),
+ TETMAD(MAXMDT)
+ ,SX0S,SX0T,SABSS,SABST,FACTSF
+ ,DLTPHI,DLTETA,DPHIM1,DTETM1
+ ,FCX0M1,FCLLM1,FCRRM1
LOGICAL SCANFL
COMMON/GCSCAC/SFIN,SFOUT
CHARACTER*80 SFIN,SFOUT
*
#endif
*
* gcscan.inc
*
#if defined(CERNLIB_INCLUDE)
*
#include <geant321/incbeg.inc>
+ gcscan
#include <geant321/incend.inc>
#endif
#endif
|