Searched refs:A_sf (Results 1 – 3 of 3) sorted by relevance
/dports/science/elmerfem/elmerfem-release-9.0/fem/src/ |
H A D | BlockSolve.F90 | 1654 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 D | SolverUtils.F90 | 16849 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 D | DefUtils.F90 | 6701 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)
|