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 / blas / dcabs1.f < prev    next >
Text File  |  1996-09-28  |  199b  |  9 lines
  1.       double precision function dcabs1(z)
  2.       double complex z,zz
  3.       double precision t(2)
  4.       equivalence (zz,t(1))
  5.       zz = z
  6.       dcabs1 = dabs(t(1)) + dabs(t(2))
  7.       return
  8.       end
  9.