/dports/math/openlibm/openlibm-0.8.0/ld80/ |
H A D | s_floorl.c | 31 int32_t i1,jj0; in floorl() local 35 jj0 = (se&0x7fff)-0x3fff; in floorl() 36 if(jj0<31) { in floorl() 37 if(jj0<0) { /* raise inexact if x != 0 */ in floorl() 45 i = (0x7fffffff)>>jj0; in floorl() 49 if (jj0>0 && (i0+(0x80000000>>jj0))>i0) in floorl() 50 i0 += (0x80000000)>>jj0; in floorl() 60 } else if (jj0>62) { in floorl() 64 i = ((u_int32_t)(0xffffffff))>>(jj0-31); in floorl() 68 if(jj0==31) i0+=1; in floorl() [all …]
|
H A D | s_ceill.c | 31 int32_t i1,jj0; in ceill() local 35 jj0 = (se&0x7fff)-0x3fff; in ceill() 36 if(jj0<31) { in ceill() 37 if(jj0<0) { /* raise inexact if x != 0 */ in ceill() 43 i = (0x7fffffff)>>jj0; in ceill() 47 if (jj0>0 && (i0+(0x80000000>>jj0))>i0) in ceill() 48 i0+=0x80000000>>jj0; in ceill() 58 } else if (jj0>62) { in ceill() 62 i = ((u_int32_t)(0xffffffff))>>(jj0-31); in ceill() 66 if(jj0==31) i0+=1; in ceill() [all …]
|
H A D | s_modfl.c | 32 int32_t i0,i1,jj0; in modfl() local 35 jj0 = (se&0x7fff)-0x3fff; /* exponent of x */ in modfl() 36 if(jj0<32) { /* integer part in high x */ in modfl() 37 if(jj0<0) { /* |x|<1 */ in modfl() 41 i = (0x7fffffff)>>jj0; in modfl() 51 } else if (jj0>63) { /* no fraction part */ in modfl() 54 if (jj0 == 0x4000 && ((i0 & 0x7fffffff) | i1)) in modfl() 59 i = ((u_int32_t)(0x7fffffff))>>(jj0-32); in modfl()
|
H A D | s_tanhl.c | 48 u_int32_t jj0,jj1,ix; in tanhl() local 51 GET_LDOUBLE_WORDS(se,jj0,jj1,x); in tanhl() 62 if (ix < 0x4003 || (ix == 0x4003 && jj0 < 0xb8000000u)) {/* |x|<23 */ in tanhl() 63 if ((ix|jj0|jj1) == 0) in tanhl()
|
/dports/math/openlibm/openlibm-0.8.0/ld128/ |
H A D | s_floorl.c | 31 int64_t i0,i1,jj0; in floorl() local 34 jj0 = ((i0>>48)&0x7fff)-0x3fff; in floorl() 35 if(jj0<48) { in floorl() 36 if(jj0<0) { /* raise inexact if x != 0 */ in floorl() 44 i = (0x0000ffffffffffffULL)>>jj0; in floorl() 47 if(i0<0) i0 += (0x0001000000000000LL)>>jj0; in floorl() 51 } else if (jj0>111) { in floorl() 52 if(jj0==0x4000) return x+x; /* inf or NaN */ in floorl() 55 i = -1ULL>>(jj0-48); in floorl() 59 if(jj0==48) i0+=1; in floorl() [all …]
|
H A D | s_ceill.c | 31 int64_t i0,i1,jj0; in ceill() local 34 jj0 = ((i0>>48)&0x7fff)-0x3fff; in ceill() 35 if(jj0<48) { in ceill() 36 if(jj0<0) { /* raise inexact if x != 0 */ in ceill() 42 i = (0x0000ffffffffffffULL)>>jj0; in ceill() 45 if(i0>0) i0 += (0x0001000000000000LL)>>jj0; in ceill() 49 } else if (jj0>111) { in ceill() 50 if(jj0==0x4000) return x+x; /* inf or NaN */ in ceill() 53 i = -1ULL>>(jj0-48); in ceill() 57 if(jj0==48) i0+=1; in ceill() [all …]
|
H A D | s_modfl.c | 32 int64_t i0,i1,jj0; in modfl() local 35 jj0 = ((i0>>48)&0x7fff)-0x3fff; /* exponent of x */ in modfl() 36 if(jj0<48) { /* integer part in high x */ in modfl() 37 if(jj0<0) { /* |x|<1 */ in modfl() 42 i = (0x0000ffffffffffffLL)>>jj0; in modfl() 53 } else if (jj0>111) { /* no fraction part */ in modfl() 56 if (jj0 == 0x4000 && ((i0 & 0x0000ffffffffffffLL) | i1)) in modfl() 62 i = -1ULL>>(jj0-48); in modfl()
|
/dports/math/lis/lis-2.0.30/src/matvec/ |
H A D | lis_matvec_jad.c | 827 j00 = jj0[i+0]; in lis_matvec_jad_u5_1() 840 j00 = jj0[i+0]; in lis_matvec_jad_u5_1() 852 j00 = jj0[i+0]; in lis_matvec_jad_u5_1() 863 j00 = jj0[i+0]; in lis_matvec_jad_u5_1() 873 j00 = jj0[i+0]; in lis_matvec_jad_u5_1() 903 j00 = jj0[i+0]; in lis_matvec_jad_u5_1() 915 j00 = jj0[i+0]; in lis_matvec_jad_u5_1() 926 j00 = jj0[i+0]; in lis_matvec_jad_u5_1() 936 j00 = jj0[i+0]; in lis_matvec_jad_u5_1() 962 j00 = jj0[i+0]; in lis_matvec_jad_u5_1() [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/nwpwlib/DMatrix/ |
H A D | DMatrix-tcgmsg.F | 686 jj0 = jj0 + 1 716 Q(ii,jj0) = c*Q(ii,jj0) - s*work2(ii) 784 jj0 = 1 786 jj0 = jj0 + 1 789 jj0 = 1 793 jj1 = jj0 + 1 826 if (icur.eq.taskid_i) V(ii,jj0) = A(ii,jj0) 853 > beta = V(ii1,jj0) + dsign(mu,V(ii1,jj0)) 860 if (icur.eq.taskid_i) V(ii,jj0) = V(ii,jj0)/beta 949 jj0 = 1 [all …]
|
H A D | DMatrix-mpi.F | 1423 jj0 = jj0 + 1 1464 Q(ii,jj0) = c*Q(ii,jj0) - s*work2(ii) 1544 jj0 = 1 1546 jj0 = jj0 + 1 1586 if (icur.eq.taskid_i) V(ii,jj0) = A(ii,jj0) 1621 > beta = V(ii1,jj0) + dsign(mu,V(ii1,jj0)) 1749 jj0 = jj0 + 1 2632 jj0 = 1 2634 jj0 = jj0 + 1 2672 if (icur.eq.taskid_i) V1(ii,jj0) = A(ii,jj0) [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwpw/nwpwlib/DMatrix/ |
H A D | DMatrix-tcgmsg.F | 686 jj0 = jj0 + 1 716 Q(ii,jj0) = c*Q(ii,jj0) - s*work2(ii) 784 jj0 = 1 786 jj0 = jj0 + 1 789 jj0 = 1 793 jj1 = jj0 + 1 826 if (icur.eq.taskid_i) V(ii,jj0) = A(ii,jj0) 853 > beta = V(ii1,jj0) + dsign(mu,V(ii1,jj0)) 860 if (icur.eq.taskid_i) V(ii,jj0) = V(ii,jj0)/beta 949 jj0 = 1 [all …]
|
H A D | DMatrix-mpi.F | 1423 jj0 = jj0 + 1 1458 Q(ii,jj0) = c*Q(ii,jj0) - s*work2(ii) 1535 jj0 = 1 1537 jj0 = jj0 + 1 1577 if (icur.eq.taskid_i) V(ii,jj0) = A(ii,jj0) 1612 > beta = V(ii1,jj0) + dsign(mu,V(ii1,jj0)) 1740 jj0 = jj0 + 1 2599 jj0 = 1 2601 jj0 = jj0 + 1 2639 if (icur.eq.taskid_i) V1(ii,jj0) = A(ii,jj0) [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/nwpwlib/CMatrix/ |
H A D | CMatrix-tcgmsg.F | 554 jj0 = 1 556 jj0 = jj0 + 1 586 Q(ii,jj0) = c*Q(ii,jj0) - s*work2(ii) 654 jj0 = 1 656 jj0 = jj0 + 1 659 jj0 = 1 663 jj1 = jj0 + 1 696 if (icur.eq.taskid_i) V(ii,jj0) = A(ii,jj0) 730 if (icur.eq.taskid_i) V(ii,jj0) = V(ii,jj0)/beta 821 jj0 = 1 [all …]
|
H A D | CMatrix-mpi.F | 1398 jj0 = jj0 + 1 1433 Q(ii,jj0) = c*Q(ii,jj0) - s*work2(ii) 1513 jj0 = 1 1515 jj0 = jj0 + 1 1518 jj0 = 1 1522 jj1 = jj0 + 1 1555 if (icur.eq.taskid_i) V(ii,jj0) = A(ii,jj0) 1569 > mu0 = mu0 + dconjg(V(ii,jj0))*V(ii,jj0) 1604 if (icur.eq.taskid_i) V(ii,jj0) = V(ii,jj0)/beta 1620 > v20 = v20 + dcmplx(V(ii,jj0))*V(ii,jj0) [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwpw/nwpwlib/CMatrix/ |
H A D | CMatrix-tcgmsg.F | 554 jj0 = 1 556 jj0 = jj0 + 1 586 Q(ii,jj0) = c*Q(ii,jj0) - s*work2(ii) 654 jj0 = 1 656 jj0 = jj0 + 1 659 jj0 = 1 663 jj1 = jj0 + 1 696 if (icur.eq.taskid_i) V(ii,jj0) = A(ii,jj0) 730 if (icur.eq.taskid_i) V(ii,jj0) = V(ii,jj0)/beta 821 jj0 = 1 [all …]
|
H A D | CMatrix-mpi.F | 1076 jj0 = jj0 + 1 1111 Q(ii,jj0) = c*Q(ii,jj0) - s*work2(ii) 1188 jj0 = 1 1190 jj0 = jj0 + 1 1193 jj0 = 1 1197 jj1 = jj0 + 1 1230 if (icur.eq.taskid_i) V(ii,jj0) = A(ii,jj0) 1244 > mu0 = mu0 + dconjg(V(ii,jj0))*V(ii,jj0) 1279 if (icur.eq.taskid_i) V(ii,jj0) = V(ii,jj0)/beta 1295 > v20 = v20 + dcmplx(V(ii,jj0))*V(ii,jj0) [all …]
|
/dports/graphics/rawtherapee/rawtherapee-5.8/rtengine/ |
H A D | ipresize.cc | 66 int * jj0 = new int[dst->getWidth()]; in Lanczos() local 91 for (int jj = jj0[j]; jj < jj1[j]; jj++) { in Lanczos() 92 int k = jj - jj0[j]; in Lanczos() 164 for (int jj = jj0[j]; jj < jj1[j]; jj++) { in Lanczos() 165 int k = jj - jj0[j]; in Lanczos() 179 delete[] jj0; in Lanczos() 197 int* const jj0 = new int[dst->W]; in Lanczos() local 216 for (int jj = jj0[j]; jj < jj1[j]; jj++) { in Lanczos() 217 int k = jj - jj0[j]; in Lanczos() 318 int k = jj - jj0[x]; in Lanczos() [all …]
|
/dports/math/cado-nfs/cado-nfs-f4284e2391121b2bfb97bc4880b6273c7250dc2f/linalg/bwc/ |
H A D | lingen_matpoly_bigmatpoly_ft_common.hpp | 247 unsigned int jj0, jj1; in dft_B_for_block() local 248 std::tie(jj0, jj1) = loop2.nth_block(iloop2); in dft_B_for_block() 251 submatrix_range Rb (bk0-bk0mpi, j0 + jj0, bk1-bk0, jj1 - jj0); in dft_B_for_block() 252 submatrix_range Rbt (bi * b1, 0, bk1-bk0, jj1 - jj0); in dft_B_for_block() 253 submatrix_range Rbtx (bi * b1, 0, b1, jj1 - jj0); in dft_B_for_block() 263 submatrix_range Rbtxx(0, 0, r*b1, jj1 - jj0); in dft_B_for_block() 283 unsigned int jj0, jj1; in addmul_for_block() local 285 std::tie(jj0, jj1) = loop2.nth_block(iloop2); in addmul_for_block() 291 submatrix_range Rbtxx(0, 0, r*b1, jj1 - jj0); in addmul_for_block() 292 submatrix_range Rct (ii0, jj0, ii1 - ii0, jj1 - jj0); in addmul_for_block()
|
/dports/graphics/luminance-qt5/luminance-hdr-2.6.1.1/src/Libpfs/manip/ |
H A D | resize.hxx | 64 int *jj0 = new int[W2]; in Lanczos() local 82 jj0[j] = std::max(0, static_cast<int>(floorf(x0 - a / sc)) + 1); in Lanczos() 86 for (int jj = jj0[j]; jj < jj1[j]; jj++) { in Lanczos() 87 int k = jj - jj0[j]; in Lanczos() 145 for (int jj = jj0[j]; jj < jj1[j]; jj++) { in Lanczos() 146 int k = jj - jj0[j]; in Lanczos() 159 delete[] jj0; in Lanczos()
|
/dports/graphics/art/ART-1.9.3/rtengine/ |
H A D | ipresize.cc | 68 int* const jj0 = new int[dW]; in Lanczos() local 91 jj0[j] = max (0, static_cast<int> (floorf (x0 - a / sc)) + 1); in Lanczos() 95 for (int jj = jj0[j]; jj < jj1[j]; jj++) { in Lanczos() 96 int k = jj - jj0[j]; in Lanczos() 201 for (int jj = jj0[j]; jj < jj1[j]; jj++) { in Lanczos() 202 int k = jj - jj0[j]; in Lanczos() 215 delete[] jj0; in Lanczos()
|
/dports/lang/gcc6-aux/gcc-6-20180516/gcc/testsuite/gcc.target/aarch64/ |
H A D | pr60697.c | 153 atom_id jj,jj0,jj1,i_atom; in put_in_list() local 208 jj0 = index[jcg]; in put_in_list() 211 add_j_to_nblist(vdw,jj0); in put_in_list() 224 for(jj=jj0; (jj<jj1); jj++) in put_in_list() 259 jj0 = index[jcg]; in put_in_list() 261 for(jj=jj0; (jj<jj1); jj++) { in put_in_list() 296 jj0 = i0 + i + 1; in put_in_list() 298 jj0 = index[jcg]; in put_in_list() 300 for(jj=jj0; jj<jj1; jj++) { in put_in_list() 348 jj0 = i0 + i + 1; in put_in_list() [all …]
|
/dports/lang/gcc10/gcc-10.3.0/gcc/testsuite/gcc.target/aarch64/ |
H A D | pr60697.c | 153 atom_id jj,jj0,jj1,i_atom; in put_in_list() local 208 jj0 = index[jcg]; in put_in_list() 211 add_j_to_nblist(vdw,jj0); in put_in_list() 224 for(jj=jj0; (jj<jj1); jj++) in put_in_list() 259 jj0 = index[jcg]; in put_in_list() 261 for(jj=jj0; (jj<jj1); jj++) { in put_in_list() 296 jj0 = i0 + i + 1; in put_in_list() 298 jj0 = index[jcg]; in put_in_list() 300 for(jj=jj0; jj<jj1; jj++) { in put_in_list() 348 jj0 = i0 + i + 1; in put_in_list() [all …]
|
/dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/gcc.target/aarch64/ |
H A D | pr60697.c | 153 atom_id jj,jj0,jj1,i_atom; in put_in_list() local 208 jj0 = index[jcg]; in put_in_list() 211 add_j_to_nblist(vdw,jj0); in put_in_list() 224 for(jj=jj0; (jj<jj1); jj++) in put_in_list() 259 jj0 = index[jcg]; in put_in_list() 261 for(jj=jj0; (jj<jj1); jj++) { in put_in_list() 296 jj0 = i0 + i + 1; in put_in_list() 298 jj0 = index[jcg]; in put_in_list() 300 for(jj=jj0; jj<jj1; jj++) { in put_in_list() 348 jj0 = i0 + i + 1; in put_in_list() [all …]
|
/dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/testsuite/gcc.target/aarch64/ |
H A D | pr60697.c | 153 atom_id jj,jj0,jj1,i_atom; in put_in_list() local 208 jj0 = index[jcg]; in put_in_list() 211 add_j_to_nblist(vdw,jj0); in put_in_list() 224 for(jj=jj0; (jj<jj1); jj++) in put_in_list() 259 jj0 = index[jcg]; in put_in_list() 261 for(jj=jj0; (jj<jj1); jj++) { in put_in_list() 296 jj0 = i0 + i + 1; in put_in_list() 298 jj0 = index[jcg]; in put_in_list() 300 for(jj=jj0; jj<jj1; jj++) { in put_in_list() 348 jj0 = i0 + i + 1; in put_in_list() [all …]
|
/dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/gcc.target/aarch64/ |
H A D | pr60697.c | 153 atom_id jj,jj0,jj1,i_atom; in put_in_list() local 208 jj0 = index[jcg]; in put_in_list() 211 add_j_to_nblist(vdw,jj0); in put_in_list() 224 for(jj=jj0; (jj<jj1); jj++) in put_in_list() 259 jj0 = index[jcg]; in put_in_list() 261 for(jj=jj0; (jj<jj1); jj++) { in put_in_list() 296 jj0 = i0 + i + 1; in put_in_list() 298 jj0 = index[jcg]; in put_in_list() 300 for(jj=jj0; jj<jj1; jj++) { in put_in_list() 348 jj0 = i0 + i + 1; in put_in_list() [all …]
|