C $Id: fgl.h,v 1.1 1996/09/13 01:26:41 brianp Exp $

C
C Mesa 3-D graphics library
C Version:  2.0
C Copyright (C) 1995-1996  Brian Paul
C
C This library is free software; you can redistribute it and/or
C modify it under the terms of the GNU Library General Public
C License as published by the Free Software Foundation; either
C version 2 of the License, or (at your option) any later version.
C
C This library is distributed in the hope that it will be useful,
C but WITHOUT ANY WARRANTY; without even the implied warranty of
C MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
C Library General Public License for more details.
C
C You should have received a copy of the GNU Library General Public
C License along with this library; if not, write to the Free
C Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.


C $Log: fgl.h,v $
C Revision 1.1  1996/09/13 01:26:41  brianp
C Initial revision
C


C
C Fortran Mesa header for GL functions
C
C Note: this file was generated from the gl.h file using Emacs macros
C and a small C utility.  There may be some errors or omissions!
C


C Boolean values
      integer*4  GL_FALSE
      parameter (GL_FALSE = 0)
      integer*4  GL_TRUE
      parameter (GL_TRUE = 1)

C Data types
      integer*4  GL_BYTE
      parameter (GL_BYTE = 5120)
      integer*4  GL_UNSIGNED_BYTE
      parameter (GL_UNSIGNED_BYTE = 5121)
      integer*4  GL_SHORT
      parameter (GL_SHORT = 5122)
      integer*4  GL_UNSIGNED_SHORT
      parameter (GL_UNSIGNED_SHORT = 5123)
      integer*4  GL_INT
      parameter (GL_INT = 5124)
      integer*4  GL_UNSIGNED_INT
      parameter (GL_UNSIGNED_INT = 5125)
      integer*4  GL_FLOAT
      parameter (GL_FLOAT = 5126)
      integer*4  GL_2_BYTES
      parameter (GL_2_BYTES = 5127)
      integer*4  GL_3_BYTES
      parameter (GL_3_BYTES = 5128)
      integer*4  GL_4_BYTES
      parameter (GL_4_BYTES = 5129)


C
C GLenum values
C

C Primitives
      integer*4  GL_POINTS
      parameter (GL_POINTS = 0)
      integer*4  GL_LINES
      parameter (GL_LINES = 1)
      integer*4  GL_LINE_LOOP
      parameter (GL_LINE_LOOP = 2)
      integer*4  GL_LINE_STRIP
      parameter (GL_LINE_STRIP = 3)
      integer*4  GL_TRIANGLES
      parameter (GL_TRIANGLES = 4)
      integer*4  GL_TRIANGLE_STRIP
      parameter (GL_TRIANGLE_STRIP = 5)
      integer*4  GL_TRIANGLE_FAN
      parameter (GL_TRIANGLE_FAN = 6)
      integer*4  GL_QUADS
      parameter (GL_QUADS = 7)
      integer*4  GL_QUAD_STRIP
      parameter (GL_QUAD_STRIP = 8)
      integer*4  GL_POLYGON
      parameter (GL_POLYGON = 9)

C Matrix Mode
      integer*4  GL_MATRIX_MODE
      parameter (GL_MATRIX_MODE = 2976)
      integer*4  GL_MODELVIEW
      parameter (GL_MODELVIEW = 5888)
      integer*4  GL_PROJECTION
      parameter (GL_PROJECTION = 5889)
      integer*4  GL_TEXTURE
      parameter (GL_TEXTURE = 5890) 

C Points
      integer*4  GL_POINT_SMOOTH
      parameter (GL_POINT_SMOOTH = 2832) 
      integer*4  GL_POINT_SIZE
      parameter (GL_POINT_SIZE = 2833) 
      integer*4  GL_POINT_SIZE_GRANULARITY 
      parameter (GL_POINT_SIZE_GRANULARITY = 2835) 
      integer*4  GL_POINT_SIZE_RANGE
      parameter (GL_POINT_SIZE_RANGE = 2834) 

C Lines
      integer*4  GL_LINE_SMOOTH
      parameter (GL_LINE_SMOOTH = 2848) 
      integer*4  GL_LINE_STIPPLE
      parameter (GL_LINE_STIPPLE = 2852) 
      integer*4  GL_LINE_STIPPLE_PATTERN
      parameter (GL_LINE_STIPPLE_PATTERN = 2853) 
      integer*4  GL_LINE_STIPPLE_REPEAT
      parameter (GL_LINE_STIPPLE_REPEAT = 2854) 
      integer*4  GL_LINE_WIDTH
      parameter (GL_LINE_WIDTH = 2849) 
      integer*4  GL_LINE_WIDTH_GRANULARITY
      parameter (GL_LINE_WIDTH_GRANULARITY= 2851) 
      integer*4  GL_LINE_WIDTH_RANGE
      parameter (GL_LINE_WIDTH_RANGE = 2850) 

C Polygons
      integer*4  GL_POINT
      parameter (GL_POINT = 6912) 
      integer*4  GL_LINE
      parameter (GL_LINE = 6913) 
      integer*4  GL_FILL
      parameter (GL_FILL = 6914) 
      integer*4  GL_CCW
      parameter (GL_CCW = 2305) 
      integer*4  GL_CW
      parameter (GL_CW = 2304) 
      integer*4  GL_FRONT
      parameter (GL_FRONT = 1028) 
      integer*4  GL_BACK
      parameter (GL_BACK = 1029) 
      integer*4  GL_CULL_FACE
      parameter (GL_CULL_FACE = 2884) 
      integer*4  GL_CULL_FACE_MODE
      parameter (GL_CULL_FACE_MODE = 2885) 
      integer*4  GL_POLYGON_SMOOTH
      parameter (GL_POLYGON_SMOOTH = 2881) 
      integer*4  GL_POLYGON_STIPPLE
      parameter (GL_POLYGON_STIPPLE = 2882) 
      integer*4  GL_FRONT_FACE
      parameter (GL_FRONT_FACE = 2886) 
      integer*4  GL_POLYGON_MODE
      parameter (GL_POLYGON_MODE = 2880) 

C Display Lists
      integer*4  GL_COMPILE
      parameter (GL_COMPILE = 4864) 
      integer*4  GL_COMPILE_AND_EXECUTE
      parameter (GL_COMPILE_AND_EXECUTE = 4865) 
      integer*4  GL_LIST_BASE
      parameter (GL_LIST_BASE = 2866) 
      integer*4  GL_LIST_INDEX
      parameter (GL_LIST_INDEX = 2867) 
      integer*4  GL_LIST_MODE
      parameter (GL_LIST_MODE = 2864) 

