dcabs1.f

来自「DTMK软件开发包,此为开源软件,是一款很好的医学图像开发资源.」· F 代码 · 共 9 行

      double precision function dcabs1(z)
      double complex z,zz
      double precision t(2)
      equivalence (zz,t(1))
      zz = z
      dcabs1 = dabs(t(1)) + dabs(t(2))
      return
      end