Home
last modified time | relevance | path

Searched refs:ddiag (Results 1 – 15 of 15) sorted by relevance

/dports/science/bagel/bagel-1.2.2/src/prop/pseudospin/
H A Dpseudospin.cc840 VectorB ddiag(3); in compute_dtensor() local
841 dtensor_diag->diagonalize(ddiag); in compute_dtensor()
844 const double Davg = 1.0 / 3.0 * (ddiag[0] + ddiag[1] + ddiag[2]); in compute_dtensor()
849 if (abs(ddiag[1]-Davg) > abs(ddiag[jmax]-Davg)) jmax = 1; in compute_dtensor()
850 if (abs(ddiag[2]-Davg) > abs(ddiag[jmax]-Davg)) jmax = 2; in compute_dtensor()
853 cout << " Dxx = " << setw(12) << ddiag[fwd[jmax]] << endl; in compute_dtensor()
854 cout << " Dyy = " << setw(12) << ddiag[bck[jmax]] << endl; in compute_dtensor()
855 cout << " Dzz = " << setw(12) << ddiag[jmax] << endl << endl; in compute_dtensor()
856 const double dval = ddiag[jmax] - 0.5*(ddiag[fwd[jmax]] + ddiag[bck[jmax]]); in compute_dtensor()
857 const double eval = abs(0.5*(ddiag[fwd[jmax]] - ddiag[bck[jmax]])); in compute_dtensor()
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwdft/grid/
H A Dgrid_invariant.F145 double precision deter3,qin(3,3),ddiag,dasum,
244 ddiag=abs(eigs(1)-qin(1,1))+abs(eigs(2)-qin(2,2))+
246 if(abs(ddiag).lt.eps) then
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwdft/grid/
H A Dgrid_invariant.F145 double precision deter3,qin(3,3),ddiag,dasum,
244 ddiag=abs(eigs(1)-qin(1,1))+abs(eigs(2)-qin(2,2))+
246 if(abs(ddiag).lt.eps) then
/dports/math/octave/octave-6.4.0/scripts/sparse/
H A Deigs.m792 %! ddiag = diag (d);
793 %! [ddiag, idx] = sort (ddiag);
808 %! ddiag = diag (d);
809 %! [ddiag, idx] = sort (ddiag);
825 %! ddiag = diag (d);
826 %! [ddiag, idx] = sort (ddiag);
841 %! ddiag = diag (d);
842 %! [ddiag, idx] = sort (ddiag);
857 %! ddiag = diag (d);
858 %! [ddiag, idx] = sort (ddiag);
[all …]
/dports/textproc/p5-Spreadsheet-ParseXLSX/Spreadsheet-ParseXLSX-0.27/lib/Spreadsheet/
H A DParseXLSX.pm746 my ($ddiag, $udiag) = map {
771 ( $ddiag && $udiag ? 3
772 : $ddiag && !$udiag ? 2
773 : !$ddiag && $udiag ? 1
/dports/math/dsdp/DSDP5.8/pdsdp/PETSc/
H A Dreadsdpa.c757 int i,ii,info,ijnnz=0,spot=0,ddiag=0,diag=0,n=dddd.blocksizes[0],m=dddd.m; in ComputeY0() local
769 ddiag=0; in ComputeY0()
771 dd=dddd.nnz[spot]; ddiag=1;bb=dddd.dobj[i-1]; in ComputeY0()
774 if (dddd.matind[spot+ii] != ii*n+ii || dddd.nnz[spot+i]!=dd){ ddiag=0;} in ComputeY0()
776 if (dddd.matind[spot+ii] != ii*(ii+1)/2+ii || dddd.nnz[spot+i]!=dd){ ddiag=0;} in ComputeY0()
780 if (ddiag){ in ComputeY0()
/dports/math/dsdp/DSDP5.8/examples/
H A Dreadsdpa.c774 int i,ii,info,ijnnz=0,spot=0,ddiag=0,diag=0,n=dddd.blocksizes[0],m=dddd.m; in ComputeY0() local
786 ddiag=0; in ComputeY0()
788 dd=dddd.nnz[spot]; ddiag=1;bb=dddd.dobj[i-1]; in ComputeY0()
791 if (dddd.matind[spot+ii] != ii*n+ii || dddd.nnz[spot+i]!=dd){ ddiag=0;} in ComputeY0()
793 if (dddd.matind[spot+ii] != ii*(ii+1)/2+ii || dddd.nnz[spot+i]!=dd){ ddiag=0;} in ComputeY0()
797 if (ddiag){ in ComputeY0()
/dports/math/dsdp/DSDP5.8/pdsdp/ScaLAPACK/
H A Dreadsdpa.c756 int i,ii,info,ijnnz=0,spot=0,ddiag=0,diag=0,n=dddd.blocksizes[0],m=dddd.m; in ComputeY0() local
768 ddiag=0; in ComputeY0()
770 dd=dddd.nnz[spot]; ddiag=1;bb=dddd.dobj[i-1]; in ComputeY0()
773 if (dddd.matind[spot+ii] != ii*n+ii || dddd.nnz[spot+i]!=dd){ ddiag=0;} in ComputeY0()
775 if (dddd.matind[spot+ii] != ii*(ii+1)/2+ii || dddd.nnz[spot+i]!=dd){ ddiag=0;} in ComputeY0()
779 if (ddiag){ in ComputeY0()
/dports/math/dsdp/DSDP5.8/pdsdp/PLAPPACK/
H A Dreadsdpa.c766 int i,ii,info,ijnnz=0,spot=0,ddiag=0,diag=0,n=dddd.blocksizes[0],m=dddd.m; in ComputeY0() local
778 ddiag=0; in ComputeY0()
780 dd=dddd.nnz[spot]; ddiag=1;bb=dddd.dobj[i-1]; in ComputeY0()
783 if (dddd.matind[spot+ii] != ii*n+ii || dddd.nnz[spot+i]!=dd){ ddiag=0;} in ComputeY0()
785 if (dddd.matind[spot+ii] != ii*(ii+1)/2+ii || dddd.nnz[spot+i]!=dd){ ddiag=0;} in ComputeY0()
789 if (ddiag){ in ComputeY0()
/dports/science/afni/afni-AFNI_21.3.16/src/
H A Dmri_genalign.c2629 static int ddiag=0 ; /* is dd matrix diagonal? */ in mri_genalign_bilinear() local
2651 ddiag = (wpar[15]==0.0f) && (wpar[16]==0.0f) && (wpar[17]==0.0f) ; in mri_genalign_bilinear()
2657 ddiag = ddiag && (wpar[18]==0.0f) && (wpar[19]==0.0f) && (wpar[20]==0.0f) ; in mri_genalign_bilinear()
2663 ddiag = ddiag && (wpar[21]==0.0f) && (wpar[22]==0.0f) && (wpar[23]==0.0f) ; in mri_genalign_bilinear()
2674 ddiag = ddiag && (wpar[27]==0.0f) && (wpar[28]==0.0f) && (wpar[29]==0.0f) ; in mri_genalign_bilinear()
2680 ddiag = ddiag && (wpar[30]==0.0f) && (wpar[31]==0.0f) && (wpar[32]==0.0f) ; in mri_genalign_bilinear()
2686 ddiag = ddiag && (wpar[33]==0.0f) && (wpar[34]==0.0f) && (wpar[35]==0.0f) ; in mri_genalign_bilinear()
2698 ddiag ? "is" : "isn't" , emag , dmag , (emag>0.0f)?(dmag/emag):(-1.0f) ) ; in mri_genalign_bilinear()
2728 if( !ddiag ){ in mri_genalign_bilinear()
2746 if( !ddiag ){ in mri_genalign_bilinear()
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/vscf/
H A Dvscf.F1963 ddiag = (diag(imode+1) - diag(1))*cm
1964 if (ga_nodeid().eq.0) write(LuOut,9010) imode, hfr, ddiag
1965 frscf(imode)=ddiag/cm
1975 ddiag = (diag(imode+1) - diag(1))*cm
1979 * write(LuOut,9020) imode,hfr,ddiag,dvscf,demp2
/dports/science/nwchem-data/nwchem-7.0.2-release/src/vscf/
H A Dvscf.F1963 ddiag = (diag(imode+1) - diag(1))*cm
1964 if (ga_nodeid().eq.0) write(LuOut,9010) imode, hfr, ddiag
1965 frscf(imode)=ddiag/cm
1975 ddiag = (diag(imode+1) - diag(1))*cm
1979 * write(LuOut,9020) imode,hfr,ddiag,dvscf,demp2
/dports/science/PETSc/petsc-3.14.1/src/mat/impls/aij/seq/
H A Daijfact.c465 const PetscInt *ddiag; in MatLUFactorNumeric_SeqAIJ() local
474 ddiag = a->diag; in MatLUFactorNumeric_SeqAIJ()
478 d = (aa)[ddiag[i]]; in MatLUFactorNumeric_SeqAIJ()
634 const PetscInt *ddiag; in MatLUFactorNumeric_SeqAIJ_inplace() local
642 ddiag = a->diag; in MatLUFactorNumeric_SeqAIJ_inplace()
646 d = (aa)[ddiag[i]]; in MatLUFactorNumeric_SeqAIJ_inplace()
796 const PetscInt *ddiag = a->diag; in MatLUFactorNumeric_SeqAIJ_InplaceWithPerm() local
800 d = (aa)[ddiag[i]]; in MatLUFactorNumeric_SeqAIJ_InplaceWithPerm()
H A Dinode.c1162 const PetscInt *ddiag; in MatLUFactorNumeric_SeqAIJ_Inode() local
1174 ddiag = a->diag; in MatLUFactorNumeric_SeqAIJ_Inode()
1178 d = (aa)[ddiag[i]]; in MatLUFactorNumeric_SeqAIJ_Inode()
/dports/science/PETSc/petsc-3.14.1/src/mat/impls/baij/seq/
H A Dbaijfact.c444 const PetscInt *ddiag; in MatLUFactorNumeric_SeqBAIJ_1() local
453 ddiag = a->diag; in MatLUFactorNumeric_SeqBAIJ_1()
457 d = (aa)[ddiag[i]]; in MatLUFactorNumeric_SeqBAIJ_1()