view libcruft/lapack-xtra/xslamch.f @ 8924:3c3cbe8f18e0 ss-3-1-54

bump version info for snapshot
author John W. Eaton <jwe@octave.org>
date Sat, 07 Mar 2009 13:28:03 -0500
parents 82be108cc558
children
line wrap: on
line source

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