Declare SCASUM as EXTERNAL
This commit is contained in:
@@ -158,9 +158,8 @@
|
|||||||
* .. External Functions ..
|
* .. External Functions ..
|
||||||
LOGICAL LSAME
|
LOGICAL LSAME
|
||||||
INTEGER ISAMAX
|
INTEGER ISAMAX
|
||||||
REAL SASUM, SLAMCH, CLANGE
|
REAL SASUM, SCASUM, SLAMCH, CLANGE
|
||||||
EXTERNAL LSAME, ISAMAX, SASUM, SLAMCH, CLANGE
|
EXTERNAL LSAME, ISAMAX, SASUM, SCASUM, SLAMCH, CLANGE
|
||||||
REAL SCASUM
|
|
||||||
* ..
|
* ..
|
||||||
* .. External Subroutines ..
|
* .. External Subroutines ..
|
||||||
EXTERNAL CGEMM
|
EXTERNAL CGEMM
|
||||||
|
|||||||
Reference in New Issue
Block a user