| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/ |
| H A D | Smitc.F90 | 344 CALL PerforatedElasticity(Ematrix,Gmatrix, &
352 CALL IsotropicElasticity(Ematrix,Gmatrix, &
375 CALL StrainEnergyDensity(STIFF,Ematrix,Curvature,3,3*n,s)
462 SUBROUTINE PerforatedElasticity(Ematrix, &
487 Ematrix = 0.0d0
489 Ematrix(2,2) = Ematrix(1,1)
490 Ematrix(1,2) = Puvw * (1.0d0-sq)/(1.0-Puvw**2)
491 Ematrix(2,1) = Ematrix(1,2)
492 Ematrix(3,3) = 0.5d0*(1.0d0-sq)/(1.0d0+Puvw) + &
495 Guvw = Euvw * Ematrix(3,3) ! * 2.0d0?
[all …]
|
| H A D | FacetShellSolve.F90 | 1992 SUBROUTINE IsotropicInPlaneElasticity( Ematrix, &
1995 REAL(KIND=dp) :: Ematrix(:,:), Basis(:) local
2005 Ematrix = 0.0d0
2006 Ematrix(1,1) = 1.0d0
2007 Ematrix(1,2) = Puvw
2008 Ematrix(2,1) = Puvw
2009 Ematrix(2,2) = 1.0d0
2010 Ematrix(3,3) = (1.0d0-Puvw)/2.0d0
2011 Ematrix = Ematrix * Tuvw * Euvw / (1.0d0 - Puvw*Puvw)
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/ |
| H A D | SolidMechanicsUtils.F90 | 617 SUBROUTINE IsotropicElasticity(Ematrix, Gmatrix, Poisson, Young, Thickness,& argument
620 REAL(KIND=dp) :: Ematrix(:,:), Gmatrix(:,:), Basis(:) local
630 Ematrix = 0.0d0
631 Ematrix(1,1) = 1.0d0
632 Ematrix(1,2) = Puvw
633 Ematrix(2,1) = Puvw
634 Ematrix(2,2) = 1.0d0
635 Ematrix(3,3) = (1.0d0-Puvw)/2.0d0
637 Ematrix = Ematrix* Euvw * (Tuvw**3) / (12.0d0*(1.0d0-Puvw**2))
|
| H A D | Multigrid.F90 | 1639 IF(ASSOCIATED(Matrix1 % Ematrix)) CALL FreeMatrix(Matrix1 % Ematrix)
1673 Matrix1 % Ematrix => ProjPN
1706 ProjPN => Matrix1 % Ematrix
5268 IF(ASSOCIATED(Matrix1 % Ematrix)) CALL FreeMatrix(Matrix1 % Ematrix)
|
| H A D | CRSMatrix.F90 | 2833 IF( ASSOCIATED( B % Ematrix ) ) THEN
2863 IF( ASSOCIATED( A % Ematrix ) ) THEN
2865 B % Ematrix => A % Ematrix
|
| H A D | SolverUtils.F90 | 2281 DualProjector => Projector % Ematrix
13638 IF(ASSOCIATED(Aaid % Ematrix)) DEALLOCATE(Aaid % Ematrix )
14976 Solver % Matrix % Ematrix => SaveMatrix
14979 NULLIFY( Solver % Matrix % EMatrix % Ematrix )
15233 Solver % Matrix % Ematrix => SaveMatrix
15238 NULLIFY( Solver % Matrix % EMatrix % Ematrix )
19036 IF( ASSOCIATED( Solver % MortarBCs(i) % Projector % Ematrix ) ) THEN
19037 CALL FreeMatrix( Solver % MortarBCs(i) % Projector % Ematrix )
20177 CALL FreeMatrix( Projector % Ematrix )
|
| H A D | SParIterSolver.F90 | 2197 GlobalMatrix % Ematrix => SourceMatrix
|
| H A D | BlockSolve.F90 | 2609 GlobalMatrix % Ematrix => A
|
| H A D | MeshUtils.F90 | 12787 IF( ASSOCIATED( Projector % Ematrix ) ) THEN
12788 CALL SaveProjector( Projector % Ematrix, .TRUE.,'dual_'//TRIM(FilePrefix),&
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/contrib/ShellMultiSolver/ |
| H A D | ShellMultiSolver.F90 | 2706 Ematrix = 0.0d0
2707 Ematrix(1,1) = 1.0d0
2708 Ematrix(1,2) = Puvw
2709 Ematrix(2,1) = Puvw
2710 Ematrix(2,2) = 1.0d0
2712 Ematrix = Ematrix * Euvw * (Tuvw**3) / (12.0d0 * (1.0d0 - Puvw*Puvw))
2737 Ematrix = 0.0d0
2738 Ematrix(1,1) = 1.0d0
2739 Ematrix(1,2) = Puvw
2740 Ematrix(2,1) = Puvw
[all …]
|
| /dports/science/chrono/chrono-7.0.1/src/chrono/fea/ |
| H A D | ChMaterialShellKirchhoff.h | 210 ChMatrixNM<double, 6, 6>& Ematrix() { return this->mE; } in Ematrix() function
|
| H A D | ChMaterialShellReissner.h | 254 ChMatrixNM<double, 12, 12>& Ematrix() { return this->mE; } in Ematrix() function
|
| H A D | ChBeamSectionCosserat.h | 195 ChMatrixNM<double, 6, 6>& Ematrix() { return this->mE; } in Ematrix() function
|
| /dports/science/afni/afni-AFNI_21.3.16/src/ |
| H A D | 3dDWItoDT.c | 2438 matrix_initialize (&Ematrix); in ComputeD0()
2439 matrix_create (3, 3, &Ematrix); in ComputeD0()
2454 ULmatrix.elts[i][j] = Ematrix.elts[i][j] * eigs[i]; in ComputeD0()
2459 matrix_multiply (ULmatrix, Ematrix, &Dmatrix); in ComputeD0()
|