declare function as float, not double.

SCCS-vsn: usr.bin/f77/libF77/r_acos.c 5.2
SCCS-vsn: usr.bin/f77/libF77/r_asin.c 5.2
SCCS-vsn: usr.bin/f77/libF77/r_atan.c 5.2
SCCS-vsn: usr.bin/f77/libF77/r_atn2.c 5.2
SCCS-vsn: usr.bin/f77/libF77/r_cos.c 5.2
SCCS-vsn: usr.bin/f77/libF77/r_cosh.c 5.2
SCCS-vsn: usr.bin/f77/libF77/r_exp.c 5.2
SCCS-vsn: usr.bin/f77/libF77/r_log.c 5.2
SCCS-vsn: usr.bin/f77/libF77/r_sin.c 5.2
SCCS-vsn: usr.bin/f77/libF77/r_sinh.c 5.2
SCCS-vsn: usr.bin/f77/libF77/r_sqrt.c 5.2
SCCS-vsn: usr.bin/f77/libF77/r_tan.c 5.2
SCCS-vsn: usr.bin/f77/libF77/r_tanh.c 5.2
SCCS-vsn: usr.bin/f77/libF77/r_abs.c 5.2
SCCS-vsn: usr.bin/f77/libF77/r_imag.c 5.2
SCCS-vsn: usr.bin/f77/libF77/r_nint.c 5.2
SCCS-vsn: usr.bin/f77/libF77/r_int.c 5.2
SCCS-vsn: usr.bin/f77/libF77/r_sign.c 5.2
SCCS-vsn: usr.bin/f77/libF77/r_lg10.c 5.2
SCCS-vsn: usr.bin/f77/libF77/r_dim.c 5.2
SCCS-vsn: usr.bin/f77/libF77/r_mod.c 5.2

diff --git a/usr/src/usr.bin/f77/libF77/r_abs.c b/usr/src/usr.bin/f77/libF77/r_abs.c
index 5fd5b01..d671ce0 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_abs.c
+++ b/usr/src/usr.bin/f77/libF77/r_abs.c
@@ -3,10 +3,10 @@
  * 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.
  *