C Depth buffer
      integer*4  GL_NEVER
      parameter (GL_NEVER = 512) 
      integer*4  GL_LESS
      parameter (GL_LESS = 513) 
      integer*4  GL_GEQUAL
      parameter (GL_GEQUAL = 518) 
      integer*4  GL_LEQUAL
      parameter (GL_LEQUAL = 515) 
      integer*4  GL_GREATER
      parameter (GL_GREATER = 516) 
      integer*4  GL_NOTEQUAL
      parameter (GL_NOTEQUAL = 517) 
      integer*4  GL_EQUAL
      parameter (GL_EQUAL = 514) 
      integer*4  GL_ALWAYS
      parameter (GL_ALWAYS = 519) 
      integer*4  GL_DEPTH_TEST
      parameter (GL_DEPTH_TEST = 2929) 
      integer*4  GL_DEPTH_BITS
      parameter (GL_DEPTH_BITS = 3414) 
      integer*4  GL_DEPTH_CLEAR_VALUE
      parameter (GL_DEPTH_CLEAR_VALUE = 2931) 
      integer*4  GL_DEPTH_FUNC
      parameter (GL_DEPTH_FUNC = 2932) 
      integer*4  GL_DEPTH_RANGE
      parameter (GL_DEPTH_RANGE = 2928) 
      integer*4  GL_DEPTH_WRITEMASK
      parameter (GL_DEPTH_WRITEMASK = 2930) 
      integer*4  GL_DEPTH_COMPONENT
      parameter (GL_DEPTH_COMPONENT = 6402) 

C Lighting
      integer*4  GL_LIGHTING
      parameter (GL_LIGHTING = 2896) 
      integer*4  GL_LIGHT0
      parameter (GL_LIGHT0 = 16384) 
      integer*4  GL_LIGHT1
      parameter (GL_LIGHT1 = 16385) 
      integer*4  GL_LIGHT2
      parameter (GL_LIGHT2 = 16386) 
      integer*4  GL_LIGHT3
      parameter (GL_LIGHT3 = 16387) 
      integer*4  GL_LIGHT4
      parameter (GL_LIGHT4 = 16388) 
      integer*4  GL_LIGHT5
      parameter (GL_LIGHT5 = 16389) 
      integer*4  GL_LIGHT6
      parameter (GL_LIGHT6 = 16390) 
      integer*4  GL_LIGHT7
      parameter (GL_LIGHT7 = 16391) 
      integer*4  GL_SPOT_EXPONENT
      parameter (GL_SPOT_EXPONENT = 4613) 
      integer*4  GL_SPOT_CUTOFF
      parameter (GL_SPOT_CUTOFF = 4614) 
      integer*4  GL_CONSTANT_ATTENUATION
      parameter (GL_CONSTANT_ATTENUATION = 4615) 
      integer*4  GL_LINEAR_ATTENUATION
      parameter (GL_LINEAR_ATTENUATION = 4616) 
      integer*4  GL_QUADRATIC_ATTENUATION
      parameter (GL_QUADRATIC_ATTENUATION= 4617) 
      integer*4  GL_AMBIENT
      parameter (GL_AMBIENT = 4608) 
      integer*4  GL_DIFFUSE
      parameter (GL_DIFFUSE = 4609) 
      integer*4  GL_SPECULAR
      parameter (GL_SPECULAR = 4610) 
      integer*4  GL_SHININESS
      parameter (GL_SHININESS = 5633) 
      integer*4  GL_EMISSION
      parameter (GL_EMISSION = 5632) 
      integer*4  GL_POSITION
      parameter (GL_POSITION = 4611) 
      integer*4  GL_SPOT_DIRECTION
      parameter (GL_SPOT_DIRECTION = 4612) 
      integer*4  GL_AMBIENT_AND_DIFFUSE
      parameter (GL_AMBIENT_AND_DIFFUSE = 5634) 
      integer*4  GL_COLOR_INDEXES
      parameter (GL_COLOR_INDEXES = 5635) 
      integer*4  GL_LIGHT_MODEL_TWO_SIDE
      parameter (GL_LIGHT_MODEL_TWO_SIDE = 2898) 
      integer*4  GL_LIGHT_MODEL_LOCAL_VIEWER
      parameter (GL_LIGHT_MODEL_LOCAL_VIEWER= 2897) 
      integer*4  GL_LIGHT_MODEL_AMBIENT
      parameter (GL_LIGHT_MODEL_AMBIENT = 2899) 
      integer*4  GL_FRONT_AND_BACK
      parameter (GL_FRONT_AND_BACK = 1032) 
      integer*4  GL_SHADE_MODEL
      parameter (GL_SHADE_MODEL = 2900) 
      integer*4  GL_FLAT
      parameter (GL_FLAT = 7424) 
      integer*4  GL_SMOOTH
      parameter (GL_SMOOTH = 7425) 
      integer*4  GL_COLOR_MATERIAL
      parameter (GL_COLOR_MATERIAL = 2903) 
      integer*4  GL_COLOR_MATERIAL_FACE
      parameter (GL_COLOR_MATERIAL_FACE = 2901) 
      integer*4  GL_COLOR_MATERIAL_PARAMETER
      parameter (GL_COLOR_MATERIAL_PARAMETER= 2902) 
      integer*4  GL_NORMALIZE
      parameter (GL_NORMALIZE = 2977) 

C User clipping planes
      integer*4  GL_CLIP_PLANE0
      parameter (GL_CLIP_PLANE0 = 12288) 
      integer*4  GL_CLIP_PLANE1
      parameter (GL_CLIP_PLANE1 = 12289) 
      integer*4  GL_CLIP_PLANE2
      parameter (GL_CLIP_PLANE2 = 12290) 
      integer*4  GL_CLIP_PLANE3
      parameter (GL_CLIP_PLANE3 = 12291) 
      integer*4  GL_CLIP_PLANE4
      parameter (GL_CLIP_PLANE4 = 12292) 
      integer*4  GL_CLIP_PLANE5
      parameter (GL_CLIP_PLANE5 = 12293) 

C Accumulation buffer
      integer*4  GL_ACCUM_RED_BITS
      parameter (GL_ACCUM_RED_BITS = 3416) 
      integer*4  GL_ACCUM_GREEN_BITS
      parameter (GL_ACCUM_GREEN_BITS = 3417) 
      integer*4  GL_ACCUM_BLUE_BITS
      parameter (GL_ACCUM_BLUE_BITS = 3418) 
      integer*4  GL_ACCUM_ALPHA_BITS
      parameter (GL_ACCUM_ALPHA_BITS = 3419) 
      integer*4  GL_ACCUM_CLEAR_VALUE
      parameter (GL_ACCUM_CLEAR_VALUE = 2944) 
      integer*4  GL_ACCUM
      parameter (GL_ACCUM = 256) 
      integer*4  GL_ADD
      parameter (GL_ADD = 260) 
      integer*4  GL_LOAD
      parameter (GL_LOAD = 257) 
      integer*4  GL_MULT
      parameter (GL_MULT = 259) 
      integer*4  GL_RETURN
      parameter (GL_RETURN = 258) 

