home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / lib / mathlib / libblas / src_original / dcabs1.f < prev    next >
Encoding:
Text File  |  1994-08-02  |  579 b   |  24 lines
  1.       DOUBLE PRECISION FUNCTION DCABS1( Z )
  2. *
  3. *     .. Scalar Arguments ..
  4.       COMPLEX*16                        Z
  5. *     ..
  6. *     .. Local Scalars ..
  7.       COMPLEX*16                        ZZ
  8. *     ..
  9. *     .. Local Arrays ..
  10.       DOUBLE PRECISION                  T( 2 )
  11. *     ..
  12. *     .. Intrinsic Functions ..
  13.       INTRINSIC                         DABS
  14. *     ..
  15. *     .. Equivalences ..
  16.       EQUIVALENCE                       ( ZZ, T( 1 ) )
  17. *     ..
  18. *     .. Executable Statements ..
  19. *
  20.       ZZ = Z
  21.       DCABS1 = DABS( T( 1 ) ) + DABS( T( 2 ) )
  22.       RETURN
  23.       END
  24.