コード例 #1
0
ファイル: Slaed8.java プロジェクト: assaad/JavaBlasLapack
 public static void slaed8(
     int paramInt1,
     intW paramintW1,
     int paramInt2,
     int paramInt3,
     float[] paramArrayOfFloat1,
     int paramInt4,
     float[] paramArrayOfFloat2,
     int paramInt5,
     int paramInt6,
     int[] paramArrayOfInt1,
     int paramInt7,
     floatW paramfloatW,
     int paramInt8,
     float[] paramArrayOfFloat3,
     int paramInt9,
     float[] paramArrayOfFloat4,
     int paramInt10,
     float[] paramArrayOfFloat5,
     int paramInt11,
     int paramInt12,
     float[] paramArrayOfFloat6,
     int paramInt13,
     int[] paramArrayOfInt2,
     int paramInt14,
     intW paramintW2,
     int[] paramArrayOfInt3,
     int paramInt15,
     float[] paramArrayOfFloat7,
     int paramInt16,
     int[] paramArrayOfInt4,
     int paramInt17,
     int[] paramArrayOfInt5,
     int paramInt18,
     intW paramintW3) {
   int i = 0;
   int j = 0;
   int k = 0;
   int m = 0;
   int n = 0;
   int i1 = 0;
   int i2 = 0;
   int i3 = 0;
   int i4 = 0;
   int i5 = 0;
   float f1 = 0.0F;
   float f2 = 0.0F;
   float f3 = 0.0F;
   float f4 = 0.0F;
   float f5 = 0.0F;
   float f6 = 0.0F;
   paramintW3.val = 0;
   if ((paramInt1 >= 0 ? 0 : 1) == 0) {}
   if (((paramInt1 <= 1 ? 0 : 1) == 0 ? 0 : 1) != 0) {
     paramintW3.val = -1;
   } else if ((paramInt2 >= 0 ? 0 : 1) != 0) {
     paramintW3.val = -3;
   } else {
     if ((paramInt1 != 1 ? 0 : 1) != 0) {}
     if (((paramInt3 >= paramInt2 ? 0 : 1) != 0 ? 1 : 0) != 0) {
       paramintW3.val = -4;
     } else if ((paramInt6 >= Math.max(1, paramInt2) ? 0 : 1) != 0) {
       paramintW3.val = -7;
     } else {
       if ((paramInt8 >= Math.min(1, paramInt2) ? 0 : 1) == 0) {}
       if (((paramInt8 <= paramInt2 ? 0 : 1) == 0 ? 0 : 1) != 0) {
         paramintW3.val = -10;
       } else if ((paramInt12 >= Math.max(1, paramInt2) ? 0 : 1) != 0) {
         paramintW3.val = -14;
       }
     }
   }
   if ((paramintW3.val == 0 ? 0 : 1) != 0) {
     Xerbla.xerbla("SLAED8", -paramintW3.val);
     return;
   }
   if ((paramInt2 != 0 ? 0 : 1) != 0) {
     return;
   }
   i3 = paramInt8;
   i5 = paramInt2 - i3;
   i4 = i3 + 1;
   if ((paramfloatW.val >= 0.0F ? 0 : 1) != 0) {
     Sscal.sscal(i5, -1.0F, paramArrayOfFloat3, i4 - 1 + paramInt9, 1);
   }
   f4 = 1.0F / (float) Math.sqrt(2.0F);
   k = 1;
   for (int i6 = paramInt2 - 1 + 1; i6 > 0; i6--) {
     paramArrayOfInt5[(k - 1 + paramInt18)] = k;
     k += 1;
   }
   Sscal.sscal(paramInt2, f4, paramArrayOfFloat3, paramInt9, 1);
   paramfloatW.val = Math.abs(2.0F * paramfloatW.val);
   i = paramInt8 + 1;
   for (i6 = paramInt2 - (paramInt8 + 1) + 1; i6 > 0; i6--) {
     paramArrayOfInt1[(i - 1 + paramInt7)] += paramInt8;
     i += 1;
   }
   i = 1;
   for (i6 = paramInt2 - 1 + 1; i6 > 0; i6--) {
     paramArrayOfFloat4[(i - 1 + paramInt10)] =
         paramArrayOfFloat1[(paramArrayOfInt1[(i - 1 + paramInt7)] - 1 + paramInt4)];
     paramArrayOfFloat6[(i - 1 + paramInt13)] =
         paramArrayOfFloat3[(paramArrayOfInt1[(i - 1 + paramInt7)] - 1 + paramInt9)];
     i += 1;
   }
   i = 1;
   k = paramInt8 + 1;
   Slamrg.slamrg(i3, i5, paramArrayOfFloat4, paramInt10, 1, 1, paramArrayOfInt5, paramInt18);
   i = 1;
   for (i6 = paramInt2 - 1 + 1; i6 > 0; i6--) {
     paramArrayOfFloat1[(i - 1 + paramInt4)] =
         paramArrayOfFloat4[(paramArrayOfInt5[(i - 1 + paramInt18)] - 1 + paramInt10)];
     paramArrayOfFloat3[(i - 1 + paramInt9)] =
         paramArrayOfFloat6[(paramArrayOfInt5[(i - 1 + paramInt18)] - 1 + paramInt13)];
     i += 1;
   }
   j = Isamax.isamax(paramInt2, paramArrayOfFloat3, paramInt9, 1);
   n = Isamax.isamax(paramInt2, paramArrayOfFloat1, paramInt4, 1);
   f2 = Slamch.slamch("Epsilon");
   f6 = 8.0F * f2 * Math.abs(paramArrayOfFloat1[(n - 1 + paramInt4)]);
   if ((paramfloatW.val * Math.abs(paramArrayOfFloat3[(j - 1 + paramInt9)]) > f6 ? 0 : 1) != 0) {
     paramintW1.val = 0;
     if ((paramInt1 != 0 ? 0 : 1) != 0) {
       k = 1;
       for (i6 = paramInt2 - 1 + 1; i6 > 0; i6--) {
         paramArrayOfInt2[(k - 1 + paramInt14)] =
             paramArrayOfInt1[(paramArrayOfInt5[(k - 1 + paramInt18)] - 1 + paramInt7)];
         k += 1;
       }
     } else {
       k = 1;
       for (i6 = paramInt2 - 1 + 1; i6 > 0; i6--) {
         paramArrayOfInt2[(k - 1 + paramInt14)] =
             paramArrayOfInt1[(paramArrayOfInt5[(k - 1 + paramInt18)] - 1 + paramInt7)];
         Scopy.scopy(
             paramInt3,
             paramArrayOfFloat2,
             1 - 1 + (paramArrayOfInt2[(k - 1 + paramInt14)] - 1) * paramInt6 + paramInt5,
             1,
             paramArrayOfFloat5,
             1 - 1 + (k - 1) * paramInt12 + paramInt11,
             1);
         k += 1;
       }
       Slacpy.slacpy(
           "A",
           paramInt3,
           paramInt2,
           paramArrayOfFloat5,
           1 - 1 + (1 - 1) * paramInt12 + paramInt11,
           paramInt12,
           paramArrayOfFloat2,
           1 - 1 + (1 - 1) * paramInt6 + paramInt5,
           paramInt6);
     }
     return;
   }
   paramintW1.val = 0;
   paramintW2.val = 0;
   i2 = paramInt2 + 1;
   k = 1;
   for (i6 = paramInt2 - 1 + 1; i6 > 0; i6--) {
     if ((paramfloatW.val * Math.abs(paramArrayOfFloat3[(k - 1 + paramInt9)]) > f6 ? 0 : 1) != 0) {
       i2 -= 1;
       paramArrayOfInt4[(i2 - 1 + paramInt17)] = k;
       if ((k != paramInt2 ? 0 : 1) != 0) {
         break label1922;
       }
     } else {
       m = k;
       break;
     }
     k += 1;
   }
   for (; ; ) {
     k += 1;
     if ((k <= paramInt2 ? 0 : 1) != 0) {
       break;
     }
     if ((paramfloatW.val * Math.abs(paramArrayOfFloat3[(k - 1 + paramInt9)]) > f6 ? 0 : 1) != 0) {
       i2 -= 1;
       paramArrayOfInt4[(i2 - 1 + paramInt17)] = k;
     } else {
       f3 = paramArrayOfFloat3[(m - 1 + paramInt9)];
       f1 = paramArrayOfFloat3[(k - 1 + paramInt9)];
       f5 = Slapy2.slapy2(f1, f3);
       f4 = paramArrayOfFloat1[(k - 1 + paramInt4)] - paramArrayOfFloat1[(m - 1 + paramInt4)];
       f1 /= f5;
       f3 = -(f3 / f5);
       if ((Math.abs(f4 * f1 * f3) > f6 ? 0 : 1) != 0) {
         paramArrayOfFloat3[(k - 1 + paramInt9)] = f5;
         paramArrayOfFloat3[(m - 1 + paramInt9)] = 0.0F;
         paramintW2.val += 1;
         paramArrayOfInt3[(1 - 1 + (paramintW2.val - 1) * 2 + paramInt15)] =
             paramArrayOfInt1[(paramArrayOfInt5[(m - 1 + paramInt18)] - 1 + paramInt7)];
         paramArrayOfInt3[(2 - 1 + (paramintW2.val - 1) * 2 + paramInt15)] =
             paramArrayOfInt1[(paramArrayOfInt5[(k - 1 + paramInt18)] - 1 + paramInt7)];
         paramArrayOfFloat7[(1 - 1 + (paramintW2.val - 1) * 2 + paramInt16)] = f1;
         paramArrayOfFloat7[(2 - 1 + (paramintW2.val - 1) * 2 + paramInt16)] = f3;
         if ((paramInt1 != 1 ? 0 : 1) != 0) {
           Srot.srot(
               paramInt3,
               paramArrayOfFloat2,
               1
                   - 1
                   + (paramArrayOfInt1[(paramArrayOfInt5[(m - 1 + paramInt18)] - 1 + paramInt7)]
                           - 1)
                       * paramInt6
                   + paramInt5,
               1,
               paramArrayOfFloat2,
               1
                   - 1
                   + (paramArrayOfInt1[(paramArrayOfInt5[(k - 1 + paramInt18)] - 1 + paramInt7)]
                           - 1)
                       * paramInt6
                   + paramInt5,
               1,
               f1,
               f3);
         }
         f4 =
             paramArrayOfFloat1[(m - 1 + paramInt4)] * f1 * f1
                 + paramArrayOfFloat1[(k - 1 + paramInt4)] * f3 * f3;
         paramArrayOfFloat1[(k - 1 + paramInt4)] =
             (paramArrayOfFloat1[(m - 1 + paramInt4)] * f3 * f3
                 + paramArrayOfFloat1[(k - 1 + paramInt4)] * f1 * f1);
         paramArrayOfFloat1[(m - 1 + paramInt4)] = f4;
         i2 -= 1;
         i = 1;
         while ((i2 + i > paramInt2 ? 0 : 1) != 0) {
           if ((paramArrayOfFloat1[(m - 1 + paramInt4)]
                       >= paramArrayOfFloat1[
                           (paramArrayOfInt4[(i2 + i - 1 + paramInt17)] - 1 + paramInt4)]
                   ? 0
                   : 1)
               != 0) {
             paramArrayOfInt4[(i2 + i - 1 - 1 + paramInt17)] =
                 paramArrayOfInt4[(i2 + i - 1 + paramInt17)];
             paramArrayOfInt4[(i2 + i - 1 + paramInt17)] = m;
             i += 1;
           } else {
             paramArrayOfInt4[(i2 + i - 1 - 1 + paramInt17)] = m;
             break label1772;
           }
         }
         paramArrayOfInt4[(i2 + i - 1 - 1 + paramInt17)] = m;
         label1772:
         m = k;
       } else {
         paramintW1.val += 1;
         paramArrayOfFloat6[(paramintW1.val - 1 + paramInt13)] =
             paramArrayOfFloat3[(m - 1 + paramInt9)];
         paramArrayOfFloat4[(paramintW1.val - 1 + paramInt10)] =
             paramArrayOfFloat1[(m - 1 + paramInt4)];
         paramArrayOfInt4[(paramintW1.val - 1 + paramInt17)] = m;
         m = k;
       }
     }
   }
   paramintW1.val += 1;
   paramArrayOfFloat6[(paramintW1.val - 1 + paramInt13)] = paramArrayOfFloat3[(m - 1 + paramInt9)];
   paramArrayOfFloat4[(paramintW1.val - 1 + paramInt10)] = paramArrayOfFloat1[(m - 1 + paramInt4)];
   paramArrayOfInt4[(paramintW1.val - 1 + paramInt17)] = m;
   label1922:
   if ((paramInt1 != 0 ? 0 : 1) != 0) {
     k = 1;
     for (i6 = paramInt2 - 1 + 1; i6 > 0; i6--) {
       i1 = paramArrayOfInt4[(k - 1 + paramInt17)];
       paramArrayOfFloat4[(k - 1 + paramInt10)] = paramArrayOfFloat1[(i1 - 1 + paramInt4)];
       paramArrayOfInt2[(k - 1 + paramInt14)] =
           paramArrayOfInt1[(paramArrayOfInt5[(i1 - 1 + paramInt18)] - 1 + paramInt7)];
       k += 1;
     }
   } else {
     k = 1;
     for (i6 = paramInt2 - 1 + 1; i6 > 0; i6--) {
       i1 = paramArrayOfInt4[(k - 1 + paramInt17)];
       paramArrayOfFloat4[(k - 1 + paramInt10)] = paramArrayOfFloat1[(i1 - 1 + paramInt4)];
       paramArrayOfInt2[(k - 1 + paramInt14)] =
           paramArrayOfInt1[(paramArrayOfInt5[(i1 - 1 + paramInt18)] - 1 + paramInt7)];
       Scopy.scopy(
           paramInt3,
           paramArrayOfFloat2,
           1 - 1 + (paramArrayOfInt2[(k - 1 + paramInt14)] - 1) * paramInt6 + paramInt5,
           1,
           paramArrayOfFloat5,
           1 - 1 + (k - 1) * paramInt12 + paramInt11,
           1);
       k += 1;
     }
   }
   if ((paramintW1.val >= paramInt2 ? 0 : 1) != 0) {
     if ((paramInt1 != 0 ? 0 : 1) != 0) {
       Scopy.scopy(
           paramInt2 - paramintW1.val,
           paramArrayOfFloat4,
           paramintW1.val + 1 - 1 + paramInt10,
           1,
           paramArrayOfFloat1,
           paramintW1.val + 1 - 1 + paramInt4,
           1);
     } else {
       Scopy.scopy(
           paramInt2 - paramintW1.val,
           paramArrayOfFloat4,
           paramintW1.val + 1 - 1 + paramInt10,
           1,
           paramArrayOfFloat1,
           paramintW1.val + 1 - 1 + paramInt4,
           1);
       Slacpy.slacpy(
           "A",
           paramInt3,
           paramInt2 - paramintW1.val,
           paramArrayOfFloat5,
           1 - 1 + (paramintW1.val + 1 - 1) * paramInt12 + paramInt11,
           paramInt12,
           paramArrayOfFloat2,
           1 - 1 + (paramintW1.val + 1 - 1) * paramInt6 + paramInt5,
           paramInt6);
     }
   }
 }
