subroutine dcstringbase_warnlim
! Uses
use dc_trace, only: dbg, debug, sublevel
! Variables
character (len=*), intent(in) :: cause
integer :: stat
end subroutine dcstringbase_warnlim
character (len=*), intent(in) :: cause
integer :: stat