Mercurial > hg > octave-nkf

view libcruft/fsqp/lfuscp.f @ 2512:fda09c1e787e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-11-14 08:39:41 by jwe]
author jwe
date Thu, 14 Nov 1996 08:39:47 +0000
parents 30c606bec7a8
children
line wrap: on
line source

c
      double precision function lfuscp(val,thrshd)
c     implicit real*8(a-h,o-z)
      double precision val,thrshd
c
      if(dabs(val).le.thrshd) lfuscp=0
      if(dabs(val).gt.thrshd) lfuscp=1
      return
      end