Skip to content

Commit 60fdb19

Browse files
authored
Merge pull request #159 from kyungminlee/bugfix/lanhs
fix missing II update in NPROW=1 branch of p?lanhs
2 parents e280b84 + 1c26d43 commit 60fdb19

4 files changed

Lines changed: 16 additions & 0 deletions

File tree

SRC/pclanhs.f

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -222,6 +222,7 @@ REAL FUNCTION PCLANHS( NORM, N, A, IA, JA, DESCA,
222222
JJ = JJ + JB
223223
END IF
224224
*
225+
II = II + JB
225226
IACOL = MOD( IACOL+1, NPCOL )
226227
*
227228
* Loop over remaining block of columns
@@ -344,6 +345,7 @@ REAL FUNCTION PCLANHS( NORM, N, A, IA, JA, DESCA,
344345
JJ = JJ + JB
345346
END IF
346347
*
348+
II = II + JB
347349
IACOL = MOD( IACOL+1, NPCOL )
348350
*
349351
* Loop over remaining block of columns
@@ -492,6 +494,7 @@ REAL FUNCTION PCLANHS( NORM, N, A, IA, JA, DESCA,
492494
JJ = JJ + JB
493495
END IF
494496
*
497+
II = II + JB
495498
IACOL = MOD( IACOL+1, NPCOL )
496499
*
497500
* Loop over remaining block of columns
@@ -631,6 +634,7 @@ REAL FUNCTION PCLANHS( NORM, N, A, IA, JA, DESCA,
631634
JJ = JJ + JB
632635
END IF
633636
*
637+
II = II + JB
634638
IACOL = MOD( IACOL+1, NPCOL )
635639
*
636640
* Loop over remaining block of columns

SRC/pdlanhs.f

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -221,6 +221,7 @@ DOUBLE PRECISION FUNCTION PDLANHS( NORM, N, A, IA, JA, DESCA,
221221
JJ = JJ + JB
222222
END IF
223223
*
224+
II = II + JB
224225
IACOL = MOD( IACOL+1, NPCOL )
225226
*
226227
* Loop over remaining block of columns
@@ -343,6 +344,7 @@ DOUBLE PRECISION FUNCTION PDLANHS( NORM, N, A, IA, JA, DESCA,
343344
JJ = JJ + JB
344345
END IF
345346
*
347+
II = II + JB
346348
IACOL = MOD( IACOL+1, NPCOL )
347349
*
348350
* Loop over remaining block of columns
@@ -491,6 +493,7 @@ DOUBLE PRECISION FUNCTION PDLANHS( NORM, N, A, IA, JA, DESCA,
491493
JJ = JJ + JB
492494
END IF
493495
*
496+
II = II + JB
494497
IACOL = MOD( IACOL+1, NPCOL )
495498
*
496499
* Loop over remaining block of columns
@@ -630,6 +633,7 @@ DOUBLE PRECISION FUNCTION PDLANHS( NORM, N, A, IA, JA, DESCA,
630633
JJ = JJ + JB
631634
END IF
632635
*
636+
II = II + JB
633637
IACOL = MOD( IACOL+1, NPCOL )
634638
*
635639
* Loop over remaining block of columns

SRC/pslanhs.f

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -221,6 +221,7 @@ REAL FUNCTION PSLANHS( NORM, N, A, IA, JA, DESCA,
221221
JJ = JJ + JB
222222
END IF
223223
*
224+
II = II + JB
224225
IACOL = MOD( IACOL+1, NPCOL )
225226
*
226227
* Loop over remaining block of columns
@@ -343,6 +344,7 @@ REAL FUNCTION PSLANHS( NORM, N, A, IA, JA, DESCA,
343344
JJ = JJ + JB
344345
END IF
345346
*
347+
II = II + JB
346348
IACOL = MOD( IACOL+1, NPCOL )
347349
*
348350
* Loop over remaining block of columns
@@ -491,6 +493,7 @@ REAL FUNCTION PSLANHS( NORM, N, A, IA, JA, DESCA,
491493
JJ = JJ + JB
492494
END IF
493495
*
496+
II = II + JB
494497
IACOL = MOD( IACOL+1, NPCOL )
495498
*
496499
* Loop over remaining block of columns
@@ -630,6 +633,7 @@ REAL FUNCTION PSLANHS( NORM, N, A, IA, JA, DESCA,
630633
JJ = JJ + JB
631634
END IF
632635
*
636+
II = II + JB
633637
IACOL = MOD( IACOL+1, NPCOL )
634638
*
635639
* Loop over remaining block of columns

SRC/pzlanhs.f

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -222,6 +222,7 @@ DOUBLE PRECISION FUNCTION PZLANHS( NORM, N, A, IA, JA, DESCA,
222222
JJ = JJ + JB
223223
END IF
224224
*
225+
II = II + JB
225226
IACOL = MOD( IACOL+1, NPCOL )
226227
*
227228
* Loop over remaining block of columns
@@ -344,6 +345,7 @@ DOUBLE PRECISION FUNCTION PZLANHS( NORM, N, A, IA, JA, DESCA,
344345
JJ = JJ + JB
345346
END IF
346347
*
348+
II = II + JB
347349
IACOL = MOD( IACOL+1, NPCOL )
348350
*
349351
* Loop over remaining block of columns
@@ -492,6 +494,7 @@ DOUBLE PRECISION FUNCTION PZLANHS( NORM, N, A, IA, JA, DESCA,
492494
JJ = JJ + JB
493495
END IF
494496
*
497+
II = II + JB
495498
IACOL = MOD( IACOL+1, NPCOL )
496499
*
497500
* Loop over remaining block of columns
@@ -631,6 +634,7 @@ DOUBLE PRECISION FUNCTION PZLANHS( NORM, N, A, IA, JA, DESCA,
631634
JJ = JJ + JB
632635
END IF
633636
*
637+
II = II + JB
634638
IACOL = MOD( IACOL+1, NPCOL )
635639
*
636640
* Loop over remaining block of columns

0 commit comments

Comments
 (0)