diff options
| author | Julie <julie@cs.utk.edu> | 2016-10-23 17:09:16 -0700 |
|---|---|---|
| committer | Julie <julie@cs.utk.edu> | 2016-10-23 17:09:16 -0700 |
| commit | b0a56e30a2b02918bced0f42710839670ff93025 (patch) | |
| tree | 8059921431782efc06fedf5629af017c134bf68f /TESTING/LIN | |
| parent | 511b9d0dbf21e10847c879d86a26f17e39258f9d (diff) | |
| download | lapack-b0a56e30a2b02918bced0f42710839670ff93025.tar.gz lapack-b0a56e30a2b02918bced0f42710839670ff93025.tar.bz2 lapack-b0a56e30a2b02918bced0f42710839670ff93025.zip | |
make sure no variable in indefined
Fix some minors issue: extra space, variable names.
Diffstat (limited to 'TESTING/LIN')
| -rw-r--r-- | TESTING/LIN/cdrvls.f | 6 | ||||
| -rw-r--r-- | TESTING/LIN/ddrvls.f | 6 | ||||
| -rw-r--r-- | TESTING/LIN/sdrvls.f | 6 | ||||
| -rw-r--r-- | TESTING/LIN/zdrvls.f | 6 |
4 files changed, 12 insertions, 12 deletions
diff --git a/TESTING/LIN/cdrvls.f b/TESTING/LIN/cdrvls.f index d2f58c89..af55dbaa 100644 --- a/TESTING/LIN/cdrvls.f +++ b/TESTING/LIN/cdrvls.f @@ -246,7 +246,7 @@ * .. Local Scalars .. CHARACTER TRANS CHARACTER*3 PATH - INTEGER CRANK, I, IM, IN, INB, INFO, INS, IRANK, + INTEGER CRANK, I, IM, IMB, IN, INB, INFO, INS, IRANK, $ ISCALE, ITRAN, ITYPE, J, K, LDA, LDB, LDWORK, $ LWLSY, LWORK, M, MNMIN, N, NB, NCOLS, NERRS, $ NFAIL, NRHS, NROWS, NRUN, RANK, MB, LWTS @@ -320,10 +320,10 @@ MNMIN = MAX(MIN( M, N ),1) LDB = MAX( 1, M, N ) MB = (MNMIN+1) - IF(MINMN.NE.MB) THEN + IF(MNMIN.NE.MB) THEN LWTS = (((LDB-MB)/(MB-MNMIN))*MNMIN+MNMIN*2)*MB+5 ELSE - LWTS = 2*MINMN+5 + LWTS = 2*MNMIN+5 END IF * DO 120 INS = 1, NNS diff --git a/TESTING/LIN/ddrvls.f b/TESTING/LIN/ddrvls.f index bbeb0972..2a194551 100644 --- a/TESTING/LIN/ddrvls.f +++ b/TESTING/LIN/ddrvls.f @@ -234,7 +234,7 @@ * .. Local Scalars .. CHARACTER TRANS CHARACTER*3 PATH - INTEGER CRANK, I, IM, IN, INB, INFO, INS, IRANK, + INTEGER CRANK, I, IM, IMB, IN, INB, INFO, INS, IRANK, $ ISCALE, ITRAN, ITYPE, J, K, LDA, LDB, LDWORK, $ LWLSY, LWORK, M, MNMIN, N, NB, NCOLS, NERRS, $ NFAIL, NLVL, NRHS, NROWS, NRUN, RANK, MB, LWTS @@ -311,10 +311,10 @@ MNMIN = MAX(MIN( M, N ),1) LDB = MAX( 1, M, N ) MB = (MNMIN+1) - IF(MINMN.NE.MB) THEN + IF(MNMIN.NE.MB) THEN LWTS = (((LDB-MB)/(MB-MNMIN))*MNMIN+MNMIN*2)*MB+5 ELSE - LWTS = 2*MINMN+5 + LWTS = 2*MNMIN+5 END IF * DO 130 INS = 1, NNS diff --git a/TESTING/LIN/sdrvls.f b/TESTING/LIN/sdrvls.f index 313c0079..372ec9fc 100644 --- a/TESTING/LIN/sdrvls.f +++ b/TESTING/LIN/sdrvls.f @@ -234,7 +234,7 @@ * .. Local Scalars .. CHARACTER TRANS CHARACTER*3 PATH - INTEGER CRANK, I, IM, IN, INB, INFO, INS, IRANK, + INTEGER CRANK, I, IM, IMB, IN, INB, INFO, INS, IRANK, $ ISCALE, ITRAN, ITYPE, J, K, LDA, LDB, LDWORK, $ LWLSY, LWORK, M, MNMIN, N, NB, NCOLS, NERRS, $ NFAIL, NLVL, NRHS, NROWS, NRUN, RANK, MB, LWTS @@ -311,10 +311,10 @@ MNMIN = MAX(MIN( M, N ),1) LDB = MAX( 1, M, N ) MB = (MNMIN+1) - IF(MINMN.NE.MB) THEN + IF(MNMIN.NE.MB) THEN LWTS = (((LDB-MB)/(MB-MNMIN))*MNMIN+MNMIN*2)*MB+5 ELSE - LWTS = 2*MINMN+5 + LWTS = 2*MNMIN+5 END IF * DO 130 INS = 1, NNS diff --git a/TESTING/LIN/zdrvls.f b/TESTING/LIN/zdrvls.f index 56cb5e40..1ffa585f 100644 --- a/TESTING/LIN/zdrvls.f +++ b/TESTING/LIN/zdrvls.f @@ -244,7 +244,7 @@ * .. Local Scalars .. CHARACTER TRANS CHARACTER*3 PATH - INTEGER CRANK, I, IM, IN, INB, INFO, INS, IRANK, + INTEGER CRANK, I, IM, IMB, IN, INB, INFO, INS, IRANK, $ ISCALE, ITRAN, ITYPE, J, K, LDA, LDB, LDWORK, $ LWLSY, LWORK, M, MNMIN, N, NB, NCOLS, NERRS, $ NFAIL, NRHS, NROWS, NRUN, RANK, MB, LWTS @@ -318,10 +318,10 @@ MNMIN = MAX(MIN( M, N ),1) LDB = MAX( 1, M, N ) MB = (MNMIN+1) - IF(MINMN.NE.MB) THEN + IF(MNMIN.NE.MB) THEN LWTS = (((LDB-MB)/(MB-MNMIN))*MNMIN+LDB*2)*MB+5 ELSE - LWTS = 2*MINMN+5 + LWTS = 2*MNMIN+5 END IF * DO 120 INS = 1, NNS |