@@ -58,8 +58,8 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG dummy1, | |||||
c_offset = c; | c_offset = c; | ||||
if (beta_r == 0. && beta_i == 0.) { | if (beta_r == 0. && beta_i == 0.) { | ||||
j = n; | |||||
do { | |||||
for (j=n;j>0;j--) { | |||||
c_offset1 = c_offset; | c_offset1 = c_offset; | ||||
c_offset += ldc; | c_offset += ldc; | ||||
@@ -88,8 +88,7 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG dummy1, | |||||
i--; | i--; | ||||
} while (i > 0); | } while (i > 0); | ||||
} | } | ||||
j --; | |||||
} while (j > 0); | |||||
} | |||||
} else { | } else { | ||||