C Alpha testing
      integer*4  GL_ALPHA_TEST
      parameter (GL_ALPHA_TEST = 3008) 
      integer*4  GL_ALPHA_TEST_REF
      parameter (GL_ALPHA_TEST_REF = 3010) 
      integer*4  GL_ALPHA_TEST_FUNC
      parameter (GL_ALPHA_TEST_FUNC = 3009) 

C Blending
      integer*4  GL_BLEND
      parameter (GL_BLEND = 3042) 
      integer*4  GL_BLEND_SRC
      parameter (GL_BLEND_SRC = 3041) 
      integer*4  GL_BLEND_DST
      parameter (GL_BLEND_DST = 3040) 
      integer*4  GL_ZERO
      parameter (GL_ZERO = 0)
      integer*4  GL_ONE
      parameter (GL_ONE = 1)
      integer*4  GL_SRC_COLOR
      parameter (GL_SRC_COLOR = 768) 
      integer*4  GL_ONE_MINUS_SRC_COLOR
      parameter (GL_ONE_MINUS_SRC_COLOR = 769) 
      integer*4  GL_DST_COLOR
      parameter (GL_DST_COLOR = 774) 
      integer*4  GL_ONE_MINUS_DST_COLOR
      parameter (GL_ONE_MINUS_DST_COLOR = 775) 
      integer*4  GL_SRC_ALPHA
      parameter (GL_SRC_ALPHA = 770) 
      integer*4  GL_ONE_MINUS_SRC_ALPHA
      parameter (GL_ONE_MINUS_SRC_ALPHA = 771) 
      integer*4  GL_DST_ALPHA
      parameter (GL_DST_ALPHA = 772) 
      integer*4  GL_ONE_MINUS_DST_ALPHA
      parameter (GL_ONE_MINUS_DST_ALPHA = 773) 
      integer*4  GL_SRC_ALPHA_SATURATE
      parameter (GL_SRC_ALPHA_SATURATE = 776) 

C Render Mode
      integer*4  GL_FEEDBACK
      parameter (GL_FEEDBACK = 7169) 
      integer*4  GL_RENDER
      parameter (GL_RENDER = 7168) 
      integer*4  GL_SELECT
      parameter (GL_SELECT = 7170) 

C Feedback
      integer*4  GL_2D
      parameter (GL_2D = 1536) 
      integer*4  GL_3D
      parameter (GL_3D = 1537) 
      integer*4  GL_3D_COLOR
      parameter (GL_3D_COLOR = 1538) 
      integer*4  GL_3D_COLOR_TEXTURE
      parameter (GL_3D_COLOR_TEXTURE = 1539) 
      integer*4  GL_4D_COLOR_TEXTURE
      parameter (GL_4D_COLOR_TEXTURE = 1540) 
      integer*4  GL_POINT_TOKEN
      parameter (GL_POINT_TOKEN = 1793) 
      integer*4  GL_LINE_TOKEN
      parameter (GL_LINE_TOKEN = 1794) 
      integer*4  GL_LINE_RESET_TOKEN
      parameter (GL_LINE_RESET_TOKEN = 1799) 
      integer*4  GL_POLYGON_TOKEN
      parameter (GL_POLYGON_TOKEN = 1795) 
      integer*4  GL_BITMAP_TOKEN
      parameter (GL_BITMAP_TOKEN = 1796) 
      integer*4  GL_DRAW_PIXEL_TOKEN
      parameter (GL_DRAW_PIXEL_TOKEN = 1797) 
      integer*4  GL_COPY_PIXEL_TOKEN
      parameter (GL_COPY_PIXEL_TOKEN = 1798) 
      integer*4  GL_PASS_THROUGH_TOKEN
      parameter (GL_PASS_THROUGH_TOKEN = 1792) 

C Fog
      integer*4  GL_FOG
      parameter (GL_FOG = 2912) 
      integer*4  GL_FOG_MODE
      parameter (GL_FOG_MODE = 2917) 
      integer*4  GL_FOG_DENSITY
      parameter (GL_FOG_DENSITY = 2914) 
      integer*4  GL_FOG_COLOR
      parameter (GL_FOG_COLOR = 2918) 
      integer*4  GL_FOG_INDEX
      parameter (GL_FOG_INDEX = 2913) 
      integer*4  GL_FOG_START
      parameter (GL_FOG_START = 2915) 
      integer*4  GL_FOG_END
      parameter (GL_FOG_END = 2916) 
      integer*4  GL_LINEAR
      parameter (GL_LINEAR = 9729) 
      integer*4  GL_EXP
      parameter (GL_EXP = 2048) 
      integer*4  GL_EXP2
      parameter (GL_EXP2 = 2049) 

C Logic Ops
      integer*4  GL_LOGIC_OP
      parameter (GL_LOGIC_OP = 3057) 
      integer*4  GL_LOGIC_OP_MODE
      parameter (GL_LOGIC_OP_MODE = 3056) 
      integer*4  GL_CLEAR
      parameter (GL_CLEAR = 5376) 
      integer*4  GL_SET
      parameter (GL_SET = 5391) 
      integer*4  GL_COPY
      parameter (GL_COPY = 5379) 
      integer*4  GL_COPY_INVERTED
      parameter (GL_COPY_INVERTED = 5388) 
      integer*4  GL_NOOP
      parameter (GL_NOOP = 5381) 
      integer*4  GL_INVERT
      parameter (GL_INVERT = 5386) 
      integer*4  GL_AND
      parameter (GL_AND = 5377) 
      integer*4  GL_NAND
      parameter (GL_NAND = 5390) 
      integer*4  GL_OR
      parameter (GL_OR = 5383) 
      integer*4  GL_NOR
      parameter (GL_NOR = 5384) 
      integer*4  GL_XOR
      parameter (GL_XOR = 5382) 
      integer*4  GL_EQUIV
      parameter (GL_EQUIV = 5385) 
      integer*4  GL_AND_REVERSE
      parameter (GL_AND_REVERSE = 5378) 
      integer*4  GL_AND_INVERTED
      parameter (GL_AND_INVERTED = 5380) 
      integer*4  GL_OR_REVERSE
      parameter (GL_OR_REVERSE = 5387) 
      integer*4  GL_OR_INVERTED
      parameter (GL_OR_INVERTED = 5389) 

