Merge pull request #159 from kyungminlee/bugfix/lanhs

fix missing II update in NPROW=1 branch of p?lanhs

Author: langou

SRC/pclanhs.f

@@ -222,6 +222,7 @@ REAL               FUNCTION PCLANHS( NORM, N, A, IA, JA, DESCA,
                JJ = JJ + JB
             END IF
 *
+            II = II + JB
             IACOL = MOD( IACOL+1, NPCOL )
 *
 *           Loop over remaining block of columns
@@ -344,6 +345,7 @@ REAL               FUNCTION PCLANHS( NORM, N, A, IA, JA, DESCA,
                JJ = JJ + JB
             END IF
 *
+            II = II + JB
             IACOL = MOD( IACOL+1, NPCOL )
 *
 *           Loop over remaining block of columns
@@ -492,6 +494,7 @@ REAL               FUNCTION PCLANHS( NORM, N, A, IA, JA, DESCA,
                JJ = JJ + JB
             END IF
 *
+            II = II + JB
             IACOL = MOD( IACOL+1, NPCOL )
 *
 *           Loop over remaining block of columns
@@ -631,6 +634,7 @@ REAL               FUNCTION PCLANHS( NORM, N, A, IA, JA, DESCA,
                JJ = JJ + JB
             END IF
 *
+            II = II + JB
             IACOL = MOD( IACOL+1, NPCOL )
 *
 *           Loop over remaining block of columns

SRC/pdlanhs.f

@@ -221,6 +221,7 @@ DOUBLE PRECISION   FUNCTION PDLANHS( NORM, N, A, IA, JA, DESCA,
                JJ = JJ + JB
             END IF
 *
+            II = II + JB
             IACOL = MOD( IACOL+1, NPCOL )
 *
 *           Loop over remaining block of columns
@@ -343,6 +344,7 @@ DOUBLE PRECISION   FUNCTION PDLANHS( NORM, N, A, IA, JA, DESCA,
                JJ = JJ + JB
             END IF
 *
+            II = II + JB
             IACOL = MOD( IACOL+1, NPCOL )
 *
 *           Loop over remaining block of columns
@@ -491,6 +493,7 @@ DOUBLE PRECISION   FUNCTION PDLANHS( NORM, N, A, IA, JA, DESCA,
                JJ = JJ + JB
             END IF
 *
+            II = II + JB
             IACOL = MOD( IACOL+1, NPCOL )
 *
 *           Loop over remaining block of columns
@@ -630,6 +633,7 @@ DOUBLE PRECISION   FUNCTION PDLANHS( NORM, N, A, IA, JA, DESCA,
                JJ = JJ + JB
             END IF
 *
+            II = II + JB
             IACOL = MOD( IACOL+1, NPCOL )
 *
 *           Loop over remaining block of columns

SRC/pslanhs.f

@@ -221,6 +221,7 @@ REAL               FUNCTION PSLANHS( NORM, N, A, IA, JA, DESCA,
                JJ = JJ + JB
             END IF
 *
+            II = II + JB
             IACOL = MOD( IACOL+1, NPCOL )
 *
 *           Loop over remaining block of columns
@@ -343,6 +344,7 @@ REAL               FUNCTION PSLANHS( NORM, N, A, IA, JA, DESCA,
                JJ = JJ + JB
             END IF
 *
+            II = II + JB
             IACOL = MOD( IACOL+1, NPCOL )
 *
 *           Loop over remaining block of columns
@@ -491,6 +493,7 @@ REAL               FUNCTION PSLANHS( NORM, N, A, IA, JA, DESCA,
                JJ = JJ + JB
             END IF
 *
+            II = II + JB
             IACOL = MOD( IACOL+1, NPCOL )
 *
 *           Loop over remaining block of columns
@@ -630,6 +633,7 @@ REAL               FUNCTION PSLANHS( NORM, N, A, IA, JA, DESCA,
                JJ = JJ + JB
             END IF
 *
+            II = II + JB
             IACOL = MOD( IACOL+1, NPCOL )
 *
 *           Loop over remaining block of columns

SRC/pzlanhs.f

@@ -222,6 +222,7 @@ DOUBLE PRECISION   FUNCTION PZLANHS( NORM, N, A, IA, JA, DESCA,
                JJ = JJ + JB
             END IF
 *
+            II = II + JB
             IACOL = MOD( IACOL+1, NPCOL )
 *
 *           Loop over remaining block of columns
@@ -344,6 +345,7 @@ DOUBLE PRECISION   FUNCTION PZLANHS( NORM, N, A, IA, JA, DESCA,
                JJ = JJ + JB
             END IF
 *
+            II = II + JB
             IACOL = MOD( IACOL+1, NPCOL )
 *
 *           Loop over remaining block of columns
@@ -492,6 +494,7 @@ DOUBLE PRECISION   FUNCTION PZLANHS( NORM, N, A, IA, JA, DESCA,
                JJ = JJ + JB
             END IF
 *
+            II = II + JB
             IACOL = MOD( IACOL+1, NPCOL )
 *
 *           Loop over remaining block of columns
@@ -631,6 +634,7 @@ DOUBLE PRECISION   FUNCTION PZLANHS( NORM, N, A, IA, JA, DESCA,
                JJ = JJ + JB
             END IF
 *
+            II = II + JB
             IACOL = MOD( IACOL+1, NPCOL )
 *
 *           Loop over remaining block of columns