This file is indexed.

/usr/include/kuip/kcom.h is in libpacklib1-dev 20061220+dfsg3-4.

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
/*
 * $Id: kcom.h,v 1.1.1.1 1996/03/08 15:33:00 mclareni Exp $
 *
 * $Log: kcom.h,v $
 * Revision 1.1.1.1  1996/03/08 15:33:00  mclareni
 * Kuip
 *
 */
/* kcom.h: Fortran COMMON blocks */


#define  Kcparc           F77_BLOCK(kcparc,KCPARC)

EXTERN struct {
  char PARLST[512];             /* interface block for KUSER */
  char CLIST[80];
  char NOALIN[512];
  char COMAND[80];
  char CHLAST[512];
  char NONPOS[512];
} F77_COMMON(Kcparc);


#define  Kcutil           F77_BLOCK(kcutil,KCUTIL)

EXTERN struct {
  INTEGER NCMD;
  INTEGER IWD;
  INTEGER LUNFIL;
  INTEGER LPRMPT;
  LOGICAL TIMING;
  LOGICAL TRACE;
  INTEGER CALMOD;
  INTEGER NVADD;
  INTEGER IREPET;
  INTEGER IREFAC;
  INTEGER IBRAK;
  LOGICAL TIMALL;
  INTEGER LENTER;
  LOGICAL UNIQUE;
  INTEGER LENMUL;
  LOGICAL MULTFL;
  LOGICAL HISTOK;
  LOGICAL NOHIST;
  INTEGER LENMUM;
  LOGICAL FILCAS;
  LOGICAL MEXEFL;
} F77_COMMON(Kcutil);


#define  Kcvect           F77_BLOCK(kcvect,KCVECT)

EXTERN struct {
  INTEGER NUMVEC;               /* number of vectors stored */
  INTEGER TOTPAV;
  INTEGER GETPAV;
  LOGICAL TVECFL;
} F77_COMMON(Kcvect);


#define  Kcwork           F77_BLOCK(kcwork,KCWORK)

EXTERN struct {
  REAL VECTOR[100];             /* vector '?' */
} F77_COMMON(Kcwork);


#define Quest F77_BLOCK(quest,QUEST)

EXTERN struct {
  INTEGER DATA[100];
} F77_COMMON(Quest);

#define IQUEST(n) Quest.DATA[n-1]


#define Sikuip F77_BLOCK(sikuip,SIKUIP)

EXTERN struct {
  char CHSIGM[80];              /* command string passed to SIGMA */
} F77_COMMON(Sikuip);