C Stencil
      integer*4  GL_STENCIL_TEST
      parameter (GL_STENCIL_TEST = 2960) 
      integer*4  GL_STENCIL_WRITEMASK
      parameter (GL_STENCIL_WRITEMASK = 2968) 
      integer*4  GL_STENCIL_BITS
      parameter (GL_STENCIL_BITS = 3415) 
      integer*4  GL_STENCIL_FUNC
      parameter (GL_STENCIL_FUNC = 2962) 
      integer*4  GL_STENCIL_VALUE_MASK
      parameter (GL_STENCIL_VALUE_MASK = 2963) 
      integer*4  GL_STENCIL_REF
      parameter (GL_STENCIL_REF = 2967) 
      integer*4  GL_STENCIL_FAIL
      parameter (GL_STENCIL_FAIL = 2964) 
      integer*4  GL_STENCIL_PASS_DEPTH_PASS
      parameter (GL_STENCIL_PASS_DEPTH_PASS= 2966) 
      integer*4  GL_STENCIL_PASS_DEPTH_FAIL
      parameter (GL_STENCIL_PASS_DEPTH_FAIL= 2965) 
      integer*4  GL_STENCIL_CLEAR_VALUE
      parameter (GL_STENCIL_CLEAR_VALUE = 2961) 
      integer*4  GL_STENCIL_INDEX
      parameter (GL_STENCIL_INDEX = 6401) 
      integer*4  GL_KEEP
      parameter (GL_KEEP = 7680) 
      integer*4  GL_REPLACE
      parameter (GL_REPLACE = 7681) 
      integer*4  GL_INCR
      parameter (GL_INCR = 7682) 
      integer*4  GL_DECR
      parameter (GL_DECR = 7683) 

C Buffers, Pixel Drawing/Reading
      integer*4  GL_NONE
      parameter (GL_NONE = 0)
      integer*4  GL_LEFT
      parameter (GL_LEFT = 1030) 
      integer*4  GL_RIGHT
      parameter (GL_RIGHT = 1031) 
      integer*4  GL_FRONT_LEFT
      parameter (GL_FRONT_LEFT = 1024) 
      integer*4  GL_FRONT_RIGHT
      parameter (GL_FRONT_RIGHT = 1025) 
      integer*4  GL_BACK_LEFT
      parameter (GL_BACK_LEFT = 1026) 
      integer*4  GL_BACK_RIGHT
      parameter (GL_BACK_RIGHT = 1027) 
      integer*4  GL_AUX0
      parameter (GL_AUX0 = 1033) 
      integer*4  GL_AUX1
      parameter (GL_AUX1 = 1034) 
      integer*4  GL_AUX2
      parameter (GL_AUX2 = 1035) 
      integer*4  GL_AUX3
      parameter (GL_AUX3 = 1036) 
      integer*4  GL_COLOR_INDEX
      parameter (GL_COLOR_INDEX = 6400) 
      integer*4  GL_RED
      parameter (GL_RED = 6403) 
      integer*4  GL_GREEN
      parameter (GL_GREEN = 6404) 
      integer*4  GL_BLUE
      parameter (GL_BLUE = 6405) 
      integer*4  GL_ALPHA
      parameter (GL_ALPHA = 6406) 
      integer*4  GL_LUMINANCE
      parameter (GL_LUMINANCE = 6409) 
      integer*4  GL_LUMINANCE_ALPHA
      parameter (GL_LUMINANCE_ALPHA = 6410) 
      integer*4  GL_ALPHA_BITS
      parameter (GL_ALPHA_BITS = 3413) 
      integer*4  GL_RED_BITS
      parameter (GL_RED_BITS = 3410) 
      integer*4  GL_GREEN_BITS
      parameter (GL_GREEN_BITS = 3411) 
      integer*4  GL_BLUE_BITS
      parameter (GL_BLUE_BITS = 3412) 
      integer*4  GL_INDEX_BITS
      parameter (GL_INDEX_BITS = 3409) 
      integer*4  GL_SUBPIXEL_BITS
      parameter (GL_SUBPIXEL_BITS = 3408) 
      integer*4  GL_AUX_BUFFERS
      parameter (GL_AUX_BUFFERS = 3072) 
      integer*4  GL_READ_BUFFER
      parameter (GL_READ_BUFFER = 3074) 
      integer*4  GL_DRAW_BUFFER
      parameter (GL_DRAW_BUFFER = 3073) 
      integer*4  GL_DOUBLEBUFFER
      parameter (GL_DOUBLEBUFFER = 3122) 
      integer*4  GL_STEREO
      parameter (GL_STEREO = 3123) 
      integer*4  GL_BITMAP
      parameter (GL_BITMAP = 6656) 
      integer*4  GL_COLOR
      parameter (GL_COLOR = 6144) 
      integer*4  GL_DEPTH
      parameter (GL_DEPTH = 6145) 
      integer*4  GL_STENCIL
      parameter (GL_STENCIL = 6146) 
      integer*4  GL_DITHER
      parameter (GL_DITHER = 3024) 
      integer*4  GL_RGB
      parameter (GL_RGB = 6407) 
      integer*4  GL_RGBA
      parameter (GL_RGBA = 6408) 

C Implementation limits
      integer*4  GL_MAX_MODELVIEW_STACK_DEPTH
      parameter (GL_MAX_MODELVIEW_STACK_DEPTH= 3382) 
      integer*4  GL_MAX_PROJECTION_STACK_DEPTH
      parameter (GL_MAX_PROJECTION_STACK_DEPTH= 3384) 
      integer*4  GL_MAX_TEXTURE_STACK_DEPTH
      parameter (GL_MAX_TEXTURE_STACK_DEPTH= 3385) 
      integer*4  GL_MAX_ATTRIB_STACK_DEPTH
      parameter (GL_MAX_ATTRIB_STACK_DEPTH= 3381) 
      integer*4  GL_MAX_NAME_STACK_DEPTH
      parameter (GL_MAX_NAME_STACK_DEPTH = 3383) 
      integer*4  GL_MAX_LIST_NESTING
      parameter (GL_MAX_LIST_NESTING = 2865) 
      integer*4  GL_MAX_LIGHTS
      parameter (GL_MAX_LIGHTS = 3377) 
      integer*4  GL_MAX_CLIP_PLANES
      parameter (GL_MAX_CLIP_PLANES = 3378) 
      integer*4  GL_MAX_VIEWPORT_DIMS
      parameter (GL_MAX_VIEWPORT_DIMS = 3386) 
      integer*4  GL_MAX_PIXEL_MAP_TABLE
      parameter (GL_MAX_PIXEL_MAP_TABLE = 3380) 
      integer*4  GL_MAX_EVAL_ORDER
      parameter (GL_MAX_EVAL_ORDER = 3376) 
      integer*4  GL_MAX_TEXTURE_SIZE
      parameter (GL_MAX_TEXTURE_SIZE = 3379) 

