include/kuip/kcom.h

0001 /*
0002  * $Id$
0003  *
0004  * $Log$
0005  * Revision 1.1  1996/03/08 15:32:59  mclareni
0006  * Initial revision
0007  *
0008  */
0009 /* kcom.h: Fortran COMMON blocks */
0010
0011
0012 #define  Kcparc           F77_BLOCK(kcparc,KCPARC)
0013
0014 EXTERN struct {
0015   char PARLST[512];             /* interface block for KUSER */
0016   char CLIST[80];
0017   char NOALIN[512];
0018   char COMAND[80];
0019   char CHLAST[512];
0020   char NONPOS[512];
0021 } F77_COMMON(Kcparc);
0022
0023
0024 #define  Kcutil           F77_BLOCK(kcutil,KCUTIL)
0025
0026 EXTERN struct {
0027   INTEGER NCMD;
0028   INTEGER IWD;
0029   INTEGER LUNFIL;
0030   INTEGER LPRMPT;
0031   LOGICAL TIMING;
0032   LOGICAL TRACE;
0033   INTEGER CALMOD;
0034   INTEGER NVADD;
0035   INTEGER IREPET;
0036   INTEGER IREFAC;
0037   INTEGER IBRAK;
0038   LOGICAL TIMALL;
0039   INTEGER LENTER;
0040   LOGICAL UNIQUE;
0041   INTEGER LENMUL;
0042   LOGICAL MULTFL;
0043   LOGICAL HISTOK;
0044   LOGICAL NOHIST;
0045   INTEGER LENMUM;
0046   LOGICAL FILCAS;
0047   LOGICAL MEXEFL;
0048 } F77_COMMON(Kcutil);
0049
0050
0051 #define  Kcvect           F77_BLOCK(kcvect,KCVECT)
0052
0053 EXTERN struct {
0054   INTEGER NUMVEC;               /* number of vectors stored */
0055   INTEGER TOTPAV;
0056   INTEGER GETPAV;
0057   LOGICAL TVECFL;
0058 } F77_COMMON(Kcvect);
0059
0060
0061 #define  Kcwork           F77_BLOCK(kcwork,KCWORK)
0062
0063 EXTERN struct {
0064   REAL VECTOR[100];             /* vector '?' */
0065 } F77_COMMON(Kcwork);
0066
0067
0068 #define Quest F77_BLOCK(quest,QUEST)
0069
0070 EXTERN struct {
0071   INTEGER DATA[100];
0072 } F77_COMMON(Quest);
0073
0074 #define IQUEST(n) Quest.DATA[n-1]
0075
0076
0077 #define Sikuip F77_BLOCK(sikuip,SIKUIP)
0078
0079 EXTERN struct {
0080   char CHSIGM[80];              /* command string passed to SIGMA */
0081 } F77_COMMON(Sikuip);
0082
0083