dcstringbase_warnlim.f90

Path: src/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:

Methods

dcstringbase_warnlim  

Included Modules

dc_trace

Public Instance methods

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

[Source]

subroutine dcstringbase_warnlim(cause)

    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]