C Gets
      integer*4  GL_ATTRIB_STACK_DEPTH
      parameter (GL_ATTRIB_STACK_DEPTH = 2992) 
      integer*4  GL_COLOR_CLEAR_VALUE
      parameter (GL_COLOR_CLEAR_VALUE = 3106) 
      integer*4  GL_COLOR_WRITEMASK
      parameter (GL_COLOR_WRITEMASK = 3107) 
      integer*4  GL_CURRENT_INDEX
      parameter (GL_CURRENT_INDEX = 2817) 
      integer*4  GL_CURRENT_COLOR
      parameter (GL_CURRENT_COLOR = 2816) 
      integer*4  GL_CURRENT_NORMAL
      parameter (GL_CURRENT_NORMAL = 2818) 
      integer*4  GL_CURRENT_RASTER_COLOR
      parameter (GL_CURRENT_RASTER_COLOR = 2820) 
      integer*4  GL_CURRENT_RASTER_DISTANCE
      parameter (GL_CURRENT_RASTER_DISTANCE= 2825) 
      integer*4  GL_CURRENT_RASTER_INDEX
      parameter (GL_CURRENT_RASTER_INDEX = 2821) 
      integer*4  GL_CURRENT_RASTER_POSITION
      parameter (GL_CURRENT_RASTER_POSITION= 2823) 
      integer*4  GL_CURRENT_RASTER_TEXTURE_COORDS
      parameter (GL_CURRENT_RASTER_TEXTURE_COORDS = 2822)
      integer*4  GL_CURRENT_RASTER_POSITION_VALID
      parameter (GL_CURRENT_RASTER_POSITION_VALID = 2824) 
      integer*4  GL_CURRENT_TEXTURE_COORDS
      parameter (GL_CURRENT_TEXTURE_COORDS= 2819) 
      integer*4  GL_INDEX_CLEAR_VALUE
      parameter (GL_INDEX_CLEAR_VALUE = 3104) 
      integer*4  GL_INDEX_MODE
      parameter (GL_INDEX_MODE = 3120) 
      integer*4  GL_INDEX_WRITEMASK
      parameter (GL_INDEX_WRITEMASK = 3105) 
      integer*4  GL_MODELVIEW_MATRIX
      parameter (GL_MODELVIEW_MATRIX = 2982) 
      integer*4  GL_MODELVIEW_STACK_DEPTH
      parameter (GL_MODELVIEW_STACK_DEPTH= 2979) 
      integer*4  GL_NAME_STACK_DEPTH
      parameter (GL_NAME_STACK_DEPTH = 3440) 
      integer*4  GL_PROJECTION_MATRIX
      parameter (GL_PROJECTION_MATRIX = 2983) 
      integer*4  GL_PROJECTION_STACK_DEPTH
      parameter (GL_PROJECTION_STACK_DEPTH= 2980) 
      integer*4  GL_RENDER_MODE
      parameter (GL_RENDER_MODE = 3136) 
      integer*4  GL_TEXTURE_MATRIX
      parameter (GL_TEXTURE_MATRIX = 2984) 
      integer*4  GL_TEXTURE_STACK_DEPTH
      parameter (GL_TEXTURE_STACK_DEPTH = 2981) 
      integer*4  GL_VIEWPORT
      parameter (GL_VIEWPORT = 2978) 

C Evaluators
      integer*4  GL_AUTO_NORMAL
      parameter (GL_AUTO_NORMAL = 3456) 
      integer*4  GL_MAP1_COLOR_4
      parameter (GL_MAP1_COLOR_4 = 3472) 
      integer*4  GL_MAP1_GRID_DOMAIN
      parameter (GL_MAP1_GRID_DOMAIN = 3536) 

      integer*4  GL_MAP1_GRID_SEGMENTS
      parameter (GL_MAP1_GRID_SEGMENTS = 3537) 
      integer*4  GL_MAP1_INDEX
      parameter (GL_MAP1_INDEX = 3473) 
      integer*4  GL_MAP1_NORMAL
      parameter (GL_MAP1_NORMAL = 3474) 
      integer*4  GL_MAP1_TEXTURE_COORD_1
      parameter (GL_MAP1_TEXTURE_COORD_1 = 3475) 

      integer*4  GL_MAP1_TEXTURE_COORD_2
      parameter (GL_MAP1_TEXTURE_COORD_2 = 3476) 
      integer*4  GL_MAP1_TEXTURE_COORD_3
      parameter (GL_MAP1_TEXTURE_COORD_3 = 3477) 
      integer*4  GL_MAP1_TEXTURE_COORD_4
      parameter (GL_MAP1_TEXTURE_COORD_4 = 3478) 
      integer*4  GL_MAP1_VERTEX_3
      parameter (GL_MAP1_VERTEX_3 = 3479) 
      integer*4  GL_MAP1_VERTEX_4
      parameter (GL_MAP1_VERTEX_4 = 3480) 
      integer*4  GL_MAP2_COLOR_4
      parameter (GL_MAP2_COLOR_4 = 3504) 
      integer*4  GL_MAP2_GRID_DOMAIN
      parameter (GL_MAP2_GRID_DOMAIN = 3538) 
      integer*4  GL_MAP2_GRID_SEGMENTS
      parameter (GL_MAP2_GRID_SEGMENTS = 3539) 
      integer*4  GL_MAP2_INDEX
      parameter (GL_MAP2_INDEX = 3505) 
      integer*4  GL_MAP2_NORMAL
      parameter (GL_MAP2_NORMAL = 3506) 
      integer*4  GL_MAP2_TEXTURE_COORD_1
      parameter (GL_MAP2_TEXTURE_COORD_1 = 3507) 
      integer*4  GL_MAP2_TEXTURE_COORD_2
      parameter (GL_MAP2_TEXTURE_COORD_2 = 3508) 
      integer*4  GL_MAP2_TEXTURE_COORD_3
      parameter (GL_MAP2_TEXTURE_COORD_3 = 3509) 
      integer*4  GL_MAP2_TEXTURE_COORD_4
      parameter (GL_MAP2_TEXTURE_COORD_4 = 3510) 
      integer*4  GL_MAP2_VERTEX_3
      parameter (GL_MAP2_VERTEX_3 = 3511) 
      integer*4  GL_MAP2_VERTEX_4
      parameter (GL_MAP2_VERTEX_4 = 3512) 
      integer*4  GL_COEFF
      parameter (GL_COEFF = 2560) 
      integer*4  GL_DOMAIN
      parameter (GL_DOMAIN = 2562) 
      integer*4  GL_ORDER
      parameter (GL_ORDER = 2561) 

