Remove unused intrinsic MAX
Contrary to their single precision counterparts, DLANSF and ZLANHT declare MAX intrinsic which is not used.
This commit is contained in:
+1
-1
@@ -237,7 +237,7 @@
|
||||
EXTERNAL DLASSQ
|
||||
* ..
|
||||
* .. Intrinsic Functions ..
|
||||
INTRINSIC ABS, MAX, SQRT
|
||||
INTRINSIC ABS, SQRT
|
||||
* ..
|
||||
* .. Executable Statements ..
|
||||
*
|
||||
|
||||
+1
-1
@@ -129,7 +129,7 @@
|
||||
EXTERNAL DLASSQ, ZLASSQ
|
||||
* ..
|
||||
* .. Intrinsic Functions ..
|
||||
INTRINSIC ABS, MAX, SQRT
|
||||
INTRINSIC ABS, SQRT
|
||||
* ..
|
||||
* .. Executable Statements ..
|
||||
*
|
||||
|
||||
Reference in New Issue
Block a user