h21578
s 00000/00000/00059
d D 1.2 83/03/31 12:33:50 mmm 2 1
c 
e
s 00059/00000/00000
d D 1.1 83/03/15 21:40:01 tes 1 0
c date and time created 83/03/15 21:40:01 by tes
e
u
4
U
t
T
I 1
ifdef(`ERROR_ON',`
subroutine gkserr (ierror)
########################################################################
#                                                                      #
#          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: Ensure GKS is in proper state                          #
#                                                                      #
#     Input Parameters:                                                #
#            ierror - error number                                     #
#                                                                      #
#     Output Parameters:                                               #
#            none                                                      #
#                                                                      #
#     Routines Called:                                                 #
#            gitoch - convert integer to ADE equivalent                #
#            gcstot - output to console device                         #
#                                                                      #
########################################################################
integer ierror

integer iterr, mesg1(18), mesg2(20), splats(7), i, ms1ind, ms2ind

include(`gkscom')

           #  *  *  *  *  *  * cr lf
data splats /42,42,42,42,42,42,-4/
           # E  R  R  O  R sp  N  U  M  B  E  R  : sp sp sp sp sp
data mesg1 /69,82,82,79,82,32,78,85,77,66,69,82,58,32,32,32,32,32/
           # R  O  U  T  I  N  E sp  N  U  M  B  E  R  : sp sp sp sp cr/lf
data mesg2 /82,79,85,84,73,78,69,32,78,85,77,66,69,82,58,32,32,32,32,-4/

   # Convert error number and routine number to characters
   call gitoch (ierror, mesg1(15), 3, iterr) 
   call gitoch (rounum, mesg2(17), 3, iterr)

   # Output error messages
   call gcstot (7, splats)
   call gcstot (18, mesg1)
   call gcstot (20, mesg2)
   call gcstot (7, splats)

   # Clear error and routine numbers from message buffers.
   do i=1,3 {
      ms1ind = 14+i
      mesg1(ms1ind) = 32
      ms2ind = 16+i
      mesg2(ms2ind) = 32
      }

   return
end
')
E 1
