| /dports/science/wannier90/wannier90-3.1.0/src/ |
| H A D | kmesh.F90 | 998 allocate (singv(num_shells), stat=ierr)
1023 if (any(abs(singv) < eps5)) then
1036 smat(loop_s, loop_s) = 1.0_dp/singv(loop_s)
1106 deallocate (singv, stat=ierr)
1145 real(kind=dp) :: singv(num_shells) local
1204 if (any(abs(singv) < eps7)) &
1209 smat(loop_s, loop_s) = 1/singv(loop_s)
1270 real(kind=dp), dimension(:), allocatable :: singv local
1372 allocate (singv(num_shells), stat=ierr)
1396 if (any(abs(singv) < eps7)) &
[all …]
|
| /dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/ |
| H A D | wannier90.F | 755 REAL(kind=dp), ALLOCATABLE, DIMENSION(:) :: singv local
799 ALLOCATE (singv(num_shells))
800 amat = 0.0_dp; umat = 0.0_dp; vmat = 0.0_dp; smat = 0.0_dp; singv = 0.0_dp
815 CALL dgesvd('A', 'A', max_shells, num_shells, amat, max_shells, singv, umat, &
824 IF (ANY(ABS(singv) < eps5)) THEN
832 DEALLOCATE (amat, umat, vmat, smat, singv)
839 smat(loop_s, loop_s) = 1/singv(loop_s)
882 DEALLOCATE (amat, umat, vmat, smat, singv)
|
| /dports/science/cp2k-data/cp2k-7.1.0/src/ |
| H A D | wannier90.F | 755 REAL(kind=dp), ALLOCATABLE, DIMENSION(:) :: singv local
799 ALLOCATE (singv(num_shells))
800 amat = 0.0_dp; umat = 0.0_dp; vmat = 0.0_dp; smat = 0.0_dp; singv = 0.0_dp
815 CALL dgesvd('A', 'A', max_shells, num_shells, amat, max_shells, singv, umat, &
824 IF (ANY(ABS(singv) < eps5)) THEN
832 DEALLOCATE (amat, umat, vmat, smat, singv)
839 smat(loop_s, loop_s) = 1/singv(loop_s)
882 DEALLOCATE (amat, umat, vmat, smat, singv)
|
| /dports/graphics/wdune/wdune-1.926/src/ |
| H A D | NodeMovieTexture.cpp | 645 float singv, valv; in fwroundf() local
646 singv = val < 0.0f ? -1.0f : 1.0f; in fwroundf()
651 valv *= singv; in fwroundf()
|
| /dports/cad/gmsh/gmsh-4.9.2-source/contrib/Netgen/libsrc/meshing/ |
| H A D | bisect.cpp | 3096 BitArray singv(np); in Bisect() local
3097 singv.Clear(); in Bisect()
3104 singv.Set (seg[0]); in Bisect()
3105 singv.Set (seg[1]); in Bisect()
3130 singv.Set (pi); in Bisect()
3144 if (singv.Test (mtets.Elem(i).pnums[j])) in Bisect()
3159 if (singv.Test (mprisms.Elem(i).pnums[j])) in Bisect()
3174 if (singv.Test (mtris.Elem(i).pnums[j])) in Bisect()
|
| /dports/science/elmerfem/elmerfem-release-9.0/ElmerGUI/netgen/libsrc/meshing/ |
| H A D | bisect.cpp | 3081 BitArray singv(np); in Bisect() local
3082 singv.Clear(); in Bisect()
3089 singv.Set (seg.p1); in Bisect()
3090 singv.Set (seg.p2); in Bisect()
3115 singv.Set (pi); in Bisect()
3129 if (singv.Test (mtets.Elem(i).pnums[j])) in Bisect()
3144 if (singv.Test (mprisms.Elem(i).pnums[j])) in Bisect()
3159 if (singv.Test (mtris.Elem(i).pnums[j])) in Bisect()
|
| /dports/cad/netgen/netgen-6.2.2105/libsrc/meshing/ |
| H A D | bisect.cpp | 3168 NgBitArray singv(np); in Bisect() local
3169 singv.Clear(); in Bisect()
3176 singv.Set (seg[0]); in Bisect()
3177 singv.Set (seg[1]); in Bisect()
3202 singv.Set (pi); in Bisect()
3216 if (singv.Test (mtets.Elem(i).pnums[j])) in Bisect()
3231 if (singv.Test (mprisms.Elem(i).pnums[j])) in Bisect()
3246 if (singv.Test (mtris.Elem(i).pnums[j])) in Bisect()
|
| /dports/cad/opencascade/opencascade-7.6.0/src/BRepFill/ |
| H A D | BRepFill_Sweep.cxx | 2220 Standard_Boolean exuv, singu, singv; in BuildShell() local
2557 singv = MergeVertex(Vertex(isec,ipath+1), Vertex(isec+1,ipath+1)); in BuildShell()
2562 if (singu || singv) { in BuildShell()
2582 if (singv) { in BuildShell()
|