Home
last modified time | relevance | path

Searched refs:iip1 (Results 1 – 25 of 31) sorted by relevance

12

/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/pmg/src_f77/
H A DbuildGd.f221 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 DbuildPd.f279 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 DHPL_pdpanllN.c138 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 DHPL_pdpanllT.c137 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 DHPL_pdpancrT.c137 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 DHPL_pdpancrN.c138 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 DHPL_pdpanrlN.c138 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 DHPL_pdpanrlT.c137 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 DbuildGd.c158 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 DbuildPd.c246 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 DbuildGd.c554 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 Ddlaed4.c544 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 Dslaed4.c542 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 Dslasd4.c26 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 Ddlasd4.c27 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 Ddlaed4.c148 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 Dslaed4.c148 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 Ddlasd4.c156 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 Dslasd4.c156 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 Ddlasd4.c35 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 Dslasd4.cpp28 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 Ddlasd4.cpp28 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 Ddlasd4.lisp754 (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 Dlapack_dlar.cpp10504 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 Df2c_d_lapack.c10724 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 …]

12