LAPACK 3.3.0

scabs1.f

Go to the documentation of this file.
00001       REAL FUNCTION SCABS1(Z)
00002 *     .. Scalar Arguments ..
00003       COMPLEX Z
00004 *     ..
00005 *
00006 *  Purpose
00007 *  =======
00008 *
00009 *  SCABS1 computes absolute value of a complex number
00010 *
00011 *  =====================================================================
00012 *
00013 *     .. Intrinsic Functions ..
00014       INTRINSIC ABS,AIMAG,REAL
00015 *     ..
00016       SCABS1 = ABS(REAL(Z)) + ABS(AIMAG(Z))
00017       RETURN
00018       END
 All Files Functions