コード例 #2
0
ファイル: Slarzb.java プロジェクト: assaad/JavaBlasLapack
 public static void slarzb(
     String paramString1,
     String paramString2,
     String paramString3,
     String paramString4,
     int paramInt1,
     int paramInt2,
     int paramInt3,
     int paramInt4,
     float[] paramArrayOfFloat1,
     int paramInt5,
     int paramInt6,
     float[] paramArrayOfFloat2,
     int paramInt7,
     int paramInt8,
     float[] paramArrayOfFloat3,
     int paramInt9,
     int paramInt10,
     float[] paramArrayOfFloat4,
     int paramInt11,
     int paramInt12) {
   String str = new String(" ");
   int i = 0;
   int j = 0;
   int k = 0;
   if ((paramInt1 > 0 ? 0 : 1) == 0) {}
   if (((paramInt2 > 0 ? 0 : 1) == 0 ? 0 : 1) != 0) {
     return;
   }
   j = 0;
   if ((Lsame.lsame(paramString3, "B") ^ true)) {
     j = -3;
   } else if ((Lsame.lsame(paramString4, "R") ^ true)) {
     j = -4;
   }
   if ((j == 0 ? 0 : 1) != 0) {
     Xerbla.xerbla("SLARZB", -j);
     return;
   }
   if (Lsame.lsame(paramString2, "N")) {
     str = "T";
   } else {
     str = "N";
   }
   int m;
   int n;
   if (Lsame.lsame(paramString1, "L")) {
     k = 1;
     for (m = paramInt3 - 1 + 1; m > 0; m--) {
       Scopy.scopy(
           paramInt2,
           paramArrayOfFloat3,
           k - 1 + (1 - 1) * paramInt10 + paramInt9,
           paramInt10,
           paramArrayOfFloat4,
           1 - 1 + (k - 1) * paramInt12 + paramInt11,
           1);
       k += 1;
     }
     if ((paramInt4 <= 0 ? 0 : 1) != 0) {
       Sgemm.sgemm(
           "Transpose",
           "Transpose",
           paramInt2,
           paramInt3,
           paramInt4,
           1.0F,
           paramArrayOfFloat3,
           paramInt1 - paramInt4 + 1 - 1 + (1 - 1) * paramInt10 + paramInt9,
           paramInt10,
           paramArrayOfFloat1,
           paramInt5,
           paramInt6,
           1.0F,
           paramArrayOfFloat4,
           paramInt11,
           paramInt12);
     }
     Strmm.strmm(
         "Right",
         "Lower",
         str,
         "Non-unit",
         paramInt2,
         paramInt3,
         1.0F,
         paramArrayOfFloat2,
         paramInt7,
         paramInt8,
         paramArrayOfFloat4,
         paramInt11,
         paramInt12);
     k = 1;
     for (m = paramInt2 - 1 + 1; m > 0; m--) {
       i = 1;
       for (n = paramInt3 - 1 + 1; n > 0; n--) {
         paramArrayOfFloat3[(i - 1 + (k - 1) * paramInt10 + paramInt9)] -=
             paramArrayOfFloat4[(k - 1 + (i - 1) * paramInt12 + paramInt11)];
         i += 1;
       }
       k += 1;
     }
     if ((paramInt4 <= 0 ? 0 : 1) != 0) {
       Sgemm.sgemm(
           "Transpose",
           "Transpose",
           paramInt4,
           paramInt2,
           paramInt3,
           -1.0F,
           paramArrayOfFloat1,
           paramInt5,
           paramInt6,
           paramArrayOfFloat4,
           paramInt11,
           paramInt12,
           1.0F,
           paramArrayOfFloat3,
           paramInt1 - paramInt4 + 1 - 1 + (1 - 1) * paramInt10 + paramInt9,
           paramInt10);
     }
   } else if (Lsame.lsame(paramString1, "R")) {
     k = 1;
     for (m = paramInt3 - 1 + 1; m > 0; m--) {
       Scopy.scopy(
           paramInt1,
           paramArrayOfFloat3,
           1 - 1 + (k - 1) * paramInt10 + paramInt9,
           1,
           paramArrayOfFloat4,
           1 - 1 + (k - 1) * paramInt12 + paramInt11,
           1);
       k += 1;
     }
     if ((paramInt4 <= 0 ? 0 : 1) != 0) {
       Sgemm.sgemm(
           "No transpose",
           "Transpose",
           paramInt1,
           paramInt3,
           paramInt4,
           1.0F,
           paramArrayOfFloat3,
           1 - 1 + (paramInt2 - paramInt4 + 1 - 1) * paramInt10 + paramInt9,
           paramInt10,
           paramArrayOfFloat1,
           paramInt5,
           paramInt6,
           1.0F,
           paramArrayOfFloat4,
           paramInt11,
           paramInt12);
     }
     Strmm.strmm(
         "Right",
         "Lower",
         paramString2,
         "Non-unit",
         paramInt1,
         paramInt3,
         1.0F,
         paramArrayOfFloat2,
         paramInt7,
         paramInt8,
         paramArrayOfFloat4,
         paramInt11,
         paramInt12);
     k = 1;
     for (m = paramInt3 - 1 + 1; m > 0; m--) {
       i = 1;
       for (n = paramInt1 - 1 + 1; n > 0; n--) {
         paramArrayOfFloat3[(i - 1 + (k - 1) * paramInt10 + paramInt9)] -=
             paramArrayOfFloat4[(i - 1 + (k - 1) * paramInt12 + paramInt11)];
         i += 1;
       }
       k += 1;
     }
     if ((paramInt4 <= 0 ? 0 : 1) != 0) {
       Sgemm.sgemm(
           "No transpose",
           "No transpose",
           paramInt1,
           paramInt4,
           paramInt3,
           -1.0F,
           paramArrayOfFloat4,
           paramInt11,
           paramInt12,
           paramArrayOfFloat1,
           paramInt5,
           paramInt6,
           1.0F,
           paramArrayOfFloat3,
           1 - 1 + (paramInt2 - paramInt4 + 1 - 1) * paramInt10 + paramInt9,
           paramInt10);
     }
   }
 }
