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