/dports/math/igraph/igraph-0.9.5/vendor/lapack/ |
H A D | dlasq5.c | 206 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in igraphdlasq5_() 219 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in igraphdlasq5_() 257 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in igraphdlasq5_() 262 z__[j4] = z__[j4 + 1] * (z__[j4 - 1] / z__[j4 - 2]); in igraphdlasq5_() 273 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in igraphdlasq5_() 278 z__[j4 - 1] = z__[j4 + 2] * (z__[j4] / z__[j4 - 3]); in igraphdlasq5_() 330 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in igraphdlasq5_() 346 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in igraphdlasq5_() 387 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in igraphdlasq5_() 392 z__[j4] = z__[j4 + 1] * (z__[j4 - 1] / z__[j4 - 2]); in igraphdlasq5_() [all …]
|
H A D | dlasq6.c | 173 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in igraphdlasq6_() 174 z__[j4 - 2] = d__ + z__[j4 - 1]; in igraphdlasq6_() 180 } else if (safmin * z__[j4 + 1] < z__[j4 - 2] && safmin * z__[j4 in igraphdlasq6_() 182 temp = z__[j4 + 1] / z__[j4 - 2]; in igraphdlasq6_() 183 z__[j4] = z__[j4 - 1] * temp; in igraphdlasq6_() 186 z__[j4] = z__[j4 + 1] * (z__[j4 - 1] / z__[j4 - 2]); in igraphdlasq6_() 197 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in igraphdlasq6_() 198 z__[j4 - 3] = d__ + z__[j4]; in igraphdlasq6_() 206 temp = z__[j4 + 2] / z__[j4 - 3]; in igraphdlasq6_() 207 z__[j4 - 1] = z__[j4] * temp; in igraphdlasq6_() [all …]
|
/dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/ |
H A D | dlasq5.c | 190 z__[j4] = z__[j4 - 1] * temp; in dlasq5_() 204 z__[j4 - 3] = d__ + z__[j4]; in dlasq5_() 208 z__[j4 - 1] = z__[j4] * temp; in dlasq5_() 249 z__[j4] = z__[j4 + 1] * (z__[j4 - 1] / z__[j4 - 2]); in dlasq5_() 267 z__[j4 - 3] = d__ + z__[j4]; in dlasq5_() 274 z__[j4 - 1] = z__[j4 + 2] * (z__[j4] / z__[j4 - 3]); in dlasq5_() 343 z__[j4] = z__[j4 - 1] * temp; in dlasq5_() 357 z__[j4 - 3] = d__ + z__[j4]; in dlasq5_() 406 z__[j4] = z__[j4 + 1] * (z__[j4 - 1] / z__[j4 - 2]); in dlasq5_() 428 z__[j4 - 3] = d__ + z__[j4]; in dlasq5_() [all …]
|
H A D | slasq5.c | 178 z__[j4] = z__[j4 - 1] * temp; in slasq5_() 192 z__[j4 - 3] = d__ + z__[j4]; in slasq5_() 196 z__[j4 - 1] = z__[j4] * temp; in slasq5_() 237 z__[j4] = z__[j4 + 1] * (z__[j4 - 1] / z__[j4 - 2]); in slasq5_() 255 z__[j4 - 3] = d__ + z__[j4]; in slasq5_() 262 z__[j4 - 1] = z__[j4 + 2] * (z__[j4] / z__[j4 - 3]); in slasq5_() 331 z__[j4] = z__[j4 - 1] * temp; in slasq5_() 345 z__[j4 - 3] = d__ + z__[j4]; in slasq5_() 394 z__[j4] = z__[j4 + 1] * (z__[j4 - 1] / z__[j4 - 2]); in slasq5_() 416 z__[j4 - 3] = d__ + z__[j4]; in slasq5_() [all …]
|
H A D | dlasq6.c | 155 z__[j4 - 2] = d__ + z__[j4 - 1]; in dlasq6_() 163 else if (safmin * z__[j4 + 1] < z__[j4 - 2] && safmin * z__[j4 - 2] < z__[j4 + 1]) in dlasq6_() 165 temp = z__[j4 + 1] / z__[j4 - 2]; in dlasq6_() 166 z__[j4] = z__[j4 - 1] * temp; in dlasq6_() 171 z__[j4] = z__[j4 + 1] * (z__[j4 - 1] / z__[j4 - 2]); in dlasq6_() 189 z__[j4 - 3] = d__ + z__[j4]; in dlasq6_() 197 else if (safmin * z__[j4 + 2] < z__[j4 - 3] && safmin * z__[j4 - 3] < z__[j4 + 2]) in dlasq6_() 199 temp = z__[j4 + 2] / z__[j4 - 3]; in dlasq6_() 200 z__[j4 - 1] = z__[j4] * temp; in dlasq6_() 205 z__[j4 - 1] = z__[j4 + 2] * (z__[j4] / z__[j4 - 3]); in dlasq6_() [all …]
|
H A D | slasq6.c | 155 z__[j4 - 2] = d__ + z__[j4 - 1]; in slasq6_() 163 else if (safmin * z__[j4 + 1] < z__[j4 - 2] && safmin * z__[j4 - 2] < z__[j4 + 1]) in slasq6_() 165 temp = z__[j4 + 1] / z__[j4 - 2]; in slasq6_() 166 z__[j4] = z__[j4 - 1] * temp; in slasq6_() 171 z__[j4] = z__[j4 + 1] * (z__[j4 - 1] / z__[j4 - 2]); in slasq6_() 189 z__[j4 - 3] = d__ + z__[j4]; in slasq6_() 197 else if (safmin * z__[j4 + 2] < z__[j4 - 3] && safmin * z__[j4 - 3] < z__[j4 + 2]) in slasq6_() 199 temp = z__[j4 + 2] / z__[j4 - 3]; in slasq6_() 200 z__[j4 - 1] = z__[j4] * temp; in slasq6_() 205 z__[j4 - 1] = z__[j4 + 2] * (z__[j4] / z__[j4 - 3]); in slasq6_() [all …]
|
/dports/misc/visp/visp-3.4.0/3rdparty/clapack/src/ |
H A D | dlasq6.c | 115 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in dlasq6_() 116 z__[j4 - 2] = d__ + z__[j4 - 1]; in dlasq6_() 122 } else if (safmin * z__[j4 + 1] < z__[j4 - 2] && safmin * z__[j4 in dlasq6_() 124 temp = z__[j4 + 1] / z__[j4 - 2]; in dlasq6_() 125 z__[j4] = z__[j4 - 1] * temp; in dlasq6_() 128 z__[j4] = z__[j4 + 1] * (z__[j4 - 1] / z__[j4 - 2]); in dlasq6_() 139 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in dlasq6_() 140 z__[j4 - 3] = d__ + z__[j4]; in dlasq6_() 148 temp = z__[j4 + 2] / z__[j4 - 3]; in dlasq6_() 149 z__[j4 - 1] = z__[j4] * temp; in dlasq6_() [all …]
|
H A D | dlasq5.c | 122 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in dlasq5_() 123 z__[j4 - 2] = d__ + z__[j4 - 1]; in dlasq5_() 127 z__[j4] = z__[j4 - 1] * temp; in dlasq5_() 135 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in dlasq5_() 136 z__[j4 - 3] = d__ + z__[j4]; in dlasq5_() 140 z__[j4 - 1] = z__[j4] * temp; in dlasq5_() 173 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in dlasq5_() 178 z__[j4] = z__[j4 + 1] * (z__[j4 - 1] / z__[j4 - 2]); in dlasq5_() 189 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in dlasq5_() 190 z__[j4 - 3] = d__ + z__[j4]; in dlasq5_() [all …]
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/ |
H A D | dlasq6.c | 102 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in dlasq6_() 103 z__[j4 - 2] = d__ + z__[j4 - 1]; in dlasq6_() 109 } else if (safmin * z__[j4 + 1] < z__[j4 - 2] && safmin * z__[j4 in dlasq6_() 111 temp = z__[j4 + 1] / z__[j4 - 2]; in dlasq6_() 112 z__[j4] = z__[j4 - 1] * temp; in dlasq6_() 115 z__[j4] = z__[j4 + 1] * (z__[j4 - 1] / z__[j4 - 2]); in dlasq6_() 126 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in dlasq6_() 127 z__[j4 - 3] = d__ + z__[j4]; in dlasq6_() 135 temp = z__[j4 + 2] / z__[j4 - 3]; in dlasq6_() 136 z__[j4 - 1] = z__[j4] * temp; in dlasq6_() [all …]
|
H A D | slasq6.c | 102 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in slasq6_() 103 z__[j4 - 2] = d__ + z__[j4 - 1]; in slasq6_() 109 } else if (safmin * z__[j4 + 1] < z__[j4 - 2] && safmin * z__[j4 in slasq6_() 111 temp = z__[j4 + 1] / z__[j4 - 2]; in slasq6_() 112 z__[j4] = z__[j4 - 1] * temp; in slasq6_() 115 z__[j4] = z__[j4 + 1] * (z__[j4 - 1] / z__[j4 - 2]); in slasq6_() 126 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in slasq6_() 127 z__[j4 - 3] = d__ + z__[j4]; in slasq6_() 135 temp = z__[j4 + 2] / z__[j4 - 3]; in slasq6_() 136 z__[j4 - 1] = z__[j4] * temp; in slasq6_() [all …]
|
H A D | dlasq5.c | 109 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in dlasq5_() 110 z__[j4 - 2] = d__ + z__[j4 - 1]; in dlasq5_() 114 z__[j4] = z__[j4 - 1] * temp; in dlasq5_() 122 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in dlasq5_() 123 z__[j4 - 3] = d__ + z__[j4]; in dlasq5_() 127 z__[j4 - 1] = z__[j4] * temp; in dlasq5_() 160 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in dlasq5_() 165 z__[j4] = z__[j4 + 1] * (z__[j4 - 1] / z__[j4 - 2]); in dlasq5_() 176 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in dlasq5_() 177 z__[j4 - 3] = d__ + z__[j4]; in dlasq5_() [all …]
|
/dports/science/hypre/hypre-2.23.0/src/lapack/ |
H A D | dlasq6.c | 97 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in dlasq6_() 98 z__[j4 - 2] = d__ + z__[j4 - 1]; in dlasq6_() 104 } else if (safmin * z__[j4 + 1] < z__[j4 - 2] && safmin * z__[j4 in dlasq6_() 106 temp = z__[j4 + 1] / z__[j4 - 2]; in dlasq6_() 107 z__[j4] = z__[j4 - 1] * temp; in dlasq6_() 110 z__[j4] = z__[j4 + 1] * (z__[j4 - 1] / z__[j4 - 2]); in dlasq6_() 121 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in dlasq6_() 122 z__[j4 - 3] = d__ + z__[j4]; in dlasq6_() 130 temp = z__[j4 + 2] / z__[j4 - 3]; in dlasq6_() 131 z__[j4 - 1] = z__[j4] * temp; in dlasq6_() [all …]
|
H A D | dlasq5.c | 98 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in dlasq5_() 99 z__[j4 - 2] = d__ + z__[j4 - 1]; in dlasq5_() 103 z__[j4] = z__[j4 - 1] * temp; in dlasq5_() 111 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in dlasq5_() 112 z__[j4 - 3] = d__ + z__[j4]; in dlasq5_() 116 z__[j4 - 1] = z__[j4] * temp; in dlasq5_() 149 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in dlasq5_() 154 z__[j4] = z__[j4 + 1] * (z__[j4 - 1] / z__[j4 - 2]); in dlasq5_() 165 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in dlasq5_() 166 z__[j4 - 3] = d__ + z__[j4]; in dlasq5_() [all …]
|
/dports/science/gromacs/gromacs-2021.4/src/gromacs/linearalgebra/gmx_lapack/ |
H A D | slasq6.cpp | 41 for (j4 = *i0*4; j4 <= i__1; j4 += 4) { in F77_FUNC() 42 z__[j4 - 2] = d__ + z__[j4 - 1]; in F77_FUNC() 48 } else if (safemin * z__[j4 + 1] < z__[j4 - 2] && safemin * z__[j4 in F77_FUNC() 50 temp = z__[j4 + 1] / z__[j4 - 2]; in F77_FUNC() 51 z__[j4] = z__[j4 - 1] * temp; in F77_FUNC() 54 z__[j4] = z__[j4 + 1] * (z__[j4 - 1] / z__[j4 - 2]); in F77_FUNC() 65 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in F77_FUNC() 66 z__[j4 - 3] = d__ + z__[j4]; in F77_FUNC() 74 temp = z__[j4 + 2] / z__[j4 - 3]; in F77_FUNC() 75 z__[j4 - 1] = z__[j4] * temp; in F77_FUNC() [all …]
|
H A D | dlasq6.cpp | 41 for (j4 = *i0*4; j4 <= i__1; j4 += 4) { in F77_FUNC() 42 z__[j4 - 2] = d__ + z__[j4 - 1]; in F77_FUNC() 48 } else if (safemin * z__[j4 + 1] < z__[j4 - 2] && safemin * z__[j4 in F77_FUNC() 50 temp = z__[j4 + 1] / z__[j4 - 2]; in F77_FUNC() 51 z__[j4] = z__[j4 - 1] * temp; in F77_FUNC() 54 z__[j4] = z__[j4 + 1] * (z__[j4 - 1] / z__[j4 - 2]); in F77_FUNC() 65 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in F77_FUNC() 66 z__[j4 - 3] = d__ + z__[j4]; in F77_FUNC() 74 temp = z__[j4 + 2] / z__[j4 - 3]; in F77_FUNC() 75 z__[j4 - 1] = z__[j4] * temp; in F77_FUNC() [all …]
|
H A D | dlasq5.cpp | 41 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in F77_FUNC() 42 z__[j4 - 2] = d__ + z__[j4 - 1]; in F77_FUNC() 43 temp = z__[j4 + 1] / z__[j4 - 2]; in F77_FUNC() 47 z__[j4] = z__[j4 - 1] * temp; in F77_FUNC() 54 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in F77_FUNC() 55 z__[j4 - 3] = d__ + z__[j4]; in F77_FUNC() 60 z__[j4 - 1] = z__[j4] * temp; in F77_FUNC() 90 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in F77_FUNC() 95 z__[j4] = z__[j4 + 1] * (z__[j4 - 1] / z__[j4 - 2]); in F77_FUNC() 105 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in F77_FUNC() [all …]
|
H A D | slasq5.cpp | 41 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in F77_FUNC() 42 z__[j4 - 2] = d__ + z__[j4 - 1]; in F77_FUNC() 43 temp = z__[j4 + 1] / z__[j4 - 2]; in F77_FUNC() 47 z__[j4] = z__[j4 - 1] * temp; in F77_FUNC() 54 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in F77_FUNC() 55 z__[j4 - 3] = d__ + z__[j4]; in F77_FUNC() 60 z__[j4 - 1] = z__[j4] * temp; in F77_FUNC() 90 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in F77_FUNC() 95 z__[j4] = z__[j4 + 1] * (z__[j4 - 1] / z__[j4 - 2]); in F77_FUNC() 105 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in F77_FUNC() [all …]
|
/dports/science/ergo/ergo-3.8/source/matrix/template_lapack/lapack/ |
H A D | template_lapack_lasq6.h | 139 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in template_lapack_lasq6() 140 z__[j4 - 2] = d__ + z__[j4 - 1]; in template_lapack_lasq6() 146 } else if (safmin * z__[j4 + 1] < z__[j4 - 2] && safmin * z__[j4 in template_lapack_lasq6() 148 temp = z__[j4 + 1] / z__[j4 - 2]; in template_lapack_lasq6() 149 z__[j4] = z__[j4 - 1] * temp; in template_lapack_lasq6() 152 z__[j4] = z__[j4 + 1] * (z__[j4 - 1] / z__[j4 - 2]); in template_lapack_lasq6() 163 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in template_lapack_lasq6() 164 z__[j4 - 3] = d__ + z__[j4]; in template_lapack_lasq6() 172 temp = z__[j4 + 2] / z__[j4 - 3]; in template_lapack_lasq6() 173 z__[j4 - 1] = z__[j4] * temp; in template_lapack_lasq6() [all …]
|
/dports/science/madness/madness-ebb3fd7/src/madness/external/elemental/external/pmrrr/src/lapack/ |
H A D | odsq6.c | 110 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in odsq6() 111 z__[j4 - 2] = d__ + z__[j4 - 1]; in odsq6() 117 } else if (safmin * z__[j4 + 1] < z__[j4 - 2] && safmin * z__[j4 in odsq6() 119 temp = z__[j4 + 1] / z__[j4 - 2]; in odsq6() 120 z__[j4] = z__[j4 - 1] * temp; in odsq6() 123 z__[j4] = z__[j4 + 1] * (z__[j4 - 1] / z__[j4 - 2]); in odsq6() 134 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in odsq6() 135 z__[j4 - 3] = d__ + z__[j4]; in odsq6() 143 temp = z__[j4 + 2] / z__[j4 - 3]; in odsq6() 144 z__[j4 - 1] = z__[j4] * temp; in odsq6() [all …]
|
H A D | odsq5.c | 117 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in odsq5() 118 z__[j4 - 2] = d__ + z__[j4 - 1]; in odsq5() 122 z__[j4] = z__[j4 - 1] * temp; in odsq5() 130 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in odsq5() 131 z__[j4 - 3] = d__ + z__[j4]; in odsq5() 135 z__[j4 - 1] = z__[j4] * temp; in odsq5() 168 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in odsq5() 173 z__[j4] = z__[j4 + 1] * (z__[j4 - 1] / z__[j4 - 2]); in odsq5() 184 for (j4 = *i0 << 2; j4 <= i__1; j4 += 4) { in odsq5() 185 z__[j4 - 3] = d__ + z__[j4]; in odsq5() [all …]
|
/dports/security/aws-iam-authenticator/aws-iam-authenticator-0.5.2/vendor/gonum.org/v1/gonum/lapack/gonum/ |
H A D | dlasq6.go | 39 z[j4-2] = d + z[j4-1] 45 } else if safmin*z[j4+1] < z[j4-2] && safmin*z[j4-2] < z[j4+1] { 46 tmp := z[j4+1] / z[j4-2] 47 z[j4] = z[j4-1] * tmp 50 z[j4] = z[j4+1] * (z[j4-1] / z[j4-2]) 51 d = z[j4+1] * (d / z[j4-2]) 59 z[j4-3] = d + z[j4] 65 } else if safmin*z[j4+2] < z[j4-3] && safmin*z[j4-3] < z[j4+2] { 66 tmp := z[j4+2] / z[j4-3] 67 z[j4-1] = z[j4] * tmp [all …]
|
/dports/www/carbonapi/carbonapi-0.14.1/vendor/gonum.org/v1/gonum/lapack/gonum/ |
H A D | dlasq6.go | 39 z[j4-2] = d + z[j4-1] 45 } else if safmin*z[j4+1] < z[j4-2] && safmin*z[j4-2] < z[j4+1] { 46 tmp := z[j4+1] / z[j4-2] 47 z[j4] = z[j4-1] * tmp 50 z[j4] = z[j4+1] * (z[j4-1] / z[j4-2]) 51 d = z[j4+1] * (d / z[j4-2]) 59 z[j4-3] = d + z[j4] 65 } else if safmin*z[j4+2] < z[j4-3] && safmin*z[j4-3] < z[j4+2] { 66 tmp := z[j4+2] / z[j4-3] 67 z[j4-1] = z[j4] * tmp [all …]
|
/dports/www/grafana8/grafana-8.3.6/vendor/gonum.org/v1/gonum/lapack/gonum/ |
H A D | dlasq6.go | 39 z[j4-2] = d + z[j4-1] 45 } else if safmin*z[j4+1] < z[j4-2] && safmin*z[j4-2] < z[j4+1] { 46 tmp := z[j4+1] / z[j4-2] 47 z[j4] = z[j4-1] * tmp 50 z[j4] = z[j4+1] * (z[j4-1] / z[j4-2]) 51 d = z[j4+1] * (d / z[j4-2]) 59 z[j4-3] = d + z[j4] 65 } else if safmin*z[j4+2] < z[j4-3] && safmin*z[j4-3] < z[j4+2] { 66 tmp := z[j4+2] / z[j4-3] 67 z[j4-1] = z[j4] * tmp [all …]
|
/dports/sysutils/kubectl/kubernetes-1.22.2/vendor/gonum.org/v1/gonum/lapack/gonum/ |
H A D | dlasq6.go | 39 z[j4-2] = d + z[j4-1] 45 } else if safmin*z[j4+1] < z[j4-2] && safmin*z[j4-2] < z[j4+1] { 46 tmp := z[j4+1] / z[j4-2] 47 z[j4] = z[j4-1] * tmp 50 z[j4] = z[j4+1] * (z[j4-1] / z[j4-2]) 51 d = z[j4+1] * (d / z[j4-2]) 59 z[j4-3] = d + z[j4] 65 } else if safmin*z[j4+2] < z[j4-3] && safmin*z[j4-3] < z[j4+2] { 66 tmp := z[j4+2] / z[j4-3] 67 z[j4-1] = z[j4] * tmp [all …]
|
/dports/sysutils/istio/istio-1.6.7/vendor/github.com/openshift/api/vendor/gonum.org/v1/gonum/lapack/gonum/ |
H A D | dlasq6.go | 39 z[j4-2] = d + z[j4-1] 45 } else if safmin*z[j4+1] < z[j4-2] && safmin*z[j4-2] < z[j4+1] { 46 tmp := z[j4+1] / z[j4-2] 47 z[j4] = z[j4-1] * tmp 50 z[j4] = z[j4+1] * (z[j4-1] / z[j4-2]) 51 d = z[j4+1] * (d / z[j4-2]) 59 z[j4-3] = d + z[j4] 65 } else if safmin*z[j4+2] < z[j4-3] && safmin*z[j4-3] < z[j4+2] { 66 tmp := z[j4+2] / z[j4-3] 67 z[j4-1] = z[j4] * tmp [all …]
|