BSD 4_3_Tahoe release

[unix-history] / usr / src / usr.lib / libF77 / pow_zz.c

diff --git a/usr/src/usr.lib/libF77/pow_zz.c b/usr/src/usr.lib/libF77/pow_zz.c
index 2f27e9c..aae2efa 100644 (file)
--- a/usr/src/usr.lib/libF77/pow_zz.c
+++ b/usr/src/usr.lib/libF77/pow_zz.c
@@ -3,10 +3,13 @@
  * All rights reserved.  The Berkeley software License Agreement
  * specifies the terms and conditions for redistribution.
  *
  * All rights reserved.  The Berkeley software License Agreement
  * specifies the terms and conditions for redistribution.
  *

- *     @(#)pow_zz.c    5.1     6/7/85
+ *     @(#)pow_zz.c    5.2     11/3/86

  */
 
 #include "complex"
  */
 
 #include "complex"

+#ifdef tahoe
+#define cabs zabs
+#endif tahoe

 
 pow_zz(r,a,b)
 dcomplex *r, *a, *b;
 
 pow_zz(r,a,b)
 dcomplex *r, *a, *b;