- *     @(#)r_abs.c     5.1     %G%
+ *     @(#)r_abs.c     5.2     %G%

  */
 
  */
 

-double r_abs(x)
+float r_abs(x)

 float *x;
 {
 if(*x >= 0)
 float *x;
 {
 if(*x >= 0)

diff --git a/usr/src/usr.bin/f77/libF77/r_acos.c b/usr/src/usr.bin/f77/libF77/r_acos.c
index 6f8768b..15efded 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_acos.c
+++ b/usr/src/usr.bin/f77/libF77/r_acos.c
@@ -3,10 +3,10 @@
  * 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.
  *

- *     @(#)r_acos.c    5.1     %G%
+ *     @(#)r_acos.c    5.2     %G%

  */
 
  */
 

-double r_acos(x)
+float r_acos(x)

 float *x;
 {
 double acos();
 float *x;
 {
 double acos();

diff --git a/usr/src/usr.bin/f77/libF77/r_asin.c b/usr/src/usr.bin/f77/libF77/r_asin.c
index bf69b54..5df2a97 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_asin.c
+++ b/usr/src/usr.bin/f77/libF77/r_asin.c
@@ -3,10 +3,10 @@
  * 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.
  *

- *     @(#)r_asin.c    5.1     %G%
+ *     @(#)r_asin.c    5.2     %G%

  */
 
  */
 

-double r_asin(x)
+float r_asin(x)

 float *x;
 {
 double asin();
 float *x;
 {
 double asin();

diff --git a/usr/src/usr.bin/f77/libF77/r_atan.c b/usr/src/usr.bin/f77/libF77/r_atan.c
index cdc6224..a38e18c 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_atan.c
+++ b/usr/src/usr.bin/f77/libF77/r_atan.c
@@ -3,10 +3,10 @@
  * 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.
  *

- *     @(#)r_atan.c    5.1     %G%
+ *     @(#)r_atan.c    5.2     %G%

  */
 
  */
 

-double r_atan(x)
+float r_atan(x)

 float *x;
 {
 double atan();
 float *x;
 {
 double atan();

diff --git a/usr/src/usr.bin/f77/libF77/r_atn2.c b/usr/src/usr.bin/f77/libF77/r_atn2.c
index 2c9a95d..bcc8ca2 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_atn2.c
+++ b/usr/src/usr.bin/f77/libF77/r_atn2.c
@@ -3,10 +3,10 @@
  * 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.
  *

- *     @(#)r_atn2.c    5.1     %G%
+ *     @(#)r_atn2.c    5.2     %G%

  */
 
  */
 

-double r_atn2(x,y)
+float r_atn2(x,y)

 float *x, *y;
 {
 double atan2();
 float *x, *y;
 {
 double atan2();

diff --git a/usr/src/usr.bin/f77/libF77/r_cos.c b/usr/src/usr.bin/f77/libF77/r_cos.c
index 986490a..716dc5e 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_cos.c
+++ b/usr/src/usr.bin/f77/libF77/r_cos.c
@@ -3,10 +3,10 @@
  * 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.
  *

- *     @(#)r_cos.c     5.1     %G%
+ *     @(#)r_cos.c     5.2     %G%

  */
 
  */
 

-double r_cos(x)
+float r_cos(x)

 float *x;
 {
 double cos();
 float *x;
 {
 double cos();

diff --git a/usr/src/usr.bin/f77/libF77/r_cosh.c b/usr/src/usr.bin/f77/libF77/r_cosh.c
index 459109a..0b1b521 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_cosh.c
+++ b/usr/src/usr.bin/f77/libF77/r_cosh.c
@@ -3,10 +3,10 @@
  * 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.
  *

- *     @(#)r_cosh.c    5.1     %G%
+ *     @(#)r_cosh.c    5.2     %G%

  */
 
  */
 

-double r_cosh(x)
+float r_cosh(x)

 float *x;
 {
 double cosh();
 float *x;
 {
 double cosh();

diff --git a/usr/src/usr.bin/f77/libF77/r_dim.c b/usr/src/usr.bin/f77/libF77/r_dim.c
index fbd9433..07ed810 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_dim.c
+++ b/usr/src/usr.bin/f77/libF77/r_dim.c
@@ -3,10 +3,10 @@
  * 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.
  *

- *     @(#)r_dim.c     5.1     %G%
+ *     @(#)r_dim.c     5.2     %G%

  */
 
  */
 

-double r_dim(a,b)
+float r_dim(a,b)

 float *a, *b;
 {
 return( *a > *b ? *a - *b : 0);
 float *a, *b;
 {
 return( *a > *b ? *a - *b : 0);

diff --git a/usr/src/usr.bin/f77/libF77/r_exp.c b/usr/src/usr.bin/f77/libF77/r_exp.c
index f2efba0..8aa0007 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_exp.c
+++ b/usr/src/usr.bin/f77/libF77/r_exp.c
@@ -3,10 +3,10 @@
  * 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.
  *

- *     @(#)r_exp.c     5.1     %G%
+ *     @(#)r_exp.c     5.2     %G%

  */
 
  */
 

-double r_exp(x)
+float r_exp(x)

 float *x;
 {
 double exp();
 float *x;
 {
 double exp();

diff --git a/usr/src/usr.bin/f77/libF77/r_imag.c b/usr/src/usr.bin/f77/libF77/r_imag.c
index fb9f585..dd41c77 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_imag.c
+++ b/usr/src/usr.bin/f77/libF77/r_imag.c
@@ -3,12 +3,12 @@
  * 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.
  *

- *     @(#)r_imag.c    5.1     %G%
+ *     @(#)r_imag.c    5.2     %G%

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

-double r_imag(z)
+float r_imag(z)

 complex *z;
 {
 return(z->imag);
 complex *z;
 {
 return(z->imag);

diff --git a/usr/src/usr.bin/f77/libF77/r_int.c b/usr/src/usr.bin/f77/libF77/r_int.c
index cde47a6..ae672e3 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_int.c
+++ b/usr/src/usr.bin/f77/libF77/r_int.c
@@ -3,10 +3,10 @@
  * 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.
  *

- *     @(#)r_int.c     5.1     %G%
+ *     @(#)r_int.c     5.2     %G%

  */
 
  */
 

-double r_int(x)
+float r_int(x)

 float *x;
 {
 double floor();
 float *x;
 {
 double floor();

diff --git a/usr/src/usr.bin/f77/libF77/r_lg10.c b/usr/src/usr.bin/f77/libF77/r_lg10.c
index 113e5b3..162a079 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_lg10.c
+++ b/usr/src/usr.bin/f77/libF77/r_lg10.c
@@ -3,12 +3,12 @@
  * 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.
  *

- *     @(#)r_lg10.c    5.1     %G%
+ *     @(#)r_lg10.c    5.2     %G%

  */
 
 #define log10e 0.43429448190325182765
 
  */
 
 #define log10e 0.43429448190325182765
 

-double r_lg10(x)
+float r_lg10(x)

 float *x;
 {
 double log();
 float *x;
 {
 double log();

diff --git a/usr/src/usr.bin/f77/libF77/r_log.c b/usr/src/usr.bin/f77/libF77/r_log.c
index e243b02..ed82927 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_log.c
+++ b/usr/src/usr.bin/f77/libF77/r_log.c
@@ -3,10 +3,10 @@
  * 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.
  *

- *     @(#)r_log.c     5.1     %G%
+ *     @(#)r_log.c     5.2     %G%

  */
 
  */
 

-double r_log(x)
+float r_log(x)

 float *x;
 {
 double log();
 float *x;
 {
 double log();

diff --git a/usr/src/usr.bin/f77/libF77/r_mod.c b/usr/src/usr.bin/f77/libF77/r_mod.c
index b6cb709..7d5036b 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_mod.c
+++ b/usr/src/usr.bin/f77/libF77/r_mod.c
@@ -3,10 +3,10 @@
  * 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.
  *

- *     @(#)r_mod.c     5.1     %G%
+ *     @(#)r_mod.c     5.2     %G%

  */
 
  */
 

-double r_mod(x,y)
+float r_mod(x,y)

 float *x, *y;
 {
 double floor(), quotient = *x / *y;
 float *x, *y;
 {
 double floor(), quotient = *x / *y;

diff --git a/usr/src/usr.bin/f77/libF77/r_nint.c b/usr/src/usr.bin/f77/libF77/r_nint.c
index a5b47b2..a22e41f 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_nint.c
+++ b/usr/src/usr.bin/f77/libF77/r_nint.c
@@ -3,10 +3,10 @@
  * 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.
  *

- *     @(#)r_nint.c    5.1     %G%
+ *     @(#)r_nint.c    5.2     %G%

  */
 
  */
 

-double r_nint(x)
+float r_nint(x)

 float *x;
 {
 double floor();
 float *x;
 {
 double floor();

diff --git a/usr/src/usr.bin/f77/libF77/r_sign.c b/usr/src/usr.bin/f77/libF77/r_sign.c
index 34115cc..c6c1600 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_sign.c
+++ b/usr/src/usr.bin/f77/libF77/r_sign.c
@@ -3,10 +3,10 @@
  * 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.
  *

- *     @(#)r_sign.c    5.1     %G%
+ *     @(#)r_sign.c    5.2     %G%

  */
 
  */
 

-double r_sign(a,b)
+float r_sign(a,b)

 float *a, *b;
 {
 float x;
 float *a, *b;
 {
 float x;

diff --git a/usr/src/usr.bin/f77/libF77/r_sin.c b/usr/src/usr.bin/f77/libF77/r_sin.c
index 0719537..065af0b 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_sin.c
+++ b/usr/src/usr.bin/f77/libF77/r_sin.c
@@ -3,10 +3,10 @@
  * 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.
  *

- *     @(#)r_sin.c     5.1     %G%
+ *     @(#)r_sin.c     5.2     %G%

  */
 
  */
 

-double r_sin(x)
+float r_sin(x)

 float *x;
 {
 double sin();
 float *x;
 {
 double sin();

diff --git a/usr/src/usr.bin/f77/libF77/r_sinh.c b/usr/src/usr.bin/f77/libF77/r_sinh.c
index f417065..15e949b 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_sinh.c
+++ b/usr/src/usr.bin/f77/libF77/r_sinh.c
@@ -3,10 +3,10 @@
  * 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.
  *

- *     @(#)r_sinh.c    5.1     %G%
+ *     @(#)r_sinh.c    5.2     %G%

  */
 
  */
 

-double r_sinh(x)
+float r_sinh(x)

 float *x;
 {
 double sinh();
 float *x;
 {
 double sinh();

diff --git a/usr/src/usr.bin/f77/libF77/r_sqrt.c b/usr/src/usr.bin/f77/libF77/r_sqrt.c
index 74ec240..29252c3 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_sqrt.c
+++ b/usr/src/usr.bin/f77/libF77/r_sqrt.c
@@ -3,10 +3,10 @@
  * 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.
  *

- *     @(#)r_sqrt.c    5.1     %G%
+ *     @(#)r_sqrt.c    5.2     %G%

  */
 
  */
 

-double r_sqrt(x)
+float r_sqrt(x)

 float *x;
 {
 double sqrt();
 float *x;
 {
 double sqrt();

diff --git a/usr/src/usr.bin/f77/libF77/r_tan.c b/usr/src/usr.bin/f77/libF77/r_tan.c
index 74bf2b3..cc925ac 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_tan.c
+++ b/usr/src/usr.bin/f77/libF77/r_tan.c
@@ -3,10 +3,10 @@
  * 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.
  *

- *     @(#)r_tan.c     5.1     %G%
+ *     @(#)r_tan.c     5.2     %G%

  */
 
  */
 

-double r_tan(x)
+float r_tan(x)

 float *x;
 {
 double tan();
 float *x;
 {
 double tan();

diff --git a/usr/src/usr.bin/f77/libF77/r_tanh.c b/usr/src/usr.bin/f77/libF77/r_tanh.c
index 806535a..7cb93ee 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_tanh.c
+++ b/usr/src/usr.bin/f77/libF77/r_tanh.c
@@ -3,10 +3,10 @@
  * 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.
  *

- *     @(#)r_tanh.c    5.1     %G%
+ *     @(#)r_tanh.c    5.2     %G%

  */
 
  */
 

-double r_tanh(x)
+float r_tanh(x)

 float *x;
 {
 double tanh();
 float *x;
 {
 double tanh();