Mercurial > octave-nkf
view liboctave/cruft/lapack-xtra/xslamch.f @ 20654:b65888ec820e draft default tip gccjit
dmalcom gcc jit import
author | Stefan Mahr <dac922@gmx.de> |
---|---|
date | Fri, 27 Feb 2015 16:59:36 +0100 |
parents | 648dabbb4c6b |
children |
line wrap: on
line source
subroutine xslamch (cmach, retval) character cmach real retval, slamch retval = slamch (cmach) return end