| Path: | dcstringbase_warnlim.f90 |
| Last Update: | Wed Jul 20 18:22:23 JST 2005 |
dcstring_main.f90 - warning at string module for Fortran90 Copyright (C) GFD Dennou Club, 2001. All rights reserved vi: set ts=8 sw=4:
| Subroutine : | |
| cause : | character(len = *), intent(in) |
subroutine dcstringbase_warnlim(cause)
use dc_trace, only: dbg, debug, sublevel
implicit none
character(len = *), intent(in):: cause
integer:: stat
intrinsic repeat
continue
if (.not. debug()) return
write(unit=dbg, fmt="(a)", iostat=stat) '#' // repeat(' ', sublevel()) // 'dcstring_base(' // cause // '): too long string warning'
if (stat /= 0) dbg = -1
end subroutine