home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / octave-1.1.1p1-src.tgz / tar.out / fsf / octave / libcruft / ranlib / wrap.f < prev   
Text File  |  1996-09-28  |  305b  |  11 lines
  1.       subroutine dgennor (av, sd, result)
  2.       double precision av, sd, result
  3.       result = gennor (real (av), real (sd))
  4.       return
  5.       end
  6.       subroutine dgenunf (low, high, result)
  7.       double precision low, high, result
  8.       result = genunf (real (low), real (high))
  9.       return
  10.       end
  11.