Searched defs:CRS_RemoveZeros (Results 1 – 1 of 1) sorted by relevance
| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/ |
| H A D | CRSMatrix.F90 | 2073 SUBROUTINE CRS_RemoveZeros( A, NoDiag, RemoveEps ) subroutine
2075 TYPE(Matrix_t) :: A !< The matrix which will be returned with the non-zeros removed
2076 LOGICAL, OPTIONAL :: NoDiag !< Can we also loose the diag if it happens to be zero?
2077 REAL(KIND=dp), OPTIONAL :: RemoveEps
2079 INTEGER :: i,j,k,l,iml,kb,kb0,n,rowkb
2081 REAL(KIND=DP) :: val, imval, reps
2083 LOGICAL :: IsComplex, Hit, ImHit, CheckDiag
|