コード例 #3
0
ファイル: Slalsa.java プロジェクト: assaad/JavaBlasLapack
 public static void slalsa(
     int paramInt1,
     int paramInt2,
     int paramInt3,
     int paramInt4,
     float[] paramArrayOfFloat1,
     int paramInt5,
     int paramInt6,
     float[] paramArrayOfFloat2,
     int paramInt7,
     int paramInt8,
     float[] paramArrayOfFloat3,
     int paramInt9,
     int paramInt10,
     float[] paramArrayOfFloat4,
     int paramInt11,
     int[] paramArrayOfInt1,
     int paramInt12,
     float[] paramArrayOfFloat5,
     int paramInt13,
     float[] paramArrayOfFloat6,
     int paramInt14,
     float[] paramArrayOfFloat7,
     int paramInt15,
     float[] paramArrayOfFloat8,
     int paramInt16,
     int[] paramArrayOfInt2,
     int paramInt17,
     int[] paramArrayOfInt3,
     int paramInt18,
     int paramInt19,
     int[] paramArrayOfInt4,
     int paramInt20,
     float[] paramArrayOfFloat9,
     int paramInt21,
     float[] paramArrayOfFloat10,
     int paramInt22,
     float[] paramArrayOfFloat11,
     int paramInt23,
     float[] paramArrayOfFloat12,
     int paramInt24,
     int[] paramArrayOfInt5,
     int paramInt25,
     intW paramintW) {
   int i = 0;
   int j = 0;
   int k = 0;
   int m = 0;
   int n = 0;
   int i1 = 0;
   int i2 = 0;
   int i3 = 0;
   int i4 = 0;
   int i5 = 0;
   intW localintW1 = new intW(0);
   int i6 = 0;
   int i7 = 0;
   int i8 = 0;
   int i9 = 0;
   int i10 = 0;
   int i11 = 0;
   intW localintW2 = new intW(0);
   int i12 = 0;
   int i13 = 0;
   int i14 = 0;
   int i15 = 0;
   paramintW.val = 0;
   if ((paramInt1 >= 0 ? 0 : 1) == 0) {}
   if (((paramInt1 <= 1 ? 0 : 1) == 0 ? 0 : 1) != 0) {
     paramintW.val = -1;
   } else if ((paramInt2 >= 3 ? 0 : 1) != 0) {
     paramintW.val = -2;
   } else if ((paramInt3 >= paramInt2 ? 0 : 1) != 0) {
     paramintW.val = -3;
   } else if ((paramInt4 >= 1 ? 0 : 1) != 0) {
     paramintW.val = -4;
   } else if ((paramInt6 >= paramInt3 ? 0 : 1) != 0) {
     paramintW.val = -6;
   } else if ((paramInt8 >= paramInt3 ? 0 : 1) != 0) {
     paramintW.val = -8;
   } else if ((paramInt10 >= paramInt3 ? 0 : 1) != 0) {
     paramintW.val = -10;
   } else if ((paramInt19 >= paramInt3 ? 0 : 1) != 0) {
     paramintW.val = -19;
   }
   if ((paramintW.val == 0 ? 0 : 1) != 0) {
     Xerbla.xerbla("SLALSA", -paramintW.val);
     return;
   }
   n = 1;
   i7 = n + paramInt3;
   i8 = i7 + paramInt3;
   Slasdt.slasdt(
       paramInt3,
       localintW2,
       localintW1,
       paramArrayOfInt5,
       n - 1 + paramInt25,
       paramArrayOfInt5,
       i7 - 1 + paramInt25,
       paramArrayOfInt5,
       i8 - 1 + paramInt25,
       paramInt2);
   int i16;
   int i17;
   if ((paramInt1 != 1 ? 0 : 1) == 0) {
     i6 = (localintW1.val + 1) / 2;
     i = i6;
     for (i16 = localintW1.val - i6 + 1; i16 > 0; i16--) {
       j = i - 1;
       k = paramArrayOfInt5[(n + j - 1 + paramInt25)];
       i9 = paramArrayOfInt5[(i7 + j - 1 + paramInt25)];
       i12 = paramArrayOfInt5[(i8 + j - 1 + paramInt25)];
       i10 = k - i9;
       i13 = k + 1;
       Sgemm.sgemm(
           "T",
           "N",
           i9,
           paramInt4,
           i9,
           1.0F,
           paramArrayOfFloat3,
           i10 - 1 + (1 - 1) * paramInt10 + paramInt9,
           paramInt10,
           paramArrayOfFloat1,
           i10 - 1 + (1 - 1) * paramInt6 + paramInt5,
           paramInt6,
           0.0F,
           paramArrayOfFloat2,
           i10 - 1 + (1 - 1) * paramInt8 + paramInt7,
           paramInt8);
       Sgemm.sgemm(
           "T",
           "N",
           i12,
           paramInt4,
           i12,
           1.0F,
           paramArrayOfFloat3,
           i13 - 1 + (1 - 1) * paramInt10 + paramInt9,
           paramInt10,
           paramArrayOfFloat1,
           i13 - 1 + (1 - 1) * paramInt6 + paramInt5,
           paramInt6,
           0.0F,
           paramArrayOfFloat2,
           i13 - 1 + (1 - 1) * paramInt8 + paramInt7,
           paramInt8);
       i += 1;
     }
     i = 1;
     for (i16 = localintW1.val - 1 + 1; i16 > 0; i16--) {
       k = paramArrayOfInt5[(n + i - 1 - 1 + paramInt25)];
       Scopy.scopy(
           paramInt4,
           paramArrayOfFloat1,
           k - 1 + (1 - 1) * paramInt6 + paramInt5,
           paramInt6,
           paramArrayOfFloat2,
           k - 1 + (1 - 1) * paramInt8 + paramInt7,
           paramInt8);
       i += 1;
     }
     i1 = (int) Math.pow(2, localintW2.val);
     i15 = 0;
     i4 = localintW2.val;
     for (i16 = (1 - localintW2.val + -1) / -1; i16 > 0; i16--) {
       i5 = 2 * i4 - 1;
       if ((i4 != 1 ? 0 : 1) != 0) {
         i2 = 1;
         i3 = 1;
       } else {
         i2 = (int) Math.pow(2, i4 - 1);
         i3 = 2 * i2 - 1;
       }
       i = i2;
       for (i17 = i3 - i2 + 1; i17 > 0; i17--) {
         m = i - 1;
         k = paramArrayOfInt5[(n + m - 1 + paramInt25)];
         i9 = paramArrayOfInt5[(i7 + m - 1 + paramInt25)];
         i12 = paramArrayOfInt5[(i8 + m - 1 + paramInt25)];
         i10 = k - i9;
         i13 = k + 1;
         i1 -= 1;
         Slals0.slals0(
             paramInt1,
             i9,
             i12,
             i15,
             paramInt4,
             paramArrayOfFloat2,
             i10 - 1 + (1 - 1) * paramInt8 + paramInt7,
             paramInt8,
             paramArrayOfFloat1,
             i10 - 1 + (1 - 1) * paramInt6 + paramInt5,
             paramInt6,
             paramArrayOfInt4,
             i10 - 1 + (i4 - 1) * paramInt19 + paramInt20,
             paramArrayOfInt2[(i1 - 1 + paramInt17)],
             paramArrayOfInt3,
             i10 - 1 + (i5 - 1) * paramInt19 + paramInt18,
             paramInt19,
             paramArrayOfFloat9,
             i10 - 1 + (i5 - 1) * paramInt10 + paramInt21,
             paramInt10,
             paramArrayOfFloat8,
             i10 - 1 + (i5 - 1) * paramInt10 + paramInt16,
             paramArrayOfFloat5,
             i10 - 1 + (i4 - 1) * paramInt10 + paramInt13,
             paramArrayOfFloat6,
             i10 - 1 + (i5 - 1) * paramInt10 + paramInt14,
             paramArrayOfFloat7,
             i10 - 1 + (i4 - 1) * paramInt10 + paramInt15,
             paramArrayOfInt1[(i1 - 1 + paramInt12)],
             paramArrayOfFloat10[(i1 - 1 + paramInt22)],
             paramArrayOfFloat11[(i1 - 1 + paramInt23)],
             paramArrayOfFloat12,
             paramInt24,
             paramintW);
         i += 1;
       }
       i4 += -1;
     }
   } else {
     i1 = 0;
     i4 = 1;
     for (i16 = localintW2.val - 1 + 1; i16 > 0; i16--) {
       i5 = 2 * i4 - 1;
       if ((i4 != 1 ? 0 : 1) != 0) {
         i2 = 1;
         i3 = 1;
       } else {
         i2 = (int) Math.pow(2, i4 - 1);
         i3 = 2 * i2 - 1;
       }
       i = i3;
       for (i17 = (i2 - i3 + -1) / -1; i17 > 0; i17--) {
         m = i - 1;
         k = paramArrayOfInt5[(n + m - 1 + paramInt25)];
         i9 = paramArrayOfInt5[(i7 + m - 1 + paramInt25)];
         i12 = paramArrayOfInt5[(i8 + m - 1 + paramInt25)];
         i10 = k - i9;
         i13 = k + 1;
         if ((i != i3 ? 0 : 1) != 0) {
           i15 = 0;
         } else {
           i15 = 1;
         }
         i1 += 1;
         Slals0.slals0(
             paramInt1,
             i9,
             i12,
             i15,
             paramInt4,
             paramArrayOfFloat1,
             i10 - 1 + (1 - 1) * paramInt6 + paramInt5,
             paramInt6,
             paramArrayOfFloat2,
             i10 - 1 + (1 - 1) * paramInt8 + paramInt7,
             paramInt8,
             paramArrayOfInt4,
             i10 - 1 + (i4 - 1) * paramInt19 + paramInt20,
             paramArrayOfInt2[(i1 - 1 + paramInt17)],
             paramArrayOfInt3,
             i10 - 1 + (i5 - 1) * paramInt19 + paramInt18,
             paramInt19,
             paramArrayOfFloat9,
             i10 - 1 + (i5 - 1) * paramInt10 + paramInt21,
             paramInt10,
             paramArrayOfFloat8,
             i10 - 1 + (i5 - 1) * paramInt10 + paramInt16,
             paramArrayOfFloat5,
             i10 - 1 + (i4 - 1) * paramInt10 + paramInt13,
             paramArrayOfFloat6,
             i10 - 1 + (i5 - 1) * paramInt10 + paramInt14,
             paramArrayOfFloat7,
             i10 - 1 + (i4 - 1) * paramInt10 + paramInt15,
             paramArrayOfInt1[(i1 - 1 + paramInt12)],
             paramArrayOfFloat10[(i1 - 1 + paramInt22)],
             paramArrayOfFloat11[(i1 - 1 + paramInt23)],
             paramArrayOfFloat12,
             paramInt24,
             paramintW);
         i += -1;
       }
       i4 += 1;
     }
     i6 = (localintW1.val + 1) / 2;
     i = i6;
     for (i16 = localintW1.val - i6 + 1; i16 > 0; i16--) {
       j = i - 1;
       k = paramArrayOfInt5[(n + j - 1 + paramInt25)];
       i9 = paramArrayOfInt5[(i7 + j - 1 + paramInt25)];
       i12 = paramArrayOfInt5[(i8 + j - 1 + paramInt25)];
       i11 = i9 + 1;
       if ((i != localintW1.val ? 0 : 1) != 0) {
         i14 = i12;
       } else {
         i14 = i12 + 1;
       }
       i10 = k - i9;
       i13 = k + 1;
       Sgemm.sgemm(
           "T",
           "N",
           i11,
           paramInt4,
           i11,
           1.0F,
           paramArrayOfFloat4,
           i10 - 1 + (1 - 1) * paramInt10 + paramInt11,
           paramInt10,
           paramArrayOfFloat1,
           i10 - 1 + (1 - 1) * paramInt6 + paramInt5,
           paramInt6,
           0.0F,
           paramArrayOfFloat2,
           i10 - 1 + (1 - 1) * paramInt8 + paramInt7,
           paramInt8);
       Sgemm.sgemm(
           "T",
           "N",
           i14,
           paramInt4,
           i14,
           1.0F,
           paramArrayOfFloat4,
           i13 - 1 + (1 - 1) * paramInt10 + paramInt11,
           paramInt10,
           paramArrayOfFloat1,
           i13 - 1 + (1 - 1) * paramInt6 + paramInt5,
           paramInt6,
           0.0F,
           paramArrayOfFloat2,
           i13 - 1 + (1 - 1) * paramInt8 + paramInt7,
           paramInt8);
       i += 1;
     }
   }
 }