C Hints
      integer*4  GL_FOG_HINT
      parameter (GL_FOG_HINT = 3156) 
      integer*4  GL_LINE_SMOOTH_HINT
      parameter (GL_LINE_SMOOTH_HINT = 3154) 
      integer*4  GL_PERSPECTIVE_CORRECTION_HINT
      parameter (GL_PERSPECTIVE_CORRECTION_HINT= 3152) 
      integer*4  GL_POINT_SMOOTH_HINT
      parameter (GL_POINT_SMOOTH_HINT = 3153) 
      integer*4  GL_POLYGON_SMOOTH_HINT
      parameter (GL_POLYGON_SMOOTH_HINT = 3155) 
      integer*4  GL_DONT_CARE
      parameter (GL_DONT_CARE = 4352) 
      integer*4  GL_FASTEST
      parameter (GL_FASTEST = 4353) 
      integer*4  GL_NICEST
      parameter (GL_NICEST = 4354) 

C Scissor box
      integer*4  GL_SCISSOR_TEST
      parameter (GL_SCISSOR_TEST = 3089) 
      integer*4  GL_SCISSOR_BOX
      parameter (GL_SCISSOR_BOX = 3088) 

C Pixel Mode / Transfer
      integer*4  GL_MAP_COLOR
      parameter (GL_MAP_COLOR = 3344) 
      integer*4  GL_MAP_STENCIL
      parameter (GL_MAP_STENCIL = 3345) 
      integer*4  GL_INDEX_SHIFT
      parameter (GL_INDEX_SHIFT = 3346) 
      integer*4  GL_INDEX_OFFSET
      parameter (GL_INDEX_OFFSET = 3347) 
      integer*4  GL_RED_SCALE
      parameter (GL_RED_SCALE = 3348) 
      integer*4  GL_RED_BIAS
      parameter (GL_RED_BIAS = 3349) 
      integer*4  GL_GREEN_SCALE
      parameter (GL_GREEN_SCALE = 3352) 
      integer*4  GL_GREEN_BIAS
      parameter (GL_GREEN_BIAS = 3353) 
      integer*4  GL_BLUE_SCALE
      parameter (GL_BLUE_SCALE = 3354) 
      integer*4  GL_BLUE_BIAS
      parameter (GL_BLUE_BIAS = 3355) 
      integer*4  GL_ALPHA_SCALE
      parameter (GL_ALPHA_SCALE = 3356) 
      integer*4  GL_ALPHA_BIAS
      parameter (GL_ALPHA_BIAS = 3357) 
      integer*4  GL_DEPTH_SCALE
      parameter (GL_DEPTH_SCALE = 3358) 
      integer*4  GL_DEPTH_BIAS
      parameter (GL_DEPTH_BIAS = 3359) 
      integer*4  GL_PIXEL_MAP_S_TO_S_SIZE
      parameter (GL_PIXEL_MAP_S_TO_S_SIZE= 3249) 
      integer*4  GL_PIXEL_MAP_I_TO_I_SIZE
      parameter (GL_PIXEL_MAP_I_TO_I_SIZE= 3248) 
      integer*4  GL_PIXEL_MAP_I_TO_R_SIZE
      parameter (GL_PIXEL_MAP_I_TO_R_SIZE= 3250) 
      integer*4  GL_PIXEL_MAP_I_TO_G_SIZE
      parameter (GL_PIXEL_MAP_I_TO_G_SIZE= 3251) 
      integer*4  GL_PIXEL_MAP_I_TO_B_SIZE
      parameter (GL_PIXEL_MAP_I_TO_B_SIZE= 3252) 
      integer*4  GL_PIXEL_MAP_I_TO_A_SIZE
      parameter (GL_PIXEL_MAP_I_TO_A_SIZE= 3253) 
      integer*4  GL_PIXEL_MAP_R_TO_R_SIZE
      parameter (GL_PIXEL_MAP_R_TO_R_SIZE= 3254) 
      integer*4  GL_PIXEL_MAP_G_TO_G_SIZE
      parameter (GL_PIXEL_MAP_G_TO_G_SIZE= 3255) 
      integer*4  GL_PIXEL_MAP_B_TO_B_SIZE
      parameter (GL_PIXEL_MAP_B_TO_B_SIZE= 3256) 
      integer*4  GL_PIXEL_MAP_A_TO_A_SIZE
      parameter (GL_PIXEL_MAP_A_TO_A_SIZE= 3257) 
      integer*4  GL_PIXEL_MAP_S_TO_S
      parameter (GL_PIXEL_MAP_S_TO_S = 3185) 
      integer*4  GL_PIXEL_MAP_I_TO_I
      parameter (GL_PIXEL_MAP_I_TO_I = 3184) 
      integer*4  GL_PIXEL_MAP_I_TO_R
      parameter (GL_PIXEL_MAP_I_TO_R = 3186) 
      integer*4  GL_PIXEL_MAP_I_TO_G
      parameter (GL_PIXEL_MAP_I_TO_G = 3187) 
      integer*4  GL_PIXEL_MAP_I_TO_B
      parameter (GL_PIXEL_MAP_I_TO_B = 3188) 
      integer*4  GL_PIXEL_MAP_I_TO_A
      parameter (GL_PIXEL_MAP_I_TO_A = 3189) 
      integer*4  GL_PIXEL_MAP_R_TO_R
      parameter (GL_PIXEL_MAP_R_TO_R = 3190) 
      integer*4  GL_PIXEL_MAP_G_TO_G
      parameter (GL_PIXEL_MAP_G_TO_G = 3191) 
      integer*4  GL_PIXEL_MAP_B_TO_B
      parameter (GL_PIXEL_MAP_B_TO_B = 3192) 
      integer*4  GL_PIXEL_MAP_A_TO_A
      parameter (GL_PIXEL_MAP_A_TO_A = 3193) 
      integer*4  GL_PACK_ALIGNMENT
      parameter (GL_PACK_ALIGNMENT = 3333) 
      integer*4  GL_PACK_LSB_FIRST
      parameter (GL_PACK_LSB_FIRST = 3329) 
      integer*4  GL_PACK_ROW_LENGTH
      parameter (GL_PACK_ROW_LENGTH = 3330) 
      integer*4  GL_PACK_SKIP_PIXELS
      parameter (GL_PACK_SKIP_PIXELS = 3332) 
      integer*4  GL_PACK_SKIP_ROWS
      parameter (GL_PACK_SKIP_ROWS = 3331) 
      integer*4  GL_PACK_SWAP_BYTES
      parameter (GL_PACK_SWAP_BYTES = 3328) 
      integer*4  GL_UNPACK_ALIGNMENT
      parameter (GL_UNPACK_ALIGNMENT = 3317) 
      integer*4  GL_UNPACK_LSB_FIRST
      parameter (GL_UNPACK_LSB_FIRST = 3313) 
      integer*4  GL_UNPACK_ROW_LENGTH
      parameter (GL_UNPACK_ROW_LENGTH = 3314) 
      integer*4  GL_UNPACK_SKIP_PIXELS
      parameter (GL_UNPACK_SKIP_PIXELS = 3316) 
      integer*4  GL_UNPACK_SKIP_ROWS
      parameter (GL_UNPACK_SKIP_ROWS = 3315) 
      integer*4  GL_UNPACK_SWAP_BYTES
      parameter (GL_UNPACK_SWAP_BYTES = 3312) 
      integer*4  GL_ZOOM_X
      parameter (GL_ZOOM_X = 3350) 
      integer*4  GL_ZOOM_Y
      parameter (GL_ZOOM_Y = 3351) 

