h39306
s 00000/00000/00092
d D 1.2 83/03/31 12:34:47 mmm 2 1
c 
e
s 00092/00000/00000
d D 1.1 83/03/15 21:40:36 tes 1 0
c date and time created 83/03/15 21:40:36 by tes
e
u
4
U
t
T
I 1
subroutine gopks (erfil)
########################################################################
#                                                                      #
#          THIS MATERIAL IS CONFIDENTIAL AND IS FURNISHED UNDER        #
#          A WRITTEN LICENSE AGREEMENT.  IT MAY NOT BE USED,           #
#          COPIED OR DISCLOSED TO OTHERS EXCEPT IN ACCORDANCE          #
#          WITH THE TERMS OF THAT AGREEMENT.                           #
#                                                                      #
#          COPYRIGHT (C) 1982 GRAPHIC SOFTWARE SYSTEMS INC.            #
#          ALL RIGHTS RESERVED.                                        #
#                                                                      #
#     Function: Open GKS                                               #
#                                                                      #
#     Input Parameters:                                                #
#            erfil  -  name of file containing GKS error messages     #
#      Output Parameters:                                              #
#            none                                                      #
#                                                                      #
#     Errors:                                                          #
#            none                                                      #
#                                                                      #
#     Routines Called:                                                 #
#        gzmtid - initialize a matrix to identity                      #
#        gioini - initialize the i/o system for error checking         #
#        arycon - intialize integer arrays                             #
#        arycnr - intialize real arrays                                #
#                                                                      #
########################################################################
integer erfil
 
integer curatt(7)
real winmin(8), winmax(8)

include(`gkscom')

equivalence (curatt(1), lntyp), (winmin(1), wxminl(1)), 
	    (winmax(1), wxmaxl(1))

   ifdef(`ERROR_ON',`
      # Initialize console IO 
      call gioini (0)
      ')

   # Set GKS to GKS open state
   gksopr = GKOP

   # set defaults

   wrkopn = 0    # Workstation open list
   wrkact = 0    # Workstation active list
   nrmcur = 0    # Current normalization number
   nclip  = 1    # World window clipping is on (.true.)

   # Set up the defaults for current attributes
   
   call arycon (7, 1, curatt)

   faint = 0      # Default fill area interior style
   fasty = 0      # Default fill area style index
   faclr = 1      # Default fill area color is one
   lnwdsf = 1.0   # Default line width scale factor
   mkszsf = 1.0   # Default marker size scale factor
   txtjh  = 0     # Default text horizontal alignment is left
   txtjv  = 3     # Default text vertical alignmnet is base

   call arycnr (8, 0.0, winmin)  # Define the window extents
   call arycnr (8, 1.0, winmax)

   chrhgt = 0.01  # Current character height
   chrupx = 0.0   # Current character up vector
   chrupy = 1.0 
   actupx = 0.0   # Actual character up vector
   actupy = 1.0
   unrmdx = 1.0   # Current text baseline
   unrmdy = 0.0
   normdx = 1.0   # Actual text baseline
   normdy = 0.0
   zeps = 1.0E-7    # real close to zero
   zeps15 = 1.0E-15 # real even closer to zero
   xywasp = 1.0      # x y aspect ratio

   call gzmtid (rview)    # Set viewing, and reverse viewing
   call gzmtid (viewtx)   #     transforms to identity
 
   # Set errfil global to be equal to input parameter
   errfil = erfil

   nview = 0
   ntext = 0

   return
end
E 1
