1      integer maxdepth, maxnames
2C$Id$
3      parameter (maxdepth = 6, maxnames = 32)
4      integer depth, n_print, n_no_print, print_level
5      logical oprint_print
6      character*32 print_names, no_print_names
7c
8      common /printcommon/ depth, print_level(maxdepth),
9     $     n_print(maxdepth), n_no_print(maxdepth),
10     $     oprint_print(maxdepth)
11      common /cprintcommon/print_names(maxnames,maxdepth),
12     $     no_print_names(maxnames,maxdepth)
13