Mercurial > hg > octave-lyh

view libcruft/misc/xstopx.f @ 2484:ccaffe93c32f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-11-07 23:24:46 by jwe]
author jwe
date Thu, 07 Nov 1996 23:25:37 +0000
parents a5c3ae990127
children
line wrap: on
line source

      subroutine xstopx (string)
      character *(*) string
      integer slen
      slen = len (string)
      if (slen .eq. 1 .and. string(1:1) .eq. ' ') then
        slen = 0
      endif
 9999 call dostop (string, slen)
      end