/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/pmg/src_f77/ |
H A D | buildGd.f | 221 integer iim1,iip1,jjm1,jjp1,kkm1,kkp1 local 272 iip1 = ii+1 541 integer iim1,iip1,jjm1,jjp1,kkm1,kkp1 local 604 iip1 = ii+1 796 2 + oPS(ii,jj,kk) * oE(i,jm1,k) * oPSW(iip1,jj,kk) 798 2 + dPC(ii,jj,kk) * oE(i,j,km1) * dPW(iip1,jj,kk) 799 2 + oPC(ii,jj,kk) * oE(i,j,k) * oPW(iip1,jj,kk) 800 2 + uPC(ii,jj,kk) * oE(i,j,kp1) * uPW(iip1,jj,kk) 802 2 + oPN(ii,jj,kk) * oE(i,jp1,k) * oPNW(iip1,jj,kk) 1363 integer iim1,iip1,jjm1,jjp1,kkm1,kkp1 local [all …]
|
H A D | buildPd.f | 279 integer iim1,iip1,jjm1,jjp1,kkm1,kkp1 327 iip1 = ii+1 681 integer iim1,iip1,jjm1,jjp1,kkm1,kkp1 735 iip1 = ii+1 1126 integer iim1,iip1,jjm1,jjp1,kkm1,kkp1 1190 iip1 = ii+1 1741 integer iim1,iip1,jjm1,jjp1,kkm1,kkp1 1795 iip1 = ii+1
|
/dports/benchmarks/hpl/hpl-2.3/src/pfact/ |
H A D | HPL_pdpanllN.c | 138 int Mm1, Nm1, curr, ii, iip1, jj, kk, lda, local 151 if( curr != 0 ) { ii = ICOFF; iip1 = ii+1; Mm1 = m-1; } 152 else { ii = 0; iip1 = ii; Mm1 = m; } 188 HPL_dscal( Mm1, HPL_rone / WORK[0], Mptr( A, iip1, jj, lda ), 1 ); 193 Av1 = vsip_msubview_d( Av0, PANEL->ii+iip1, PANEL->jj+ICOFF, Mm1, kk ); 195 Yv1 = vsip_msubview_d( Av0, PANEL->ii+iip1, PANEL->jj+jj+1, Mm1, 1 ); 207 Mptr( A, iip1, ICOFF, lda ), lda, L1ptr, 1, 208 HPL_rone, Mptr( A, iip1, jj+1, lda ), 1 ); 210 HPL_dlocmax( PANEL, Mm1, iip1, jj+1, WORK ); 214 ii = iip1; iip1++; m = Mm1; Mm1--; [all …]
|
H A D | HPL_pdpanllT.c | 137 int Mm1, Nm1, curr, ii, iip1, jj, kk, lda, 150 if( curr != 0 ) { ii = ICOFF; iip1 = ii+1; Mm1 = m-1; } 151 else { ii = 0; iip1 = ii; Mm1 = m; } 187 HPL_dscal( Mm1, HPL_rone / WORK[0], Mptr( A, iip1, jj, lda ), 1 ); 192 Av1 = vsip_msubview_d( Av0, PANEL->ii+iip1, PANEL->jj+ICOFF, Mm1, kk ); 194 Yv1 = vsip_msubview_d( Av0, PANEL->ii+iip1, PANEL->jj+jj+1, Mm1, 1 ); 206 Mptr( A, iip1, ICOFF, lda ), lda, L1ptr, n0, 207 HPL_rone, Mptr( A, iip1, jj+1, lda ), 1 ); 209 HPL_dlocmax( PANEL, Mm1, iip1, jj+1, WORK ); 213 ii = iip1; iip1++; m = Mm1; Mm1--; [all …]
|
H A D | HPL_pdpancrT.c | 137 int Mm1, Nm1, curr, ii, iip1, jj, kk=0, lda, local 150 if( curr != 0 ) { ii = ICOFF; iip1 = ii+1; Mm1 = m-1; } 151 else { ii = 0; iip1 = ii; Mm1 = m; } 214 HPL_dscal( Mm1, HPL_rone / WORK[0], Mptr( A, iip1, jj, lda ), 1 ); 219 Av1 = vsip_msubview_d( Av0, PANEL->ii+iip1, PANEL->jj+ICOFF, Mm1, kk+1 ); 221 Yv1 = vsip_msubview_d( Av0, PANEL->ii+iip1, PANEL->jj+jj+1, Mm1, 1 ); 233 Mptr( A, iip1, ICOFF, lda ), lda, Mptr( L1, jj+1, ICOFF, 234 n0 ), n0, HPL_rone, Mptr( A, iip1, jj+1, lda ), 1 ); 236 HPL_dlocmax( PANEL, Mm1, iip1, jj+1, WORK ); 237 if( curr != 0 ) { ii = iip1; iip1++; m = Mm1; Mm1--; } [all …]
|
H A D | HPL_pdpancrN.c | 138 int Mm1, Nm1, curr, ii, iip1, jj, kk=0, lda, local 151 if( curr != 0 ) { ii = ICOFF; iip1 = ii+1; Mm1 = m-1; } 152 else { ii = 0; iip1 = ii; Mm1 = m; } 215 HPL_dscal( Mm1, HPL_rone / WORK[0], Mptr( A, iip1, jj, lda ), 1 ); 220 Av1 = vsip_msubview_d( Av0, PANEL->ii+iip1, PANEL->jj+ICOFF, Mm1, kk+1 ); 222 Yv1 = vsip_msubview_d( Av0, PANEL->ii+iip1, PANEL->jj+jj+1, Mm1, 1 ); 234 Mptr( A, iip1, ICOFF, lda ), lda, Mptr( L1, ICOFF, 235 jj+1, n0 ), 1, HPL_rone, Mptr( A, iip1, jj+1, lda ), 238 HPL_dlocmax( PANEL, Mm1, iip1, jj+1, WORK ); 239 if( curr != 0 ) { ii = iip1; iip1++; m = Mm1; Mm1--; } [all …]
|
H A D | HPL_pdpanrlN.c | 138 int Mm1, Nm1, curr, ii, iip1, jj, lda, m=M; local 149 if( curr != 0 ) { ii = ICOFF; iip1 = ii+1; Mm1 = m-1; } 150 else { ii = 0; iip1 = ii; Mm1 = m; } 170 Acur = Mptr( A, iip1, jj, lda ); Anxt = Mptr( Acur, 0, 1, lda ); 185 HPL_dlocmax( PANEL, Mm1, iip1, jj+1, WORK ); 192 Av1 = vsip_msubview_d( Av0, PANEL->ii+iip1, PANEL->jj+jj+2, 194 Xv1 = vsip_msubview_d( Av0, PANEL->ii+iip1, PANEL->jj+jj, 220 if( curr != 0 ) { ii = iip1; iip1++; m = Mm1; Mm1--; } 231 HPL_dscal( Mm1, HPL_rone / WORK[0], Mptr( A, iip1, jj, lda ), 1 );
|
H A D | HPL_pdpanrlT.c | 137 int Mm1, Nm1, curr, ii, iip1, jj, lda, m=M, local 150 if( curr != 0 ) { ii = ICOFF; iip1 = ii+1; Mm1 = m-1; } 151 else { ii = 0; iip1 = ii; Mm1 = m; } 171 Acur = Mptr( A, iip1, jj, lda ); Anxt = Mptr( Acur, 0, 1, lda ); 186 HPL_dlocmax( PANEL, Mm1, iip1, jj+1, WORK ); 194 Av1 = vsip_msubview_d( Av0, PANEL->ii+iip1, PANEL->jj+jj+2, 196 Xv1 = vsip_msubview_d( Av0, PANEL->ii+iip1, PANEL->jj+jj, 214 if( curr != 0 ) { ii = iip1; iip1++; m = Mm1; Mm1--; } 225 HPL_dscal( Mm1, HPL_rone / WORK[0], Mptr( A, iip1, jj, lda ), 1 );
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/src/pmgc/ |
H A D | buildGd.c | 158 int iim1, iip1, jjm1, jjp1, kkm1, kkp1; in VbuildG_1() local 238 iip1 = ii + 1; in VbuildG_1() 465 int iim1, iip1; in VbuildG_7() local 560 iip1 = ii + 1; in VbuildG_7() 1269 int iim1, iip1; in VbuildG_27() local 1408 iip1 = ii + 1; in VbuildG_27() 1831 - VAT3( oE, i,jm1,k) * VAT3(oPSW, iip1,jj,kk) in VbuildG_27() 1852 - VAT3( uSE, i,j,k) * VAT3(uPSW, iip1,jj,kk) in VbuildG_27() 1854 - VAT3( oE, i,j,k) * VAT3( oPW, iip1,jj,kk) in VbuildG_27() 1855 - VAT3( uE, i,j,k) * VAT3( uPW, iip1,jj,kk) in VbuildG_27() [all …]
|
H A D | buildPd.c | 246 int iim1, iip1; in VbuildPb_op7() local 317 iip1 = ii + 1; in VbuildPb_op7() 767 int iim1, iip1; in VbuildPb_op27() local 848 iip1 = ii + 1; in VbuildPb_op27()
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/pmg/ |
H A D | buildGd.c | 554 iip1 = ii + 1; in buildg_1__() 641 oc_dim2) * oc_dim1] * dpsw[iip1 + (jj + kk * in buildg_1__() 657 oc_dim2) * oc_dim1] * dpnw[iip1 + (jj + kk * in buildg_1__() 1180 iip1 = ii + 1; in buildg_7__() 1479 oc_dim2) * oc_dim1] * dpsw[iip1 + (jj + kk * in buildg_7__() 1481 uc_dim2) * uc_dim1] * opsw[iip1 + (jj + kk * in buildg_7__() 1492 uc_dim2) * uc_dim1] * upsw[iip1 + (jj + kk * in buildg_7__() 1500 oc_dim2) * oc_dim1] * upsw[iip1 + (jj + kk * in buildg_7__() 1508 * oc_dim2) * oc_dim1] * dpw[iip1 + (jj + kk * in buildg_7__() 1523 on_dim2) * on_dim1] * opnw[iip1 + (jj + kk * in buildg_7__() [all …]
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/ |
H A D | dlaed4.c | 544 iip1 = ii + 1; in dlaed4_() 565 i__1 = iip1; in dlaed4_() 664 zz[2] = delta[iip1] * delta[iip1] * (dpsi - temp1 + dphi); in dlaed4_() 666 temp1 = z__[iip1] / delta[iip1]; in dlaed4_() 671 zz[2] = z__[iip1] * z__[iip1]; in dlaed4_() 726 i__1 = iip1; in dlaed4_() 836 zz[2] = delta[iip1] * delta[iip1] * dphi; in dlaed4_() 844 zz[2] = delta[iip1] * delta[iip1] * (dpsi - temp1 + in dlaed4_() 847 temp1 = z__[iip1] / delta[iip1]; in dlaed4_() 853 zz[2] = z__[iip1] * z__[iip1]; in dlaed4_() [all …]
|
H A D | slaed4.c | 542 iip1 = ii + 1; in slaed4_() 563 i__1 = iip1; in slaed4_() 662 zz[2] = delta[iip1] * delta[iip1] * (dpsi - temp1 + dphi); in slaed4_() 664 temp1 = z__[iip1] / delta[iip1]; in slaed4_() 669 zz[2] = z__[iip1] * z__[iip1]; in slaed4_() 724 i__1 = iip1; in slaed4_() 834 zz[2] = delta[iip1] * delta[iip1] * dphi; in slaed4_() 842 zz[2] = delta[iip1] * delta[iip1] * (dpsi - temp1 + in slaed4_() 845 temp1 = z__[iip1] / delta[iip1]; in slaed4_() 851 zz[2] = z__[iip1] * z__[iip1]; in slaed4_() [all …]
|
H A D | slasd4.c | 26 static integer iim1, iip1; in slasd4_() local 569 iip1 = ii + 1; in slasd4_() 590 i__1 = iip1; in slasd4_() 677 dtiip = work[iip1] * delta[iip1]; in slasd4_() 700 zz[2] = z__[iip1] * z__[iip1]; in slasd4_() 768 i__1 = iip1; in slasd4_() 866 dtiip = work[iip1] * delta[iip1]; in slasd4_() 877 iip1]) * temp1; in slasd4_() 889 iip1]) * temp1; in slasd4_() 896 zz[2] = z__[iip1] * z__[iip1]; in slasd4_() [all …]
|
H A D | dlasd4.c | 27 static integer iim1, iip1; in dlasd4_() local 570 iip1 = ii + 1; in dlasd4_() 591 i__1 = iip1; in dlasd4_() 678 dtiip = work[iip1] * delta[iip1]; in dlasd4_() 701 zz[2] = z__[iip1] * z__[iip1]; in dlasd4_() 769 i__1 = iip1; in dlasd4_() 867 dtiip = work[iip1] * delta[iip1]; in dlasd4_() 878 iip1]) * temp1; in dlasd4_() 890 iip1]) * temp1; in dlasd4_() 897 zz[2] = z__[iip1] * z__[iip1]; in dlasd4_() [all …]
|
/dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/ |
H A D | dlaed4.c | 148 integer iim1, iip1; in dlaed4_() local 593 iip1 = ii + 1; in dlaed4_() 613 i__1 = iip1; in dlaed4_() 724 zz[2] = delta[iip1] * delta[iip1] * (dpsi - temp1 + dphi); in dlaed4_() 728 temp1 = z__[iip1] / delta[iip1]; in dlaed4_() 732 zz[2] = z__[iip1] * z__[iip1]; in dlaed4_() 790 i__1 = iip1; in dlaed4_() 921 zz[2] = delta[iip1] * delta[iip1] * dphi; in dlaed4_() 935 temp1 = z__[iip1] / delta[iip1]; in dlaed4_() 939 zz[2] = z__[iip1] * z__[iip1]; in dlaed4_() [all …]
|
H A D | slaed4.c | 148 integer iim1, iip1; in slaed4_() local 593 iip1 = ii + 1; in slaed4_() 613 i__1 = iip1; in slaed4_() 724 zz[2] = delta[iip1] * delta[iip1] * (dpsi - temp1 + dphi); in slaed4_() 728 temp1 = z__[iip1] / delta[iip1]; in slaed4_() 732 zz[2] = z__[iip1] * z__[iip1]; in slaed4_() 790 i__1 = iip1; in slaed4_() 921 zz[2] = delta[iip1] * delta[iip1] * dphi; in slaed4_() 935 temp1 = z__[iip1] / delta[iip1]; in slaed4_() 939 zz[2] = z__[iip1] * z__[iip1]; in slaed4_() [all …]
|
H A D | dlasd4.c | 156 integer iim1, iip1; in dlasd4_() local 599 iip1 = ii + 1; in dlasd4_() 619 i__1 = iip1; in dlasd4_() 719 dtiip = work[iip1] * delta[iip1]; in dlasd4_() 749 zz[2] = z__[iip1] * z__[iip1]; in dlasd4_() 873 i__1 = iip1; in dlasd4_() 996 dtiip = work[iip1] * delta[iip1]; in dlasd4_() 1010 temp2 = (d__[iim1] - d__[iip1]) * (d__[iim1] + d__[ iip1]) * temp1; in dlasd4_() 1026 temp2 = (d__[iip1] - d__[iim1]) * (d__[iim1] + d__[ iip1]) * temp1; in dlasd4_() 1036 zz[2] = z__[iip1] * z__[iip1]; in dlasd4_() [all …]
|
H A D | slasd4.c | 156 integer iim1, iip1; in slasd4_() local 602 iip1 = ii + 1; in slasd4_() 622 i__1 = iip1; in slasd4_() 722 dtiip = work[iip1] * delta[iip1]; in slasd4_() 752 zz[2] = z__[iip1] * z__[iip1]; in slasd4_() 876 i__1 = iip1; in slasd4_() 999 dtiip = work[iip1] * delta[iip1]; in slasd4_() 1013 temp2 = (d__[iim1] - d__[iip1]) * (d__[iim1] + d__[ iip1]) * temp1; in slasd4_() 1029 temp2 = (d__[iip1] - d__[iim1]) * (d__[iim1] + d__[ iip1]) * temp1; in slasd4_() 1039 zz[2] = z__[iip1] * z__[iip1]; in slasd4_() [all …]
|
/dports/misc/visp/visp-3.4.0/3rdparty/clapack/src/ |
H A D | dlasd4.c | 35 integer iim1, iip1; in dlasd4_() local 576 iip1 = ii + 1; in dlasd4_() 597 i__1 = iip1; in dlasd4_() 684 dtiip = work[iip1] * delta[iip1]; in dlasd4_() 707 zz[2] = z__[iip1] * z__[iip1]; in dlasd4_() 775 i__1 = iip1; in dlasd4_() 873 dtiip = work[iip1] * delta[iip1]; in dlasd4_() 884 iip1]) * temp1; in dlasd4_() 896 iip1]) * temp1; in dlasd4_() 903 zz[2] = z__[iip1] * z__[iip1]; in dlasd4_() [all …]
|
/dports/science/gromacs/gromacs-2021.4/src/gromacs/linearalgebra/gmx_lapack/ |
H A D | slasd4.cpp | 28 int iim1, iip1; in F77_FUNC() local 343 iip1 = ii + 1; in F77_FUNC() 359 i__1 = iip1; in F77_FUNC() 432 dtiip = work[iip1] * delta[iip1]; in F77_FUNC() 455 zz[2] = z__[iip1] * z__[iip1]; in F77_FUNC() 511 i__1 = iip1; in F77_FUNC() 596 dtiip = work[iip1] * delta[iip1]; in F77_FUNC() 607 iip1]) * temp1; in F77_FUNC() 619 iip1]) * temp1; in F77_FUNC() 626 zz[2] = z__[iip1] * z__[iip1]; in F77_FUNC() [all …]
|
H A D | dlasd4.cpp | 28 int iim1, iip1; in F77_FUNC() local 343 iip1 = ii + 1; in F77_FUNC() 359 i__1 = iip1; in F77_FUNC() 432 dtiip = work[iip1] * delta[iip1]; in F77_FUNC() 455 zz[2] = z__[iip1] * z__[iip1]; in F77_FUNC() 511 i__1 = iip1; in F77_FUNC() 596 dtiip = work[iip1] * delta[iip1]; in F77_FUNC() 607 iip1]) * temp1; in F77_FUNC() 619 iip1]) * temp1; in F77_FUNC() 626 zz[2] = z__[iip1] * z__[iip1]; in F77_FUNC() [all …]
|
/dports/math/maxima/maxima-5.43.2/share/lapack/lapack/ |
H A D | dlasd4.lisp | 754 (setf iip1 (f2cl-lib:int-add ii 1)) 783 ((> j iip1) nil) 936 (iip1) 956 (iip1) 965 (iip1) 1002 (iip1) 1015 (iip1) 1103 ((> j iip1) nil) 1293 (iip1) 1297 (iip1) [all …]
|
/dports/audio/praat/praat-6.2.03/external/clapack/ |
H A D | lapack_dlar.cpp | 10504 integer iim1, iip1; in dlasd4_() local 11040 iip1 = ii + 1; in dlasd4_() 11061 i__1 = iip1; in dlasd4_() 11148 dtiip = work[iip1] * delta[iip1]; in dlasd4_() 11171 zz[2] = z__[iip1] * z__[iip1]; in dlasd4_() 11239 i__1 = iip1; in dlasd4_() 11337 dtiip = work[iip1] * delta[iip1]; in dlasd4_() 11348 iip1]) * temp1; in dlasd4_() 11360 iip1]) * temp1; in dlasd4_() 11367 zz[2] = z__[iip1] * z__[iip1]; in dlasd4_() [all …]
|
/dports/math/py-numpy/numpy-1.20.3/numpy/linalg/lapack_lite/ |
H A D | f2c_d_lapack.c | 10724 i__1 = iip1; in dlaed4_() 10827 temp1 = z__[iip1] / delta[iip1]; in dlaed4_() 10832 zz[2] = z__[iip1] * z__[iip1]; in dlaed4_() 10998 zz[2] = delta[iip1] * delta[iip1] * dphi; in dlaed4_() 11006 zz[2] = delta[iip1] * delta[iip1] * (dpsi - temp1 + in dlaed4_() 11009 temp1 = z__[iip1] / delta[iip1]; in dlaed4_() 11015 zz[2] = z__[iip1] * z__[iip1]; in dlaed4_() 26324 dtiip = work[iip1] * delta[iip1]; in dlasd4_() 26347 zz[2] = z__[iip1] * z__[iip1]; in dlasd4_() 26515 dtiip = work[iip1] * delta[iip1]; in dlasd4_() [all …]
|