Searched refs:NoEigen (Results 1 – 4 of 4) sorted by relevance
/dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/ |
H A D | HelmholtzSolve.F90 | 107 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 D | BlockSolve.F90 | 3189 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 D | EigenSolve.F90 | 589 SUBROUTINE ScaleEigenVectors( Matrix, EigVectors, NoEigen, NormalizeToUnity) argument 599 INTEGER :: n, NoEigen local 617 DO i = 1, NoEigen
|
H A D | DefUtils.F90 | 761 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 )
|