Home
last modified time | relevance | path

Searched refs:ione (Results 1 – 25 of 343) sorted by relevance

12345678910>>...14

/dports/math/scalapack/scalapack-2.1.0/SRC/
H A Dpzdotc.c325 &ione, &ione, dotc, &ione );
342 &ione, &ione, dotc, &ione );
360 &ione, &ione, dotc, &ione );
377 &ione, &ione, dotc, &ione );
458 &ione, &ione, dotc, &ione, &mone, &mycol );
476 &ione, &ione, dotc, &ione, &mone, &mycol );
491 &ione, &ione, dotc, &ione, &mone, &mycol );
526 &ione, &ione, dotc, &ione, &mone, &mycol );
533 &ione, &ione, dotc, &ione );
565 &ione, &ione, dotc, &ione, &mone, &mycol );
[all …]
H A Dpzdotu.c325 &ione, &ione, dotu, &ione );
342 &ione, &ione, dotu, &ione );
360 &ione, &ione, dotu, &ione );
377 &ione, &ione, dotu, &ione );
459 &ione, &ione, dotu, &ione, &mone, &mycol );
477 &ione, &ione, dotu, &ione, &mone, &mycol );
492 &ione, &ione, dotu, &ione, &mone, &mycol );
527 &ione, &ione, dotu, &ione, &mone, &mycol );
534 &ione, &ione, dotu, &ione );
566 &ione, &ione, dotu, &ione, &mone, &mycol );
[all …]
/dports/science/lammps/lammps-stable_29Sep2021/src/
H A Dcompute_omega_chunk.cpp218 ione[0][1] = ione[1][0] = iall[3]; in compute_array()
219 ione[1][2] = ione[2][1] = iall[4]; in compute_array()
226 inverse[0][0] = ione[1][1]*ione[2][2] - ione[1][2]*ione[2][1]; in compute_array()
227 inverse[0][1] = -(ione[0][1]*ione[2][2] - ione[0][2]*ione[2][1]); in compute_array()
228 inverse[0][2] = ione[0][1]*ione[1][2] - ione[0][2]*ione[1][1]; in compute_array()
230 inverse[1][0] = -(ione[1][0]*ione[2][2] - ione[1][2]*ione[2][0]); in compute_array()
231 inverse[1][1] = ione[0][0]*ione[2][2] - ione[0][2]*ione[2][0]; in compute_array()
232 inverse[1][2] = -(ione[0][0]*ione[1][2] - ione[0][2]*ione[1][0]); in compute_array()
234 inverse[2][0] = ione[1][0]*ione[2][1] - ione[1][1]*ione[2][0]; in compute_array()
235 inverse[2][1] = -(ione[0][0]*ione[2][1] - ione[0][1]*ione[2][0]); in compute_array()
[all …]
/dports/science/qbox/qbox-public-rel1_73_3/src/
H A DMatrix.cpp1135 a.val, &ione, &ione, a.desc_, in transpose()
1179 a.val, &ione, &ione, a.desc_, in transpose()
1440 val,&ione,&ione,desc_); in syr()
1663 a.val, &ione, &ione, a.desc_, in gemm()
1664 b.val, &ione, &ione, b.desc_, in gemm()
1716 a.val, &ione, &ione, a.desc_, in gemm()
1876 val, &ione, &ione, desc_); in trmm()
1912 val, &ione, &ione, desc_); in trsm()
1948 val, &ione, &ione, desc_); in trsm()
1976 val, &ione, &ione, desc_, in trtrs()
[all …]
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/rdmft/recycling/wfn1/
H A Dwfn1_l1.F119 integer ione ! The number 1 local
120 parameter (ione = 1)
156 En(ist) = En(ist) + ddot(nbf*nbf,r_l1a(1,1,ist),ione,dc2,ione)
159 call dcopy(nbf*nbf,dc2,ione,r_dl1a(1,1,ist),ione)
173 call dcopy(nbf*nbf,r_l1a(1,1,ist),ione,dc3,ione)
182 call dfill(nbf,0.0d0,dc3(1,jj),ione)
210 En(ist) = En(ist) + ddot(nbf*nbf,r_l1b(1,1,ist),ione,dc2,ione)
214 call dcopy(nbf*nbf,dc2,ione,r_dl1b(1,1,ist),ione)
228 call dcopy(nbf*nbf,r_l1b(1,1,ist),ione,dc3,ione)
237 call dfill(nbf,0.0d0,dc3(1,jj),ione)
/dports/science/nwchem-data/nwchem-7.0.2-release/src/rdmft/recycling/wfn1/
H A Dwfn1_l1.F119 integer ione ! The number 1
120 parameter (ione = 1)
156 En(ist) = En(ist) + ddot(nbf*nbf,r_l1a(1,1,ist),ione,dc2,ione)
159 call dcopy(nbf*nbf,dc2,ione,r_dl1a(1,1,ist),ione)
173 call dcopy(nbf*nbf,r_l1a(1,1,ist),ione,dc3,ione)
182 call dfill(nbf,0.0d0,dc3(1,jj),ione)
210 En(ist) = En(ist) + ddot(nbf*nbf,r_l1b(1,1,ist),ione,dc2,ione)
214 call dcopy(nbf*nbf,dc2,ione,r_dl1b(1,1,ist),ione)
228 call dcopy(nbf*nbf,r_l1b(1,1,ist),ione,dc3,ione)
237 call dfill(nbf,0.0d0,dc3(1,jj),ione)
/dports/science/lammps/lammps-stable_29Sep2021/src/EXTRA-COMPUTE/
H A Dcompute_gyration_shape.cpp89 double ione[3][3], evalues[3], evectors[3][3]; in compute_vector() local
91 ione[0][0] = gyration_tensor[0]; in compute_vector()
92 ione[1][1] = gyration_tensor[1]; in compute_vector()
93 ione[2][2] = gyration_tensor[2]; in compute_vector()
94 ione[0][1] = ione[1][0] = gyration_tensor[3]; in compute_vector()
95 ione[0][2] = ione[2][0] = gyration_tensor[4]; in compute_vector()
96 ione[1][2] = ione[2][1] = gyration_tensor[5]; in compute_vector()
98 int ierror = MathEigen::jacobi3(ione,evalues,evectors); in compute_vector()
H A Dcompute_gyration_shape_chunk.cpp117 double ione[3][3], evalues[3], evectors[3][3]; in compute_array() local
121 ione[0][0] = gyration_tensor[ichunk][0]; in compute_array()
122 ione[1][1] = gyration_tensor[ichunk][1]; in compute_array()
123 ione[2][2] = gyration_tensor[ichunk][2]; in compute_array()
124 ione[0][1] = ione[1][0] = gyration_tensor[ichunk][3]; in compute_array()
125 ione[0][2] = ione[2][0] = gyration_tensor[ichunk][4]; in compute_array()
126 ione[1][2] = ione[2][1] = gyration_tensor[ichunk][5]; in compute_array()
128 int ierror = MathEigen::jacobi3(ione,evalues,evectors); in compute_array()
/dports/math/scalapack/scalapack-2.1.0/PBLAS/SRC/PTOOLS/
H A DPB_Ctzhemv.c175 int i1, ione=1, j1, m1, mn, n1, size; local
190 &ione );
200 Mptr( YC, i1, 0, LDYC, size ), &ione );
206 Mptr( YC, i1, 0, LDYC, size ), &ione );
208 size ), &LDA, Mptr( XC, i1, 0, LDXC, size ), &ione, one,
223 YC, &ione );
229 Mptr( YC, m1, 0, LDYC, size ), &ione );
235 &LDA, Mptr( XR, 0, j1, LDXR, size ), &LDXR, one, YC, &ione );
237 &LDA, XC, &ione, one, Mptr( YR, 0, j1, LDYR, size ), &LDYR );
244 &ione );
[all …]
H A DPB_Ctzsymv.c175 int i1, ione=1, j1, m1, mn, n1, size; local
190 &ione );
200 Mptr( YC, i1, 0, LDYC, size ), &ione );
206 Mptr( YC, i1, 0, LDYC, size ), &ione );
208 size ), &LDA, Mptr( XC, i1, 0, LDXC, size ), &ione, one,
223 YC, &ione );
229 Mptr( YC, m1, 0, LDYC, size ), &ione );
235 &LDA, Mptr( XR, 0, j1, LDXR, size ), &LDXR, one, YC, &ione );
237 &LDA, XC, &ione, one, Mptr( YR, 0, j1, LDYR, size ), &LDYR );
244 &ione );
[all …]
H A DPB_Ctzahemv.c175 int i1, ione=1, j1, m1, mn, n1, size, usiz; local
191 &ione );
201 Mptr( YC, i1, 0, LDYC, usiz ), &ione );
207 &LDXR, one, Mptr( YC, i1, 0, LDYC, usiz ), &ione );
210 &ione, one, Mptr( YR, 0, j1, LDYR, usiz ), &LDYR );
225 YC, &ione );
231 Mptr( YC, m1, 0, LDYC, usiz ), &ione );
237 &LDA, Mptr( XR, 0, j1, LDXR, size ), &LDXR, one, YC, &ione );
239 &LDA, XC, &ione, one, Mptr( YR, 0, j1, LDYR, usiz ), &LDYR );
246 &ione );
[all …]
H A DPB_Ctzasymv.c175 int i1, ione=1, j1, m1, mn, n1, size, usiz; local
191 &ione );
201 Mptr( YC, i1, 0, LDYC, usiz ), &ione );
207 Mptr( YC, i1, 0, LDYC, usiz ), &ione );
209 size ), &LDA, Mptr( XC, i1, 0, LDXC, size ), &ione, one,
225 YC, &ione );
231 Mptr( YC, m1, 0, LDYC, usiz ), &ione );
237 &LDA, Mptr( XR, 0, j1, LDXR, size ), &LDXR, one, YC, &ione );
239 &LDA, XC, &ione, one, Mptr( YR, 0, j1, LDYR, usiz ), &LDYR );
246 &ione );
[all …]
H A DPB_Ctzsyr2.c173 int i1, ione=1, j1, m1, mn, n1, size; local
187 geru( &M, &n1, ALPHA, XC, &ione, YR, &LDYR, A, &LDA );
188 geru( &M, &n1, ALPHA, YC, &ione, XR, &LDXR, A, &LDA );
195 size ), &ione, Mptr( YR, 0, j1, LDYR, size ), &LDYR,
201 &ione, Mptr( YR, 0, j1, LDYR, size ), &LDYR,
203 geru( &m1, &n1, ALPHA, Mptr( YC, i1, 0, LDYC, size ), &ione,
218 geru( &m1, &n1, ALPHA, XC, &ione, YR, &LDYR, A, &LDA );
219 geru( &m1, &n1, ALPHA, YC, &ione, XR, &LDXR, A, &LDA );
222 size ), &ione, Mptr( YR, 0, j1, LDYR, size ), &LDYR,
237 geru( &M, &N, ALPHA, XC, &ione, YR, &LDYR, A, &LDA );
[all …]
H A DPB_Ctzher2.c173 int i1, ione=1, j1, m1, mn, n1, size; local
198 gerc( &M, &n1, ALPHA, XC, &ione, YR, &LDYR, A, &LDA );
199 gerc( &M, &n1, Calph, YC, &ione, XR, &LDXR, A, &LDA );
206 size ), &ione, Mptr( YR, 0, j1, LDYR, size ), &LDYR,
211 gerc( &m1, &n1, ALPHA, Mptr( XC, i1, 0, LDXC, size ), &ione,
214 gerc( &m1, &n1, Calph, Mptr( YC, i1, 0, LDYC, size ), &ione,
229 gerc( &m1, &n1, ALPHA, XC, &ione, YR, &LDYR, A, &LDA );
230 gerc( &m1, &n1, Calph, YC, &ione, XR, &LDXR, A, &LDA );
233 size ), &ione, Mptr( YR, 0, j1, LDYR, size ), &LDYR,
248 gerc( &M, &N, ALPHA, XC, &ione, YR, &LDYR, A, &LDA );
[all …]
/dports/math/blocksolve95/BlockSolve95/src/
H A DBSback_solve.c46 int ione = 1; in BSback_solve() local
85 work,&ione); in BSback_solve()
113 work,&ione,&zero,&(msg_buf[count]),&ione); in BSback_solve()
121 work,&ione,&zero,&(msg_buf[count]),&ione); in BSback_solve()
151 work,&ione,&one,&(x[ind]),&ione); in BSback_solve()
159 work,&ione,&one,&(x[ind]),&ione); in BSback_solve()
183 &ione,&zero,work,&ione); in BSback_solve()
191 &ione,&zero,work,&ione); in BSback_solve()
238 &ione,&zero,work,&ione); in BSback_solve()
246 &ione,&zero,work,&ione); in BSback_solve()
[all …]
H A DBSfor_solve.c38 int ione = 1; in BSfor_solve() local
73 DTRMV(&UP,&TR,&ND,&size,matrix,&size,&(x[ind]),&ione); in BSfor_solve()
110 &ione,&zero,work,&ione); in BSfor_solve()
118 &ione,&zero,work,&ione); in BSfor_solve()
145 &ione,&zero,work,&ione); in BSfor_solve()
153 &ione,&zero,work,&ione); in BSfor_solve()
182 &(msg_buf[count]),&ione,&zero,work,&ione); in BSfor_solve()
190 &(msg_buf[count]),&ione,&zero,work,&ione); in BSfor_solve()
218 &ione,&zero,work,&ione); in BSfor_solve()
226 &(msg_buf[count]),&ione,&zero,work,&ione); in BSfor_solve()
H A DBSbackward.c39 int ione = 1; in BSbackward() local
88 work,&ione,&zero,&(msg_buf[count]),&ione); in BSbackward()
96 work,&ione,&zero,&(msg_buf[count]),&ione); in BSbackward()
124 DCOPY(&j,&(x[ind+1]),&ione,work,&ione); in BSbackward()
125 DTRMV(&UP,&TR,&ND,&j,matrix,&size,work,&ione); in BSbackward()
126 DAXPY(&j,&one,work,&ione,&(b[ind]),&ione); in BSbackward()
142 work,&ione,&one,&(b[ind]),&ione); in BSbackward()
149 work,&ione,&one,&(b[ind]),&ione); in BSbackward()
H A DBSforward.c37 int ione = 1; in BSforward() local
74 &(x[ind]),&ione,&zero,&(b[ind]),&ione); in BSforward()
125 DCOPY(&j,&(x[ind]),&ione,work,&ione); in BSforward()
126 DTRMV(&UP,&TR,&ND,&j,matrix,&size,work,&ione); in BSforward()
127 DAXPY(&j,&one,work,&ione,&(b[ind+1]),&ione); in BSforward()
143 nz,&size,&(x[ind]),&ione,&zero,work,&ione); in BSforward()
150 nz,&size,&(x[ind]),&ione,&zero,work,&ione); in BSforward()
179 nz,&size,&(msg_buf[count]),&ione,&zero,work,&ione); in BSforward()
187 nz,&size,&(msg_buf[count]),&ione,&zero,work,&ione); in BSforward()
/dports/science/PETSc/petsc-3.14.1/src/mat/tests/
H A Dex126f.F16 PetscInt ione, ifive
31 ione = 1
57 call MatSetValues(A,ione,II,ione,JJ,v,INSERT_VALUES,ierr)
61 call MatSetValues(A,ione,II,ione,JJ,v,INSERT_VALUES,ierr)
65 call MatSetValues(A,ione,II,ione,JJ,v,INSERT_VALUES,ierr)
69 call MatSetValues(A,ione,II,ione,JJ,v,INSERT_VALUES,ierr)
72 call MatSetValues(A,ione,II,ione,II,v,INSERT_VALUES,ierr)
/dports/finance/R-cran-ccgarch/ccgarch/src/
H A DR_stcc_sim.c8 int i, j, k, nobs = asInteger(n), ndim = LENGTH(a0), cordim = ndim*ndim, info, ione = 1; in stcc_sim() local
70 F77_CALL(dcopy)(&ndim, rhini, &ione, rel2, &ione); in stcc_sim()
71 F77_CALL(dcopy)(&ndim, rhini, &ione, rhl, &ione); in stcc_sim()
87 …F77_CALL(dgemv)("N", &ndim, &ndim, &one, tmprR, &ndim, rz_tmp, &ione, &zero, rz_row, &ione); /* … in stcc_sim()
89 F77_CALL(dgemv)("N", &ndim, &ndim, &one, rA, &ndim, rel2, &ione, &zero, rh_row, &ione); in stcc_sim()
90 F77_CALL(dgemv)("N", &ndim, &ndim, &one, rB, &ndim, rhl, &ione, &one, rh_row, &ione); in stcc_sim()
91 F77_CALL(daxpy)(&ndim, &one, ra, &ione, rh_row, &ione); in stcc_sim()
H A DR_eccc_sim.c9 int i, j, nobs = asInteger(n), ndim = LENGTH(a0), info, ione = 1; in eccc_sim() local
50 F77_CALL(dcopy)(&ndim, rhini, &ione, rel2, &ione); in eccc_sim()
51 F77_CALL(dcopy)(&ndim, rhini, &ione, rhl, &ione); in eccc_sim()
80 F77_CALL(dgemv)("N", &ndim, &ndim, &one, rA, &ndim, rel2, &ione, &zero, rh_row, &ione); in eccc_sim()
81 F77_CALL(dgemv)("N", &ndim, &ndim, &one, rB, &ndim, rhl, &ione, &one, rh_row, &ione); in eccc_sim()
82 F77_CALL(daxpy)(&ndim, &one, ra, &ione, rh_row, &ione); in eccc_sim()
H A DR_dcc_sim.c7 int i, j, k, nobs = asInteger(n), ndim = LENGTH(a0), cordim = ndim*ndim, info, ione = 1; in dcc_sim() local
106 F77_CALL(dcopy)(&ndim, rhini, &ione, rel2, &ione); in dcc_sim()
107 F77_CALL(dcopy)(&ndim, rhini, &ione, rhl, &ione); in dcc_sim()
117 …F77_CALL(dgemv)("N", &ndim, &ndim, &one, rR, &ndim, rz_tmp, &ione, &zero, rz_row, &ione); /* rz_… in dcc_sim()
122 …F77_CALL(dgemm)("N", "T", &ndim, &ndim, &ione, rd_a, rz_row, &ndim, rz_row, &ndim, rd_b, rQlag, &n… in dcc_sim()
148 …F77_CALL(dgemv)("N", &ndim, &ndim, &one, tmprR, &ndim, rz_tmp, &ione, &zero, rz_row, &ione); /* … in dcc_sim()
155 F77_CALL(dgemv)("N", &ndim, &ndim, &one, rA, &ndim, rel2, &ione, &zero, rh_row, &ione); in dcc_sim()
156 F77_CALL(dgemv)("N", &ndim, &ndim, &one, rB, &ndim, rhl, &ione, &one, rh_row, &ione); in dcc_sim()
157 F77_CALL(daxpy)(&ndim, &one, ra, &ione, rh_row, &ione); in dcc_sim()
/dports/science/PETSc/petsc-3.14.1/src/ksp/ksp/tests/
H A Dex62f.F9046 PetscInt Iend,m,n,its,ione
68 ione = 1
108 call MatSetValues(A,ione,II,ione,JJ,v,ADD_VALUES,ierr)
112 call MatSetValues(A,ione,II,ione,JJ,v,ADD_VALUES,ierr)
116 call MatSetValues(A,ione,II,ione,JJ,v,ADD_VALUES,ierr)
120 call MatSetValues(A,ione,II,ione,JJ,v,ADD_VALUES,ierr)
123 call MatSetValues(A,ione,II,ione,II,v,ADD_VALUES,ierr)
/dports/science/PETSc/petsc-3.14.1/src/ksp/ksp/tutorials/
H A Dex2f.F9042 PetscInt Istart,Iend,ione
77 ione = 1
123 call MatSetValues(A,ione,II,ione,JJ,v,INSERT_VALUES,ierr)
127 call MatSetValues(A,ione,II,ione,JJ,v,INSERT_VALUES,ierr)
131 call MatSetValues(A,ione,II,ione,JJ,v,INSERT_VALUES,ierr)
135 call MatSetValues(A,ione,II,ione,JJ,v,INSERT_VALUES,ierr)
138 call MatSetValues(A,ione,II,ione,II,v,INSERT_VALUES,ierr)
H A Dex57f.F9042 PetscInt Istart,Iend,ione
76 ione = 1
123 call MatSetValues(A,ione,II,ione,JJ,v,INSERT_VALUES,ierr)
127 call MatSetValues(A,ione,II,ione,JJ,v,INSERT_VALUES,ierr)
131 call MatSetValues(A,ione,II,ione,JJ,v,INSERT_VALUES,ierr)
135 call MatSetValues(A,ione,II,ione,JJ,v,INSERT_VALUES,ierr)
138 call MatSetValues(A,ione,II,ione,II,v,INSERT_VALUES,ierr)

12345678910>>...14