Module dc_message

module dc_message

        ! Interfaces
    public interface MessageNotify

        ! Subroutines and functions
    private subroutine MessageNotifyC (level, where, message, i, r, d, L, n, c1, c2, c3)
    private subroutine MessageNotifyI (number, where, message, i, r, d, L, n, c1, c2, c3)

end module dc_message

Description of Interfaces

public interface MessageNotify
    module procedure MessageNotifyC
    module procedure MessageNotifyI
end interface MessageNotify

Description of Subroutines and Functions

private subroutine MessageNotifyC (level, where, message, i, r, d, L, n, c1, c2, c3)
    character (len=*), intent(in) :: level
    character (len=*), intent(in) :: where
    character (len=*), intent(in) :: message
    integer, optional, intent(in), dimension (:) :: i
    real, optional, intent(in), dimension (:) :: r
    real (kind=DP), optional, intent(in), dimension (:) :: d
    logical, optional, intent(in), dimension (:) :: L
    integer, optional, intent(in), dimension (:) :: n
    character (len=*), optional, intent(in) :: c1
    character (len=*), optional, intent(in) :: c2
    character (len=*), optional, intent(in) :: c3
    ! Calls: Printf, StoreError
end subroutine MessageNotifyC

private subroutine MessageNotifyI (number, where, message, i, r, d, L, n, c1, c2, c3)
    integer, intent(in) :: number
    character (len=*), intent(in) :: where
    character (len=*), optional, intent(in) :: message
    integer, optional, intent(in), dimension (:) :: i
    real, optional, intent(in), dimension (:) :: r
    real (kind=DP), optional, intent(in), dimension (:) :: d
    logical, optional, intent(in), dimension (:) :: L
    integer, optional, intent(in), dimension (:) :: n
    character (len=*), optional, intent(in) :: c1
    character (len=*), optional, intent(in) :: c2
    character (len=*), optional, intent(in) :: c3
    ! Calls: StoreError
end subroutine MessageNotifyI