Searched refs:A_fs (Results 1 – 3 of 3) sorted by relevance
/dports/science/elmerfem/elmerfem-release-9.0/fem/src/ |
H A D | SolverUtils.F90 | 16876 IF( A_fs % FORMAT /= MATRIX_LIST ) THEN 16877 A_fs % Values = 0.0_dp 16995 CALL AddToMatrixElement(A_fs,i,j,0.0_dp) 17424 IF( A_fs % FORMAT == MATRIX_LIST ) THEN 17425 CALL List_toCRSMatrix(A_fs) 17436 //TRIM(I2S(SIZE(A_fs % Values))),Level=10) 17604 IF( A_fs % FORMAT == MATRIX_LIST ) THEN 17606 CALL AddToMatrixElement(A_fs,nf,ns,0.0_dp) 17610 A_fs % Values = 0.0_dp 18018 IF( A_fs % FORMAT == MATRIX_LIST ) THEN [all …]
|
H A D | BlockSolve.F90 | 1654 TYPE(Matrix_t), POINTER :: A_fs, A_sf, A_s, A_f local 1747 A_fs => TotMatrix % Submatrix(j,i) % Mat 1750 IF(.NOT. ASSOCIATED( A_fs ) ) THEN 1775 CALL FsiCouplingAssembly( Solver, FVar, SVar, A_f, A_s, A_fs, A_sf, & 1791 TYPE(Matrix_t), POINTER :: A_fs, A_sf, A_s, A_f local 1831 A_fs => TotMatrix % Submatrix(j,i) % Mat 1854 CALL StructureCouplingAssembly( Solver, FVar, SVar, A_f, A_s, A_fs, A_sf, &
|
H A D | DefUtils.F90 | 6701 SUBROUTINE StructureCouplingAssembly_defutils( Solver, FVar, SVar, A_f, A_s, A_fs, A_sf, & argument 6709 TYPE(Matrix_t), POINTER :: A_fs !< (2,1)-block for interaction local 6751 IF( A_fs % FORMAT == MATRIX_LIST ) THEN 6753 CALL AddToMatrixElement(A_fs,nf,ns,0.0_dp) 6757 A_fs % Values = 0.0_dp 7003 CALL AddToMatrixElement(A_fs, kv, ku, -1.0_dp) 7027 CALL AddToMatrixElement(A_fs, kv, ku, -1.0d0/h_eff) 7030 CALL AddToMatrixElement(A_fs, kv, ku, 1.0d0/h_eff) 7049 IF( A_fs % FORMAT == MATRIX_LIST ) THEN 7050 CALL List_toCRSMatrix(A_fs) [all …]
|