Home
last modified time | relevance | path

Searched refs:mtrx (Results 1 – 25 of 194) sorted by relevance

12345678

/dports/science/siesta/siesta-4.1.5/Src/
H A Dm_zminim.F90737 c(ik,2)%mtrx=c(ik,1)%mtrx
750 c(ik,ispin)%mtrx=c(j,ispin)%mtrx
778 …H(ik,ispin)%mtrx=H(ik,ispin)%mtrx+x_min(ik,ispin)*Hd(ik,ispin)%mtrx+x_min(ik,ispin)**2*Hdd(ik,ispi…
970 p_dense(ik)%mtrx=s_dense(ik)%mtrx+p_dense(ik)%mtrx/t_precon_scale
1042 …call calc_A(h_dim,N_occ,ispin,s_dense(ik)%mtrx,c(ik,ispin)%mtrx,S(ik,ispin)%mtrx,sc(ik,ispin)%mtrx)
1044 sc(ik,ispin)%mtrx=sc(ik,ispin)%mtrx+x_min(ik,ispin)*sg(ik,ispin)%mtrx
1269 …H(ik,ispin)%mtrx=H(ik,ispin)%mtrx+x_min(ik,ispin)*Hd(ik,ispin)%mtrx+x_min(ik,ispin)**2*Hdd(ik,ispi…
1702 c(ik,2)%mtrx=c(ik,1)%mtrx
1715 c(ik,ispin)%mtrx=c(j,ispin)%mtrx
1761 …H(ik,ispin)%mtrx=H(ik,ispin)%mtrx+x_min(ik,ispin)*Hd(ik,ispin)%mtrx+x_min(ik,ispin)**2*Hdd(ik,ispi…
[all …]
H A Dm_dminim.F90633 c(2)%mtrx=c(1)%mtrx
703 H(ispin)%mtrx=H(ispin)%mtrx+x_min(ispin)*Hd(ispin)%mtrx+x_min(ispin)**2*Hdd(ispin)%mtrx
961 sc(ispin)%mtrx=sc(ispin)%mtrx+x_min(ispin)*sg(ispin)%mtrx
1181 H(ispin)%mtrx=H(ispin)%mtrx+x_min(ispin)*Hd(ispin)%mtrx+x_min(ispin)**2*Hdd(ispin)%mtrx
1193 sc(ispin)%mtrx=sc(ispin)%mtrx+x_min(ispin)*sg(ispin)%mtrx
1258 c_orig(ispin)%mtrx=c(ispin)%mtrx
1551 c(2)%mtrx=c(1)%mtrx
1636 H(ispin)%mtrx=H(ispin)%mtrx+x_min(ispin)*Hd(ispin)%mtrx+x_min(ispin)**2*Hdd(ispin)%mtrx
1773 sc(ispin)%mtrx=sc(ispin)%mtrx+x_min(ispin)*sg(ispin)%mtrx
1936 H(ispin)%mtrx=H(ispin)%mtrx+x_min(ispin)*Hd(ispin)%mtrx+x_min(ispin)**2*Hdd(ispin)%mtrx
[all …]
/dports/math/scilab/scilab-6.1.1/scilab/modules/scicos/src/modelica_compiler/
H A DsquareSparseMatrix.ml88 let size mtrx = let size = Array.length mtrx.rows in (size, size)
90 let get mtrx i j = try !(List.assoc j mtrx.rows.(i)) with
93 let set mtrx i j elt = try (List.assoc j mtrx.rows.(i)) := elt with
95 mtrx.rows.(i) <- (j, ref elt) :: mtrx.rows.(i);
96 mtrx.columns.(j) <- (i, ref elt) :: mtrx.columns.(j)
98 let row_iter i f mtrx =
100 f (get mtrx i j)
103 let row_iterj i f mtrx =
130 let iter f mtrx =
131 for i = 0 to Array.length mtrx.rows - 1 do row_iter i f mtrx done
[all …]
/dports/editors/uemacs/uemacs-4.0/src/
H A Dmswmem.c56 static unsigned char mtrx = 0; variable
102 mtr[mtrx].m_func = MTR_SUBALLOC; in SubAlloc()
104 mtr[mtrx].m_size = RealSize; in SubAlloc()
122 mtr[mtrx].m_func = MTR_MALLOC; in malloc()
123 mtr[mtrx].m_ptr.m_block = NULL; in malloc()
124 mtr[mtrx].m_size = size; in malloc()
187 mtr[mtrx].m_ptr.m_segh = Seg; in malloc()
189 mtr[mtrx].m_size = SegSize; in malloc()
249 mtr[mtrx].m_func = MTR_FREE; in free()
252 mtr[mtrx].m_size = RealSize; in free()
[all …]
/dports/finance/quantlib/QuantLib-1.20/ql/math/matrixutilities/
H A Dfactorreduction.cpp27 factorReduction(Matrix mtrx, in factorReduction() argument
31 QL_REQUIRE(mtrx.rows() == mtrx.columns(), in factorReduction()
34 const Size n = mtrx.columns(); in factorReduction()
38 for (Size iRow=0; iRow<mtrx.rows(); iRow++) in factorReduction()
40 QL_REQUIRE(mtrx[iRow][iCol] == mtrx[iCol][iRow], in factorReduction()
42 QL_REQUIRE(*std::max_element(mtrx.begin(), mtrx.end()) <=1 && in factorReduction()
43 *std::min_element(mtrx.begin(), mtrx.end()) >=-1, in factorReduction()
52 mtrx[iRow][iCol] * mtrx[iRow][iCol]; in factorReduction()
63 mtrx[iCol][iCol] = in factorReduction()
66 SymmetricSchurDecomposition ssDec(mtrx); in factorReduction()
[all …]
/dports/science/hypre/hypre-2.23.0/src/test/
H A Dij_mm.c1185 mtrx[1] = 1; in BuildParLaplacian()
1186 mtrx[2] = 0.0; in BuildParLaplacian()
1187 mtrx[3] = 0.0; in BuildParLaplacian()
1188 mtrx[4] = 1; in BuildParLaplacian()
1189 mtrx[5] = 2; in BuildParLaplacian()
1190 mtrx[6] = 1; in BuildParLaplacian()
1191 mtrx[7] = 0.0; in BuildParLaplacian()
1193 mtrx[9] = 1; in BuildParLaplacian()
1196 mtrx[12] = 2; in BuildParLaplacian()
1197 mtrx[13] = 1; in BuildParLaplacian()
[all …]
H A Dij_device.c749 mtrx[1] = 1; in BuildParLaplacian()
750 mtrx[2] = 0.0; in BuildParLaplacian()
751 mtrx[3] = 0.0; in BuildParLaplacian()
752 mtrx[4] = 1; in BuildParLaplacian()
753 mtrx[5] = 2; in BuildParLaplacian()
754 mtrx[6] = 1; in BuildParLaplacian()
755 mtrx[7] = 0.0; in BuildParLaplacian()
757 mtrx[9] = 1; in BuildParLaplacian()
760 mtrx[12] = 2; in BuildParLaplacian()
761 mtrx[13] = 1; in BuildParLaplacian()
[all …]
H A Dnew_ij.c4444 mtrx[1] = 1; in BuildParLaplacian()
4445 mtrx[2] = 0.0; in BuildParLaplacian()
4446 mtrx[3] = 0.0; in BuildParLaplacian()
4447 mtrx[4] = 1; in BuildParLaplacian()
4448 mtrx[5] = 2; in BuildParLaplacian()
4449 mtrx[6] = 1; in BuildParLaplacian()
4450 mtrx[7] = 0.0; in BuildParLaplacian()
4452 mtrx[9] = 1; in BuildParLaplacian()
4455 mtrx[12] = 2; in BuildParLaplacian()
4456 mtrx[13] = 1; in BuildParLaplacian()
[all …]
H A Dij.c8081 mtrx[1] = 1; in BuildParLaplacian()
8082 mtrx[2] = 0.0; in BuildParLaplacian()
8083 mtrx[3] = 0.0; in BuildParLaplacian()
8084 mtrx[4] = 1; in BuildParLaplacian()
8085 mtrx[5] = 2; in BuildParLaplacian()
8086 mtrx[6] = 1; in BuildParLaplacian()
8087 mtrx[7] = 0.0; in BuildParLaplacian()
8089 mtrx[9] = 1; in BuildParLaplacian()
8092 mtrx[12] = 2; in BuildParLaplacian()
8093 mtrx[13] = 1; in BuildParLaplacian()
[all …]
/dports/math/deal.ii/dealii-803d21ff957e349b3799cd3ef2c840bc78734305/include/deal.II/physics/
H A Dnotation.h1248 Assert(mtrx.m() == 1, ExcDimensionMismatch(mtrx.m(), 1));
1249 Assert(mtrx.n() == 1, ExcDimensionMismatch(mtrx.n(), 1));
1252 s = mtrx(0, 0);
1268 Assert(mtrx.m() == dim, ExcDimensionMismatch(mtrx.m(), dim));
1269 Assert(mtrx.n() == 1, ExcDimensionMismatch(mtrx.n(), 1));
1297 Assert(mtrx.m() == dim, ExcDimensionMismatch(mtrx.m(), dim));
1298 Assert(mtrx.n() == dim, ExcDimensionMismatch(mtrx.n(), dim));
1336 Assert(mtrx.m() == dim, ExcDimensionMismatch(mtrx.m(), dim));
1337 Assert(mtrx.n() == dim, ExcDimensionMismatch(mtrx.n(), dim));
1387 mtrx.m(),
[all …]
/dports/math/octave-forge-miscellaneous/miscellaneous-1.3.0/inst/
H A Dzigzag.m17 ## @deftypefn {Function File} {} zigzag (@var{mtrx})
18 ## Returns zigzag walk-off of the elements of @var{mtrx}.
28 ## The argument @var{mtrx} should be a MxN matrix
43 function rval = zigzag(mtrx)
47 n=size(mtrx);
49 if(issquare(mtrx)) #Square matrix (quick case)
56 mtrx = mtrx.*odd + (mtrx.*(1-odd))'; variable
60 mtrx=mtrx(:,1+size(mtrx,2)-(1:size(mtrx,2)));
65 rval=[rval diag(mtrx,i)'];
69 mtrx=mtrx(:,1+size(mtrx,2)-(1:size(mtrx,2)));
[all …]
H A Dzagzig.m17 ## @deftypefn {Function File} {} zagzig (@var{mtrx})
18 ## Returns zagzig walk-off of the elements of @var{mtrx}.
45 function rval = zagzig(mtrx)
51 if issquare(mtrx) #Square matrix (quick case)
52 n=length(mtrx);
58 mtrx = (mtrx.*odd)' + (mtrx.*(1-odd)); variable
62 mtrx=mtrx(:,1+size(mtrx,2)-(1:size(mtrx,2)));
67 rval=[rval diag(mtrx,i)'];
71 n=size(mtrx);
72 mtrx=mtrx(:,1+size(mtrx,2)-(1:size(mtrx,2)));
[all …]
/dports/science/berkeleygw/BGW-2.0.0/Common/
H A Dsort.F90109 subroutine make_identity_symmetry_first(nsyms, mtrx, tnp) argument
111 integer, intent(inout) :: mtrx(3, 3, 48) local
121 found = all(mtrx(1:3, 1:3, 1) == identity(1:3, 1:3))
124 if(all(mtrx(1:3, 1:3, isym) == identity(1:3, 1:3))) then
127 mtrx_temp(1:3, 1:3) = mtrx(1:3, 1:3, 1)
128 mtrx(1:3, 1:3, 1) = mtrx(1:3, 1:3, isym)
129 mtrx(1:3, 1:3, isym) = mtrx_temp(1:3, 1:3)
154 subroutine sort_symmetries(nsyms, mtrx, tnp) argument
156 integer, intent(inout) :: mtrx(3, 3, 48) local
188 mtrx_temp(1:3, 1:3, isym) = mtrx(1:3, 1:3, order(isym))
[all …]
H A Dcheck_inversion.f9029 integer, intent(in) :: mtrx(3, 3, 48) !< symmetry operations matrices local
64 itest = itest + (mtrx(ii, jj, isym) + 1)**2
66 itest = itest + mtrx(ii, jj, isym)**2
126 call check_inversion(iflavor, syms%ntran, syms%mtrx, nspin, warn, real_need_inv, tnp = syms%tnp)
/dports/math/libqalculate/libqalculate-3.17.0/libqalculate/
H A DMathStructure-matrixvector.cc336 size_t n = mtrx.size(); in determinant_minor()
338 mdet = mtrx[0][0]; in determinant_minor()
342 mdet = mtrx[0][0]; in determinant_minor()
351 mdet = mtrx[0][0]; in determinant_minor()
625 MathStructure mtrx; in permanent() local
626 mtrx.clearMatrix(); in permanent()
639 mtrx.permanent(mdet, eo); in permanent()
691 mtrx[i].ref(); in invertMatrix()
692 mtrx[d].ref(); in invertMatrix()
694 mtrx.setChild_nocopy(&mtrx[i], d + 1); in invertMatrix()
[all …]
/dports/biology/ncbi-cxx-toolkit/ncbi_cxx--25_2_0/src/algo/gnomon/
H A Dglb_align.cpp285 mtrx[0] = 0; in GlbAlign()
289 mtrx[1] |= Astart; in GlbAlign()
291 char* m = mtrx+nb; in GlbAlign()
370 delete[] mtrx; in GlbAlign()
398 char* m = mtrx+nb; in LclAlign()
488 delete[] mtrx; in LclAlign()
509 mtrx[0] = 0; in LclAlign()
535 char* m = mtrx+nb; in LclAlign()
636 delete[] mtrx; in LclAlign()
663 char* m = mtrx+nb; in VariBandAlign()
[all …]
/dports/math/R-cran-sf/sf/R/
H A Dcast_sfg.R11 ClosePol <- function(mtrx) { argument
12 stopifnot(is.matrix(mtrx))
13 if (!all(mtrx[1,] == mtrx[nrow(mtrx),]))
14 mtrx = rbind(mtrx, mtrx[1,])
15 if (nrow(mtrx) < 4)
17 mtrx
/dports/science/afni/afni-AFNI_21.3.16/src/matlab/
H A DTaskTest.m42 mtrx = zeros(N_tasks, (polort+1)*N_runs+N_basis*N_tasks+N_base); %for each run, there are (polor… variable
50 % mtrx(i,(i-1)*N_basis+j+(polort+1)*N_runs) = 1; %Assign one 1 for each basis function of every t…
51 mtrx((i-1)*N_basis+j,(i-1)*N_basis+j+(polort+1)*N_runs) = 1;
53 fprintf(1, '%g ', mtrx((i-1)*N_basis+j,k));
54 fprintf(fid, '%g ', mtrx((i-1)*N_basis+j,k));
59 % fprintf(1, '%g ', mtrx(i,k));
60 % fprintf(fid, '%g ', mtrx(i,k));
H A DContrastTest.m49 %mtrx = zeros(N_contr, (polort+1)*N_runs+N_basis*N_tasks); %for each run, there are (polort+1) par…
51 mtrx = zeros(N_contr, length); variable
60 % mtrx(i,m+(k-1)*N_basis+(polort+1)*N_runs) = El(i).sign(j);
61 … mtrx(i,p+(m-1)*(Task(k).BasisOpt_struct(m).maxlag - Task(k).BasisOpt_struct(m).minlag + 1)...
75 fprintf(1, '%g ', mtrx(i,n));
76 fprintf(fid, '%g ', mtrx(i,n));
/dports/audio/x42-plugins-lv2/x42-plugins-20211016/stepseq.lv2/gui/
H A Dbpmwheel.h11 cairo_matrix_t mtrx; in wheel_path() local
13 cairo_get_matrix (cr, &mtrx); in wheel_path()
17 cairo_set_matrix (cr, &mtrx); in wheel_path()
19 cairo_get_matrix (cr, &mtrx); in wheel_path()
23 cairo_set_matrix (cr, &mtrx); in wheel_path()
/dports/math/reduce/Reduce-svn5758-src/packages/redlog/talp/
H A Dtalpqe.red67 procedure talp_qe2(qbl,mtrx);
73 tmp := mtrx;
94 % within [mtrx].
96 newmtrx := if qtf eq 'ex then mtrx else cl_nnfnot mtrx;
133 return nil . mtrx;
147 % [bvarl] within [mtrx].
178 procedure talp_qevar(bvar,mtrx,ansp);
185 tmp := if rl_op mtrx eq 'or then rl_argn mtrx else {mtrx};
264 procedure talp_permbvarl(bvarl,mtrx);
274 if talp_contains(mtrx,var) then
[all …]
/dports/science/hypre/hypre-2.23.0/src/parcsr_ls/
H A Dpar_laplace.c379 HYPRE_Real *mtrx, in GenerateSysLaplacian() argument
568 diag_data[j_ind] = value[0]*mtrx[i*num_fun+j]; in GenerateSysLaplacian()
581 diag_data[j_ind] = value[3]*mtrx[i*num_fun+j]; in GenerateSysLaplacian()
598 offd_data[j_ind] = value[3]*mtrx[i*num_fun+j]; in GenerateSysLaplacian()
613 diag_data[j_ind] = value[2]*mtrx[i*num_fun+j]; in GenerateSysLaplacian()
630 offd_data[j_ind] = value[2]*mtrx[i*num_fun+j]; in GenerateSysLaplacian()
645 diag_data[j_ind] = value[1]*mtrx[i*num_fun+j]; in GenerateSysLaplacian()
677 diag_data[j_ind] = value[1]*mtrx[i*num_fun+j]; in GenerateSysLaplacian()
709 diag_data[j_ind] = value[2]*mtrx[i*num_fun+j]; in GenerateSysLaplacian()
741 diag_data[j_ind] = value[3]*mtrx[i*num_fun+j]; in GenerateSysLaplacian()
[all …]
/dports/biology/viennarna/ViennaRNA-2.4.18/src/RNAforester/src/
H A Dalignment_tables.h190 R *mtrx = getMtrx(table); in getMtrxVal() local
191 return mtrx[this->rowStart_[i] + j]; in getMtrxVal()
197 R *mtrx = getMtrx(table); in setMtrxVal() local
198 mtrx[this->rowStart_[i] + j] = val; in setMtrxVal()
204 R *mtrx = getMtrx(table); in print() local
207 s << mtrx[this->rowStart_[i] + j] << " "; in print()
/dports/science/simlib/simlib/doc/latex/
H A Do6.eps11 tgifarrowtipdict /mtrx matrix put
21 /savematrix mtrx currentmatrix def
32 tgifarcdict /mtrx matrix put
42 /savematrix mtrx currentmatrix def
58 /savematrix mtrx currentmatrix def
/dports/science/berkeleygw/BGW-2.0.0/Epsilon/
H A Dprintchi.f9019 integer :: ii, jj, nmtx, ntranq, mtrx(200, 3, 3), kg0(200, 3), ttt variable
129 mtrx=0
135 read(10) ntranq, (((mtrx(n,i,j),i=1,3),j=1,3), &
139 write(11, *) ntranq, (((mtrx(n,i,j),i=1,3),j=1,3), &

12345678