Warning, /include/higz/hikern.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.3 1998/01/28 14:34:07 couet
0006 * - GGDM driver removed
0007 *
0008 * Revision 1.2 1996/09/25 14:57:09 couet
0009 * - GPR driver removed
0010 *
0011 * Revision 1.1.1.1 1996/02/14 13:10:17 mclareni
0012 * Higz
0013 *
0014 *
0015 #ifndef CERNLIB_HIGZ_HIKERN_INC
0016 #define CERNLIB_HIGZ_HIKERN_INC
0017 *
0018 * COMMON BLOCK for the GL interface
0019 *
0020 * hikern.inc
0021 *
0022 #if (defined(CERNLIB_KERNEL))&&(!defined(CERNLIB_MSDOS))
0023 #if defined(CERNLIB_GL)
0024 #if defined(CERNLIB_SGI)
0025 #include "higz/glsgi.inc"
0026 #endif
0027 #if defined(CERNLIB_IBMRT)
0028 #include "higz/glibm.inc"
0029 #endif
0030 PARAMETER (IBUFSI=1000)
0031 COMMON /HIKERN/ WKSC(10),WINSIZ(4),IPOS(2,IBUFSI),IXX,IYY,ICURWK
0032 +,LOINS,ICURCI(10),IOFCOL,IXLOCO,IYLOCO,LUNWIN
0033 LOGICAL LOINS
0034 INTEGER WINSIZ,WINID
0035 INTEGER*2 IVAL
0036 COMMON /HIKERC/ FILEN
0037 CHARACTER*80 FILEN
0038
0039 #endif
0040 #endif
0041 *
0042 * COMMON BLOCK for the X11 interface
0043 *
0044 * hikern.inc
0045 *
0046 #if (defined(CERNLIB_KERNEL))&&(!defined(CERNLIB_MSDOS))
0047 #if (defined(CERNLIB_X11))&&(!defined(CERNLIB_WINNT))
0048 PARAMETER (IBUFSI=1000)
0049 COMMON /HIKERN/ WKSC(10),ICURWK,WINSIZ(4)
0050 +,IPOS(2,IBUFSI),LUNWIN,THX11,IFPX11,RMAGN
0051 INTEGER WINSIZ
0052 INTEGER*2 IPOS
0053 COMMON /HIKERC/ CHHOST,FILEN,FX11
0054 CHARACTER*80 CHHOST,FILEN,FX11
0055
0056 #endif
0057 #endif
0058 *
0059 * COMMON BLOCK for the Windows NT interface
0060 *
0061 #if (defined(CERNLIB_KERNEL))&&(!defined(CERNLIB_MSDOS))
0062 #if defined(CERNLIB_WINNT)
0063 PARAMETER (IBUFSI=1000)
0064 COMMON /HIKERN/ WKSC(10),ICURWK,WINSIZ(4)
0065 +,IPOS(2,IBUFSI),LUNWIN,THX11,IFPX11
0066 INTEGER WINSIZ
0067 COMMON /HIKERC/ CHHOST,FILEN,FX11
0068 CHARACTER*80 CHHOST,FILEN,FX11
0069
0070 #endif
0071 #endif
0072 *
0073 * COMMON BLOCK for the MacIntosh interface
0074 *
0075 * hikern.inc
0076 *
0077 #if (defined(CERNLIB_KERNEL))&&(!defined(CERNLIB_MSDOS))
0078 #if defined(CERNLIB_MACMPW)
0079 PARAMETER (IBUFSI=1000)
0080 COMMON /HIKERN/ WKSC(10),ICURWK,WINSIZ(4)
0081 +,IPOS(2,IBUFSI),LUNWIN
0082 INTEGER WINSIZ
0083 COMMON /HIKERC/ FILEN
0084 CHARACTER*80 FILEN
0085
0086 #endif
0087 #endif
0088 * COMMON BLOCK for the NDP_PC interface
0089 *
0090 * hikern.inc
0091 *
0092 #if defined(CERNLIB_MSDOS)
0093 #if defined(CERNLIB_NDP)
0094 #include "higz/grex.inc"
0095 PARAMETER (IBUFSI=1000)
0096 PARAMETER (ISURF= 18)
0097 PARAMETER (IRIS = 17)
0098
0099 #include "higz/golden.inc"
0100
0101 COMMON /HIKERN/ WKSC(10),WINSIZ(4),IPOS(IBUFSI,2),IXX,IYY,ICURWK
0102 +,LOINS,ICURCI(10),IOFCOL,IXLOCO,IYLOCO,IWKNB,LUNMET(10)
0103 *, MAX_COLOR(10), IER, DASH_PATTERN(16), video_system(4)
0104 *, PAL, ISTEP, MAG_X, MAG_Y, MOUSE, IXSAVE(10), IYSAVE(10)
0105 LOGICAL LOINS, MOUSE
0106 INTEGER WINSIZ,WINID,video_system
0107 CHARACTER*4 DASH_PATTERN
0108 CHARACTER PAL(20)
0109 C--- INTEGER STRWID
0110 #endif
0111 #endif
0112 * COMMON BLOCK for the NDP_PC interface
0113 #if defined(CERNLIB_MSDOS)
0114 #if !defined(CERNLIB_NDP)
0115 #include "higz/grex.inc"
0116 PARAMETER (IBUFSI=1000)
0117 PARAMETER (ISURF= 18)
0118 PARAMETER (IRIS = 17)
0119
0120 #include "higz/golden.inc"
0121
0122 COMMON /HIKERN/ WKSC(10),WINSIZ(4),IPOS(2,IBUFSI),IXX,IYY,ICURWK
0123 +,LOINS,ICURCI(10),IOFCOL,IXLOCO,IYLOCO,IWKNB,LUNMET(10)
0124 *, MAX_COLOR(10), IER, DASH_PATTERN(16), video_system(4)
0125 *, PAL, ISTEP, MAG_X, MAG_Y, MOUSE, IXSAVE(10), IYSAVE(10)
0126 LOGICAL LOINS, MOUSE
0127 INTEGER WINSIZ,WINID,video_system
0128 CHARACTER*4 DASH_PATTERN
0129 CHARACTER PAL(20)
0130 C--- INTEGER STRWID
0131 #endif
0132 #endif
0133
0134 #endif
