Home
last modified time | relevance | path

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

/dports/science/elmerfem/elmerfem-release-9.0/fem/src/
H A DBlockSolve.F901654 TYPE(Matrix_t), POINTER :: A_fs, A_sf, A_s, A_f local
1748 A_sf => TotMatrix % Submatrix(i,j) % Mat
1753 IF(.NOT. ASSOCIATED( A_sf ) ) 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
1832 A_sf => TotMatrix % Submatrix(i,j) % Mat
1854 CALL StructureCouplingAssembly( Solver, FVar, SVar, A_f, A_s, A_fs, A_sf, &
H A DSolverUtils.F9016849 TYPE(Matrix_t), POINTER :: A_fs, A_sf, A_f, A_s local
16878 A_sf % Values = 0.0_dp
16996 CALL AddToMatrixElement(A_sf,j,i,0.0_dp)
17388 CALL AddToMatrixElement(A_sf,jstruct,ifluid,0.0_dp)
17399 CALL AddToMatrixElement(A_sf,jstruct,ifluid+1,0.0_dp)
17426 CALL List_toCRSMatrix(A_sf)
17438 //TRIM(I2S(SIZE(A_sf % Values))),Level=10)
17607 CALL AddToMatrixElement(A_sf,ns,nf,0.0_dp)
17611 A_sf % Values = 0.0_dp
18020 CALL List_toCRSMatrix(A_sf)
[all …]
H A DDefUtils.F906701 SUBROUTINE StructureCouplingAssembly_defutils( Solver, FVar, SVar, A_f, A_s, A_fs, A_sf, & argument
6710 TYPE(Matrix_t), POINTER :: A_sf !< (1,2)-block for interaction local
6754 CALL AddToMatrixElement(A_sf,ns,nf,0.0_dp)
6758 A_sf % Values = 0.0_dp
7051 CALL List_toCRSMatrix(A_sf)
7062 //TRIM(I2S(SIZE(A_sf % Values))),Level=10)