diff options
| author | Julien Langou <julien.langou@ucdenver.edu> | 2016-07-11 09:15:44 -0600 |
|---|---|---|
| committer | Julien Langou <julien.langou@ucdenver.edu> | 2016-07-11 09:15:44 -0600 |
| commit | 7fb63b1cd386b099d7da6eeaafc3e7dce055a7d0 (patch) | |
| tree | eff5634f526b4511526d2a8b675416321f4fa86b /CBLAS | |
| parent | a41be5ab6fa62d82cd57816b063821c7ba6582d9 (diff) | |
| download | lapack-7fb63b1cd386b099d7da6eeaafc3e7dce055a7d0.tar.gz lapack-7fb63b1cd386b099d7da6eeaafc3e7dce055a7d0.tar.bz2 lapack-7fb63b1cd386b099d7da6eeaafc3e7dce055a7d0.zip | |
Making FORTRAN compilers happy. Replacing STEMP by STEMP(1) in some subroutine
calls. Reported by Hans Johnson. Thanks Hans. Julien.
Diffstat (limited to 'CBLAS')
| -rw-r--r-- | CBLAS/testing/c_dblat1.f | 4 | ||||
| -rw-r--r-- | CBLAS/testing/c_sblat1.f | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/CBLAS/testing/c_dblat1.f b/CBLAS/testing/c_dblat1.f index 0aeba45b..c570a914 100644 --- a/CBLAS/testing/c_dblat1.f +++ b/CBLAS/testing/c_dblat1.f @@ -211,11 +211,11 @@ IF (ICASE.EQ.7) THEN * .. DNRM2TEST .. STEMP(1) = DTRUE1(NP1) - CALL STEST1(DNRM2TEST(N,SX,INCX),STEMP,STEMP,SFAC) + CALL STEST1(DNRM2TEST(N,SX,INCX),STEMP(1),STEMP,SFAC) ELSE IF (ICASE.EQ.8) THEN * .. DASUMTEST .. STEMP(1) = DTRUE3(NP1) - CALL STEST1(DASUMTEST(N,SX,INCX),STEMP,STEMP,SFAC) + CALL STEST1(DASUMTEST(N,SX,INCX),STEMP(1),STEMP,SFAC) ELSE IF (ICASE.EQ.9) THEN * .. DSCALTEST .. CALL DSCALTEST(N,SA((INCX-1)*5+NP1),SX,INCX) diff --git a/CBLAS/testing/c_sblat1.f b/CBLAS/testing/c_sblat1.f index de2b0380..773787d6 100644 --- a/CBLAS/testing/c_sblat1.f +++ b/CBLAS/testing/c_sblat1.f @@ -211,11 +211,11 @@ IF (ICASE.EQ.7) THEN * .. SNRM2TEST .. STEMP(1) = DTRUE1(NP1) - CALL STEST1(SNRM2TEST(N,SX,INCX),STEMP,STEMP,SFAC) + CALL STEST1(SNRM2TEST(N,SX,INCX),STEMP(1),STEMP,SFAC) ELSE IF (ICASE.EQ.8) THEN * .. SASUMTEST .. STEMP(1) = DTRUE3(NP1) - CALL STEST1(SASUMTEST(N,SX,INCX),STEMP,STEMP,SFAC) + CALL STEST1(SASUMTEST(N,SX,INCX),STEMP(1),STEMP,SFAC) ELSE IF (ICASE.EQ.9) THEN * .. SSCALTEST .. CALL SSCALTEST(N,SA((INCX-1)*5+NP1),SX,INCX) |