MODULE popt_module
   IMPLICIT NONE
   SAVE
!-----------------------------------------------------------------------
!  subs  List of SUBROUTINE names with debugging options turned on.
!-----------------------------------------------------------------------
   INTEGER, PARAMETER:: NSubs=12
   CHARACTER(LEN=13)  Subs(NSubs) &
    /'K_Gen_Test',     &
     'Unit_Matrix',    &
     'Asymptotic',     &
     'Eigenphase',     &
     'LgDiff',         &
     'Lifetimes',      &
     'Probabilities',  &
     'SMatrix',        &
     'Symmetrize',     &
     'Time_Delays',    &
     'TMatrix',        &
     'Unitarity'       /
   CHARACTER(LEN=6) Print_Level(NSubs) &
    /'Full',           &
     'Full',           &
     'Full',           &
     'Full',           &
     'Full',           &
     'Full',           &
     'Full',           &
     'Full',           &
     'Full',           &
     'Full',           &
     'Full',           &
     'Full'            /
!----------------------------------------------------------------------
!     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.
!    Print_Level... Default Print_level for each routine
!                   NONE         Nothing is printed
!                   Little       First row of matrices to be printed
!                   Medium       4-by-4 block of matrices to be printed
!                   Full         The entire matrix will be printed
!----------------------------------------------------------------------
   LOGICAL AllNone/.False./, AllLittle/.False./, AllMedium/.False./, AllFull/.False./
END MODULE popt_module