fabs -> fabsl

Fixes two calls that were using `fabs` on a `long double` argument rather than `fabsl`, which looks like it is doing an unintentional truncation to `double` precision.
This commit is contained in:
Steven G. Johnson 2018-08-03 13:00:10 -04:00 committed by GitHub
parent 9e65430504
commit a4e321400b
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 2 deletions

View File

@ -22,8 +22,8 @@ void CNAME(FLOAT *DA, FLOAT *DB, FLOAT *C, FLOAT *S){
long double s; long double s;
long double r, roe, z; long double r, roe, z;
long double ada = fabs(da); long double ada = fabsl(da);
long double adb = fabs(db); long double adb = fabsl(db);
long double scale = ada + adb; long double scale = ada + adb;
#ifndef CBLAS #ifndef CBLAS