Mercurial > hg > octave-nkf

view libcruft/lapack-xtra/xslamch.f @ 9581:3d0d2bda3a0f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix previous change, avoid duplicate loads of methods in descendant classes
author Jaroslav Hajek <highegg@gmail.com>
date Thu, 27 Aug 2009 16:08:23 +0200
parents 82be108cc558
children
line wrap: on
line source

      subroutine xslamch (cmach, retval)
      character cmach
      real retval, slamch
      retval = slamch (cmach)
      return
      end