C Texture mapping
      integer*4  GL_TEXTURE_ENV
      parameter (GL_TEXTURE_ENV = 8960) 
      integer*4  GL_TEXTURE_ENV_MODE
      parameter (GL_TEXTURE_ENV_MODE = 8704) 
      integer*4  GL_TEXTURE_1D
      parameter (GL_TEXTURE_1D = 3552) 
      integer*4  GL_TEXTURE_2D
      parameter (GL_TEXTURE_2D = 3553) 
      integer*4  GL_TEXTURE_WRAP_S
      parameter (GL_TEXTURE_WRAP_S = 10242) 
      integer*4  GL_TEXTURE_WRAP_T
      parameter (GL_TEXTURE_WRAP_T = 10243) 
      integer*4  GL_TEXTURE_MAG_FILTER
      parameter (GL_TEXTURE_MAG_FILTER = 10240) 
      integer*4  GL_TEXTURE_MIN_FILTER
      parameter (GL_TEXTURE_MIN_FILTER = 10241) 
      integer*4  GL_TEXTURE_ENV_COLOR
      parameter (GL_TEXTURE_ENV_COLOR = 8705) 
      integer*4  GL_TEXTURE_GEN_S
      parameter (GL_TEXTURE_GEN_S = 3168) 
      integer*4  GL_TEXTURE_GEN_T
      parameter (GL_TEXTURE_GEN_T = 3169) 
      integer*4  GL_TEXTURE_GEN_MODE
      parameter (GL_TEXTURE_GEN_MODE = 9472) 
      integer*4  GL_TEXTURE_BORDER_COLOR
      parameter (GL_TEXTURE_BORDER_COLOR = 4100) 
      integer*4  GL_TEXTURE_WIDTH
      parameter (GL_TEXTURE_WIDTH = 4096) 
      integer*4  GL_TEXTURE_HEIGHT
      parameter (GL_TEXTURE_HEIGHT = 4097) 
      integer*4  GL_TEXTURE_BORDER
      parameter (GL_TEXTURE_BORDER = 4101) 
      integer*4  GL_TEXTURE_COMPONENTS
      parameter (GL_TEXTURE_COMPONENTS = 4099) 
      integer*4  GL_NEAREST_MIPMAP_NEAREST
      parameter (GL_NEAREST_MIPMAP_NEAREST = 9984) 
      integer*4  GL_NEAREST_MIPMAP_LINEAR
      parameter (GL_NEAREST_MIPMAP_LINEAR = 9986) 
      integer*4  GL_LINEAR_MIPMAP_NEAREST
      parameter (GL_LINEAR_MIPMAP_NEAREST = 9985) 
      integer*4  GL_LINEAR_MIPMAP_LINEAR
      parameter (GL_LINEAR_MIPMAP_LINEAR = 9987) 
      integer*4  GL_OBJECT_LINEAR
      parameter (GL_OBJECT_LINEAR = 9217) 
      integer*4  GL_OBJECT_PLANE
      parameter (GL_OBJECT_PLANE = 9473) 
      integer*4  GL_EYE_LINEAR
      parameter (GL_EYE_LINEAR = 9216) 
      integer*4  GL_EYE_PLANE
      parameter (GL_EYE_PLANE = 9474) 
      integer*4  GL_SPHERE_MAP
      parameter (GL_SPHERE_MAP = 9218) 
      integer*4  GL_DECAL
      parameter (GL_DECAL = 8449) 
      integer*4  GL_MODULATE
      parameter (GL_MODULATE = 8448) 
      integer*4  GL_NEAREST
      parameter (GL_NEAREST = 9728) 
      integer*4  GL_REPEAT
      parameter (GL_REPEAT = 10497) 
      integer*4  GL_CLAMP
      parameter (GL_CLAMP = 10496) 
      integer*4  GL_S
      parameter (GL_S = 8192) 
      integer*4  GL_T
      parameter (GL_T = 8193) 
      integer*4  GL_R
      parameter (GL_R = 8194) 
      integer*4  GL_Q
      parameter (GL_Q = 8195) 
      integer*4  GL_TEXTURE_GEN_R
      parameter (GL_TEXTURE_GEN_R = 3170) 
      integer*4  GL_TEXTURE_GEN_Q
      parameter (GL_TEXTURE_GEN_Q = 3171) 

C Utility
      integer*4  GL_VENDOR
      parameter (GL_VENDOR = 7936) 
      integer*4  GL_RENDERER
      parameter (GL_RENDERER = 7937) 
      integer*4  GL_VERSION
      parameter (GL_VERSION = 7938) 
      integer*4  GL_EXTENSIONS
      parameter (GL_EXTENSIONS = 7939) 

C Errors
      integer*4  GL_INVALID_VALUE
      parameter (GL_INVALID_VALUE = 1281) 
      integer*4  GL_INVALID_ENUM
      parameter (GL_INVALID_ENUM = 1280) 
      integer*4  GL_INVALID_OPERATION
      parameter (GL_INVALID_OPERATION = 1282) 
      integer*4  GL_STACK_OVERFLOW
      parameter (GL_STACK_OVERFLOW = 1283) 
      integer*4  GL_STACK_UNDERFLOW
      parameter (GL_STACK_UNDERFLOW = 1284) 
      integer*4  GL_OUT_OF_MEMORY
      parameter (GL_OUT_OF_MEMORY = 1285) 

