    MODULE DIAGNOSTIC
!>--------------------------------------------------------------------------------------------------
!> MODULE  DIAGNOSTIC
!>
!> USE MODULES: F77KINDS
!>--------------------------------------------------------------------------------------------------
    USE F77KINDS
    IMPLICIT NONE 
!-------------------------------------------------------
!
    LOGICAL(KIND=L4KIND), PARAMETER :: DIAG      = .False.
!
    END MODULE DIAGNOSTIC

