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