Home
last modified time | relevance | path

Searched refs:NoEigen (Results 1 – 4 of 4) sorted by relevance

/dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/
H A DHelmholtzSolve.F90107 INTEGER :: dim, FlowDofs, DispDofs, NoEigen, DispMode local
220 NoEigen = GetInteger( SolverParams,'Displacement Variable EigenMode',Found)
221 IF( NoEigen > 0 ) THEN
222 IF( NoEigen > SIZE(DispSol % EigenValues)) THEN
225 DispEigen => DispSol % EigenVectors(NoEigen,:)
227 AngularFrequency = SQRT( DispSol % EigenValues(NoEigen))
/dports/science/elmerfem/elmerfem-release-9.0/fem/src/
H A DBlockSolve.F903189 INTEGER :: i,j,k,m,n,NoVar,NoCol,NoRow,NoEigen,vdofs,comp local
3303 NoEigen = Solver % NOFEigenValues
3304 IF( NoEigen > 0 ) THEN
3306 ALLOCATE( MonolithicVar % EigenValues(NoEigen), MonolithicVar % EigenVectors(NoEigen,n) )
3361 NoEigen = Solver % NOFEigenValues
3362 IF( NoEigen > 0 ) THEN
3372 IF( NoEigen > 0 ) THEN
3375 Var % Solver % NOFEigenValues = NoEigen
3377 ALLOCATE( Var % EigenValues(NoEigen), Var % EigenVectors(NoEigen,n) )
3392 DO k=1,NoEigen
H A DEigenSolve.F90589 SUBROUTINE ScaleEigenVectors( Matrix, EigVectors, NoEigen, NormalizeToUnity) argument
599 INTEGER :: n, NoEigen local
617 DO i = 1, NoEigen
H A DDefUtils.F90761 SUBROUTINE GetScalarLocalEigenmode( x,name,UElement,USolver,NoEigen,ComplexPart ) argument
766 INTEGER, OPTIONAL :: NoEigen local
804 Values => Variable % EigenVectors( :, NoEigen )
829 SUBROUTINE GetVectorLocalEigenmode( x,name,UElement,USolver,NoEigen,ComplexPart ) argument
834 INTEGER, OPTIONAL :: NoEigen local
872 Values => Variable % EigenVectors( :, NoEigen )