C Extensions
      integer*4  GL_CONSTANT_COLOR_EXT
      parameter (GL_CONSTANT_COLOR_EXT = 32769) 
      integer*4  GL_ONE_MINUS_CONSTANT_COLOR_EXT
      parameter (GL_ONE_MINUS_CONSTANT_COLOR_EXT= 32770) 
      integer*4  GL_CONSTANT_ALPHA_EXT
      parameter (GL_CONSTANT_ALPHA_EXT = 32771) 
      integer*4  GL_ONE_MINUS_CONSTANT_ALPHA_EXT
      parameter (GL_ONE_MINUS_CONSTANT_ALPHA_EXT= 32772) 
      integer*4  GL_BLEND_EQUATION_EXT
      parameter (GL_BLEND_EQUATION_EXT = 32777) 
      integer*4  GL_MIN_EXT
      parameter (GL_MIN_EXT = 32775) 
      integer*4  GL_MAX_EXT
      parameter (GL_MAX_EXT = 32776) 
      integer*4  GL_FUNC_ADD_EXT
      parameter (GL_FUNC_ADD_EXT = 32774) 
      integer*4  GL_FUNC_SUBTRACT_EXT
      parameter (GL_FUNC_SUBTRACT_EXT = 32778) 
      integer*4  GL_FUNC_REVERSE_SUBTRACT_EXT
      parameter (GL_FUNC_REVERSE_SUBTRACT_EXT= 32779) 
      integer*4  GL_BLEND_COLOR_EXT
      parameter (GL_BLEND_COLOR_EXT = 32773) 
      integer*4  GL_REPLACE_EXT
      parameter (GL_REPLACE_EXT = 2054) 


      integer*4  GL_NO_ERROR
      parameter (GL_NO_ERROR = 0)



C GLbitfield values
       integer*4  GL_CURRENT_BIT
       parameter (GL_CURRENT_BIT = 1)
       integer*4  GL_POINT_BIT
       parameter (GL_POINT_BIT = 2)
       integer*4  GL_LINE_BIT
       parameter (GL_LINE_BIT = 4)
       integer*4  GL_POLYGON_BIT
       parameter (GL_POLYGON_BIT = 8)
       integer*4  GL_POLYGON_STIPPLE_BIT
       parameter (GL_POLYGON_STIPPLE_BIT = 16)
       integer*4  GL_PIXEL_MODE_BIT
       parameter (GL_PIXEL_MODE_BIT = 32)
       integer*4  GL_LIGHTING_BIT
       parameter (GL_LIGHTING_BIT = 64)
       integer*4  GL_FOG_BIT
       parameter (GL_FOG_BIT = 128)
       integer*4  GL_DEPTH_BUFFER_BIT
       parameter (GL_DEPTH_BUFFER_BIT = 256)
       integer*4  GL_ACCUM_BUFFER_BIT
       parameter (GL_ACCUM_BUFFER_BIT = 512)
       integer*4  GL_STENCIL_BUFFER_BIT
       parameter (GL_STENCIL_BUFFER_BIT = 1024)
       integer*4  GL_VIEWPORT_BIT
       parameter (GL_VIEWPORT_BIT = 2048)
       integer*4  GL_TRANSFORM_BIT
       parameter (GL_TRANSFORM_BIT = 4096)
       integer*4  GL_ENABLE_BIT
       parameter (GL_ENABLE_BIT = 8192)
       integer*4  GL_COLOR_BUFFER_BIT
       parameter (GL_COLOR_BUFFER_BIT = 16384)
       integer*4  GL_HINT_BIT
       parameter (GL_HINT_BIT = 32768)
       integer*4  GL_EVAL_BIT
       parameter (GL_EVAL_BIT = 65536)
       integer*4  GL_LIST_BIT
       parameter (GL_LIST_BIT = 131072)
       integer*4  GL_TEXTURE_BIT
       parameter (GL_TEXTURE_BIT = 262144)
       integer*4  GL_SCISSOR_BIT
       parameter (GL_SCISSOR_BIT = 524288)
       integer*4  GL_ALL_ATTRIB_BITS
       parameter (GL_ALL_ATTRIB_BITS = 1048575)




C
C Notes on subroutine parameters:
C   1. Each Fortran API subroutine is named just like its C counterpart
C      except that each subroutine is prefixed with "fgl" instead of "gl".
C   2. The following table shows the translation of parameter types from
C      C to Fortran:
C
C        C GL<type>         Fortran
C        -------------      ----------
C        GLboolean          logical*1
C        GLbyte             integer*1
C        GLubyte            integer*1
C        GLshort            integer*2
C        GLushort           integer*2
C        GLint              integer*4
C        GLuint             integer*4
C        GLenum             integer*4
C        GLsizei            integer*4
C        GLfloat            real*4
C        GLclampf           real*4
C        GLdouble           real*8
C        GLclampd           real*8
C        any pointer        character*8
C
C
C
C   Examples of C API calls and their corresponding Fortran API calls:
C
C   C:        glBegin( GL_POINTS );
C
C   Fortran:  call fglBegin( GL_POINTS )
C
C
C   C:        GLfloat pos[4] = {10.0, 3.0, 2.0, 1.0};
C             ...
C             glLightfv( GL_LIGHT2, GL_POSITION, pos );
C
C   Fortran:  real*4 pos(4)
C             pos(1) = 10.0
C             pos(2) = 3.0
C             pos(3) = 2.0
C             pos(4) = 1.0
C             ...
C             call fglLightfv( GL_LIGHT2, GL_POSITION, pos )
C
C
C
C
C   Examples of some Fortran pseudo-prototypes
C
C
C     subroutine fglAccum( integer*4 op, real*4 value )
C     subroutine fglVertex2d( real*8 x, real*8 y )
C     subroutine fglLightfv( integer*4 light, integer*4 pname,
C                            character*8 params )



C
C These are the only functions in the Fortran API which return values
C

C     integer*4 function fglGenLists( integer*4 range )
      integer*4          fglGenLists

C     integer*4 function fglGetError()
      integer*4          fglGetError

C     character*256 function fglGetString( integer*4 name )
      character*256          fglGetString

C     logical*1 function fglIsEnabled( integer*4 cap )
      logical*1          fglIsEnabled

C     logical*1 function fglIsList( integer*4 list )
      logical*1          fglIsList

C     integer*4 function fglRenderMode( integer*4 mode )
      integer*4          fglRenderMode
