← Back to branch summary

~ubuntu-branches/ubuntu/vivid/atlas/vivid

« back to all changes in this revision

Viewing changes to src/blas/f77reference/scabs1.f

  • Committer: Package Import Robot
  • Author(s): Sébastien Villemot
  • Date: 2013-06-11 15:58:16 UTC
  • mfrom: (1.1.3 upstream)
  • mto: (2.2.21 experimental)
  • mto: This revision was merged to the branch mainline in revision 26.
  • Revision ID: package-import@ubuntu.com-20130611155816-b72z8f621tuhbzn0
Tags: upstream-3.10.1
Import upstream version 3.10.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/blas/f77reference/scabs1.f
 
1
      REAL FUNCTION SCABS1(Z)
 
2
*     .. Scalar Arguments ..
 
3
      COMPLEX Z
 
4
*     ..
 
5
*
 
6
*  Purpose
 
7
*  =======
 
8
*
 
9
*  SCABS1 computes absolute value of a complex number
 
10
*
 
11
*     .. Intrinsic Functions ..
 
12
      INTRINSIC ABS,AIMAG,REAL
 
13
*     ..
 
14
      SCABS1 = ABS(REAL(Z)) + ABS(AIMAG(Z))
 
15
      RETURN
 
16
      END