MODULE Prntng_Module
!----------------------------------------------------------------------
!     nsubs ...... number of subroutines which will have their debug
!                  writes turned on
!
!  The following variables must be defined for each SUBROUTINE
!  for which you wish to turn on debug writes:
!
!    subs(i) ...... name of the SUBROUTINE to turn on debug writes;
!                   must be a CHARACTER string of no more than
!                   eight characters.
!    iprt(i) ...... what level of debug writes:
!                    0=NONE
!                    1=minimum
!                    2=moderate
!                    3=maximum
!                    4=combination (must READ in iter(j,i), j=1 to 3)
!   iter(j,i) ...... how many times to loop thru SUBROUTINE i with the
!                    jth debug level turned on (j=1 to 3)
!----------------------------------------------------------------------
   IMPLICIT NONE
   SAVE
   INTEGER iprt(200), iter(3,200), nsubs, iprtall
   CHARACTER(LEN=8)  option
END MODULE Prntng_Module