dcstringbase_warnlim.f90

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:

Required files

dc_trace.f90  

Methods

dcstringbase_warnlim  

Included Modules

dc_trace

Public Instance methods

dcstringbase_warnlim( cause )
Subroutine :
cause :character(len = *), intent(in)

[Source]

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

[Validate]