Home
last modified time | relevance | path

Searched refs:A_fs (Results 1 – 3 of 3) sorted by relevance

/dports/science/elmerfem/elmerfem-release-9.0/fem/src/
H A DSolverUtils.F9016876 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 DBlockSolve.F901654 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 DDefUtils.F906701 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 …]