h21080
s 00000/00000/00054
d D 1.2 83/03/31 12:37:53 mmm 2 1
c 
e
s 00054/00000/00000
d D 1.1 83/03/15 21:41:33 tes 1 0
c date and time created 83/03/15 21:41:33 by tes
e
u
4
U
t
T
I 1
subroutine gschal (horiz, vert)
########################################################################
#                                                                      #
#          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: set the character alignment for text output            #
#                                                                      #
#     Input Parameters:                                                #
#            horiz - integer representing the horizontal justification #
#                       0 - left                                       #
#                       1 - center                                     #
#                       2 - right                                      #
#            vert  - integer representing the vertical justification   #
#                       0 - top                                        #
#                       1 - cap                                        #
#                       2 - half                                       #
#                       3 - base                                       #
#                       4 - bottom                                     #
#     Output Parameters:                                               #
#            none                                                      #
#     Errors:                                                          #
#         8  GKS not in proper stat: GKS must be in one of the         #
#            states GKOP, WSOP, WSAC, or SGOP                          #
#                                                                      #
#     Routines Called:                                                 #
#            gimnmx - bound an integer variable                        #
#            errchk - perform appropriate error checking               #
#                                                                      #
########################################################################
integer horiz, vert
integer gimnmx

ifdef(`ERROR_ON',`
   integer errchk, errind, ierdum(1)
   ')
 
include(`gkscom')

ifdef(`ERROR_ON',`
   rounum = GSCHAL
   errind = errchk (ierdum(1), ierdum)
   ')
 
txtjh = gimnmx (horiz, 0, 2)   # Set global variables
txtjv = gimnmx (vert, 0, 4)
 
return
end
E 1
