diff options
Diffstat (limited to 'TESTING/LIN/ddrvls.f')
| -rw-r--r-- | TESTING/LIN/ddrvls.f | 6 |
1 files changed, 3 insertions, 3 deletions
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 |