scabs1.f
65 lines
| 1.3 KiB
| text/x-fortran
|
FortranFixedLexer
| r1601 | *> \brief \b SCABS1 | |||
| * | ||||
| * =========== DOCUMENTATION =========== | ||||
| * | ||||
| * Online html documentation available at | ||||
| * http://www.netlib.org/lapack/explore-html/ | ||||
| * | ||||
| * Definition: | ||||
| * =========== | ||||
| * | ||||
| * REAL FUNCTION SCABS1(Z) | ||||
| * | ||||
| * .. Scalar Arguments .. | ||||
| * COMPLEX Z | ||||
| * .. | ||||
| * | ||||
| * | ||||
| *> \par Purpose: | ||||
| * ============= | ||||
| *> | ||||
| *> \verbatim | ||||
| *> | ||||
| *> SCABS1 computes |Re(.)| + |Im(.)| of a complex number | ||||
| *> \endverbatim | ||||
| * | ||||
| * Arguments: | ||||
| * ========== | ||||
| * | ||||
| *> \param[in] Z | ||||
| *> \verbatim | ||||
| *> Z is COMPLEX | ||||
| *> \endverbatim | ||||
| * | ||||
| * Authors: | ||||
| * ======== | ||||
| * | ||||
| *> \author Univ. of Tennessee | ||||
| *> \author Univ. of California Berkeley | ||||
| *> \author Univ. of Colorado Denver | ||||
| *> \author NAG Ltd. | ||||
| * | ||||
| *> \date November 2017 | ||||
| * | ||||
| *> \ingroup single_blas_level1 | ||||
| * | ||||
| * ===================================================================== | ||||
| REAL FUNCTION SCABS1(Z) | ||||
| * | ||||
| * -- Reference BLAS level1 routine (version 3.8.0) -- | ||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2017 | ||||
| * | ||||
| * .. Scalar Arguments .. | ||||
| COMPLEX Z | ||||
| * .. | ||||
| * | ||||
| * ===================================================================== | ||||
| * | ||||
| * .. Intrinsic Functions .. | ||||
| INTRINSIC ABS,AIMAG,REAL | ||||
| * .. | ||||
| SCABS1 = ABS(REAL(Z)) + ABS(AIMAG(Z)) | ||||
| RETURN | ||||
| END | ||||
