/dports/math/scalapack/scalapack-2.1.0/SRC/ |
H A D | pzdotc.c | 325 &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 D | pzdotu.c | 325 &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 D | compute_omega_chunk.cpp | 218 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 D | Matrix.cpp | 1135 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 D | wfn1_l1.F | 119 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 D | wfn1_l1.F | 119 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 D | compute_gyration_shape.cpp | 89 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 D | compute_gyration_shape_chunk.cpp | 117 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 D | PB_Ctzhemv.c | 175 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 D | PB_Ctzsymv.c | 175 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 D | PB_Ctzahemv.c | 175 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 D | PB_Ctzasymv.c | 175 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 D | PB_Ctzsyr2.c | 173 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 D | PB_Ctzher2.c | 173 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 D | BSback_solve.c | 46 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 D | BSfor_solve.c | 38 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 D | BSbackward.c | 39 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 D | BSforward.c | 37 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 D | ex126f.F | 16 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 D | R_stcc_sim.c | 8 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 D | R_eccc_sim.c | 9 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 D | R_dcc_sim.c | 7 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 D | ex62f.F90 | 46 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 D | ex2f.F90 | 42 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 D | ex57f.F90 | 42 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)
|