h36827
s 00002/00002/00035
d D 1.7 83/02/18 18:11:11 mjb 7 6
c fixed bug with interaction between text charts and multi charts
e
s 00002/00012/00035
d D 1.6 83/02/17 12:26:41 mjb 6 5
c fixed chkdef problem on anotation
e
s 00000/00000/00047
d D 1.5 83/02/14 14:07:59 mjb 5 4
c added sflag to tell when absolutely necessary to save current graph
e
s 00002/00000/00045
d D 1.4 83/02/04 12:45:18 mjb 4 3
c fixed all routines to clear anotation buffer when necessary
e
s 00011/00005/00034
d D 1.3 83/01/31 19:13:59 mjb 3 2
c made changes for checking of defined charts
e
s 00000/00000/00039
d D 1.2 83/01/20 14:43:54 mjb 2 1
c modified for multiple graphs
e
s 00039/00000/00000
d D 1.1 83/01/20 11:11:30 tes 1 0
c date and time created 83/01/20 11:11:30 by tes
e
u
tes
mjb
U
t
T
I 1
subroutine inmmem
########################################################################
#                                                                      #
#          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: initialize multi graph common                          #
#                                                                      #
#     Input Parameters:                                                #
#            None                                                      #
#                                                                      #
#     Output Parameters:                                               #
#            None                                                      #
#                                                                      #
#     Routines Called:                                                 #
#            None                                                      #
#                                                                      #
########################################################################
D 6
integer i
E 6

include(`gphcom')

D 6
#data multfg  / 1 /      #   default multi graph is one
#data mfrmat  / 6 /      #   default format is one graph format 6
E 6
I 6
#data multfg  / 2 /      #   default multi graph is one
#data mfrmat  / 1 /      #   default format is one graph format 6
E 6
#data mfname  / 56*NUL / #   multi filename array

I 7
   call inamem

E 7
D 3
multfg = 2
mfrmat = 1
do i = 1, 56 {
   mfname(i) = NUL
   }
E 3
I 3
   multfg = 2
   mfrmat = 1
D 6
   do i = 1, 56 {
      mfname(i) = NUL
      }
E 6
   
D 6
   do i = 1, 5 {
      bgddef(i) = NUL
      }
   
   bpddef = NUL
E 3

E 6
I 4
D 7
   call inamem

E 7
E 4
   return
end
E 1
