diff options
author | Julie <julie@cs.utk.edu> | 2016-06-12 23:27:02 -0700 |
---|---|---|
committer | Julie <julie@cs.utk.edu> | 2016-06-12 23:27:02 -0700 |
commit | 87d4098c68c24953202b946e33f4c09f7d0279ff (patch) | |
tree | 19180a6ef88a6cd9e4af382541d20735bfc0ab8d /SRC/zgesdd.f | |
parent | ed2ea1af894955ddd1ddfd0acb15e1c07d459f1e (diff) | |
download | lapack-87d4098c68c24953202b946e33f4c09f7d0279ff.tar.gz lapack-87d4098c68c24953202b946e33f4c09f7d0279ff.tar.bz2 lapack-87d4098c68c24953202b946e33f4c09f7d0279ff.zip |
Fix Compile error with ifort -warn all - Contributed by Orion Poplawski
Compiling current lapack svn trunk with ifort -warn all results in
errors like:
ifort -O3 -fp-model strict -warn all -c sorcsd2by1.f -o sorcsd2by1.o
sorcsd2by1.f(350): error #6633: The type of the actual argument differs
from
the type of the dummy argument. [0]
CALL SORBDB1( M, P, Q, X11, LDX11, X21, LDX21, THETA, 0, 0,
------------------------------------------------------------------^
sorcsd2by1.f(350): error #6633: The type of the actual argument differs
from
the type of the dummy argument. [0]
CALL SORBDB1( M, P, Q, X11, LDX11, X21, LDX21, THETA, 0, 0,
---------------------------------------------------------------------^
sorcsd2by1.f(351): error #6633: The type of the actual argument differs
from
the type of the dummy argument. [0]
$ 0, 0, WORK, -1, CHILDINFO )
--------------------------^
sorcsd2by1.f(351): error #6633: The type of the actual argument differs
from
the type of the dummy argument. [0]
$ 0, 0, WORK, -1, CHILDINFO )
-----------------------------^
ifort -O3 -fp-model strict -warn all -c cgesdd.f -o cgesdd.o
cgesdd.f(343): error #6633: The type of the actual argument differs
from the
type of the dummy argument. [CDUM]
CALL CGEBRD( M, N, CDUM(1), M, CDUM(1), DUM(1), CDUM(1),
-------------------------------------------^
Diffstat (limited to 'SRC/zgesdd.f')
-rw-r--r-- | SRC/zgesdd.f | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/SRC/zgesdd.f b/SRC/zgesdd.f index 5e086a2a..0acbcba7 100644 --- a/SRC/zgesdd.f +++ b/SRC/zgesdd.f @@ -341,11 +341,11 @@ * not including e, RU, and RVT matrices. * * Compute space preferred for each routine - CALL ZGEBRD( M, N, CDUM(1), M, CDUM(1), DUM(1), CDUM(1), + CALL ZGEBRD( M, N, CDUM(1), M, DUM(1), DUM(1), CDUM(1), $ CDUM(1), CDUM(1), -1, IERR ) LWORK_ZGEBRD_MN = INT( CDUM(1) ) * - CALL ZGEBRD( N, N, CDUM(1), N, CDUM(1), DUM(1), CDUM(1), + CALL ZGEBRD( N, N, CDUM(1), N, DUM(1), DUM(1), CDUM(1), $ CDUM(1), CDUM(1), -1, IERR ) LWORK_ZGEBRD_NN = INT( CDUM(1) ) * @@ -482,11 +482,11 @@ * not including e, RU, and RVT matrices. * * Compute space preferred for each routine - CALL ZGEBRD( M, N, CDUM(1), M, CDUM(1), DUM(1), CDUM(1), + CALL ZGEBRD( M, N, CDUM(1), M, DUM(1), DUM(1), CDUM(1), $ CDUM(1), CDUM(1), -1, IERR ) LWORK_ZGEBRD_MN = INT( CDUM(1) ) * - CALL ZGEBRD( M, M, CDUM(1), M, CDUM(1), DUM(1), CDUM(1), + CALL ZGEBRD( M, M, CDUM(1), M, DUM(1), DUM(1), CDUM(1), $ CDUM(1), CDUM(1), -1, IERR ) LWORK_ZGEBRD_MM = INT( CDUM(1) ) * |