コード例 #4
0
ファイル: Slals0.java プロジェクト: assaad/JavaBlasLapack
 public static void slals0(
     int paramInt1,
     int paramInt2,
     int paramInt3,
     int paramInt4,
     int paramInt5,
     float[] paramArrayOfFloat1,
     int paramInt6,
     int paramInt7,
     float[] paramArrayOfFloat2,
     int paramInt8,
     int paramInt9,
     int[] paramArrayOfInt1,
     int paramInt10,
     int paramInt11,
     int[] paramArrayOfInt2,
     int paramInt12,
     int paramInt13,
     float[] paramArrayOfFloat3,
     int paramInt14,
     int paramInt15,
     float[] paramArrayOfFloat4,
     int paramInt16,
     float[] paramArrayOfFloat5,
     int paramInt17,
     float[] paramArrayOfFloat6,
     int paramInt18,
     float[] paramArrayOfFloat7,
     int paramInt19,
     int paramInt20,
     float paramFloat1,
     float paramFloat2,
     float[] paramArrayOfFloat8,
     int paramInt21,
     intW paramintW) {
   int i = 0;
   int j = 0;
   int k = 0;
   int m = 0;
   int n = 0;
   float f1 = 0.0F;
   float f2 = 0.0F;
   float f3 = 0.0F;
   float f4 = 0.0F;
   float f5 = 0.0F;
   float f6 = 0.0F;
   paramintW.val = 0;
   if ((paramInt1 >= 0 ? 0 : 1) == 0) {}
   if (((paramInt1 <= 1 ? 0 : 1) == 0 ? 0 : 1) != 0) {
     paramintW.val = -1;
   } else if ((paramInt2 >= 1 ? 0 : 1) != 0) {
     paramintW.val = -2;
   } else if ((paramInt3 >= 1 ? 0 : 1) != 0) {
     paramintW.val = -3;
   } else {
     if ((paramInt4 >= 0 ? 0 : 1) == 0) {}
     if (((paramInt4 <= 1 ? 0 : 1) == 0 ? 0 : 1) != 0) {
       paramintW.val = -4;
     }
   }
   m = paramInt2 + paramInt3 + 1;
   if ((paramInt5 >= 1 ? 0 : 1) != 0) {
     paramintW.val = -5;
   } else if ((paramInt7 >= m ? 0 : 1) != 0) {
     paramintW.val = -7;
   } else if ((paramInt9 >= m ? 0 : 1) != 0) {
     paramintW.val = -9;
   } else if ((paramInt11 >= 0 ? 0 : 1) != 0) {
     paramintW.val = -11;
   } else if ((paramInt13 >= m ? 0 : 1) != 0) {
     paramintW.val = -13;
   } else if ((paramInt15 >= m ? 0 : 1) != 0) {
     paramintW.val = -15;
   } else if ((paramInt20 >= 1 ? 0 : 1) != 0) {
     paramintW.val = -20;
   }
   if ((paramintW.val == 0 ? 0 : 1) != 0) {
     Xerbla.xerbla("SLALS0", -paramintW.val);
     return;
   }
   k = m + paramInt4;
   n = paramInt2 + 1;
   int i1;
   int i2;
   if ((paramInt1 != 0 ? 0 : 1) != 0) {
     i = 1;
     for (i1 = paramInt11 - 1 + 1; i1 > 0; i1--) {
       Srot.srot(
           paramInt5,
           paramArrayOfFloat1,
           paramArrayOfInt2[(i - 1 + (2 - 1) * paramInt13 + paramInt12)]
               - 1
               + (1 - 1) * paramInt7
               + paramInt6,
           paramInt7,
           paramArrayOfFloat1,
           paramArrayOfInt2[(i - 1 + (1 - 1) * paramInt13 + paramInt12)]
               - 1
               + (1 - 1) * paramInt7
               + paramInt6,
           paramInt7,
           paramArrayOfFloat3[(i - 1 + (2 - 1) * paramInt15 + paramInt14)],
           paramArrayOfFloat3[(i - 1 + (1 - 1) * paramInt15 + paramInt14)]);
       i += 1;
     }
     Scopy.scopy(
         paramInt5,
         paramArrayOfFloat1,
         n - 1 + (1 - 1) * paramInt7 + paramInt6,
         paramInt7,
         paramArrayOfFloat2,
         1 - 1 + (1 - 1) * paramInt9 + paramInt8,
         paramInt9);
     i = 2;
     for (i1 = m - 2 + 1; i1 > 0; i1--) {
       Scopy.scopy(
           paramInt5,
           paramArrayOfFloat1,
           paramArrayOfInt1[(i - 1 + paramInt10)] - 1 + (1 - 1) * paramInt7 + paramInt6,
           paramInt7,
           paramArrayOfFloat2,
           i - 1 + (1 - 1) * paramInt9 + paramInt8,
           paramInt9);
       i += 1;
     }
     if ((paramInt20 != 1 ? 0 : 1) != 0) {
       Scopy.scopy(
           paramInt5,
           paramArrayOfFloat2,
           paramInt8,
           paramInt9,
           paramArrayOfFloat1,
           paramInt6,
           paramInt7);
       if ((paramArrayOfFloat7[(1 - 1 + paramInt19)] >= 0.0F ? 0 : 1) != 0) {
         Sscal.sscal(paramInt5, -1.0F, paramArrayOfFloat1, paramInt6, paramInt7);
       }
     } else {
       j = 1;
       for (i1 = paramInt20 - 1 + 1; i1 > 0; i1--) {
         f1 = paramArrayOfFloat5[(j - 1 + paramInt17)];
         f3 = paramArrayOfFloat4[(j - 1 + (1 - 1) * paramInt15 + paramInt16)];
         f4 = -paramArrayOfFloat4[(j - 1 + (2 - 1) * paramInt15 + paramInt16)];
         if ((j >= paramInt20 ? 0 : 1) != 0) {
           f2 = -paramArrayOfFloat6[(j - 1 + (1 - 1) * paramInt15 + paramInt18)];
           f5 = -paramArrayOfFloat4[(j + 1 - 1 + (2 - 1) * paramInt15 + paramInt16)];
         }
         if ((paramArrayOfFloat7[(j - 1 + paramInt19)] != 0.0F ? 0 : 1) == 0) {}
         if (((paramArrayOfFloat4[(j - 1 + (2 - 1) * paramInt15 + paramInt16)] != 0.0F ? 0 : 1)
                     == 0
                 ? 0
                 : 1)
             != 0) {
           paramArrayOfFloat8[(j - 1 + paramInt21)] = 0.0F;
         } else {
           paramArrayOfFloat8[(j - 1 + paramInt21)] =
               (-(paramArrayOfFloat4[(j - 1 + (2 - 1) * paramInt15 + paramInt16)]
                   * paramArrayOfFloat7[(j - 1 + paramInt19)]
                   / f1
                   / (paramArrayOfFloat4[(j - 1 + (2 - 1) * paramInt15 + paramInt16)] + f3)));
         }
         i = 1;
         for (i2 = j - 1 - 1 + 1; i2 > 0; i2--) {
           if ((paramArrayOfFloat7[(i - 1 + paramInt19)] != 0.0F ? 0 : 1) == 0) {}
           if (((paramArrayOfFloat4[(i - 1 + (2 - 1) * paramInt15 + paramInt16)] != 0.0F ? 0 : 1)
                       == 0
                   ? 0
                   : 1)
               != 0) {
             paramArrayOfFloat8[(i - 1 + paramInt21)] = 0.0F;
           } else {
             paramArrayOfFloat8[(i - 1 + paramInt21)] =
                 (paramArrayOfFloat4[(i - 1 + (2 - 1) * paramInt15 + paramInt16)]
                     * paramArrayOfFloat7[(i - 1 + paramInt19)]
                     / (Slamc3.slamc3(
                             paramArrayOfFloat4[(i - 1 + (2 - 1) * paramInt15 + paramInt16)], f4)
                         - f1)
                     / (paramArrayOfFloat4[(i - 1 + (2 - 1) * paramInt15 + paramInt16)] + f3));
           }
           i += 1;
         }
         i = j + 1;
         for (i2 = paramInt20 - (j + 1) + 1; i2 > 0; i2--) {
           if ((paramArrayOfFloat7[(i - 1 + paramInt19)] != 0.0F ? 0 : 1) == 0) {}
           if (((paramArrayOfFloat4[(i - 1 + (2 - 1) * paramInt15 + paramInt16)] != 0.0F ? 0 : 1)
                       == 0
                   ? 0
                   : 1)
               != 0) {
             paramArrayOfFloat8[(i - 1 + paramInt21)] = 0.0F;
           } else {
             paramArrayOfFloat8[(i - 1 + paramInt21)] =
                 (paramArrayOfFloat4[(i - 1 + (2 - 1) * paramInt15 + paramInt16)]
                     * paramArrayOfFloat7[(i - 1 + paramInt19)]
                     / (Slamc3.slamc3(
                             paramArrayOfFloat4[(i - 1 + (2 - 1) * paramInt15 + paramInt16)], f5)
                         + f2)
                     / (paramArrayOfFloat4[(i - 1 + (2 - 1) * paramInt15 + paramInt16)] + f3));
           }
           i += 1;
         }
         paramArrayOfFloat8[(1 - 1 + paramInt21)] = -1.0F;
         f6 = Snrm2.snrm2(paramInt20, paramArrayOfFloat8, paramInt21, 1);
         Sgemv.sgemv(
             "T",
             paramInt20,
             paramInt5,
             1.0F,
             paramArrayOfFloat2,
             paramInt8,
             paramInt9,
             paramArrayOfFloat8,
             paramInt21,
             1,
             0.0F,
             paramArrayOfFloat1,
             j - 1 + (1 - 1) * paramInt7 + paramInt6,
             paramInt7);
         Slascl.slascl(
             "G",
             0,
             0,
             f6,
             1.0F,
             1,
             paramInt5,
             paramArrayOfFloat1,
             j - 1 + (1 - 1) * paramInt7 + paramInt6,
             paramInt7,
             paramintW);
         j += 1;
       }
     }
     if ((paramInt20 >= Math.max(k, m) ? 0 : 1) != 0) {
       Slacpy.slacpy(
           "A",
           m - paramInt20,
           paramInt5,
           paramArrayOfFloat2,
           paramInt20 + 1 - 1 + (1 - 1) * paramInt9 + paramInt8,
           paramInt9,
           paramArrayOfFloat1,
           paramInt20 + 1 - 1 + (1 - 1) * paramInt7 + paramInt6,
           paramInt7);
     }
   } else {
     if ((paramInt20 != 1 ? 0 : 1) != 0) {
       Scopy.scopy(
           paramInt5,
           paramArrayOfFloat1,
           paramInt6,
           paramInt7,
           paramArrayOfFloat2,
           paramInt8,
           paramInt9);
     } else {
       j = 1;
       for (i1 = paramInt20 - 1 + 1; i1 > 0; i1--) {
         f4 = paramArrayOfFloat4[(j - 1 + (2 - 1) * paramInt15 + paramInt16)];
         if ((paramArrayOfFloat7[(j - 1 + paramInt19)] != 0.0F ? 0 : 1) != 0) {
           paramArrayOfFloat8[(j - 1 + paramInt21)] = 0.0F;
         } else {
           paramArrayOfFloat8[(j - 1 + paramInt21)] =
               (-(paramArrayOfFloat7[(j - 1 + paramInt19)]
                   / paramArrayOfFloat5[(j - 1 + paramInt17)]
                   / (f4 + paramArrayOfFloat4[(j - 1 + (1 - 1) * paramInt15 + paramInt16)])
                   / paramArrayOfFloat6[(j - 1 + (2 - 1) * paramInt15 + paramInt18)]));
         }
         i = 1;
         for (i2 = j - 1 - 1 + 1; i2 > 0; i2--) {
           if ((paramArrayOfFloat7[(j - 1 + paramInt19)] != 0.0F ? 0 : 1) != 0) {
             paramArrayOfFloat8[(i - 1 + paramInt21)] = 0.0F;
           } else {
             paramArrayOfFloat8[(i - 1 + paramInt21)] =
                 (paramArrayOfFloat7[(j - 1 + paramInt19)]
                     / (Slamc3.slamc3(
                             f4,
                             -paramArrayOfFloat4[(i + 1 - 1 + (2 - 1) * paramInt15 + paramInt16)])
                         - paramArrayOfFloat6[(i - 1 + (1 - 1) * paramInt15 + paramInt18)])
                     / (f4 + paramArrayOfFloat4[(i - 1 + (1 - 1) * paramInt15 + paramInt16)])
                     / paramArrayOfFloat6[(i - 1 + (2 - 1) * paramInt15 + paramInt18)]);
           }
           i += 1;
         }
         i = j + 1;
         for (i2 = paramInt20 - (j + 1) + 1; i2 > 0; i2--) {
           if ((paramArrayOfFloat7[(j - 1 + paramInt19)] != 0.0F ? 0 : 1) != 0) {
             paramArrayOfFloat8[(i - 1 + paramInt21)] = 0.0F;
           } else {
             paramArrayOfFloat8[(i - 1 + paramInt21)] =
                 (paramArrayOfFloat7[(j - 1 + paramInt19)]
                     / (Slamc3.slamc3(
                             f4, -paramArrayOfFloat4[(i - 1 + (2 - 1) * paramInt15 + paramInt16)])
                         - paramArrayOfFloat5[(i - 1 + paramInt17)])
                     / (f4 + paramArrayOfFloat4[(i - 1 + (1 - 1) * paramInt15 + paramInt16)])
                     / paramArrayOfFloat6[(i - 1 + (2 - 1) * paramInt15 + paramInt18)]);
           }
           i += 1;
         }
         Sgemv.sgemv(
             "T",
             paramInt20,
             paramInt5,
             1.0F,
             paramArrayOfFloat1,
             paramInt6,
             paramInt7,
             paramArrayOfFloat8,
             paramInt21,
             1,
             0.0F,
             paramArrayOfFloat2,
             j - 1 + (1 - 1) * paramInt9 + paramInt8,
             paramInt9);
         j += 1;
       }
     }
     if ((paramInt4 != 1 ? 0 : 1) != 0) {
       Scopy.scopy(
           paramInt5,
           paramArrayOfFloat1,
           k - 1 + (1 - 1) * paramInt7 + paramInt6,
           paramInt7,
           paramArrayOfFloat2,
           k - 1 + (1 - 1) * paramInt9 + paramInt8,
           paramInt9);
       Srot.srot(
           paramInt5,
           paramArrayOfFloat2,
           1 - 1 + (1 - 1) * paramInt9 + paramInt8,
           paramInt9,
           paramArrayOfFloat2,
           k - 1 + (1 - 1) * paramInt9 + paramInt8,
           paramInt9,
           paramFloat1,
           paramFloat2);
     }
     if ((paramInt20 >= Math.max(k, m) ? 0 : 1) != 0) {
       Slacpy.slacpy(
           "A",
           m - paramInt20,
           paramInt5,
           paramArrayOfFloat1,
           paramInt20 + 1 - 1 + (1 - 1) * paramInt7 + paramInt6,
           paramInt7,
           paramArrayOfFloat2,
           paramInt20 + 1 - 1 + (1 - 1) * paramInt9 + paramInt8,
           paramInt9);
     }
     Scopy.scopy(
         paramInt5,
         paramArrayOfFloat2,
         1 - 1 + (1 - 1) * paramInt9 + paramInt8,
         paramInt9,
         paramArrayOfFloat1,
         n - 1 + (1 - 1) * paramInt7 + paramInt6,
         paramInt7);
     if ((paramInt4 != 1 ? 0 : 1) != 0) {
       Scopy.scopy(
           paramInt5,
           paramArrayOfFloat2,
           k - 1 + (1 - 1) * paramInt9 + paramInt8,
           paramInt9,
           paramArrayOfFloat1,
           k - 1 + (1 - 1) * paramInt7 + paramInt6,
           paramInt7);
     }
     i = 2;
     for (i1 = m - 2 + 1; i1 > 0; i1--) {
       Scopy.scopy(
           paramInt5,
           paramArrayOfFloat2,
           i - 1 + (1 - 1) * paramInt9 + paramInt8,
           paramInt9,
           paramArrayOfFloat1,
           paramArrayOfInt1[(i - 1 + paramInt10)] - 1 + (1 - 1) * paramInt7 + paramInt6,
           paramInt7);
       i += 1;
     }
     i = paramInt11;
     for (i1 = (1 - paramInt11 + -1) / -1; i1 > 0; i1--) {
       Srot.srot(
           paramInt5,
           paramArrayOfFloat1,
           paramArrayOfInt2[(i - 1 + (2 - 1) * paramInt13 + paramInt12)]
               - 1
               + (1 - 1) * paramInt7
               + paramInt6,
           paramInt7,
           paramArrayOfFloat1,
           paramArrayOfInt2[(i - 1 + (1 - 1) * paramInt13 + paramInt12)]
               - 1
               + (1 - 1) * paramInt7
               + paramInt6,
           paramInt7,
           paramArrayOfFloat3[(i - 1 + (2 - 1) * paramInt15 + paramInt14)],
           -paramArrayOfFloat3[(i - 1 + (1 - 1) * paramInt15 + paramInt14)]);
       i += -1;
     }
   }
 }