| pt | wt |
-|------|--------|
+| ---- | ------ |
| -1 | 0.5236 |
| -0.5 | 1.0472 |
| 0.5 | 1.0472 |
@@ -78,16 +78,16 @@ program main
```fortran
- contains
- subroutine callme
- call reallocate( pt, n, wt, n )
- call Chebyshev1Quadrature( n=n, pt=pt, wt=wt, &
- & quadType=quadType )
- msg = "| pt | wt |"
- call display(msg%chars())
- astr = MdEncode( pt .COLCONCAT. wt )
- call display( astr%chars(), "" )
- end subroutine callme
+contains
+subroutine callme
+ call reallocate( pt, n, wt, n )
+ call Chebyshev1Quadrature( n=n, pt=pt, wt=wt, &
+ & quadType=quadType )
+ msg = "| pt | wt |"
+ call display(msg%chars())
+ astr = MdEncode( pt .COLCONCAT. wt )
+ call display( astr%chars(), "" )
+end subroutine callme
```
```fortran
diff --git a/docs/docs-api/Chebyshev1PolynomialUtility/_Chebyshev1Quadrature_test_2.md b/docs/docs-api/Chebyshev1PolynomialUtility/_Chebyshev1Quadrature_test_2.md
index c2d41ff1..5a6e6a04 100644
--- a/docs/docs-api/Chebyshev1PolynomialUtility/_Chebyshev1Quadrature_test_2.md
+++ b/docs/docs-api/Chebyshev1PolynomialUtility/_Chebyshev1Quadrature_test_2.md
@@ -9,52 +9,52 @@ program main
```
```fortran title "Chebyshev1-Gauss"
- n = 2; quadType=Gauss; call callme
+n = 2; quadType=Gauss; call callme
```
| pt | wt |
-|----------|--------|
+| -------- | ------ |
| -0.70711 | 1.5708 |
| 0.70711 | 1.5708 |
```fortran title "Chebyshev1-Radau-Left"
- n = 2; quadType=GaussRadauLeft; call callme
+n = 2; quadType=GaussRadauLeft; call callme
```
| pt | wt |
-|----------|---------|
+| -------- | ------- |
| -0.30902 | 0.62832 |
| 0.80902 | 0.62832 |
```fortran title "Chebyshev1-Radau-Right"
- n = 2; quadType=GaussRadauRight; call callme
+n = 2; quadType=GaussRadauRight; call callme
```
| pt | wt |
-|----------|---------|
+| -------- | ------- |
| -0.80902 | 0.31416 |
| 0.30902 | 0.62832 |
```fortran title "Chebyshev1-Lobatto"
- n = 2; quadType=GaussLobatto; call callme
+n = 2; quadType=GaussLobatto; call callme
```
| pt | wt |
-|------|--------|
+| ---- | ------ |
| -0.5 | 1.0472 |
| 0.5 | 1.0472 |
```fortran
- contains
- subroutine callme
- call reallocate( pt, n, wt, n )
- call Chebyshev1Quadrature( n=n, pt=pt, wt=wt, &
- & quadType=quadType, onlyInside=onlyInside )
- msg = "| pt | wt |"
- call display(msg%chars())
- astr = MdEncode( pt .COLCONCAT. wt )
- call display( astr%chars(), "" )
- end subroutine callme
+contains
+subroutine callme
+ call reallocate( pt, n, wt, n )
+ call Chebyshev1Quadrature( n=n, pt=pt, wt=wt, &
+ & quadType=quadType, onlyInside=onlyInside )
+ msg = "| pt | wt |"
+ call display(msg%chars())
+ astr = MdEncode( pt .COLCONCAT. wt )
+ call display( astr%chars(), "" )
+end subroutine callme
```
```fortran
diff --git a/docs/docs-api/Chebyshev1PolynomialUtility/_Chebyshev1Transform_test_1.md b/docs/docs-api/Chebyshev1PolynomialUtility/_Chebyshev1Transform_test_1.md
index 4b20006e..8c0a3d25 100644
--- a/docs/docs-api/Chebyshev1PolynomialUtility/_Chebyshev1Transform_test_1.md
+++ b/docs/docs-api/Chebyshev1PolynomialUtility/_Chebyshev1Transform_test_1.md
@@ -32,4 +32,3 @@ program main
call ok( ALL(SOFTEQ(exact, uhat, tol)), "n=10 "//CHAR_LF)
end program main
```
-
diff --git a/docs/docs-api/Chebyshev1PolynomialUtility/_Chebyshev1Transform_test_2.md b/docs/docs-api/Chebyshev1PolynomialUtility/_Chebyshev1Transform_test_2.md
index 447fc969..c4c88387 100644
--- a/docs/docs-api/Chebyshev1PolynomialUtility/_Chebyshev1Transform_test_2.md
+++ b/docs/docs-api/Chebyshev1PolynomialUtility/_Chebyshev1Transform_test_2.md
@@ -32,4 +32,3 @@ program main
call ok( ALL(SOFTEQ(exact, uhat, tol)), "n=10 "//CHAR_LF)
end program main
```
-
diff --git a/docs/docs-api/Chebyshev1PolynomialUtility/_Chebyshev1Zeros_test_1.md b/docs/docs-api/Chebyshev1PolynomialUtility/_Chebyshev1Zeros_test_1.md
index 2b3ab058..9fded48d 100644
--- a/docs/docs-api/Chebyshev1PolynomialUtility/_Chebyshev1Zeros_test_1.md
+++ b/docs/docs-api/Chebyshev1PolynomialUtility/_Chebyshev1Zeros_test_1.md
@@ -17,5 +17,5 @@ end program main
Zeros of T(x), n = 3
| | | |
-|----------|-------------|---------|
+| -------- | ----------- | ------- |
| -0.86603 | 1.03412E-13 | 0.86603 |
diff --git a/docs/docs-api/ChebyshevFirst1D/ChebyshevFirst1D_test_1.md b/docs/docs-api/ChebyshevFirst1D/ChebyshevFirst1D_test_1.md
index 667abff7..0b0d0b1b 100644
--- a/docs/docs-api/ChebyshevFirst1D/ChebyshevFirst1D_test_1.md
+++ b/docs/docs-api/ChebyshevFirst1D/ChebyshevFirst1D_test_1.md
@@ -28,9 +28,9 @@ integer(i4b) :: ii
### n=1
```fortran
- obj = ChebyshevFirst1D(varname="x", n=1)
- call Display( "T(n=1) := " )
- call obj%Display( "=>" )
+obj = ChebyshevFirst1D(varname="x", n=1)
+call Display( "T(n=1) := " )
+call obj%Display( "=>" )
```
```txt
@@ -43,10 +43,10 @@ J(n=1, alpha=0.0, beta=0.0) :=
### n=2
```fortran
- call blanklines( nol=5 )
- obj = ChebyshevFirst1D(varname="x", n=2)
- call Display( "J(n=2, alpha=0.0, beta=0.0) := " )
- call obj%Display( "=>" )
+call blanklines( nol=5 )
+obj = ChebyshevFirst1D(varname="x", n=2)
+call Display( "J(n=2, alpha=0.0, beta=0.0) := " )
+call obj%Display( "=>" )
```
```txt
@@ -60,10 +60,10 @@ J(n=2, alpha=0.0, beta=0.0) :=
### n=3
```fortran
- call blanklines( nol=5 )
- obj = ChebyshevFirst1D(varname="x", n=3)
- call Display( "J(n=3, alpha=0.0, beta=0.0) := " )
- call obj%Display( "=>" )
+call blanklines( nol=5 )
+obj = ChebyshevFirst1D(varname="x", n=3)
+call Display( "J(n=3, alpha=0.0, beta=0.0) := " )
+call obj%Display( "=>" )
```
```txt
@@ -78,10 +78,10 @@ J(n=3, alpha=0.0, beta=0.0) :=
### n=4
```fortran
- call blanklines( nol=5 )
- obj = Jacobi1D(varname="x", n=4, alpha=0.0_DFP, beta=0.0_DFP)
- call Display( "J(n=4, alpha=0.0, beta=0.0) := " )
- call obj%Display( "=>" )
+call blanklines( nol=5 )
+obj = Jacobi1D(varname="x", n=4, alpha=0.0_DFP, beta=0.0_DFP)
+call Display( "J(n=4, alpha=0.0, beta=0.0) := " )
+call obj%Display( "=>" )
```
```txt
diff --git a/docs/docs-api/ChebyshevFirst1D/ChebyshevFirst1D_test_2.md b/docs/docs-api/ChebyshevFirst1D/ChebyshevFirst1D_test_2.md
index f6711b28..a7b15121 100644
--- a/docs/docs-api/ChebyshevFirst1D/ChebyshevFirst1D_test_2.md
+++ b/docs/docs-api/ChebyshevFirst1D/ChebyshevFirst1D_test_2.md
@@ -28,11 +28,11 @@ integer(i4b) :: ii
Let us generate 100 Chebyshev1 polynomials
```fortran
- DO ii = 1, 1000000
- obj=ChebyshevFirst1D(varname="x", n=100)
- call obj%Deallocate()
- END DO
- Read( *, * ) ii
+DO ii = 1, 1000000
+ obj=ChebyshevFirst1D(varname="x", n=100)
+ call obj%Deallocate()
+END DO
+Read( *, * ) ii
```
```fortran
diff --git a/docs/docs-api/ChebyshevFirst1D/ChebyshevFirst1D_test_3.md b/docs/docs-api/ChebyshevFirst1D/ChebyshevFirst1D_test_3.md
index 69e99a83..a9489691 100644
--- a/docs/docs-api/ChebyshevFirst1D/ChebyshevFirst1D_test_3.md
+++ b/docs/docs-api/ChebyshevFirst1D/ChebyshevFirst1D_test_3.md
@@ -31,38 +31,38 @@ real( dfp ), parameter :: tol=1.0E-10
### n=1
```fortran
- x = linspace(-1.0_DFP, 1.0_DFP, 11_I4B)
- yexact = x
- obj = ChebyshevFirst1D(varname="x", n=1)
- y = obj%Eval( x )
- call OK( ALL(SOFTEQ(y, yexact, tol)), "test-1:" )
+x = linspace(-1.0_DFP, 1.0_DFP, 11_I4B)
+yexact = x
+obj = ChebyshevFirst1D(varname="x", n=1)
+y = obj%Eval( x )
+call OK( ALL(SOFTEQ(y, yexact, tol)), "test-1:" )
```
### n=2
```fortran
- yexact = 2.0*x**2 - 1.0
- obj = ChebyshevFirst1D(varname="x", n=2)
- y = obj%Eval( x )
- call OK( ALL(SOFTEQ(y, yexact, tol)), "test-2:" )
+yexact = 2.0*x**2 - 1.0
+obj = ChebyshevFirst1D(varname="x", n=2)
+y = obj%Eval( x )
+call OK( ALL(SOFTEQ(y, yexact, tol)), "test-2:" )
```
### n=3
```fortran
- yexact = 4.0*x**3 - 3.0*x
- obj = ChebyshevFirst1D(varname="x", n=3)
- y = obj%Eval( x )
- call OK( ALL(SOFTEQ(y, yexact, tol)), "test-3:" )
+yexact = 4.0*x**3 - 3.0*x
+obj = ChebyshevFirst1D(varname="x", n=3)
+y = obj%Eval( x )
+call OK( ALL(SOFTEQ(y, yexact, tol)), "test-3:" )
```
### n=4
```fortran
- yexact = 8.0*x**4 - 8.0*x**2 + 1.0
- obj = ChebyshevFirst1D(varname="x", n=4)
- y = obj%Eval( x )
- call OK( ALL(SOFTEQ(y, yexact, tol)), "test-4:" )
+yexact = 8.0*x**4 - 8.0*x**2 + 1.0
+obj = ChebyshevFirst1D(varname="x", n=4)
+y = obj%Eval( x )
+call OK( ALL(SOFTEQ(y, yexact, tol)), "test-4:" )
```
```fortran
diff --git a/docs/docs-api/ChebyshevFirst1D/ChebyshevFirst1D_test_4.md b/docs/docs-api/ChebyshevFirst1D/ChebyshevFirst1D_test_4.md
index cd4f6df1..1838179e 100644
--- a/docs/docs-api/ChebyshevFirst1D/ChebyshevFirst1D_test_4.md
+++ b/docs/docs-api/ChebyshevFirst1D/ChebyshevFirst1D_test_4.md
@@ -33,45 +33,45 @@ real( dfp ), parameter :: tol=1.0E-10
### n=1
```fortran
- x = RAND()
- yexact = 1
- n=1
- obj = ChebyshevFirst1D(varname="x", n=n)
- y = obj%EvalGradient( x )
- call OK( SOFTEQ( y, yexact, tol ), "test-1:" )
+x = RAND()
+yexact = 1
+n=1
+obj = ChebyshevFirst1D(varname="x", n=n)
+y = obj%EvalGradient( x )
+call OK( SOFTEQ( y, yexact, tol ), "test-1:" )
```
### n=2
```fortran
- x = RAND()
- yexact = 4.0*x
- n=2
- obj = ChebyshevFirst1D(varname="x", n=n)
- y = obj%EvalGradient( x )
- call OK( SOFTEQ( y, yexact, tol ), "test-2:" )
+x = RAND()
+yexact = 4.0*x
+n=2
+obj = ChebyshevFirst1D(varname="x", n=n)
+y = obj%EvalGradient( x )
+call OK( SOFTEQ( y, yexact, tol ), "test-2:" )
```
### n=3
```fortran
- x = RAND()
- yexact = 12.0*x**2 - 3.0
- n=3
- obj = ChebyshevFirst1D(varname="x", n=n)
- y = obj%EvalGradient( x )
- call OK( SOFTEQ( y, yexact, tol ), "test-3:" )
+x = RAND()
+yexact = 12.0*x**2 - 3.0
+n=3
+obj = ChebyshevFirst1D(varname="x", n=n)
+y = obj%EvalGradient( x )
+call OK( SOFTEQ( y, yexact, tol ), "test-3:" )
```
### n=4
```fortran
- x = RAND()
- yexact = 32.0*x**3 - 16.0*x
- n=4
- obj = ChebyshevFirst1D(varname="x", n=n)
- y = obj%EvalGradient( x )
- call OK( SOFTEQ( y, yexact, tol ), "test-4:" )
+x = RAND()
+yexact = 32.0*x**3 - 16.0*x
+n=4
+obj = ChebyshevFirst1D(varname="x", n=n)
+y = obj%EvalGradient( x )
+call OK( SOFTEQ( y, yexact, tol ), "test-4:" )
```
```fortran
diff --git a/docs/docs-api/ChebyshevFirst1D/ChebyshevFirst1D_test_5.md b/docs/docs-api/ChebyshevFirst1D/ChebyshevFirst1D_test_5.md
index 2e14a222..d84f183c 100644
--- a/docs/docs-api/ChebyshevFirst1D/ChebyshevFirst1D_test_5.md
+++ b/docs/docs-api/ChebyshevFirst1D/ChebyshevFirst1D_test_5.md
@@ -33,42 +33,42 @@ real( dfp ) :: tol=1.0E-10
### n=1
```fortran
- x = linspace(0.0_DFP, 1.0_DFP, 11_I4B)
- yexact = ones(11, 1)
- n=1
- obj = ChebyshevFirst1D(varname="x", n=n)
- y = obj%EvalGradient( x )
- call OK( ALL( y .APPROXEQ. yexact), "test-1:" )
+x = linspace(0.0_DFP, 1.0_DFP, 11_I4B)
+yexact = ones(11, 1)
+n=1
+obj = ChebyshevFirst1D(varname="x", n=n)
+y = obj%EvalGradient( x )
+call OK( ALL( y .APPROXEQ. yexact), "test-1:" )
```
### n=2
```fortran
- yexact = 4.0*x
- n=2
- obj = ChebyshevFirst1D(varname="x", n=n)
- y = obj%EvalGradient( x )
- call OK(ALL(y .APPROXEQ. yexact), "test-2:" )
+yexact = 4.0*x
+n=2
+obj = ChebyshevFirst1D(varname="x", n=n)
+y = obj%EvalGradient( x )
+call OK(ALL(y .APPROXEQ. yexact), "test-2:" )
```
### n=3
```fortran
- yexact = 12.0*x**2 - 3.0
- n=3
- obj = ChebyshevFirst1D(varname="x", n=n)
- y = obj%EvalGradient( x )
- call OK(ALL( SOFTEQ( y, yexact, tol=tol )), "test-3:" )
+yexact = 12.0*x**2 - 3.0
+n=3
+obj = ChebyshevFirst1D(varname="x", n=n)
+y = obj%EvalGradient( x )
+call OK(ALL( SOFTEQ( y, yexact, tol=tol )), "test-3:" )
```
### n=4
```fortran
- yexact = 32.0*x**3 - 16.0*x
- n=4
- obj = ChebyshevFirst1D(varname="x", n=n)
- y = obj%EvalGradient( x )
- call OK(ALL( SOFTEQ( y, yexact, tol=tol )), "test-4:" )
+yexact = 32.0*x**3 - 16.0*x
+n=4
+obj = ChebyshevFirst1D(varname="x", n=n)
+y = obj%EvalGradient( x )
+call OK(ALL( SOFTEQ( y, yexact, tol=tol )), "test-4:" )
```
```fortran
diff --git a/docs/docs-api/ChebyshevFirst1D/ChebyshevFirst1D_test_6.md b/docs/docs-api/ChebyshevFirst1D/ChebyshevFirst1D_test_6.md
index a7368e20..498f28ed 100644
--- a/docs/docs-api/ChebyshevFirst1D/ChebyshevFirst1D_test_6.md
+++ b/docs/docs-api/ChebyshevFirst1D/ChebyshevFirst1D_test_6.md
@@ -31,37 +31,37 @@ integer( i4b ) :: n
### n=1
```fortran
- n = 1
- obj = ChebyshevFirst1D(varname="x", n=n)
- x = obj%zeros()
- call display( x, "zeros for n="//tostring(n), orient="ROW" )
+n = 1
+obj = ChebyshevFirst1D(varname="x", n=n)
+x = obj%zeros()
+call display( x, "zeros for n="//tostring(n), orient="ROW" )
```
### n=2
```fortran
- n = 2
- obj = ChebyshevFirst1D(varname="x", n=n)
- x = obj%zeros()
- call display( x, "zeros for n="//tostring(n), orient="ROW" )
+n = 2
+obj = ChebyshevFirst1D(varname="x", n=n)
+x = obj%zeros()
+call display( x, "zeros for n="//tostring(n), orient="ROW" )
```
### n=3
```fortran
- n = 3
- obj = ChebyshevFirst1D(varname="x", n=n)
- x = obj%zeros()
- call display( x, "zeros for n="//tostring(n), orient="ROW" )
+n = 3
+obj = ChebyshevFirst1D(varname="x", n=n)
+x = obj%zeros()
+call display( x, "zeros for n="//tostring(n), orient="ROW" )
```
### n=4
```fortran
- n = 4
- obj = ChebyshevFirst1D(varname="x", n=n)
- x = obj%zeros()
- call display( x, "zeros for n="//tostring(n), orient="ROW" )
+n = 4
+obj = ChebyshevFirst1D(varname="x", n=n)
+x = obj%zeros()
+call display( x, "zeros for n="//tostring(n), orient="ROW" )
```
```fortran
diff --git a/docs/docs-api/ChebyshevFirst1D/ChebyshevFirst1D_test_7.md b/docs/docs-api/ChebyshevFirst1D/ChebyshevFirst1D_test_7.md
index b06b98ce..2df457d7 100644
--- a/docs/docs-api/ChebyshevFirst1D/ChebyshevFirst1D_test_7.md
+++ b/docs/docs-api/ChebyshevFirst1D/ChebyshevFirst1D_test_7.md
@@ -31,39 +31,39 @@ integer( i4b ) :: n
### n=1
```fortran
- n = 1
- obj=ChebyshevFirst1D(varname="x", n=n)
- x = obj%GaussQuadrature()
- call display( x, "pt | wt for n="//tostring(n) )
+n = 1
+obj=ChebyshevFirst1D(varname="x", n=n)
+x = obj%GaussQuadrature()
+call display( x, "pt | wt for n="//tostring(n) )
```
### n=2
```fortran
- n = 2
- obj=ChebyshevFirst1D(varname="x", n=n)
- x = obj%GaussQuadrature()
- call display( x, "pt | wt for n="//tostring(n) )
+n = 2
+obj=ChebyshevFirst1D(varname="x", n=n)
+x = obj%GaussQuadrature()
+call display( x, "pt | wt for n="//tostring(n) )
```
### n=3
```fortran
- n = 3
- obj=ChebyshevFirst1D(varname="x", n=n)
- x = obj%GaussQuadrature()
- call display( x, "pt | wt for n="//tostring(n) )
+n = 3
+obj=ChebyshevFirst1D(varname="x", n=n)
+x = obj%GaussQuadrature()
+call display( x, "pt | wt for n="//tostring(n) )
```
### n=4
```fortran
- n = 4
- obj=ChebyshevFirst1D(varname="x", n=n)
- x = obj%GaussQuadrature()
- call display( x, "pt | wt for n="//tostring(n) )
+n = 4
+obj=ChebyshevFirst1D(varname="x", n=n)
+x = obj%GaussQuadrature()
+call display( x, "pt | wt for n="//tostring(n) )
```
```fortran
END PROGRAM main
-```
\ No newline at end of file
+```
diff --git a/docs/docs-api/ChebyshevFirst1D/ChebyshevFirst1D_test_8.md b/docs/docs-api/ChebyshevFirst1D/ChebyshevFirst1D_test_8.md
index 0a3b8b2e..6bf55c6b 100644
--- a/docs/docs-api/ChebyshevFirst1D/ChebyshevFirst1D_test_8.md
+++ b/docs/docs-api/ChebyshevFirst1D/ChebyshevFirst1D_test_8.md
@@ -32,41 +32,39 @@ real( dfp ), parameter :: a = -1.0_DFP
### n=1
```fortran
- n = 1
- obj=ChebyshevFirst1D(varname="x", n=n)
- x = obj%GaussRadauQuadrature(a)
- call display( x, "pt | wt for n="//tostring(n) )
+n = 1
+obj=ChebyshevFirst1D(varname="x", n=n)
+x = obj%GaussRadauQuadrature(a)
+call display( x, "pt | wt for n="//tostring(n) )
```
### n=2
```fortran
- n = 2
- obj=ChebyshevFirst1D(varname="x", n=n)
- x = obj%GaussRadauQuadrature(a)
- call display( x, "pt | wt for n="//tostring(n) )
+n = 2
+obj=ChebyshevFirst1D(varname="x", n=n)
+x = obj%GaussRadauQuadrature(a)
+call display( x, "pt | wt for n="//tostring(n) )
```
### n=3
```fortran
- n = 3
- obj=ChebyshevFirst1D(varname="x", n=n)
- x = obj%GaussRadauQuadrature(a)
- call display( x, "pt | wt for n="//tostring(n) )
+n = 3
+obj=ChebyshevFirst1D(varname="x", n=n)
+x = obj%GaussRadauQuadrature(a)
+call display( x, "pt | wt for n="//tostring(n) )
```
### n=4
```fortran
- n = 4
- obj=ChebyshevFirst1D(varname="x", n=n)
- x = obj%GaussRadauQuadrature(a)
- call display( x, "pt | wt for n="//tostring(n) )
+n = 4
+obj=ChebyshevFirst1D(varname="x", n=n)
+x = obj%GaussRadauQuadrature(a)
+call display( x, "pt | wt for n="//tostring(n) )
```
```fortran
END PROGRAM main
```
-
-
diff --git a/docs/docs-api/ChebyshevFirst1D/ChebyshevFirst1D_test_9.md b/docs/docs-api/ChebyshevFirst1D/ChebyshevFirst1D_test_9.md
index eb1ed81b..9b934070 100644
--- a/docs/docs-api/ChebyshevFirst1D/ChebyshevFirst1D_test_9.md
+++ b/docs/docs-api/ChebyshevFirst1D/ChebyshevFirst1D_test_9.md
@@ -31,37 +31,37 @@ integer( i4b ) :: n
### n=1
```fortran
- n = 1
- obj=ChebyshevFirst1D(varname="x", n=n)
- x = obj%GaussLobattoQuadrature()
- call display( x, "pt | wt for n="//tostring(n) )
+n = 1
+obj=ChebyshevFirst1D(varname="x", n=n)
+x = obj%GaussLobattoQuadrature()
+call display( x, "pt | wt for n="//tostring(n) )
```
### n=2
```fortran
- n = 2
- obj=ChebyshevFirst1D(varname="x", n=n)
- x = obj%GaussLobattoQuadrature()
- call display( x, "pt | wt for n="//tostring(n) )
+n = 2
+obj=ChebyshevFirst1D(varname="x", n=n)
+x = obj%GaussLobattoQuadrature()
+call display( x, "pt | wt for n="//tostring(n) )
```
### n=3
```fortran
- n = 3
- obj=ChebyshevFirst1D(varname="x", n=n)
- x = obj%GaussLobattoQuadrature()
- call display( x, "pt | wt for n="//tostring(n) )
+n = 3
+obj=ChebyshevFirst1D(varname="x", n=n)
+x = obj%GaussLobattoQuadrature()
+call display( x, "pt | wt for n="//tostring(n) )
```
### n=4
```fortran
- n = 4
- obj=ChebyshevFirst1D(varname="x", n=n)
- x = obj%GaussLobattoQuadrature()
- call display( x, "pt | wt for n="//tostring(n) )
+n = 4
+obj=ChebyshevFirst1D(varname="x", n=n)
+x = obj%GaussLobattoQuadrature()
+call display( x, "pt | wt for n="//tostring(n) )
```
```fortran
diff --git a/docs/docs-api/CommandLine/CommandLineGroupArg_.md b/docs/docs-api/CommandLine/CommandLineGroupArg_.md
index 60abeda7..3bffc671 100644
--- a/docs/docs-api/CommandLine/CommandLineGroupArg_.md
+++ b/docs/docs-api/CommandLine/CommandLineGroupArg_.md
@@ -13,7 +13,6 @@ tags:
- commandLine
---
-
# CommandLineGroupArg
- [ ] TODO add documentation of [[CommandLineGroupArg_]]
diff --git a/docs/docs-api/CommandLine/CommandLineInterface_.md b/docs/docs-api/CommandLine/CommandLineInterface_.md
index 2b679d54..fdafc3ac 100644
--- a/docs/docs-api/CommandLine/CommandLineInterface_.md
+++ b/docs/docs-api/CommandLine/CommandLineInterface_.md
@@ -12,6 +12,7 @@ tags:
- easifemClasses
- commandLine
---
+
# CommandLineInterface
- [ ] TODO add documentation of [[CommandLineInterface_]]
diff --git a/docs/docs-api/CommandLine/CommandLine_test_1.md b/docs/docs-api/CommandLine/CommandLine_test_1.md
index b25d9516..f3a4011f 100644
--- a/docs/docs-api/CommandLine/CommandLine_test_1.md
+++ b/docs/docs-api/CommandLine/CommandLine_test_1.md
@@ -14,7 +14,7 @@ title: CommandLineInterface example-1
## Usage
!!! note ""
- Import modules
+Import modules
```fortran
PROGRAM main
@@ -50,7 +50,6 @@ check error
IF (error /= 0) STOP
```
-
#CommandLineInterface/Get get the value of an option
```fortran
diff --git a/docs/docs-api/CommandLine/CommandLine_test_2.md b/docs/docs-api/CommandLine/CommandLine_test_2.md
index 1e7df63c..d45081ff 100644
--- a/docs/docs-api/CommandLine/CommandLine_test_2.md
+++ b/docs/docs-api/CommandLine/CommandLine_test_2.md
@@ -5,7 +5,7 @@ update: 2021-11-08
title: CommandLineInterface example-2
---
-# CommandLineInterface: example-2
+# CommandLineInterface: example-2
## Class and modules
diff --git a/docs/docs-api/CommandLine/CommandLine_test_3.md b/docs/docs-api/CommandLine/CommandLine_test_3.md
index 349d4f77..7fabbb42 100644
--- a/docs/docs-api/CommandLine/CommandLine_test_3.md
+++ b/docs/docs-api/CommandLine/CommandLine_test_3.md
@@ -15,7 +15,7 @@ title: CommandLineInterface example-3
## Usage
!!! note ""
- Importing necessary modules and declaring variables
+Importing necessary modules and declaring variables
```fortran
PROGRAM main
@@ -35,7 +35,7 @@ INTEGER(I4B) :: error
#CommandLineInterface/Initiate
!!! example ""
- Initiating an instance of [[CommandLineInterface_]]
+Initiating an instance of [[CommandLineInterface_]]
```fortran
CALL cli%initiate( &
@@ -56,9 +56,9 @@ CALL cli%initiate( &
#CommandLineInterface/Add
!!! note ""
- Adding command line arguments
+Adding command line arguments
-``` fortran
+```fortran
CALL cli%add(switch='--input',switch_ab='-i',help='name of input markdown file',&
& required=.TRUE., act='store', error=error)
IF (error .NE. 0) &
@@ -75,9 +75,9 @@ IF (error .NE. 0) &
#CommandLineInterface/Get
!!! message ""
- Getting commmand line agruments
+Getting commmand line agruments
-``` fortran
+```fortran
CALL cli%get(switch='-i', val=mdfilename, error=error)
IF (error .NE. 0) &
& CALL e%raiseError(modName//"::"//myName//" - "// &
@@ -102,9 +102,9 @@ CALL e%raiseInformation(modName//"::"//myName//" - "// &
#TxtFile/ConvertMarkdownToSource
!!! note ""
- Initiating an instance of [[TxtFile_]]
+Initiating an instance of [[TxtFile_]]
-``` fortran
+```fortran
CALL srcfile%Initiate(filename=srcfilename, status="REPLACE", &
& ACTION="WRITE")
CALL srcfile%OPEN()
diff --git a/docs/docs-api/ContractionUtility/Contraction.md b/docs/docs-api/ContractionUtility/Contraction.md
index 7638f899..055c260c 100644
--- a/docs/docs-api/ContractionUtility/Contraction.md
+++ b/docs/docs-api/ContractionUtility/Contraction.md
@@ -24,25 +24,25 @@ Let's employ the following notation:
Then, the following table explains this operator.
-| a1 | a2 | ans |
-|----|----|-----|
-| `r1` | `r1` | `r0` |
-| `r1` | `r2` | `r1` |
-| `r1` | `r3` | `r2` |
-| `r1` | `r4` | `r3` |
-| `r2` | `r1` | `r1` |
-| `r2` | `r2` | `r0` |
-| `r2` | `r3` | `r1` |
-| `r2` | `r4` | `r2` |
-| `r3` | `r1` | `r2` |
-| `r3` | `r2` | `r1` |
-| `r3` | `r3` | `r0` |
-| `r3` | `r4` | `r1` |
-| `r4` | `r1` | `r3` |
-| `r4` | `r2` | `r2` |
-| `r4` | `r3` | `r1` |
-| `r4` | `r4` | `r0` |
-| | | |
+| a1 | a2 | ans |
+| ---- | ---- | ---- |
+| `r1` | `r1` | `r0` |
+| `r1` | `r2` | `r1` |
+| `r1` | `r3` | `r2` |
+| `r1` | `r4` | `r3` |
+| `r2` | `r1` | `r1` |
+| `r2` | `r2` | `r0` |
+| `r2` | `r3` | `r1` |
+| `r2` | `r4` | `r2` |
+| `r3` | `r1` | `r2` |
+| `r3` | `r2` | `r1` |
+| `r3` | `r3` | `r0` |
+| `r3` | `r4` | `r1` |
+| `r4` | `r1` | `r3` |
+| `r4` | `r2` | `r2` |
+| `r4` | `r3` | `r1` |
+| `r4` | `r4` | `r0` |
+| | | |
import Tabs from '@theme/Tabs';
import TabItem from '@theme/TabItem';
diff --git a/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_.md b/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_.md
index 080d1a76..4ac6a1a6 100644
--- a/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_.md
+++ b/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_.md
@@ -5,18 +5,18 @@
Interface:
```fortran
- MODULE PURE FUNCTION ConvectiveMatrix(test, trial, term1, &
- & term2, opt) RESULT(Ans)
- CLASS(ElemshapeData_), INTENT(IN) :: test
- CLASS(ElemshapeData_), INTENT(IN) :: trial
- INTEGER(I4B), INTENT(IN) :: term1
- !! del_x, del_y, del_z, del_x_all, del_none
- INTEGER(I4B), INTENT(IN) :: term2
- !! del_x, del_y, del_z, del_x_all, del_none
- INTEGER( I4B ), OPTIONAL, INTENT( IN ) :: opt
- !! Option for number of diagonal copies
- REAL(DFP), ALLOCATABLE :: ans(:, :)
- END FUNCTION ConvectiveMatrix
+MODULE PURE FUNCTION ConvectiveMatrix(test, trial, term1, &
+ & term2, opt) RESULT(Ans)
+ CLASS(ElemshapeData_), INTENT(IN) :: test
+ CLASS(ElemshapeData_), INTENT(IN) :: trial
+ INTEGER(I4B), INTENT(IN) :: term1
+ !! del_x, del_y, del_z, del_x_all, del_none
+ INTEGER(I4B), INTENT(IN) :: term2
+ !! del_x, del_y, del_z, del_x_all, del_none
+ INTEGER( I4B ), OPTIONAL, INTENT( IN ) :: opt
+ !! Option for number of diagonal copies
+ REAL(DFP), ALLOCATABLE :: ans(:, :)
+END FUNCTION ConvectiveMatrix
```
Following matrices can be calculated based on the value of `term1` and `term2`.
@@ -86,22 +86,22 @@ $$
Interface:
```fortran
- MODULE PURE FUNCTION ConvectiveMatrix(test, trial, c, crank, term1, &
- & term2, opt) RESULT(Ans)
- CLASS(ElemshapeData_), INTENT(IN) :: test
- CLASS(ElemshapeData_), INTENT(IN) :: trial
- TYPE(FEVariable_), INTENT(IN) :: c
- !! scalar variable
- TYPE(FEVariableScalar_), INTENT(IN) :: crank
- !! scalar variable
- INTEGER(I4B), INTENT(IN) :: term1
- !! del_x, del_y, del_z, del_x_all, del_none
- INTEGER(I4B), INTENT(IN) :: term2
- !! del_x, del_y, del_z, del_x_all, del_none
- INTEGER( I4B ), OPTIONAL, INTENT( IN ) :: opt
- !! number of copies
- REAL(DFP), ALLOCATABLE :: ans(:, :)
- END FUNCTION ConvectiveMatrix
+MODULE PURE FUNCTION ConvectiveMatrix(test, trial, c, crank, term1, &
+ & term2, opt) RESULT(Ans)
+ CLASS(ElemshapeData_), INTENT(IN) :: test
+ CLASS(ElemshapeData_), INTENT(IN) :: trial
+ TYPE(FEVariable_), INTENT(IN) :: c
+ !! scalar variable
+ TYPE(FEVariableScalar_), INTENT(IN) :: crank
+ !! scalar variable
+ INTEGER(I4B), INTENT(IN) :: term1
+ !! del_x, del_y, del_z, del_x_all, del_none
+ INTEGER(I4B), INTENT(IN) :: term2
+ !! del_x, del_y, del_z, del_x_all, del_none
+ INTEGER( I4B ), OPTIONAL, INTENT( IN ) :: opt
+ !! number of copies
+ REAL(DFP), ALLOCATABLE :: ans(:, :)
+END FUNCTION ConvectiveMatrix
```
!!! note ""
@@ -124,7 +124,7 @@ $$
- `term1=del_none, term2=del_z`
$$
-M(I,J) = \int_{\Omega} c N^I \frac{\partial N^J}{\partial z} d{\Omega}
+M(I,J) = \int_{\Omega} c N^I \frac{\partial N^J}{\partial z} d{\Omega}
$$
- `term1=del_none, term2=del_x_all` **opt=1**
@@ -148,13 +148,13 @@ $$
- `term1=del_y, term2=del_none`
$$
-M(I,J) = \int_{\Omega} c \frac{\partial N^I}{\partial y} N^J d{\Omega}
+M(I,J) = \int_{\Omega} c \frac{\partial N^I}{\partial y} N^J d{\Omega}
$$
- `term1=del_z, term2=del_none`
$$
-M(I,J) = \int_{\Omega} c \frac{\partial N^I}{\partial z} N^J d{\Omega}
+M(I,J) = \int_{\Omega} c \frac{\partial N^I}{\partial z} N^J d{\Omega}
$$
- `term1=del_x_all, term2=del_none` **opt=1**
@@ -189,22 +189,22 @@ You can learn more from examples given below:
Interface:
```fortran
- MODULE PURE FUNCTION ConvectiveMatrix(test, trial, c, crank, term1, &
- & term2, opt) RESULT(Ans)
- CLASS(ElemshapeData_), INTENT(IN) :: test
- CLASS(ElemshapeData_), INTENT(IN) :: trial
- TYPE(FEVariable_), INTENT(IN) :: c
- !! It can be a scalar or vector variable
- TYPE(FEVariableVector_), INTENT(IN) :: crank
- !! It can be a scalar or vector variable
- INTEGER(I4B), INTENT(IN) :: term1
- !! del_x, del_y, del_z, del_x_all, del_none
- INTEGER(I4B), INTENT(IN) :: term2
- !! del_x, del_y, del_z, del_x_all, del_none
- INTEGER( I4B ), OPTIONAL, INTENT( IN ) :: opt
- !! number of copies
- REAL(DFP), ALLOCATABLE :: ans(:, :)
- END FUNCTION ConvectiveMatrix
+MODULE PURE FUNCTION ConvectiveMatrix(test, trial, c, crank, term1, &
+ & term2, opt) RESULT(Ans)
+ CLASS(ElemshapeData_), INTENT(IN) :: test
+ CLASS(ElemshapeData_), INTENT(IN) :: trial
+ TYPE(FEVariable_), INTENT(IN) :: c
+ !! It can be a scalar or vector variable
+ TYPE(FEVariableVector_), INTENT(IN) :: crank
+ !! It can be a scalar or vector variable
+ INTEGER(I4B), INTENT(IN) :: term1
+ !! del_x, del_y, del_z, del_x_all, del_none
+ INTEGER(I4B), INTENT(IN) :: term2
+ !! del_x, del_y, del_z, del_x_all, del_none
+ INTEGER( I4B ), OPTIONAL, INTENT( IN ) :: opt
+ !! number of copies
+ REAL(DFP), ALLOCATABLE :: ans(:, :)
+END FUNCTION ConvectiveMatrix
```
!!! note "Convective velocity"
@@ -311,9 +311,9 @@ $$
## Examples
-| | | |
+| | | |
| :------------------------------------------- | :------------------------------------------- | :------------------------------------------ | --- |
-| [🩱 Example 1](ConvectiveMatrix_test_1.md) | [👬 Example 2](ConvectiveMatrix_test_2.md) | [🧵 Example 3](ConvectiveMatrix_test_3.md) | |
-| [🍀 Example 4](ConvectiveMatrix_test_4.md) | [🕵️♀️ Example 5](ConvectiveMatrix_test_5.md) | [🔯 Example 6](ConvectiveMatrix_test_6.md) | |
-| [🙈 Example 7](ConvectiveMatrix_test_21.md) | [🏋️ Example 8](ConvectiveMatrix_test_22.md) | [😇 Example 9](ConvectiveMatrix_test_23.md) | |
-| [⛺ Example 10](ConvectiveMatrix_test_24.md) | [🕴️ Example 11](ConvectiveMatrix_test_25.md) | |
+| [🩱 Example 1](ConvectiveMatrix_test_1.md) | [👬 Example 2](ConvectiveMatrix_test_2.md) | [🧵 Example 3](ConvectiveMatrix_test_3.md) | |
+| [🍀 Example 4](ConvectiveMatrix_test_4.md) | [🕵️♀️ Example 5](ConvectiveMatrix_test_5.md) | [🔯 Example 6](ConvectiveMatrix_test_6.md) | |
+| [🙈 Example 7](ConvectiveMatrix_test_21.md) | [🏋️ Example 8](ConvectiveMatrix_test_22.md) | [😇 Example 9](ConvectiveMatrix_test_23.md) | |
+| [⛺ Example 10](ConvectiveMatrix_test_24.md) | [🕴️ Example 11](ConvectiveMatrix_test_25.md) | |
diff --git a/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_1.md b/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_1.md
index ccbf4b80..dc71ec51 100644
--- a/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_1.md
+++ b/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_1.md
@@ -19,7 +19,7 @@ tags:
# 📚 ConvectiveMatrix example 1
!!! note ""
- This example shows how to use the subroutine called `ConvectiveMatrix` to create a convective matrix in space domain.
+This example shows how to use the subroutine called `ConvectiveMatrix` to create a convective matrix in space domain.
Here, we want to do the following.
@@ -32,7 +32,7 @@ M(I,J) = \partial u_{iI} \int_{\Omega} c_k \frac{\partial N^I}{\partial x_k} N^J
$$
!!! warning ""
- $c$ is convective velocity, which can be a constant, or a function of spatial coordinates, or some nonlinear function.
+$c$ is convective velocity, which can be a constant, or a function of spatial coordinates, or some nonlinear function.
In this example, convective matrix is formed for
@@ -58,45 +58,45 @@ PROGRAM main
```
!!! note ""
- Let us now create the physical coordinate of the line element.
+Let us now create the physical coordinate of the line element.
```fortran
- XiJ = RESHAPE([-1, 1], [1, 2])
+XiJ = RESHAPE([-1, 1], [1, 2])
```
!!! note ""
- Now we create an instance of [[ReferenceLine_]].
+Now we create an instance of [[ReferenceLine_]].
```fortran
- refelem = referenceline(nsd=1)
+refelem = referenceline(nsd=1)
```
!!! note ""
- Here, we create the quadrature points.
+Here, we create the quadrature points.
```fortran
- CALL initiate( obj=quad, refelem=refelem, order=order+order-1, &
- & quadratureType='GaussLegendre' )
+CALL initiate( obj=quad, refelem=refelem, order=order+order-1, &
+ & quadratureType='GaussLegendre' )
```
!!! note ""
- Initiate an instance of [[ElemshapeData_]]. You can learn more about it from [[ElemshapeData_test]]
+Initiate an instance of [[ElemshapeData_]]. You can learn more about it from [[ElemshapeData_test]]
```fortran
- CALL initiate(obj=test, &
- & quad=quad, &
- & refelem=refelem, &
- & ContinuityType=typeH1, &
- & InterpolType=typeLagrangeInterpolation)
- CALL Set( obj=test, val=xij, N=test%N, dNdXi=test%dNdXi)
+CALL initiate(obj=test, &
+ & quad=quad, &
+ & refelem=refelem, &
+ & ContinuityType=typeH1, &
+ & InterpolType=typeLagrangeInterpolation)
+CALL Set( obj=test, val=xij, N=test%N, dNdXi=test%dNdXi)
```
!!! note ""
- Let us now create the convective matrix.
+Let us now create the convective matrix.
```fortran
- mat=ConvectiveMatrix(test=test, trial=test, term1=1, term2=0, c=c)
- CALL Display(mat, "mat:")
+mat=ConvectiveMatrix(test=test, trial=test, term1=1, term2=0, c=c)
+CALL Display(mat, "mat:")
```
??? example "Results"
@@ -109,11 +109,11 @@ PROGRAM main
```
!!! note ""
- Let us now create the convective matrix.
+Let us now create the convective matrix.
```fortran
- mat=ConvectiveMatrix(test=test, trial=test, term1=0, term2=1, c=c)
- CALL Display(mat, "mat:")
+mat=ConvectiveMatrix(test=test, trial=test, term1=0, term2=1, c=c)
+CALL Display(mat, "mat:")
```
??? example "Results"
diff --git a/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_2.md b/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_2.md
index f5aa6138..c10e3ac3 100644
--- a/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_2.md
+++ b/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_2.md
@@ -20,7 +20,7 @@ tags:
# ConvectiveMatrix example 2
!!! note ""
- This example shows how to USE the SUBROUTINE called `ConvectiveMatrix` to create a convective matrix in space domain for Line2 element.
+This example shows how to USE the SUBROUTINE called `ConvectiveMatrix` to create a convective matrix in space domain for Line2 element.
Here, we want to DO the following.
@@ -33,7 +33,7 @@ M(I,J) = \partial u_{iI} \int_{\Omega} c_k \frac{\partial N^I}{\partial x_k} N^J
$$
!!! warning ""
- $c$ is convective velocity, which can be a constant, or a FUNCTION of spatial coordinates, or some nonlinear FUNCTION.
+$c$ is convective velocity, which can be a constant, or a FUNCTION of spatial coordinates, or some nonlinear FUNCTION.
In this example, convective matrix is formed for
@@ -65,52 +65,52 @@ PROGRAM main
```
!!! note ""
- Let us now create the physical coordinate of the line element.
+Let us now create the physical coordinate of the line element.
```fortran
- XiJ = RESHAPE([-1, 1], [1, 2])
+XiJ = RESHAPE([-1, 1], [1, 2])
```
!!! note ""
- Now we create an instance of [[ReferenceLine_]].
+Now we create an instance of [[ReferenceLine_]].
```fortran
- refelem = referenceline(nsd=1)
+refelem = referenceline(nsd=1)
```
!!! note ""
- Here, we create the quadrature points.
+Here, we create the quadrature points.
```fortran
- CALL initiate( obj=quad, refelem=refelem, order=order+order-1, &
- & quadratureType='GaussLegendre' )
+CALL initiate( obj=quad, refelem=refelem, order=order+order-1, &
+ & quadratureType='GaussLegendre' )
```
!!! note ""
- Initiate an instance of [[ElemshapeData_]]. You can learn more about it from [[ElemshapeData_test]]
+Initiate an instance of [[ElemshapeData_]]. You can learn more about it from [[ElemshapeData_test]]
```fortran
- CALL initiate(obj=test, &
- & quad=quad, &
- & refelem=refelem, &
- & ContinuityType=typeH1, &
- & InterpolType=typeLagrangeInterpolation)
- CALL Set( obj=test, val=xij, N=test%N, dNdXi=test%dNdXi)
+CALL initiate(obj=test, &
+ & quad=quad, &
+ & refelem=refelem, &
+ & ContinuityType=typeH1, &
+ & InterpolType=typeLagrangeInterpolation)
+CALL Set( obj=test, val=xij, N=test%N, dNdXi=test%dNdXi)
```
!!! note ""
- Let us now create an instance of [[FEVariable_]] to wrape the nodal values of $c$. You can learn more about this at [[FEVariable_test]]
+Let us now create an instance of [[FEVariable_]] to wrape the nodal values of $c$. You can learn more about this at [[FEVariable_test]]
```fortran
- cvar = NodalVariable(c, typeFEVariableVector, typeFEVariableSpace)
+cvar = NodalVariable(c, typeFEVariableVector, typeFEVariableSpace)
```
!!! note ""
- Let us now create the convective matrix.
+Let us now create the convective matrix.
```fortran
- mat=ConvectiveMatrix(test=test, trial=test, term1=1, term2=0, c=cvar)
- CALL Display(mat, "mat:")
+mat=ConvectiveMatrix(test=test, trial=test, term1=1, term2=0, c=cvar)
+CALL Display(mat, "mat:")
```
??? example "Results"
@@ -123,11 +123,11 @@ PROGRAM main
```
!!! note ""
- Let us now create the convective matrix.
+Let us now create the convective matrix.
```fortran
- mat=ConvectiveMatrix(test=test, trial=test, term1=0, term2=1, c=cvar)
- CALL Display(mat, "mat:")
+mat=ConvectiveMatrix(test=test, trial=test, term1=0, term2=1, c=cvar)
+CALL Display(mat, "mat:")
```
??? example "Results"
diff --git a/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_21.md b/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_21.md
index 775cebeb..0f5edd26 100644
--- a/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_21.md
+++ b/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_21.md
@@ -19,7 +19,7 @@ tags:
# ConvectiveMatrix example 21
!!! note ""
- This example shows how to use the subroutine called `ConvectiveMatrix` to create a convective matrix in space domain.
+This example shows how to use the subroutine called `ConvectiveMatrix` to create a convective matrix in space domain.
Here, we want to do the following.
@@ -36,15 +36,15 @@ M(I,J) = \int_{\Omega} N^I \frac{\partial N^J}{\partial y} d{\Omega}
$$
$$
-M(I,J) = \int_{\Omega} \frac{\partial N^I}{\partial y} N^J d{\Omega}
+M(I,J) = \int_{\Omega} \frac{\partial N^I}{\partial y} N^J d{\Omega}
$$
$$
-M(I,J) = \int_{\Omega} N^I \frac{\partial N^J}{\partial z} d{\Omega}
+M(I,J) = \int_{\Omega} N^I \frac{\partial N^J}{\partial z} d{\Omega}
$$
$$
-M(I,J) = \int_{\Omega} \frac{\partial N^I}{\partial z} N^J d{\Omega}
+M(I,J) = \int_{\Omega} \frac{\partial N^I}{\partial z} N^J d{\Omega}
$$
In this example, convective matrix is formed for
@@ -69,45 +69,45 @@ PROGRAM main
```
!!! note ""
- Let us now create the physical coordinate of the line element.
+Let us now create the physical coordinate of the line element.
```fortran
- XiJ = RESHAPE([-1, 1], [1, 2])
+XiJ = RESHAPE([-1, 1], [1, 2])
```
!!! note ""
- Now we create an instance of [[ReferenceLine_]].
+Now we create an instance of [[ReferenceLine_]].
```fortran
- refelem = referenceline(nsd=1)
+refelem = referenceline(nsd=1)
```
!!! note ""
- Here, we create the quadrature points.
+Here, we create the quadrature points.
```fortran
- CALL initiate( obj=quad, refelem=refelem, order=order+order-1, &
- & quadratureType='GaussLegendre' )
+CALL initiate( obj=quad, refelem=refelem, order=order+order-1, &
+ & quadratureType='GaussLegendre' )
```
!!! note ""
- Initiate an instance of [[ElemshapeData_]]. You can learn more about it from [[ElemshapeData_test]]
+Initiate an instance of [[ElemshapeData_]]. You can learn more about it from [[ElemshapeData_test]]
```fortran
- CALL initiate(obj=test, &
- & quad=quad, &
- & refelem=refelem, &
- & ContinuityType=typeH1, &
- & InterpolType=typeLagrangeInterpolation)
- CALL Set( obj=test, val=xij, N=test%N, dNdXi=test%dNdXi)
+CALL initiate(obj=test, &
+ & quad=quad, &
+ & refelem=refelem, &
+ & ContinuityType=typeH1, &
+ & InterpolType=typeLagrangeInterpolation)
+CALL Set( obj=test, val=xij, N=test%N, dNdXi=test%dNdXi)
```
!!! note ""
- Let us now create the convective matrix.
+Let us now create the convective matrix.
```fortran
- mat=ConvectiveMatrix(test=test, trial=test, term1=1, term2=0, dim=dim)
- CALL Display(mat, "mat:")
+mat=ConvectiveMatrix(test=test, trial=test, term1=1, term2=0, dim=dim)
+CALL Display(mat, "mat:")
```
??? example "Results"
@@ -120,11 +120,11 @@ PROGRAM main
```
!!! note ""
- Let us now create the convective matrix.
+Let us now create the convective matrix.
```fortran
- mat=ConvectiveMatrix(test=test, trial=test, term1=0, term2=1, dim=dim)
- CALL Display(mat, "mat:")
+mat=ConvectiveMatrix(test=test, trial=test, term1=0, term2=1, dim=dim)
+CALL Display(mat, "mat:")
```
??? example "Results"
diff --git a/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_22.md b/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_22.md
index c055ca09..3aeb3025 100644
--- a/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_22.md
+++ b/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_22.md
@@ -20,7 +20,7 @@ tags:
# ConvectiveMatrix example 22
!!! note ""
- This example shows how to USE the SUBROUTINE called `ConvectiveMatrix` to create a convective matrix in space domain for Line2 element.
+This example shows how to USE the SUBROUTINE called `ConvectiveMatrix` to create a convective matrix in space domain for Line2 element.
Here, we want to DO the following.
@@ -37,19 +37,19 @@ M(I,J) = \int_{\Omega} N^I \frac{\partial N^J}{\partial y} d{\Omega}
$$
$$
-M(I,J) = \int_{\Omega} \frac{\partial N^I}{\partial y} N^J d{\Omega}
+M(I,J) = \int_{\Omega} \frac{\partial N^I}{\partial y} N^J d{\Omega}
$$
$$
-M(I,J) = \int_{\Omega} N^I \frac{\partial N^J}{\partial z} d{\Omega}
+M(I,J) = \int_{\Omega} N^I \frac{\partial N^J}{\partial z} d{\Omega}
$$
$$
-M(I,J) = \int_{\Omega} \frac{\partial N^I}{\partial z} N^J d{\Omega}
+M(I,J) = \int_{\Omega} \frac{\partial N^I}{\partial z} N^J d{\Omega}
$$
!!! warning ""
- $c$ is convective velocity, which can be a constant, or a FUNCTION of spatial coordinates, or some nonlinear FUNCTION.
+$c$ is convective velocity, which can be a constant, or a FUNCTION of spatial coordinates, or some nonlinear FUNCTION.
In this example, convective matrix is formed for
@@ -80,53 +80,53 @@ PROGRAM main
```
!!! note ""
- Let us now create the physical coordinate of the line element.
+Let us now create the physical coordinate of the line element.
```fortran
- XiJ = RESHAPE([-1, 1], [1, 2])
+XiJ = RESHAPE([-1, 1], [1, 2])
```
!!! note ""
- Now we create an instance of [[ReferenceLine_]].
+Now we create an instance of [[ReferenceLine_]].
```fortran
- refelem = referenceline(nsd=1)
+refelem = referenceline(nsd=1)
```
!!! note ""
- Here, we create the quadrature points.
+Here, we create the quadrature points.
```fortran
- CALL initiate( obj=quad, refelem=refelem, order=order+order-1, &
- & quadratureType='GaussLegendre' )
+CALL initiate( obj=quad, refelem=refelem, order=order+order-1, &
+ & quadratureType='GaussLegendre' )
```
!!! note ""
- Initiate an instance of [[ElemshapeData_]]. You can learn more about it from [[ElemshapeData_test]]
+Initiate an instance of [[ElemshapeData_]]. You can learn more about it from [[ElemshapeData_test]]
```fortran
- CALL initiate(obj=test, &
- & quad=quad, &
- & refelem=refelem, &
- & ContinuityType=typeH1, &
- & InterpolType=typeLagrangeInterpolation)
- CALL Set( obj=test, val=xij, N=test%N, dNdXi=test%dNdXi)
+CALL initiate(obj=test, &
+ & quad=quad, &
+ & refelem=refelem, &
+ & ContinuityType=typeH1, &
+ & InterpolType=typeLagrangeInterpolation)
+CALL Set( obj=test, val=xij, N=test%N, dNdXi=test%dNdXi)
```
!!! note ""
- Let us now create an instance of [[FEVariable_]] to wrape the nodal values of $c$. You can learn more about this at [[FEVariable_test]]
+Let us now create an instance of [[FEVariable_]] to wrape the nodal values of $c$. You can learn more about this at [[FEVariable_test]]
```fortran
- cvar = NodalVariable(c, typeFEVariableScalar, typeFEVariableSpace)
+cvar = NodalVariable(c, typeFEVariableScalar, typeFEVariableSpace)
```
!!! note ""
- Let us now create the convective matrix.
+Let us now create the convective matrix.
```fortran
- mat=ConvectiveMatrix(test=test, trial=test, term1=1, term2=0, &
- & c=cvar, dim=1)
- CALL Display(mat, "mat:")
+mat=ConvectiveMatrix(test=test, trial=test, term1=1, term2=0, &
+ & c=cvar, dim=1)
+CALL Display(mat, "mat:")
```
??? example "Results"
@@ -139,12 +139,12 @@ PROGRAM main
```
!!! note ""
- Let us now create the convective matrix.
+Let us now create the convective matrix.
```fortran
- mat=ConvectiveMatrix(test=test, trial=test, term1=0, term2=1, &
- & c=cvar, dim=1)
- CALL Display(mat, "mat:")
+mat=ConvectiveMatrix(test=test, trial=test, term1=0, term2=1, &
+ & c=cvar, dim=1)
+CALL Display(mat, "mat:")
```
??? example "Results"
diff --git a/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_23.md b/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_23.md
index bd8f539d..a6598b6c 100644
--- a/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_23.md
+++ b/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_23.md
@@ -20,7 +20,7 @@ tags:
# ConvectiveMatrix example 23
!!! note ""
- This example shows how to USE the SUBROUTINE called `ConvectiveMatrix` to create a convective matrix in space domain for Line2 element.
+This example shows how to USE the SUBROUTINE called `ConvectiveMatrix` to create a convective matrix in space domain for Line2 element.
Here, we want to DO the following.
@@ -37,19 +37,19 @@ M(I,J) = \int_{\Omega} N^I \frac{\partial N^J}{\partial y} d{\Omega}
$$
$$
-M(I,J) = \int_{\Omega} \frac{\partial N^I}{\partial y} N^J d{\Omega}
+M(I,J) = \int_{\Omega} \frac{\partial N^I}{\partial y} N^J d{\Omega}
$$
$$
-M(I,J) = \int_{\Omega} N^I \frac{\partial N^J}{\partial z} d{\Omega}
+M(I,J) = \int_{\Omega} N^I \frac{\partial N^J}{\partial z} d{\Omega}
$$
$$
-M(I,J) = \int_{\Omega} \frac{\partial N^I}{\partial z} N^J d{\Omega}
+M(I,J) = \int_{\Omega} \frac{\partial N^I}{\partial z} N^J d{\Omega}
$$
!!! warning ""
- $c$ is convective velocity, which can be a constant, or a FUNCTION of spatial coordinates, or some nonlinear FUNCTION.
+$c$ is convective velocity, which can be a constant, or a FUNCTION of spatial coordinates, or some nonlinear FUNCTION.
In this example, convective matrix is formed for
@@ -81,53 +81,53 @@ PROGRAM main
```
!!! note ""
- Let us now create the physical coordinate of the line element.
+Let us now create the physical coordinate of the line element.
```fortran
- XiJ = RESHAPE([-1, 1], [1, 2])
+XiJ = RESHAPE([-1, 1], [1, 2])
```
!!! note ""
- Now we create an instance of [[ReferenceLine_]].
+Now we create an instance of [[ReferenceLine_]].
```fortran
- refelem = referenceline(nsd=1)
+refelem = referenceline(nsd=1)
```
!!! note ""
- Here, we create the quadrature points.
+Here, we create the quadrature points.
```fortran
- CALL initiate( obj=quad, refelem=refelem, order=order+order-1, &
- & quadratureType='GaussLegendre' )
+CALL initiate( obj=quad, refelem=refelem, order=order+order-1, &
+ & quadratureType='GaussLegendre' )
```
!!! note ""
- Initiate an instance of [[ElemshapeData_]]. You can learn more about it from [[ElemshapeData_test]]
+Initiate an instance of [[ElemshapeData_]]. You can learn more about it from [[ElemshapeData_test]]
```fortran
- CALL initiate(obj=test, &
- & quad=quad, &
- & refelem=refelem, &
- & ContinuityType=typeH1, &
- & InterpolType=typeLagrangeInterpolation)
- CALL Set( obj=test, val=xij, N=test%N, dNdXi=test%dNdXi)
+CALL initiate(obj=test, &
+ & quad=quad, &
+ & refelem=refelem, &
+ & ContinuityType=typeH1, &
+ & InterpolType=typeLagrangeInterpolation)
+CALL Set( obj=test, val=xij, N=test%N, dNdXi=test%dNdXi)
```
!!! note ""
- Let us now create an instance of [[FEVariable_]] to wrape the nodal values of $c$. You can learn more about this at [[FEVariable_test]]
+Let us now create an instance of [[FEVariable_]] to wrape the nodal values of $c$. You can learn more about this at [[FEVariable_test]]
```fortran
- cvar = QuadratureVariable(c, typeFEVariableScalar, typeFEVariableSpace)
+cvar = QuadratureVariable(c, typeFEVariableScalar, typeFEVariableSpace)
```
!!! note ""
- Let us now create the convective matrix.
+Let us now create the convective matrix.
```fortran
- mat=ConvectiveMatrix(test=test, trial=test, term1=1, term2=0, &
- & c=cvar, dim=1)
- CALL Display(mat, "mat:")
+mat=ConvectiveMatrix(test=test, trial=test, term1=1, term2=0, &
+ & c=cvar, dim=1)
+CALL Display(mat, "mat:")
```
??? example "Results"
@@ -140,12 +140,12 @@ PROGRAM main
```
!!! note ""
- Let us now create the convective matrix.
+Let us now create the convective matrix.
```fortran
- mat=ConvectiveMatrix(test=test, trial=test, term1=0, term2=1, &
- & c=cvar, dim=1)
- CALL Display(mat, "mat:")
+mat=ConvectiveMatrix(test=test, trial=test, term1=0, term2=1, &
+ & c=cvar, dim=1)
+CALL Display(mat, "mat:")
```
??? example "Results"
diff --git a/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_24.md b/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_24.md
index 1ff93def..0c559cc5 100644
--- a/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_24.md
+++ b/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_24.md
@@ -20,7 +20,7 @@ tags:
# ConvectiveMatrix example 24
!!! note ""
- This example shows how to USE the SUBROUTINE called `ConvectiveMatrix` to create a convective matrix in space domain for Triangle3 element.
+This example shows how to USE the SUBROUTINE called `ConvectiveMatrix` to create a convective matrix in space domain for Triangle3 element.
Here, we want to DO the following.
@@ -37,15 +37,15 @@ M(I,J) = \int_{\Omega} N^I \frac{\partial N^J}{\partial y} d{\Omega}
$$
$$
-M(I,J) = \int_{\Omega} \frac{\partial N^I}{\partial y} N^J d{\Omega}
+M(I,J) = \int_{\Omega} \frac{\partial N^I}{\partial y} N^J d{\Omega}
$$
$$
-M(I,J) = \int_{\Omega} N^I \frac{\partial N^J}{\partial z} d{\Omega}
+M(I,J) = \int_{\Omega} N^I \frac{\partial N^J}{\partial z} d{\Omega}
$$
$$
-M(I,J) = \int_{\Omega} \frac{\partial N^I}{\partial z} N^J d{\Omega}
+M(I,J) = \int_{\Omega} \frac{\partial N^I}{\partial z} N^J d{\Omega}
$$
In this example, convective matrix is formed for
@@ -75,49 +75,49 @@ PROGRAM main
```
!!! note ""
- Let us now create the physical coordinate of the line element.
+Let us now create the physical coordinate of the line element.
```fortran
- XiJ = RESHAPE([0,0, 1,0,0,1], [2, 3])
+XiJ = RESHAPE([0,0, 1,0,0,1], [2, 3])
```
!!! note ""
- Now we create an instance of [[ReferenceTriangle_]].
+Now we create an instance of [[ReferenceTriangle_]].
```fortran
- refelem = referenceTriangle(nsd=nsd)
+refelem = referenceTriangle(nsd=nsd)
```
!!! note ""
- Here, we create the quadrature points.
+Here, we create the quadrature points.
```fortran
- CALL initiate( obj=quad, refelem=refelem, order=2*order-1, &
- & quadratureType='GaussLegendre' )
+CALL initiate( obj=quad, refelem=refelem, order=2*order-1, &
+ & quadratureType='GaussLegendre' )
```
!!! note ""
- Initiate an instance of [[ElemshapeData_]]. You can learn more about it from [[ElemshapeData_test]]
+Initiate an instance of [[ElemshapeData_]]. You can learn more about it from [[ElemshapeData_test]]
```fortran
- CALL initiate(obj=test, &
- & quad=quad, &
- & refelem=refelem, &
- & ContinuityType=typeH1, &
- & InterpolType=typeLagrangeInterpolation)
- CALL Set(obj=test, val=xij, N=test%N, dNdXi=test%dNdXi)
+CALL initiate(obj=test, &
+ & quad=quad, &
+ & refelem=refelem, &
+ & ContinuityType=typeH1, &
+ & InterpolType=typeLagrangeInterpolation)
+CALL Set(obj=test, val=xij, N=test%N, dNdXi=test%dNdXi)
```
!! note ""
- Let us now create the following convective matrix.
+Let us now create the following convective matrix.
$$
M(I,J) = \int_{\Omega} N^{J} \frac{\partial N^{I}}{\partial x} d{\Omega}
$$
```fortran
- mat=ConvectiveMatrix(test=test, trial=test, term1=1, term2=0, dim=1)
- CALL Display(mat, "mat:")
+mat=ConvectiveMatrix(test=test, trial=test, term1=1, term2=0, dim=1)
+CALL Display(mat, "mat:")
```
??? example "Results"
@@ -131,15 +131,15 @@ $$
```
!! note ""
- Let us now create the following convective matrix.
+Let us now create the following convective matrix.
$$
M(I,J) = \int_{\Omega} N^{J} \frac{\partial N^{I}}{\partial y} d{\Omega}
$$
```fortran
- mat=ConvectiveMatrix(test=test, trial=test, term1=1, term2=0, dim=2)
- CALL Display(mat, "mat:")
+mat=ConvectiveMatrix(test=test, trial=test, term1=1, term2=0, dim=2)
+CALL Display(mat, "mat:")
```
??? example "Results"
@@ -153,15 +153,15 @@ $$
```
!! note ""
- Let us now create the following convective matrix.
+Let us now create the following convective matrix.
$$
M(I,J) = \int_{\Omega} N^{I} \frac{\partial N^{J}}{\partial x} d{\Omega}
$$
```fortran
- mat=ConvectiveMatrix(test=test, trial=test, term1=0, term2=1, dim=1)
- CALL Display(mat, "mat:")
+mat=ConvectiveMatrix(test=test, trial=test, term1=0, term2=1, dim=1)
+CALL Display(mat, "mat:")
```
??? example "Results"
@@ -175,15 +175,15 @@ $$
```
!! note ""
- Let us now create the following convective matrix.
+Let us now create the following convective matrix.
$$
M(I,J) = \int_{\Omega} N^{I} \frac{\partial N^{J}}{\partial y} d{\Omega}
$$
```fortran
- mat=ConvectiveMatrix(test=test, trial=test, term1=0, term2=1, dim=2)
- CALL Display(mat, "mat:")
+mat=ConvectiveMatrix(test=test, trial=test, term1=0, term2=1, dim=2)
+CALL Display(mat, "mat:")
```
??? example "Results"
diff --git a/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_25.md b/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_25.md
index 9d87c290..498408a3 100644
--- a/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_25.md
+++ b/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_25.md
@@ -20,7 +20,7 @@ tags:
# ConvectiveMatrix example 25
!!! note ""
- This example shows how to USE the SUBROUTINE called `ConvectiveMatrix` to create a convective matrix in space domain for Triangle6 element.
+This example shows how to USE the SUBROUTINE called `ConvectiveMatrix` to create a convective matrix in space domain for Triangle6 element.
Here, we want to DO the following.
@@ -37,15 +37,15 @@ M(I,J) = \int_{\Omega} N^I \frac{\partial N^J}{\partial y} d{\Omega}
$$
$$
-M(I,J) = \int_{\Omega} \frac{\partial N^I}{\partial y} N^J d{\Omega}
+M(I,J) = \int_{\Omega} \frac{\partial N^I}{\partial y} N^J d{\Omega}
$$
$$
-M(I,J) = \int_{\Omega} N^I \frac{\partial N^J}{\partial z} d{\Omega}
+M(I,J) = \int_{\Omega} N^I \frac{\partial N^J}{\partial z} d{\Omega}
$$
$$
-M(I,J) = \int_{\Omega} \frac{\partial N^I}{\partial z} N^J d{\Omega}
+M(I,J) = \int_{\Omega} \frac{\partial N^I}{\partial z} N^J d{\Omega}
$$
In this example, convective matrix is formed for
@@ -75,57 +75,57 @@ PROGRAM main
```
!!! note ""
- Let us now create the physical coordinate of the line element.
+Let us now create the physical coordinate of the line element.
```fortran
- XiJ = RESHAPE([0,0, 1,0,0,1], [2, 3])
+XiJ = RESHAPE([0,0, 1,0,0,1], [2, 3])
```
!!! note ""
- Now we create an instance of [[ReferenceTriangle_]].
+Now we create an instance of [[ReferenceTriangle_]].
```fortran
- simplexRefElem = referenceTriangle(nsd=nsd)
- call simplexRefElem%LagrangeElement(order=order, &
- & highOrderObj=refelem)
+simplexRefElem = referenceTriangle(nsd=nsd)
+call simplexRefElem%LagrangeElement(order=order, &
+ & highOrderObj=refelem)
```
!!! note ""
- Here, we create the quadrature points.
+Here, we create the quadrature points.
```fortran
- CALL initiate( obj=quad, refelem=simplexRefElem, order=2*order-1, &
- & quadratureType='GaussLegendre' )
+CALL initiate( obj=quad, refelem=simplexRefElem, order=2*order-1, &
+ & quadratureType='GaussLegendre' )
```
!!! note ""
- Initiate an instance of [[ElemshapeData_]]. You can learn more about it from [[ElemshapeData_test]]
+Initiate an instance of [[ElemshapeData_]]. You can learn more about it from [[ElemshapeData_test]]
```fortran
- CALL initiate(obj=elemsdForSimplex, &
- & quad=quad, &
- & refelem=simplexRefElem, &
- & ContinuityType=typeH1, &
- & InterpolType=typeLagrangeInterpolation)
- CALL initiate(obj=test, &
- & quad=quad, &
- & refelem=refelem, &
- & ContinuityType=typeH1, &
- & InterpolType=typeLagrangeInterpolation)
- CALL Set(obj=test, val=xij, N=elemsdForSimplex%N, &
- & dNdXi=elemsdForSimplex%dNdXi)
+CALL initiate(obj=elemsdForSimplex, &
+ & quad=quad, &
+ & refelem=simplexRefElem, &
+ & ContinuityType=typeH1, &
+ & InterpolType=typeLagrangeInterpolation)
+CALL initiate(obj=test, &
+ & quad=quad, &
+ & refelem=refelem, &
+ & ContinuityType=typeH1, &
+ & InterpolType=typeLagrangeInterpolation)
+CALL Set(obj=test, val=xij, N=elemsdForSimplex%N, &
+ & dNdXi=elemsdForSimplex%dNdXi)
```
!! note ""
- Let us now create the following convective matrix.
+Let us now create the following convective matrix.
$$
M(I,J) = \int_{\Omega} N^{J} \frac{\partial N^{I}}{\partial x} d{\Omega}
$$
```fortran
- mat=ConvectiveMatrix(test=test, trial=test, term1=1, term2=0, dim=1)
- CALL Display(mat, "mat:")
+mat=ConvectiveMatrix(test=test, trial=test, term1=1, term2=0, dim=1)
+CALL Display(mat, "mat:")
```
??? example "Results"
@@ -142,15 +142,15 @@ $$
```
!! note ""
- Let us now create the following convective matrix.
+Let us now create the following convective matrix.
$$
M(I,J) = \int_{\Omega} N^{J} \frac{\partial N^{I}}{\partial x} d{\Omega}
$$
```fortran
- mat=ConvectiveMatrix(test=test, trial=test, term1=0, term2=1, dim=1)
- CALL Display(mat, "mat:")
+mat=ConvectiveMatrix(test=test, trial=test, term1=0, term2=1, dim=1)
+CALL Display(mat, "mat:")
```
!!! example "Results"
diff --git a/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_3.md b/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_3.md
index 10afc7c3..6625cf2b 100644
--- a/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_3.md
+++ b/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_3.md
@@ -20,7 +20,7 @@ tags:
# ConvectiveMatrix example 3
!!! note ""
- This example shows how to use the subroutine called `ConvectiveMatrix` to create a convective matrix in space domain for Line2 element.
+This example shows how to use the subroutine called `ConvectiveMatrix` to create a convective matrix in space domain for Line2 element.
Here, we want to do the following.
@@ -33,7 +33,7 @@ M(I,J) = \partial u_{iI} \int_{\Omega} c_k \frac{\partial N^I}{\partial x_k} N^J
$$
!!! warning ""
- $c$ is convective velocity, which can be a constant, or a function of spatial coordinates, or some nonlinear function.
+$c$ is convective velocity, which can be a constant, or a function of spatial coordinates, or some nonlinear function.
In this example, convective matrix is formed for
@@ -65,52 +65,52 @@ PROGRAM main
```
!!! note ""
- Let us now create the physical coordinate of the line element.
+Let us now create the physical coordinate of the line element.
```fortran
- XiJ = RESHAPE([-1, 1], [1, 2])
+XiJ = RESHAPE([-1, 1], [1, 2])
```
!!! note ""
- Now we create an instance of [[ReferenceLine_]].
+Now we create an instance of [[ReferenceLine_]].
```fortran
- refelem = referenceline(nsd=1)
+refelem = referenceline(nsd=1)
```
!!! note ""
- Here, we create the quadrature points.
+Here, we create the quadrature points.
```fortran
- CALL initiate( obj=quad, refelem=refelem, order=order+order-1, &
- & quadratureType='GaussLegendre' )
+CALL initiate( obj=quad, refelem=refelem, order=order+order-1, &
+ & quadratureType='GaussLegendre' )
```
!!! note ""
- Initiate an instance of [[ElemshapeData_]]. You can learn more about it from [[ElemshapeData_test]]
+Initiate an instance of [[ElemshapeData_]]. You can learn more about it from [[ElemshapeData_test]]
```fortran
- CALL initiate(obj=test, &
- & quad=quad, &
- & refelem=refelem, &
- & ContinuityType=typeH1, &
- & InterpolType=typeLagrangeInterpolation)
- CALL Set( obj=test, val=xij, N=test%N, dNdXi=test%dNdXi)
+CALL initiate(obj=test, &
+ & quad=quad, &
+ & refelem=refelem, &
+ & ContinuityType=typeH1, &
+ & InterpolType=typeLagrangeInterpolation)
+CALL Set( obj=test, val=xij, N=test%N, dNdXi=test%dNdXi)
```
!!! note ""
- Let us now create an instance of [[FEVariable_]] to wrape the nodal values of $c$. You can learn more about this at [[FEVariable_test]]
+Let us now create an instance of [[FEVariable_]] to wrape the nodal values of $c$. You can learn more about this at [[FEVariable_test]]
```fortran
- cvar = QuadratureVariable(c, typeFEVariableVector, typeFEVariableSpace)
+cvar = QuadratureVariable(c, typeFEVariableVector, typeFEVariableSpace)
```
!!! note ""
- Let us now create the convective matrix.
+Let us now create the convective matrix.
```fortran
- mat=ConvectiveMatrix(test=test, trial=test, term1=1, term2=0, c=cvar)
- CALL Display(mat, "mat:")
+mat=ConvectiveMatrix(test=test, trial=test, term1=1, term2=0, c=cvar)
+CALL Display(mat, "mat:")
```
??? example "Results"
@@ -123,11 +123,11 @@ PROGRAM main
```
!!! note ""
- Let us now create the convective matrix.
+Let us now create the convective matrix.
```fortran
- mat=ConvectiveMatrix(test=test, trial=test, term1=0, term2=1, c=cvar)
- CALL Display(mat, "mat:")
+mat=ConvectiveMatrix(test=test, trial=test, term1=0, term2=1, c=cvar)
+CALL Display(mat, "mat:")
```
??? example "Results"
diff --git a/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_4.md b/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_4.md
index 297a34f0..8e482d1d 100644
--- a/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_4.md
+++ b/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_4.md
@@ -20,7 +20,7 @@ tags:
# ConvectiveMatrix example 4
!!! note ""
- This example shows how to USE the SUBROUTINE called `ConvectiveMatrix` to create a convective matrix in space domain of Line3 element, that is order 2 [[ReferenceLine_]].
+This example shows how to USE the SUBROUTINE called `ConvectiveMatrix` to create a convective matrix in space domain of Line3 element, that is order 2 [[ReferenceLine_]].
Here, we want to do the following.
@@ -33,7 +33,7 @@ M(I,J) = \partial u_{iI} \int_{\Omega} c_k \frac{\partial N^I}{\partial x_k} N^J
$$
!!! warning ""
- $c$ is convective velocity, which can be a constant, or a function of spatial coordinates, or some nonlinear function.
+$c$ is convective velocity, which can be a constant, or a function of spatial coordinates, or some nonlinear function.
In this example, convective matrix is formed for
@@ -59,65 +59,65 @@ PROGRAM main
```
!!! note ""
- Let us now create the physical coordinate of the line element.
+Let us now create the physical coordinate of the line element.
```fortran
- XiJ = RESHAPE([-1, 1], [1, 2])
+XiJ = RESHAPE([-1, 1], [1, 2])
```
!!! note ""
- Now we create an instance of [[ReferenceLine_]].
+Now we create an instance of [[ReferenceLine_]].
```fortran
- simplexElem = referenceline(nsd=1)
- CALL simplexElem%LagrangeElement(order=order, highOrderObj=refelem)
+simplexElem = referenceline(nsd=1)
+CALL simplexElem%LagrangeElement(order=order, highOrderObj=refelem)
```
!!! note ""
- Here, we create the quadrature points.
+Here, we create the quadrature points.
```fortran
- CALL initiate( obj=quad, refelem=simplexElem, order=2*order-1, &
- & quadratureType='GaussLegendre' )
+CALL initiate( obj=quad, refelem=simplexElem, order=2*order-1, &
+ & quadratureType='GaussLegendre' )
```
!!! note ""
- Initiate an instance of [[ElemshapeData_]]. You can learn more about it from [[ElemshapeData_test]].
+Initiate an instance of [[ElemshapeData_]]. You can learn more about it from [[ElemshapeData_test]].
```fortran
- CALL initiate(obj=elemsdForsimplex, &
- & quad=quad, &
- & refelem=simplexElem, &
- & ContinuityType=typeH1, &
- & InterpolType=typeLagrangeInterpolation)
+CALL initiate(obj=elemsdForsimplex, &
+ & quad=quad, &
+ & refelem=simplexElem, &
+ & ContinuityType=typeH1, &
+ & InterpolType=typeLagrangeInterpolation)
```
!!! note ""
- Initiate an instance of [[ElemeshapeData_]].
+Initiate an instance of [[ElemeshapeData_]].
```fortran
- CALL initiate(obj=test, &
- & quad=quad, &
- & refelem=refElem, &
- & ContinuityType=typeH1, &
- & InterpolType=typeLagrangeInterpolation)
- CALL Set(obj=test, val=xij, N=elemsdForSimplex%N, &
- & dNdXi=elemsdForSimplex%dNdXi)
+CALL initiate(obj=test, &
+ & quad=quad, &
+ & refelem=refElem, &
+ & ContinuityType=typeH1, &
+ & InterpolType=typeLagrangeInterpolation)
+CALL Set(obj=test, val=xij, N=elemsdForSimplex%N, &
+ & dNdXi=elemsdForSimplex%dNdXi)
```
!!! note ""
- Let us now create an instance of [[FEVariable_]] to wrape the nodal values of $c$. You can learn more about this at [[FEVariable_test]]
+Let us now create an instance of [[FEVariable_]] to wrape the nodal values of $c$. You can learn more about this at [[FEVariable_test]]
```fortran
- cvar = NodalVariable(c, typeFEVariableVector, typeFEVariableSpace)
+cvar = NodalVariable(c, typeFEVariableVector, typeFEVariableSpace)
```
!!! note ""
- Let us now create the convective matrix.
+Let us now create the convective matrix.
```fortran
- mat=ConvectiveMatrix(test=test, trial=test, term1=1, term2=0, c=cvar)
- CALL Display(mat, "mat:")
+mat=ConvectiveMatrix(test=test, trial=test, term1=1, term2=0, c=cvar)
+CALL Display(mat, "mat:")
```
??? example "Results"
diff --git a/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_5.md b/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_5.md
index 460bea3d..d6385002 100644
--- a/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_5.md
+++ b/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_5.md
@@ -20,7 +20,7 @@ tags:
# ConvectiveMatrix example 5
!!! note ""
- This example shows how to USE the SUBROUTINE called `ConvectiveMatrix` to create a convective matrix in space domain of Line3 element, that is order 2 [[ReferenceLine_]].
+This example shows how to USE the SUBROUTINE called `ConvectiveMatrix` to create a convective matrix in space domain of Line3 element, that is order 2 [[ReferenceLine_]].
Here, we want to do the following.
@@ -33,7 +33,7 @@ M(I,J) = \partial u_{iI} \int_{\Omega} c_k \frac{\partial N^I}{\partial x_k} N^J
$$
!!! warning ""
- $c$ is convective velocity, which can be a constant, or a function of spatial coordinates, or some nonlinear function.
+$c$ is convective velocity, which can be a constant, or a function of spatial coordinates, or some nonlinear function.
In this example, convective matrix is formed for
@@ -59,65 +59,65 @@ PROGRAM main
```
!!! note ""
- Let us now create the physical coordinate of the line element.
+Let us now create the physical coordinate of the line element.
```fortran
- XiJ = RESHAPE([-1, 1], [1, 2])
+XiJ = RESHAPE([-1, 1], [1, 2])
```
!!! note ""
- Now we create an instance of [[ReferenceLine_]].
+Now we create an instance of [[ReferenceLine_]].
```fortran
- simplexElem = referenceline(nsd=1)
- CALL simplexElem%LagrangeElement(order=order, highOrderObj=refelem)
+simplexElem = referenceline(nsd=1)
+CALL simplexElem%LagrangeElement(order=order, highOrderObj=refelem)
```
!!! note ""
- Here, we create the quadrature points.
+Here, we create the quadrature points.
```fortran
- CALL initiate( obj=quad, refelem=simplexElem, order=2*order-1, &
- & quadratureType='GaussLegendre' )
+CALL initiate( obj=quad, refelem=simplexElem, order=2*order-1, &
+ & quadratureType='GaussLegendre' )
```
!!! note ""
- Initiate an instance of [[ElemshapeData_]]. You can learn more about it from [[ElemshapeData_test]].
+Initiate an instance of [[ElemshapeData_]]. You can learn more about it from [[ElemshapeData_test]].
```fortran
- CALL initiate(obj=elemsdForsimplex, &
- & quad=quad, &
- & refelem=simplexElem, &
- & ContinuityType=typeH1, &
- & InterpolType=typeLagrangeInterpolation)
+CALL initiate(obj=elemsdForsimplex, &
+ & quad=quad, &
+ & refelem=simplexElem, &
+ & ContinuityType=typeH1, &
+ & InterpolType=typeLagrangeInterpolation)
```
!!! note ""
- Initiate an instance of [[ElemeshapeData_]].
+Initiate an instance of [[ElemeshapeData_]].
```fortran
- CALL initiate(obj=test, &
- & quad=quad, &
- & refelem=refElem, &
- & ContinuityType=typeH1, &
- & InterpolType=typeLagrangeInterpolation)
- CALL Set(obj=test, val=xij, N=elemsdForSimplex%N, &
- & dNdXi=elemsdForSimplex%dNdXi)
+CALL initiate(obj=test, &
+ & quad=quad, &
+ & refelem=refElem, &
+ & ContinuityType=typeH1, &
+ & InterpolType=typeLagrangeInterpolation)
+CALL Set(obj=test, val=xij, N=elemsdForSimplex%N, &
+ & dNdXi=elemsdForSimplex%dNdXi)
```
!!! note ""
- Let us now create an instance of [[FEVariable_]] to wrape the nodal values of $c$. You can learn more about this at [[FEVariable_test]]
+Let us now create an instance of [[FEVariable_]] to wrape the nodal values of $c$. You can learn more about this at [[FEVariable_test]]
```fortran
- cvar = QuadratureVariable(c, typeFEVariableVector, typeFEVariableSpace)
+cvar = QuadratureVariable(c, typeFEVariableVector, typeFEVariableSpace)
```
!!! note ""
- Let us now create the convective matrix.
+Let us now create the convective matrix.
```fortran
- mat=ConvectiveMatrix(test=test, trial=test, term1=1, term2=0, c=cvar)
- CALL Display(mat, "mat:")
+mat=ConvectiveMatrix(test=test, trial=test, term1=1, term2=0, c=cvar)
+CALL Display(mat, "mat:")
```
??? example "Results"
diff --git a/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_6.md b/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_6.md
index 10e4dad3..87b85e47 100644
--- a/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_6.md
+++ b/docs/docs-api/ConvectiveMatrix/ConvectiveMatrix_test_6.md
@@ -19,7 +19,7 @@ tags:
# MassMatrix example 3
!!! note ""
- This example shows how to USE the SUBROUTINE called `ConvectiveMatrix` to create a convective matrix in space domain. We will use mixed finite element here. Line2 and Line3 elements are used.
+This example shows how to USE the SUBROUTINE called `ConvectiveMatrix` to create a convective matrix in space domain. We will use mixed finite element here. Line2 and Line3 elements are used.
Here, we want to do the following.
@@ -32,7 +32,7 @@ M(I,J) = \partial u_{iI} \int_{\Omega} c_k \frac{\partial N^I}{\partial x_k} N^J
$$
!!! warning ""
- $c$ is convective velocity, which can be a constant, or a function of spatial coordinates, or some nonlinear function.
+$c$ is convective velocity, which can be a constant, or a function of spatial coordinates, or some nonlinear function.
In this example, convective matrix is formed for
@@ -60,84 +60,84 @@ PROGRAM main
```
!!! note ""
- Let us now create the physical coordinate of the line element.
+Let us now create the physical coordinate of the line element.
```fortran
- XiJ = RESHAPE([-1, 1], [1, 2])
+XiJ = RESHAPE([-1, 1], [1, 2])
```
!!! note ""
- Now we create an instance of [[ReferenceLine_]].
+Now we create an instance of [[ReferenceLine_]].
```fortran
- simplexElem = referenceline(nsd=1)
- CALL simplexElem%LagrangeElement(order=orderForTest, highOrderObj=refElemForTest)
- CALL simplexElem%LagrangeElement(order=orderForTrial, highOrderObj=refElemForTrial)
+simplexElem = referenceline(nsd=1)
+CALL simplexElem%LagrangeElement(order=orderForTest, highOrderObj=refElemForTest)
+CALL simplexElem%LagrangeElement(order=orderForTrial, highOrderObj=refElemForTrial)
```
!!! note ""
- Here, we create the quadrature points.
+Here, we create the quadrature points.
```fortran
- CALL initiate( obj=quad, refelem=simplexElem, order=orderForTest+orderForTrial-1, &
- & quadratureType='GaussLegendre' )
+CALL initiate( obj=quad, refelem=simplexElem, order=orderForTest+orderForTrial-1, &
+ & quadratureType='GaussLegendre' )
```
!!! note ""
- Initiate an instance of [[ElemshapeData_]]. You can learn more about it from [[ElemshapeData_test]].
+Initiate an instance of [[ElemshapeData_]]. You can learn more about it from [[ElemshapeData_test]].
```fortran
- CALL initiate(obj=elemsdForsimplex, &
- & quad=quad, &
- & refelem=simplexElem, &
- & ContinuityType=typeH1, &
- & InterpolType=typeLagrangeInterpolation)
+CALL initiate(obj=elemsdForsimplex, &
+ & quad=quad, &
+ & refelem=simplexElem, &
+ & ContinuityType=typeH1, &
+ & InterpolType=typeLagrangeInterpolation)
```
!!! note ""
- Initiate an instance of [[ElemeshapeData_]] for test function.
+Initiate an instance of [[ElemeshapeData_]] for test function.
```fortran
- CALL initiate(obj=test, &
- & quad=quad, &
- & refelem=refElemForTest, &
- & ContinuityType=typeH1, &
- & InterpolType=typeLagrangeInterpolation)
- CALL Set(obj=test, val=xij, N=elemsdForSimplex%N, &
- & dNdXi=elemsdForSimplex%dNdXi)
+CALL initiate(obj=test, &
+ & quad=quad, &
+ & refelem=refElemForTest, &
+ & ContinuityType=typeH1, &
+ & InterpolType=typeLagrangeInterpolation)
+CALL Set(obj=test, val=xij, N=elemsdForSimplex%N, &
+ & dNdXi=elemsdForSimplex%dNdXi)
```
!!! note ""
- Initiate an instance of [[ElemeshapeData_]] for trial function.
+Initiate an instance of [[ElemeshapeData_]] for trial function.
```fortran
- CALL initiate(obj=trial, &
- & quad=quad, &
- & refelem=refElemForTrial, &
- & ContinuityType=typeH1, &
- & InterpolType=typeLagrangeInterpolation)
- CALL Set(obj=trial, val=xij, N=elemsdForSimplex%N, &
- & dNdXi=elemsdForSimplex%dNdXi)
+CALL initiate(obj=trial, &
+ & quad=quad, &
+ & refelem=refElemForTrial, &
+ & ContinuityType=typeH1, &
+ & InterpolType=typeLagrangeInterpolation)
+CALL Set(obj=trial, val=xij, N=elemsdForSimplex%N, &
+ & dNdXi=elemsdForSimplex%dNdXi)
```
!!! note ""
- Let us now create an instance of [[FEVariable_]] to wrape the nodal values of $c$. You can learn more about this at [[FEVariable_test]]
+Let us now create an instance of [[FEVariable_]] to wrape the nodal values of $c$. You can learn more about this at [[FEVariable_test]]
```fortran
- cvar = NodalVariable(c, typeFEVariableVector, typeFEVariableSpace)
+cvar = NodalVariable(c, typeFEVariableVector, typeFEVariableSpace)
```
!!! note ""
- Let us now create the convective matrix.
+Let us now create the convective matrix.
```fortran
- mat=ConvectiveMatrix(test=test, trial=trial, c=cvar, term1=1, term2=0)
- CALL Display(mat, "mat:")
+mat=ConvectiveMatrix(test=test, trial=trial, c=cvar, term1=1, term2=0)
+CALL Display(mat, "mat:")
```
!!! warning ""
- In this case the number of nodes in `cvar` should be equal to the
- number of nodes used in the `refelemForTest`.
+In this case the number of nodes in `cvar` should be equal to the
+number of nodes used in the `refelemForTest`.
??? example "Results"
diff --git a/docs/docs-api/ConvertUtility/_Convert_test_1.md b/docs/docs-api/ConvertUtility/_Convert_test_1.md
index 2995419a..380e222b 100644
--- a/docs/docs-api/ConvertUtility/_Convert_test_1.md
+++ b/docs/docs-api/ConvertUtility/_Convert_test_1.md
@@ -13,10 +13,10 @@ PROGRAM main
END PROGRAM main
```
-m4=(:, :, 1, 1) =
+m4=(:, :, 1, 1) =
-| | |
-| --- | --- |
+| | |
+| - | - |
| 2 | 2 |
| 2 | 2 |
| 2 | 2 |
diff --git a/docs/docs-api/DOF/SpaceComponents.md b/docs/docs-api/DOF/SpaceComponents.md
index f02aeea7..646b4df1 100644
--- a/docs/docs-api/DOF/SpaceComponents.md
+++ b/docs/docs-api/DOF/SpaceComponents.md
@@ -41,5 +41,4 @@ END INTERFACE
INTERFACE OPERATOR(.spacecomponents.)
MODULE PROCEDURE dof_spacecomponents2
END INTERFACE
-
```
diff --git a/docs/docs-api/DOF/__DOF_Guide.md b/docs/docs-api/DOF/__DOF_Guide.md
index 5ba41929..de03431b 100644
--- a/docs/docs-api/DOF/__DOF_Guide.md
+++ b/docs/docs-api/DOF/__DOF_Guide.md
@@ -15,13 +15,13 @@ tags:
# DOF
-`DOF_` data type contains the information of degrees of freedom in finite element method. It mainly includes the information regarding the storage pattern of degrees of freedom.
+`DOF_` data type contains the information of degrees of freedom in finite element method. It mainly includes the information regarding the storage pattern of degrees of freedom.
Degrees of freedom are space-time components of physical variable. There can be several physical variables such as pressure, velocity, temperature. Now pressure has single degrees of freedom, because it is a scalar whereas velocity can have three degrees of freedom.
-In order to understand the storage pattern,and the working principal of `DOF_` datatype, let us consider a vector $\textbf{v}$ in three dimension space. There are three degrees of freedom at each spatial nodes of the mesh (this corresponds to $v_x, v_y, v_z$. Now, there arises two ways to store the nodal values of the physical variable (here, $\textbf{v}$).
+In order to understand the storage pattern,and the working principal of `DOF_` datatype, let us consider a vector $\textbf{v}$ in three dimension space. There are three degrees of freedom at each spatial nodes of the mesh (this corresponds to $v_x, v_y, v_z$. Now, there arises two ways to store the nodal values of the physical variable (here, $\textbf{v}$).
-`FMT_DOF` : In this case each components (DOF) of $v$ will be treated as an independent nodal vector. So there are actually three nodal vectors corresponding to the spatial components $v_x, v_y, v_z$. We will use uppercase letter to denote the spatial nodal values. In this way, each of $V_x, V_y, V_z$ are nodal values of spatial component of a physical variable ($v$). One can appreciate the fact that `FMT_DOF` format is flexible, because, each nodal vector can have different length.
+`FMT_DOF` : In this case each components (DOF) of $v$ will be treated as an independent nodal vector. So there are actually three nodal vectors corresponding to the spatial components $v_x, v_y, v_z$. We will use uppercase letter to denote the spatial nodal values. In this way, each of $V_x, V_y, V_z$ are nodal values of spatial component of a physical variable ($v$). One can appreciate the fact that `FMT_DOF` format is flexible, because, each nodal vector can have different length.
`FMT_Nodes`: In this case all the components of $v$ are grouped together and values are defined at each node of the mesh. At each node, DOFs (spatial components) form a small vector. So the nodal values of $v$ are defined as a nodal vector of these small vectors.
@@ -40,7 +40,7 @@ obj = dof( tNodes = [20, 10], Names = ['V', 'P'], SpaceCompo = [3, 1], &
In this case velocity has 20 nodes and pressure has 10 nodes. There are 3 space components and 2 time components in the velocity.
-In the case of `FMT_DOF` , the degrees of freedom will be represented as shown in above figure. Each term in `{}` denotes a nodal vector of DOF (i.e., v11, v12, p1, p2, etc.). Note that, in this representation both V and P can have different order of interpolation. For example, velocity can be quadratic and pressure can be linear. Needless to state, this yields a block-structured tangent matrix.
+In the case of `FMT_DOF` , the degrees of freedom will be represented as shown in above figure. Each term in `{}` denotes a nodal vector of DOF (i.e., v11, v12, p1, p2, etc.). Note that, in this representation both V and P can have different order of interpolation. For example, velocity can be quadratic and pressure can be linear. Needless to state, this yields a block-structured tangent matrix.
Now consider the following case to understand `FMT_Nodes` :
@@ -111,7 +111,7 @@ where,
- `Names` is the name of each physical variables
- `SpaceCompo` is the number of spatial components in each physical variable, if a physical variable is scalar then one can use also use -1 instead of 1 for the total number of space components
- `TimeCompo` is the number of time components in each physical variables
-- `StorageFMT` is the storage format, it can be `FMT_DOF` or `FMT_Nodes`
+- `StorageFMT` is the storage format, it can be `FMT_DOF` or `FMT_Nodes`
:::info
The size of `tNodes`, `Names`, `SpaceCompo`, `TimeCompo` vectors should be equal to the total number of physical variables.
@@ -251,7 +251,7 @@ CALL Deallocate( obj )
END PROGRAM main
```
-??? note "click here to see the output of above program"
+??? note "click here to see the output of above program"
```fortran
# VAR :U
@@ -274,7 +274,7 @@ END PROGRAM main
### tNodes
!!! note "tNodes"
- Getting size of vector using `.tNodes.` operator
+Getting size of vector using `.tNodes.` operator
Use `.tNodes.` operator to get the total number of nodes for `DOF_`.
@@ -388,7 +388,7 @@ END PROGRAM main
- `getNodeLOC(obj, nodenum(:), ivar, spacecompo(:), timecompo)`
!!! note "getNodeLOC"
- Getting node locations
+Getting node locations
```fortran
ans=getNodeLOC(obj, inode, idof)
diff --git a/docs/docs-api/DeformationGradient/DeformationGradient_.md b/docs/docs-api/DeformationGradient/DeformationGradient_.md
index 62af49cb..70dcf104 100755
--- a/docs/docs-api/DeformationGradient/DeformationGradient_.md
+++ b/docs/docs-api/DeformationGradient/DeformationGradient_.md
@@ -3,13 +3,13 @@
This documentation is old. Update it.
```fortran
- TYPE, PUBLIC, EXTENDS( Rank2Tensor_ ) :: DeformationGradient_
- REAL( DFP ), ALLOCATABLE, DIMENSION( :, : ) :: R
- REAL( DFP ), ALLOCATABLE, DIMENSION( :, : ) :: U
- REAL( DFP ), ALLOCATABLE, DIMENSION( :, : ) :: V
- REAL( DFP ), ALLOCATABLE, DIMENSION( : ) :: EigenVal
- REAL( DFP ), ALLOCATABLE, DIMENSION( :, : ) :: EigenVec_U
- REAL( DFP ), ALLOCATABLE, DIMENSION( :, : ) :: EigenVec_V
+TYPE, PUBLIC, EXTENDS( Rank2Tensor_ ) :: DeformationGradient_
+ REAL( DFP ), ALLOCATABLE, DIMENSION( :, : ) :: R
+ REAL( DFP ), ALLOCATABLE, DIMENSION( :, : ) :: U
+ REAL( DFP ), ALLOCATABLE, DIMENSION( :, : ) :: V
+ REAL( DFP ), ALLOCATABLE, DIMENSION( : ) :: EigenVal
+ REAL( DFP ), ALLOCATABLE, DIMENSION( :, : ) :: EigenVec_U
+ REAL( DFP ), ALLOCATABLE, DIMENSION( :, : ) :: EigenVec_V
```
## Description
diff --git a/docs/docs-api/DiagUtility/TriDiag.md b/docs/docs-api/DiagUtility/TriDiag.md
index b5788456..dbd5847f 100644
--- a/docs/docs-api/DiagUtility/TriDiag.md
+++ b/docs/docs-api/DiagUtility/TriDiag.md
@@ -11,18 +11,18 @@ import TabItem from '@theme/TabItem';
```fortran
- MODULE PURE FUNCTION Tridiag(d, da, db, diagNo) RESULT(Ans)
- INTEGER(INT8| Int16 | Int32 | Int64 | Real32 | Real64), INTENT(IN) :: d(:)
- !! main diagonal
- INTEGER(INT8| Int16 | Int32 | Int64 | Real32 | Real64), INTENT(IN) :: da(:)
- !! super diagonal
- INTEGER(INT8| Int16 | Int32 | Int64 | Real32 | Real64) :: db(:)
- !! subdiagonal
- INTEGER(I4B), OPTIONAL, INTENT(IN) :: diagNo
- !! sub and super diagonal number, default is 1
- !! diagNo should be positive
- REAL(DFP) :: ans(SIZE(d), SIZE(d))
- END FUNCTION Tridiag
+MODULE PURE FUNCTION Tridiag(d, da, db, diagNo) RESULT(Ans)
+ INTEGER(INT8| Int16 | Int32 | Int64 | Real32 | Real64), INTENT(IN) :: d(:)
+ !! main diagonal
+ INTEGER(INT8| Int16 | Int32 | Int64 | Real32 | Real64), INTENT(IN) :: da(:)
+ !! super diagonal
+ INTEGER(INT8| Int16 | Int32 | Int64 | Real32 | Real64) :: db(:)
+ !! subdiagonal
+ INTEGER(I4B), OPTIONAL, INTENT(IN) :: diagNo
+ !! sub and super diagonal number, default is 1
+ !! diagNo should be positive
+ REAL(DFP) :: ans(SIZE(d), SIZE(d))
+ END FUNCTION Tridiag
```
diff --git a/docs/docs-api/DiagUtility/_DiagIndx_test_1.md b/docs/docs-api/DiagUtility/_DiagIndx_test_1.md
index 36653b71..15b5393f 100644
--- a/docs/docs-api/DiagUtility/_DiagIndx_test_1.md
+++ b/docs/docs-api/DiagUtility/_DiagIndx_test_1.md
@@ -7,9 +7,9 @@ program main
```
```fortran
- call Display( DiagIndx(4, 4, 0), "(4,4), main diagonal = " )
- call Display( DiagIndx(4, 4, 1), "(4,4), first superdiagonal = " )
- call Display( DiagIndx(4, 4, 2), "(4,4), second superdiagonal = " )
+call Display( DiagIndx(4, 4, 0), "(4,4), main diagonal = " )
+call Display( DiagIndx(4, 4, 1), "(4,4), first superdiagonal = " )
+call Display( DiagIndx(4, 4, 2), "(4,4), second superdiagonal = " )
```
Results:
@@ -35,8 +35,8 @@ Results:
```
```fortran
- call Display( DiagIndx(4, 4, -1), "(4,4), first subdiagonal = " )
- call Display( DiagIndx(4, 4, -2), "(4,4), second subdiagonal = " )
+call Display( DiagIndx(4, 4, -1), "(4,4), first subdiagonal = " )
+call Display( DiagIndx(4, 4, -2), "(4,4), second subdiagonal = " )
```
Results:
@@ -52,21 +52,20 @@ Results:
----------------------------
3 1
4 2
-
```
:::note
-Let us now test `DiagIndx` for
RECTANGLE matrix.
+Let us now test `DiagIndx` for
RECTANGLE matrix.
:::
```fortran
- call Display( DiagIndx(4, 7, 0), "(4, 7), main diagonal = " )
- call Display( DiagIndx(4, 7, 1), "(4, 7), first superdiagonal = " )
- call Display( DiagIndx(4, 7, 2), "(4, 7), second superdiagonal = " )
- call Display( DiagIndx(4, 7, 3), "(4,7), third superdiagonal = " )
- call Display( DiagIndx(4, 7, 4), "(4,7), fourth superdiagonal = " )
- call Display( DiagIndx(4, 7, 5), "(4,7), fifth superdiagonal = " )
- call Display( DiagIndx(4, 7, 6), "(4,7), sixth superdiagonal = " )
+call Display( DiagIndx(4, 7, 0), "(4, 7), main diagonal = " )
+call Display( DiagIndx(4, 7, 1), "(4, 7), first superdiagonal = " )
+call Display( DiagIndx(4, 7, 2), "(4, 7), second superdiagonal = " )
+call Display( DiagIndx(4, 7, 3), "(4,7), third superdiagonal = " )
+call Display( DiagIndx(4, 7, 4), "(4,7), fourth superdiagonal = " )
+call Display( DiagIndx(4, 7, 5), "(4,7), fifth superdiagonal = " )
+call Display( DiagIndx(4, 7, 6), "(4,7), sixth superdiagonal = " )
```
Results:
@@ -117,9 +116,9 @@ Results:
```
```fortran title="(4,7) 1:3 subdiagonal"
- call Display( DiagIndx(4, 7, -1), "(4,7), first subdiagonal = " )
- call Display( DiagIndx(4, 7, -2), "(4,7), second subdiagonal = " )
- call Display( DiagIndx(4, 7, -3), "(4,7), thrid subdiagonal = " )
+call Display( DiagIndx(4, 7, -1), "(4,7), first subdiagonal = " )
+call Display( DiagIndx(4, 7, -2), "(4,7), second subdiagonal = " )
+call Display( DiagIndx(4, 7, -3), "(4,7), thrid subdiagonal = " )
```
```txt title="results"
diff --git a/docs/docs-api/DiagUtility/_DiagSize_test_1.md b/docs/docs-api/DiagUtility/_DiagSize_test_1.md
index 179cf358..9cc00f06 100644
--- a/docs/docs-api/DiagUtility/_DiagSize_test_1.md
+++ b/docs/docs-api/DiagUtility/_DiagSize_test_1.md
@@ -9,19 +9,19 @@ program main
```
```fortran title="(4,4) main diagonal"
- call Display( DiagSize(4, 0), "(4,4), main diagonal = " )
+call Display( DiagSize(4, 0), "(4,4), main diagonal = " )
```
```fortran title="(4,4) first super diagonal"
- call Display( DiagSize(4, 1), "(4,4), first superdiagonal = " )
+call Display( DiagSize(4, 1), "(4,4), first superdiagonal = " )
```
```fortran title="(4,4) second super diagonal"
- call Display( DiagSize(4, 2), "(4,4), second superdiagonal = " )
+call Display( DiagSize(4, 2), "(4,4), second superdiagonal = " )
```
```fortran title="(4,4) out of bound super diagonal"
- call Display( DiagSize(4, 5), "(4,4), out of bound superdiagonal = " )
+call Display( DiagSize(4, 5), "(4,4), out of bound superdiagonal = " )
```
```txt title="results"
@@ -32,15 +32,15 @@ program main
```
```fortran title="(4,4) first subdiagonal"
- call Display( DiagSize(4, -1), "(4,4), first subdiagonal = " )
+call Display( DiagSize(4, -1), "(4,4), first subdiagonal = " )
```
```fortran title="(4,4) second subdiagonal"
- call Display( DiagSize(4, -2), "(4,4), second subdiagonal = " )
+call Display( DiagSize(4, -2), "(4,4), second subdiagonal = " )
```
```fortran title="(4,4) out of bound subdiagonal"
- call Display( DiagSize(4, -5), "(4,4), out of bound subdiagonal = " )
+call Display( DiagSize(4, -5), "(4,4), out of bound subdiagonal = " )
```
```txt title="results"
@@ -52,26 +52,26 @@ program main
Let us now test `DiagSize` for rectangle matrix.
```fortran title="(4,7) main diagonal"
- call Display( DiagSize(4, 7, 0), "(4, 7), main diagonal = " )
+call Display( DiagSize(4, 7, 0), "(4, 7), main diagonal = " )
```
```fortran title="(4,7) first super diagonal"
- call Display( DiagSize(4, 7, 1), "(4, 7), first superdiagonal = " )
+call Display( DiagSize(4, 7, 1), "(4, 7), first superdiagonal = " )
```
```fortran title="(4,7) second super diagonal"
- call Display( DiagSize(4, 7, 2), "(4, 7), second superdiagonal = " )
+call Display( DiagSize(4, 7, 2), "(4, 7), second superdiagonal = " )
```
```fortran title="(4,7) more superdiagonal"
- call Display( DiagSize(4, 7, 3), "(4,7), third superdiagonal = " )
- call Display( DiagSize(4, 7, 4), "(4,7), fourth superdiagonal = " )
- call Display( DiagSize(4, 7, 5), "(4,7), fifth superdiagonal = " )
- call Display( DiagSize(4, 7, 6), "(4,7), sixth superdiagonal = " )
+call Display( DiagSize(4, 7, 3), "(4,7), third superdiagonal = " )
+call Display( DiagSize(4, 7, 4), "(4,7), fourth superdiagonal = " )
+call Display( DiagSize(4, 7, 5), "(4,7), fifth superdiagonal = " )
+call Display( DiagSize(4, 7, 6), "(4,7), sixth superdiagonal = " )
```
```fortran title="(4,7) out of bound superdiagonal"
- call Display( DiagSize(4, 7, 7), "(4,7), out of bound superdiagonal = " )
+call Display( DiagSize(4, 7, 7), "(4,7), out of bound superdiagonal = " )
```
```txt title="results"
@@ -86,13 +86,13 @@ Let us now test `DiagSize` for rectangle matrix.
```
```fortran title="(4,7) 1:3 subdiagonal"
- call Display( DiagSize(4, 7, -1), "(4,7), first subdiagonal = " )
- call Display( DiagSize(4, 7, -2), "(4,7), second subdiagonal = " )
- call Display( DiagSize(4, 7, -3), "(4,7), thrid subdiagonal = " )
+call Display( DiagSize(4, 7, -1), "(4,7), first subdiagonal = " )
+call Display( DiagSize(4, 7, -2), "(4,7), second subdiagonal = " )
+call Display( DiagSize(4, 7, -3), "(4,7), thrid subdiagonal = " )
```
```fortran title="(4,7) out of bound subdiagonal"
- call Display( DiagSize(4, 7, -4), "(4,7), out of bound subdiagonal = " )
+call Display( DiagSize(4, 7, -4), "(4,7), out of bound subdiagonal = " )
```
```txt title="results"
diff --git a/docs/docs-api/DiagUtility/_Diag_test_1.md b/docs/docs-api/DiagUtility/_Diag_test_1.md
index 31e5d9ec..accc17c9 100644
--- a/docs/docs-api/DiagUtility/_Diag_test_1.md
+++ b/docs/docs-api/DiagUtility/_Diag_test_1.md
@@ -24,13 +24,13 @@ end program
d =
| | | | | |
-|--------|-------|---------|---------|--------|
+| ------ | ----- | ------- | ------- | ------ |
| 8.2717 | 3.502 | 0.39168 | 0.51942 | 2.6892 |
mat =
| | | | | |
-|--------|-------|---------|---------|--------|
+| ------ | ----- | ------- | ------- | ------ |
| 8.2717 | 0 | 0 | 0 | 0 |
| 0 | 3.502 | 0 | 0 | 0 |
| 0 | 0 | 0.39168 | 0 | 0 |
diff --git a/docs/docs-api/DiagUtility/_Diag_test_2.md b/docs/docs-api/DiagUtility/_Diag_test_2.md
index 693e643a..1f5d036d 100644
--- a/docs/docs-api/DiagUtility/_Diag_test_2.md
+++ b/docs/docs-api/DiagUtility/_Diag_test_2.md
@@ -16,68 +16,68 @@ program main
mat =
- | | | | | |
- |---------|-------------|-------------|------------|---------|
- | 0.68758 | 3.17016E-02 | 0.59785 | 4.6886E-02 | 0.61175 |
- | 0.48573 | 0.67486 | 0.73655 | 0.52901 | 0.60769 |
- | 0.17241 | 0.52752 | 0.79169 | 0.21098 | 0.94547 |
- | 0.21998 | 0.67235 | 0.52645 | 0.32917 | 0.3067 |
- | 0.50651 | 5.82701E-02 | 4.87607E-02 | 0.38279 | 0.11833 |
+| | | | | |
+| ------- | ----------- | ----------- | ---------- | ------- |
+| 0.68758 | 3.17016E-02 | 0.59785 | 4.6886E-02 | 0.61175 |
+| 0.48573 | 0.67486 | 0.73655 | 0.52901 | 0.60769 |
+| 0.17241 | 0.52752 | 0.79169 | 0.21098 | 0.94547 |
+| 0.21998 | 0.67235 | 0.52645 | 0.32917 | 0.3067 |
+| 0.50651 | 5.82701E-02 | 4.87607E-02 | 0.38279 | 0.11833 |
```fortran title="getting the main diagonal"
- d = Diag(mat, 0)
- call display( MdEncode(d), "main diagonal = " )
+d = Diag(mat, 0)
+call display( MdEncode(d), "main diagonal = " )
```
main diagonal =
- | | | | | |
- |---------|---------|---------|---------|---------|
- | 0.68758 | 0.67486 | 0.79169 | 0.32917 | 0.11833 |
+| | | | | |
+| ------- | ------- | ------- | ------- | ------- |
+| 0.68758 | 0.67486 | 0.79169 | 0.32917 | 0.11833 |
```fortran title="getting the first super diagonal"
- d = Diag(mat, 1)
- call display( MdEncode(d), "super diagonal 1= " )
+d = Diag(mat, 1)
+call display( MdEncode(d), "super diagonal 1= " )
```
super diagonal 1=
- | | | | |
- |-------------|---------|---------|--------|
- | 3.17016E-02 | 0.73655 | 0.21098 | 0.3067 |
+| | | | |
+| ----------- | ------- | ------- | ------ |
+| 3.17016E-02 | 0.73655 | 0.21098 | 0.3067 |
```fortran title="getting the second super diagonal"
- d = Diag(mat, 2)
- call display( MdEncode(d), "super diagonal 2= " )
+d = Diag(mat, 2)
+call display( MdEncode(d), "super diagonal 2= " )
```
super diagonal 2=
- | | | |
- |---------|---------|---------|
- | 0.59785 | 0.52901 | 0.94547 |
+| | | |
+| ------- | ------- | ------- |
+| 0.59785 | 0.52901 | 0.94547 |
```fortran title="getting the first sub diagonal"
- d = Diag(mat, -1)
- call display( MdEncode(d), "subdiagonal 1= " )
+d = Diag(mat, -1)
+call display( MdEncode(d), "subdiagonal 1= " )
```
subdiagonal 1=
- | | | | |
- |---------|---------|---------|---------|
- | 0.48573 | 0.52752 | 0.52645 | 0.38279 |
+| | | | |
+| ------- | ------- | ------- | ------- |
+| 0.48573 | 0.52752 | 0.52645 | 0.38279 |
```fortran title="getting the second subdiagonal"
- d = Diag(mat, -2)
- call display( MdEncode(d), "subdiagonal 2= " )
+d = Diag(mat, -2)
+call display( MdEncode(d), "subdiagonal 2= " )
```
subdiagonal 2=
- | | | |
- |---------|---------|-------------|
- | 0.17241 | 0.67235 | 4.87607E-02 |
+| | | |
+| ------- | ------- | ----------- |
+| 0.17241 | 0.67235 | 4.87607E-02 |
```fortran title="cleanup"
end program
diff --git a/docs/docs-api/DiagUtility/_Diag_test_3.md b/docs/docs-api/DiagUtility/_Diag_test_3.md
index 1109b966..489d3e7d 100644
--- a/docs/docs-api/DiagUtility/_Diag_test_3.md
+++ b/docs/docs-api/DiagUtility/_Diag_test_3.md
@@ -6,20 +6,20 @@ program main
```
```fortran title="variables"
- real( DFP ), allocatable :: mat(:, :)
- real( Real32 ), allocatable :: d(:)
+real( DFP ), allocatable :: mat(:, :)
+real( Real32 ), allocatable :: d(:)
```
```fortran title="form random diagonal"
- call reallocate(d, 5)
- call random_number(d)
- d = d * 10
- call display( MdEncode(d), "d = " )
+call reallocate(d, 5)
+call random_number(d)
+d = d * 10
+call display( MdEncode(d), "d = " )
```
```fortran title="diagonal matrix"
- mat = Diag(d)
- call display( MdEncode(mat), "mat = " )
+mat = Diag(d)
+call display( MdEncode(mat), "mat = " )
```
```fortran title="cleanup"
@@ -31,13 +31,13 @@ end program
d =
| | | | | |
-|-------|--------|--------|--------|--------|
+| ----- | ------ | ------ | ------ | ------ |
| 5.165 | 2.5622 | 1.1153 | 1.0442 | 5.2306 |
mat =
| | | | | |
-|-------|--------|--------|--------|--------|
+| ----- | ------ | ------ | ------ | ------ |
| 5.165 | 0 | 0 | 0 | 0 |
| 0 | 2.5622 | 0 | 0 | 0 |
| 0 | 0 | 1.1153 | 0 | 0 |
diff --git a/docs/docs-api/DiagUtility/_Diag_test_4.md b/docs/docs-api/DiagUtility/_Diag_test_4.md
index 610d67c3..766775f6 100644
--- a/docs/docs-api/DiagUtility/_Diag_test_4.md
+++ b/docs/docs-api/DiagUtility/_Diag_test_4.md
@@ -12,22 +12,22 @@ program main
## Declare variables
```fortran title="variables"
- real( DFP ), allocatable :: mat(:, :)
- integer(I4B), allocatable :: d(:)
+real( DFP ), allocatable :: mat(:, :)
+integer(I4B), allocatable :: d(:)
```
## Form diagonal
```fortran title="form random diagonal"
- call reallocate(d, 5)
- d = [1,2,3,4,5]
+call reallocate(d, 5)
+d = [1,2,3,4,5]
```
## For diag matrix
```fortran title="diagonal matrix"
- mat = Diag(d)
- call display( MdEncode(mat), "mat = " )
+mat = Diag(d)
+call display( MdEncode(mat), "mat = " )
```
## Results
@@ -35,7 +35,7 @@ program main
mat =
| | | | | |
-|---|---|---|---|---|
+| - | - | - | - | - |
| 1 | 0 | 0 | 0 | 0 |
| 0 | 2 | 0 | 0 | 0 |
| 0 | 0 | 3 | 0 | 0 |
diff --git a/docs/docs-api/DiagUtility/_SetDiag_test_1.md b/docs/docs-api/DiagUtility/_SetDiag_test_1.md
index 5ac3c672..8f188a74 100644
--- a/docs/docs-api/DiagUtility/_SetDiag_test_1.md
+++ b/docs/docs-api/DiagUtility/_SetDiag_test_1.md
@@ -9,114 +9,114 @@ program main
```
```fortran title="form random diagonal"
- mat = zeros(5,5,1.0_DFP)
- call reallocate(d, size(mat,1))
- call random_number(d)
- d = d * 10
- call display( MdEncode(d), "d = "// CHAR_LF )
+mat = zeros(5,5,1.0_DFP)
+call reallocate(d, size(mat,1))
+call random_number(d)
+d = d * 10
+call display( MdEncode(d), "d = "// CHAR_LF )
```
```fortran title="set main diagonal"
- call SetDiag(mat, d, 0)
- call Display( MdEncode(mat), "mat = " // CHAR_LF)
+call SetDiag(mat, d, 0)
+call Display( MdEncode(mat), "mat = " // CHAR_LF)
```
d =
- | | | | | |
- |--------|--------|--------|--------|--------|
- | 6.6689 | 5.5432 | 6.7909 | 2.3661 | 2.1642 |
+| | | | | |
+| ------ | ------ | ------ | ------ | ------ |
+| 6.6689 | 5.5432 | 6.7909 | 2.3661 | 2.1642 |
mat =
- | | | | | |
- |--------|--------|--------|--------|--------|
- | 6.6689 | 0 | 0 | 0 | 0 |
- | 0 | 5.5432 | 0 | 0 | 0 |
- | 0 | 0 | 6.7909 | 0 | 0 |
- | 0 | 0 | 0 | 2.3661 | 0 |
- | 0 | 0 | 0 | 0 | 2.1642 |
+| | | | | |
+| ------ | ------ | ------ | ------ | ------ |
+| 6.6689 | 0 | 0 | 0 | 0 |
+| 0 | 5.5432 | 0 | 0 | 0 |
+| 0 | 0 | 6.7909 | 0 | 0 |
+| 0 | 0 | 0 | 2.3661 | 0 |
+| 0 | 0 | 0 | 0 | 2.1642 |
See line 5.
```fortran {5} title="set first super-diagonal"
- call reallocate(d, size(mat,1)-1)
- call random_number(d)
- d = d * 10
- call display( MdEncode(d), "d = "// CHAR_LF )
- call SetDiag(mat, d, 1)
- call Display( MdEncode(mat), "mat = " // CHAR_LF)
+call reallocate(d, size(mat,1)-1)
+call random_number(d)
+d = d * 10
+call display( MdEncode(d), "d = "// CHAR_LF )
+call SetDiag(mat, d, 1)
+call Display( MdEncode(mat), "mat = " // CHAR_LF)
```
d =
- | | | | |
- |-------|--------|--------|---------|
- | 4.594 | 8.1182 | 4.0813 | 0.83561 |
+| | | | |
+| ----- | ------ | ------ | ------- |
+| 4.594 | 8.1182 | 4.0813 | 0.83561 |
mat =
- | | | | | |
- |--------|--------|--------|--------|---------|
- | 6.6689 | 4.594 | 0 | 0 | 0 |
- | 0 | 5.5432 | 8.1182 | 0 | 0 |
- | 0 | 0 | 6.7909 | 4.0813 | 0 |
- | 0 | 0 | 0 | 2.3661 | 0.83561 |
- | 0 | 0 | 0 | 0 | 2.1642 |
+| | | | | |
+| ------ | ------ | ------ | ------ | ------- |
+| 6.6689 | 4.594 | 0 | 0 | 0 |
+| 0 | 5.5432 | 8.1182 | 0 | 0 |
+| 0 | 0 | 6.7909 | 4.0813 | 0 |
+| 0 | 0 | 0 | 2.3661 | 0.83561 |
+| 0 | 0 | 0 | 0 | 2.1642 |
See line 5.
```fortran {5} title="set second super-diagonal"
- call reallocate(d, size(mat,1)-2)
- call random_number(d)
- d = d * 10
- call display( MdEncode(d), "d = "// CHAR_LF )
- call SetDiag(mat, d, 2)
- call Display( MdEncode(mat), "mat = " // CHAR_LF)
+call reallocate(d, size(mat,1)-2)
+call random_number(d)
+d = d * 10
+call display( MdEncode(d), "d = "// CHAR_LF )
+call SetDiag(mat, d, 2)
+call Display( MdEncode(mat), "mat = " // CHAR_LF)
```
d =
- | | | |
- |--------|--------|--------|
- | 7.2706 | 1.6909 | 6.0739 |
+| | | |
+| ------ | ------ | ------ |
+| 7.2706 | 1.6909 | 6.0739 |
mat =
- | | | | | |
- |--------|--------|--------|--------|---------|
- | 6.6689 | 4.594 | 7.2706 | 0 | 0 |
- | 0 | 5.5432 | 8.1182 | 1.6909 | 0 |
- | 0 | 0 | 6.7909 | 4.0813 | 6.0739 |
- | 0 | 0 | 0 | 2.3661 | 0.83561 |
- | 0 | 0 | 0 | 0 | 2.1642 |
+| | | | | |
+| ------ | ------ | ------ | ------ | ------- |
+| 6.6689 | 4.594 | 7.2706 | 0 | 0 |
+| 0 | 5.5432 | 8.1182 | 1.6909 | 0 |
+| 0 | 0 | 6.7909 | 4.0813 | 6.0739 |
+| 0 | 0 | 0 | 2.3661 | 0.83561 |
+| 0 | 0 | 0 | 0 | 2.1642 |
See line 5.
```fortran {5} title="set second sub-diagonal"
- call reallocate(d, size(mat,1)-2)
- call random_number(d)
- d = d * 10
- call display( MdEncode(d), "d = "// CHAR_LF )
- call SetDiag(mat, d, -2)
- call Display( MdEncode(mat), "mat = " // CHAR_LF)
+call reallocate(d, size(mat,1)-2)
+call random_number(d)
+d = d * 10
+call display( MdEncode(d), "d = "// CHAR_LF )
+call SetDiag(mat, d, -2)
+call Display( MdEncode(mat), "mat = " // CHAR_LF)
```
d =
- | | | |
- |--------|--------|--------|
- | 8.4214 | 2.8808 | 6.9836 |
+| | | |
+| ------ | ------ | ------ |
+| 8.4214 | 2.8808 | 6.9836 |
mat =
- | | | | | |
- |--------|--------|--------|--------|---------|
- | 6.6689 | 4.594 | 7.2706 | 0 | 0 |
- | 0 | 5.5432 | 8.1182 | 1.6909 | 0 |
- | 8.4214 | 0 | 6.7909 | 4.0813 | 6.0739 |
- | 0 | 2.8808 | 0 | 2.3661 | 0.83561 |
- | 0 | 0 | 6.9836 | 0 | 2.1642 |
+| | | | | |
+| ------ | ------ | ------ | ------ | ------- |
+| 6.6689 | 4.594 | 7.2706 | 0 | 0 |
+| 0 | 5.5432 | 8.1182 | 1.6909 | 0 |
+| 8.4214 | 0 | 6.7909 | 4.0813 | 6.0739 |
+| 0 | 2.8808 | 0 | 2.3661 | 0.83561 |
+| 0 | 0 | 6.9836 | 0 | 2.1642 |
```fortran title="cleanup"
end program
diff --git a/docs/docs-api/DiagUtility/_SetTriDiag_test_1.md b/docs/docs-api/DiagUtility/_SetTriDiag_test_1.md
index 26cb4e94..5f7e327d 100644
--- a/docs/docs-api/DiagUtility/_SetTriDiag_test_1.md
+++ b/docs/docs-api/DiagUtility/_SetTriDiag_test_1.md
@@ -8,66 +8,66 @@ program main
```
```fortran title="variables"
- real( DFP ), allocatable :: mat(:, :)
- real( DFP ), allocatable :: d(:), da(:), db(:)
+real( DFP ), allocatable :: mat(:, :)
+real( DFP ), allocatable :: d(:), da(:), db(:)
```
```fortran title="form main diagonal"
- mat = zeros(5,5,1.0_DFP)
- call reallocate(d, size(mat,1))
- call random_number(d)
- d = d * 10
- call display( MdEncode(d), "d = "// CHAR_LF )
+mat = zeros(5,5,1.0_DFP)
+call reallocate(d, size(mat,1))
+call random_number(d)
+d = d * 10
+call display( MdEncode(d), "d = "// CHAR_LF )
```
```fortran title="super diagonal"
- call reallocate(da, size(mat,1)-1)
- call random_number(da)
- da = da * 10
- call display( MdEncode(da), "da = "// CHAR_LF )
+call reallocate(da, size(mat,1)-1)
+call random_number(da)
+da = da * 10
+call display( MdEncode(da), "da = "// CHAR_LF )
```
```fortran title="subdigonal"
- call reallocate(db, size(mat,1)-1)
- call random_number(db)
- db = db * 10
- call display( MdEncode(db), "db = "// CHAR_LF )
+call reallocate(db, size(mat,1)-1)
+call random_number(db)
+db = db * 10
+call display( MdEncode(db), "db = "// CHAR_LF )
```
```fortran title="set tridiagonal"
- call SetTriDiag(mat=mat, d=d, da=da, db=db)
- call Display( MdEncode(mat), "mat = " // CHAR_LF)
+call SetTriDiag(mat=mat, d=d, da=da, db=db)
+call Display( MdEncode(mat), "mat = " // CHAR_LF)
```
### Results
d =
- | | | | | |
- |--------|--------|--------|--------|--------|
- | 5.0829 | 9.4562 | 4.3419 | 7.7858 | 3.9234 |
+| | | | | |
+| ------ | ------ | ------ | ------ | ------ |
+| 5.0829 | 9.4562 | 4.3419 | 7.7858 | 3.9234 |
da =
- | | | | |
- |--------|--------|---------|--------|
- | 4.9034 | 3.8319 | 0.60738 | 5.3554 |
+| | | | |
+| ------ | ------ | ------- | ------ |
+| 4.9034 | 3.8319 | 0.60738 | 5.3554 |
db =
- | | | | |
- |--------|---------|-------------|--------|
- | 4.7704 | 0.58276 | 7.87791E-02 | 8.1903 |
+| | | | |
+| ------ | ------- | ----------- | ------ |
+| 4.7704 | 0.58276 | 7.87791E-02 | 8.1903 |
mat =
- | | | | | |
- |--------|---------|-------------|---------|--------|
- | 5.0829 | 4.9034 | 0 | 0 | 0 |
- | 4.7704 | 9.4562 | 3.8319 | 0 | 0 |
- | 0 | 0.58276 | 4.3419 | 0.60738 | 0 |
- | 0 | 0 | 7.87791E-02 | 7.7858 | 5.3554 |
- | 0 | 0 | 0 | 8.1903 | 3.9234 |
+| | | | | |
+| ------ | ------- | ----------- | ------- | ------ |
+| 5.0829 | 4.9034 | 0 | 0 | 0 |
+| 4.7704 | 9.4562 | 3.8319 | 0 | 0 |
+| 0 | 0.58276 | 4.3419 | 0.60738 | 0 |
+| 0 | 0 | 7.87791E-02 | 7.7858 | 5.3554 |
+| 0 | 0 | 0 | 8.1903 | 3.9234 |
```fortran title="cleanup"
end program
diff --git a/docs/docs-api/DiagUtility/_TriDiag_test_1.md b/docs/docs-api/DiagUtility/_TriDiag_test_1.md
index cfeb162a..cde1219e 100644
--- a/docs/docs-api/DiagUtility/_TriDiag_test_1.md
+++ b/docs/docs-api/DiagUtility/_TriDiag_test_1.md
@@ -13,17 +13,17 @@ db = -2.0*ones(4, 1.0_DFP) !! Below diagonal
amat = TriDiag(d=d, da=da, db=db, diagNo=1_I4B)
call Display(MdEncode(amat), "amat = ")
-end program main
+end program main
```
## Results
amat =
-| | | | | |
-| --- | --- | --- | --- | --- |
-| 1 | 2 | 0 | 0 | 0 |
-| -2 | 1 | 2 | 0 | 0 |
-| 0 | -2 | 1 | 2 | 0 |
-| 0 | 0 | -2 | 1 | 2 |
-| 0 | 0 | 0 | -2 | 1 |
+| | | | | |
+| -- | -- | -- | -- | - |
+| 1 | 2 | 0 | 0 | 0 |
+| -2 | 1 | 2 | 0 | 0 |
+| 0 | -2 | 1 | 2 | 0 |
+| 0 | 0 | -2 | 1 | 2 |
+| 0 | 0 | 0 | -2 | 1 |
diff --git a/docs/docs-api/DiffusionMatrix/DiffusionMatrix_.md b/docs/docs-api/DiffusionMatrix/DiffusionMatrix_.md
index 56d95f42..bef32c21 100644
--- a/docs/docs-api/DiffusionMatrix/DiffusionMatrix_.md
+++ b/docs/docs-api/DiffusionMatrix/DiffusionMatrix_.md
@@ -26,19 +26,19 @@ $$
Interface:
```fortran
- MODULE PURE FUNCTION DiffusionMatrix(test, trial, k, krank, opt) &
- & RESULT(ans)
- CLASS(ElemshapeData_), INTENT(IN) :: test
- !! test function
- CLASS(ElemshapeData_), INTENT(IN) :: trial
- !! trial function
- CLASS(FEVariable_), INTENT(IN) :: k
- !! scalar
- TYPE(FEVariableScalar_), INTENT( IN ) :: krank
- !! scalar fe variable
- INTEGER( I4B ), OPTIONAL, INTENT( IN ) :: opt
- REAL(DFP), ALLOCATABLE :: ans(:, :)
- END FUNCTION DiffusionMatrix
+MODULE PURE FUNCTION DiffusionMatrix(test, trial, k, krank, opt) &
+ & RESULT(ans)
+ CLASS(ElemshapeData_), INTENT(IN) :: test
+ !! test function
+ CLASS(ElemshapeData_), INTENT(IN) :: trial
+ !! trial function
+ CLASS(FEVariable_), INTENT(IN) :: k
+ !! scalar
+ TYPE(FEVariableScalar_), INTENT( IN ) :: krank
+ !! scalar fe variable
+ INTEGER( I4B ), OPTIONAL, INTENT( IN ) :: opt
+ REAL(DFP), ALLOCATABLE :: ans(:, :)
+END FUNCTION DiffusionMatrix
```
## Diffusion matrix 3
@@ -50,19 +50,19 @@ $$
Interface:
```fortran
- MODULE PURE FUNCTION DiffusionMatrix(test, trial, k, krank, opt) &
- & RESULT(ans)
- CLASS(ElemshapeData_), INTENT(IN) :: test
- !! test function
- CLASS(ElemshapeData_), INTENT(IN) :: trial
- !! trial function
- CLASS(FEVariable_), INTENT(IN) :: k
- !! vector
- TYPE(FEVariableVector_), INTENT( IN ) :: krank
- !! vector
- INTEGER( I4B ), OPTIONAL, INTENT( IN ) :: opt
- REAL(DFP), ALLOCATABLE :: ans(:, :)
- END FUNCTION DiffusionMatrix
+MODULE PURE FUNCTION DiffusionMatrix(test, trial, k, krank, opt) &
+ & RESULT(ans)
+ CLASS(ElemshapeData_), INTENT(IN) :: test
+ !! test function
+ CLASS(ElemshapeData_), INTENT(IN) :: trial
+ !! trial function
+ CLASS(FEVariable_), INTENT(IN) :: k
+ !! vector
+ TYPE(FEVariableVector_), INTENT( IN ) :: krank
+ !! vector
+ INTEGER( I4B ), OPTIONAL, INTENT( IN ) :: opt
+ REAL(DFP), ALLOCATABLE :: ans(:, :)
+END FUNCTION DiffusionMatrix
```
## Diffusion matrix 4
@@ -74,20 +74,20 @@ $$
Interface:
```fortran
- MODULE PURE FUNCTION DiffusionMatrix(test, trial, k, krank, opt) &
- & RESULT(ans)
- CLASS(ElemshapeData_), INTENT(IN) :: test
- !! test function
- CLASS(ElemshapeData_), INTENT(IN) :: trial
- !! trial function
- CLASS(FEVariable_), INTENT(IN) :: k
- !! matrix
- TYPE(FEVariableMatrix_), INTENT(IN) :: krank
- !! matrix
- INTEGER( I4B ), OPTIONAL, INTENT( IN ) :: opt
- !! ncopy
- REAL(DFP), ALLOCATABLE :: ans(:, :)
- END FUNCTION DiffusionMatrix
+MODULE PURE FUNCTION DiffusionMatrix(test, trial, k, krank, opt) &
+ & RESULT(ans)
+ CLASS(ElemshapeData_), INTENT(IN) :: test
+ !! test function
+ CLASS(ElemshapeData_), INTENT(IN) :: trial
+ !! trial function
+ CLASS(FEVariable_), INTENT(IN) :: k
+ !! matrix
+ TYPE(FEVariableMatrix_), INTENT(IN) :: krank
+ !! matrix
+ INTEGER( I4B ), OPTIONAL, INTENT( IN ) :: opt
+ !! ncopy
+ REAL(DFP), ALLOCATABLE :: ans(:, :)
+END FUNCTION DiffusionMatrix
```
## Diffusion matrix 5
@@ -99,24 +99,24 @@ $$
Interface:
```fortran
- MODULE PURE FUNCTION DiffusionMatrix(test, trial, c1, c2, c1rank, &
- & c2rank, opt ) RESULT(ans)
- CLASS(ElemshapeData_), INTENT(IN) :: test
- !! test function
- CLASS(ElemshapeData_), INTENT(IN) :: trial
- !! trial function
- CLASS(FEVariable_), INTENT(IN) :: c1
- !! Scalar
- CLASS(FEVariable_), INTENT(IN) :: c2
- !! Scalar
- TYPE(FEVariableScalar_), INTENT( IN ) :: c1rank
- !! Scalar
- TYPE(FEVariableScalar_), INTENT( IN ) :: c2rank
- !! Scalar
- INTEGER( I4B ), OPTIONAL, INTENT( IN ) :: opt
- !! ncopy
- REAL(DFP), ALLOCATABLE :: ans(:, :)
- END FUNCTION DiffusionMatrix
+MODULE PURE FUNCTION DiffusionMatrix(test, trial, c1, c2, c1rank, &
+ & c2rank, opt ) RESULT(ans)
+ CLASS(ElemshapeData_), INTENT(IN) :: test
+ !! test function
+ CLASS(ElemshapeData_), INTENT(IN) :: trial
+ !! trial function
+ CLASS(FEVariable_), INTENT(IN) :: c1
+ !! Scalar
+ CLASS(FEVariable_), INTENT(IN) :: c2
+ !! Scalar
+ TYPE(FEVariableScalar_), INTENT( IN ) :: c1rank
+ !! Scalar
+ TYPE(FEVariableScalar_), INTENT( IN ) :: c2rank
+ !! Scalar
+ INTEGER( I4B ), OPTIONAL, INTENT( IN ) :: opt
+ !! ncopy
+ REAL(DFP), ALLOCATABLE :: ans(:, :)
+END FUNCTION DiffusionMatrix
```
## Diffusion matrix 6
@@ -128,24 +128,24 @@ $$
Interface:
```fortran
- MODULE PURE FUNCTION DiffusionMatrix(test, trial, c1, c2, c1rank, &
- & c2rank, opt ) RESULT(ans)
- CLASS(ElemshapeData_), INTENT(IN) :: test
- !! test function
- CLASS(ElemshapeData_), INTENT(IN) :: trial
- !! trial function
- CLASS(FEVariable_), INTENT(IN) :: c1
- !! Scalar
- CLASS(FEVariable_), INTENT(IN) :: c2
- !! Vector
- TYPE(FEVariableScalar_), INTENT( IN ) :: c1rank
- !! Scalar
- TYPE(FEVariableVector_), INTENT( IN ) :: c2rank
- !! Vector
- INTEGER( I4B ), OPTIONAL, INTENT( IN ) :: opt
- !! ncopy
- REAL(DFP), ALLOCATABLE :: ans(:, :)
- END FUNCTION DiffusionMatrix
+MODULE PURE FUNCTION DiffusionMatrix(test, trial, c1, c2, c1rank, &
+ & c2rank, opt ) RESULT(ans)
+ CLASS(ElemshapeData_), INTENT(IN) :: test
+ !! test function
+ CLASS(ElemshapeData_), INTENT(IN) :: trial
+ !! trial function
+ CLASS(FEVariable_), INTENT(IN) :: c1
+ !! Scalar
+ CLASS(FEVariable_), INTENT(IN) :: c2
+ !! Vector
+ TYPE(FEVariableScalar_), INTENT( IN ) :: c1rank
+ !! Scalar
+ TYPE(FEVariableVector_), INTENT( IN ) :: c2rank
+ !! Vector
+ INTEGER( I4B ), OPTIONAL, INTENT( IN ) :: opt
+ !! ncopy
+ REAL(DFP), ALLOCATABLE :: ans(:, :)
+END FUNCTION DiffusionMatrix
```
## Diffusion matrix 7
@@ -157,24 +157,24 @@ $$
Interface:
```fortran
- MODULE PURE FUNCTION DiffusionMatrix(test, trial, c1, c2, c1rank, &
- & c2rank, opt ) RESULT(ans)
- CLASS(ElemshapeData_), INTENT(IN) :: test
- !! test function
- CLASS(ElemshapeData_), INTENT(IN) :: trial
- !! trial function
- CLASS(FEVariable_), INTENT(IN) :: c1
- !! Scalar
- CLASS(FEVariable_), INTENT(IN) :: c2
- !! Matrix
- TYPE(FEVariableScalar_), INTENT( IN ) :: c1rank
- !! Scalar
- TYPE(FEVariableMatrix_), INTENT( IN ) :: c2rank
- !! Matrix
- INTEGER( I4B ), OPTIONAL, INTENT( IN ) :: opt
- !! ncopy
- REAL(DFP), ALLOCATABLE :: ans(:, :)
- END FUNCTION DiffusionMatrix
+MODULE PURE FUNCTION DiffusionMatrix(test, trial, c1, c2, c1rank, &
+ & c2rank, opt ) RESULT(ans)
+ CLASS(ElemshapeData_), INTENT(IN) :: test
+ !! test function
+ CLASS(ElemshapeData_), INTENT(IN) :: trial
+ !! trial function
+ CLASS(FEVariable_), INTENT(IN) :: c1
+ !! Scalar
+ CLASS(FEVariable_), INTENT(IN) :: c2
+ !! Matrix
+ TYPE(FEVariableScalar_), INTENT( IN ) :: c1rank
+ !! Scalar
+ TYPE(FEVariableMatrix_), INTENT( IN ) :: c2rank
+ !! Matrix
+ INTEGER( I4B ), OPTIONAL, INTENT( IN ) :: opt
+ !! ncopy
+ REAL(DFP), ALLOCATABLE :: ans(:, :)
+END FUNCTION DiffusionMatrix
```
## Diffusion matrix 8:
@@ -186,24 +186,24 @@ $$
Interface:
```fortran
- MODULE PURE FUNCTION DiffusionMatrix(test, trial, c1, c2, c1rank, &
- & c2rank, opt ) RESULT(ans)
- CLASS(ElemshapeData_), INTENT(IN) :: test
- !! test function
- CLASS(ElemshapeData_), INTENT(IN) :: trial
- !! trial function
- CLASS(FEVariable_), INTENT(IN) :: c1
- !! Vector
- CLASS(FEVariable_), INTENT(IN) :: c2
- !! Scalar
- TYPE(FEVariableVector_), INTENT( IN ) :: c1rank
- !! Vector
- TYPE(FEVariableScalar_), INTENT( IN ) :: c2rank
- !! Scalar
- INTEGER( I4B ), OPTIONAL, INTENT( IN ) :: opt
- !! ncopy
- REAL(DFP), ALLOCATABLE :: ans(:, :)
- END FUNCTION DiffusionMatrix
+MODULE PURE FUNCTION DiffusionMatrix(test, trial, c1, c2, c1rank, &
+ & c2rank, opt ) RESULT(ans)
+ CLASS(ElemshapeData_), INTENT(IN) :: test
+ !! test function
+ CLASS(ElemshapeData_), INTENT(IN) :: trial
+ !! trial function
+ CLASS(FEVariable_), INTENT(IN) :: c1
+ !! Vector
+ CLASS(FEVariable_), INTENT(IN) :: c2
+ !! Scalar
+ TYPE(FEVariableVector_), INTENT( IN ) :: c1rank
+ !! Vector
+ TYPE(FEVariableScalar_), INTENT( IN ) :: c2rank
+ !! Scalar
+ INTEGER( I4B ), OPTIONAL, INTENT( IN ) :: opt
+ !! ncopy
+ REAL(DFP), ALLOCATABLE :: ans(:, :)
+END FUNCTION DiffusionMatrix
```
## Diffusion matrix 9:
@@ -215,24 +215,24 @@ $$
Interface:
```fortran
- MODULE PURE FUNCTION DiffusionMatrix(test, trial, c1, c2, c1rank, &
- & c2rank, opt ) RESULT(ans)
- CLASS(ElemshapeData_), INTENT(IN) :: test
- !! test function
- CLASS(ElemshapeData_), INTENT(IN) :: trial
- !! trial function
- CLASS(FEVariable_), INTENT(IN) :: c1
- !! Vector
- CLASS(FEVariable_), INTENT(IN) :: c2
- !! Vector
- TYPE(FEVariableVector_), INTENT( IN ) :: c1rank
- !! Vector
- TYPE(FEVariableVector_), INTENT( IN ) :: c2rank
- !! Vector
- INTEGER( I4B ), OPTIONAL, INTENT( IN ) :: opt
- !! ncopy
- REAL(DFP), ALLOCATABLE :: ans(:, :)
- END FUNCTION DiffusionMatrix
+MODULE PURE FUNCTION DiffusionMatrix(test, trial, c1, c2, c1rank, &
+ & c2rank, opt ) RESULT(ans)
+ CLASS(ElemshapeData_), INTENT(IN) :: test
+ !! test function
+ CLASS(ElemshapeData_), INTENT(IN) :: trial
+ !! trial function
+ CLASS(FEVariable_), INTENT(IN) :: c1
+ !! Vector
+ CLASS(FEVariable_), INTENT(IN) :: c2
+ !! Vector
+ TYPE(FEVariableVector_), INTENT( IN ) :: c1rank
+ !! Vector
+ TYPE(FEVariableVector_), INTENT( IN ) :: c2rank
+ !! Vector
+ INTEGER( I4B ), OPTIONAL, INTENT( IN ) :: opt
+ !! ncopy
+ REAL(DFP), ALLOCATABLE :: ans(:, :)
+END FUNCTION DiffusionMatrix
```
## Diffusion matrix 10:
@@ -242,24 +242,24 @@ M(I,J)=\int\frac{\partial N^{I}}{\partial x_{i}}v_{p}b_{pi}v_{q}b_{qj}\frac{\par
$$
```fortran
- MODULE PURE FUNCTION DiffusionMatrix(test, trial, c1, c2, c1rank, &
- & c2rank, opt ) RESULT(ans)
- CLASS(ElemshapeData_), INTENT(IN) :: test
- !! test function
- CLASS(ElemshapeData_), INTENT(IN) :: trial
- !! trial function
- CLASS(FEVariable_), INTENT(IN) :: c1
- !! Vector
- CLASS(FEVariable_), INTENT(IN) :: c2
- !! Matrix
- TYPE(FEVariableVector_), INTENT( IN ) :: c1rank
- !! Vector
- TYPE(FEVariableMatrix_), INTENT( IN ) :: c2rank
- !! Matrix
- INTEGER( I4B ), OPTIONAL, INTENT( IN ) :: opt
- !! ncopy
- REAL(DFP), ALLOCATABLE :: ans(:, :)
- END FUNCTION DiffusionMatrix
+MODULE PURE FUNCTION DiffusionMatrix(test, trial, c1, c2, c1rank, &
+ & c2rank, opt ) RESULT(ans)
+ CLASS(ElemshapeData_), INTENT(IN) :: test
+ !! test function
+ CLASS(ElemshapeData_), INTENT(IN) :: trial
+ !! trial function
+ CLASS(FEVariable_), INTENT(IN) :: c1
+ !! Vector
+ CLASS(FEVariable_), INTENT(IN) :: c2
+ !! Matrix
+ TYPE(FEVariableVector_), INTENT( IN ) :: c1rank
+ !! Vector
+ TYPE(FEVariableMatrix_), INTENT( IN ) :: c2rank
+ !! Matrix
+ INTEGER( I4B ), OPTIONAL, INTENT( IN ) :: opt
+ !! ncopy
+ REAL(DFP), ALLOCATABLE :: ans(:, :)
+END FUNCTION DiffusionMatrix
```
## Diffusion matrix 11:
@@ -269,24 +269,24 @@ M(I,J)=\int\rho_{1}\frac{\partial N^{I}}{\partial x_{i}}k_{ij}\frac{\partial N^{
$$
```fortran
- MODULE PURE FUNCTION DiffusionMatrix(test, trial, c1, c2, c1rank, &
- & c2rank, opt ) RESULT(ans)
- CLASS(ElemshapeData_), INTENT(IN) :: test
- !! test function
- CLASS(ElemshapeData_), INTENT(IN) :: trial
- !! trial function
- CLASS(FEVariable_), INTENT(IN) :: c1
- !! Matrix
- CLASS(FEVariable_), INTENT(IN) :: c2
- !! Scalar
- TYPE(FEVariableMatrix_), INTENT( IN ) :: c1rank
- !! Matrix
- TYPE(FEVariableScalar_), INTENT( IN ) :: c2rank
- !! Scalar
- INTEGER( I4B ), OPTIONAL, INTENT( IN ) :: opt
- !! ncopy
- REAL(DFP), ALLOCATABLE :: ans(:, :)
- END FUNCTION DiffusionMatrix
+MODULE PURE FUNCTION DiffusionMatrix(test, trial, c1, c2, c1rank, &
+ & c2rank, opt ) RESULT(ans)
+ CLASS(ElemshapeData_), INTENT(IN) :: test
+ !! test function
+ CLASS(ElemshapeData_), INTENT(IN) :: trial
+ !! trial function
+ CLASS(FEVariable_), INTENT(IN) :: c1
+ !! Matrix
+ CLASS(FEVariable_), INTENT(IN) :: c2
+ !! Scalar
+ TYPE(FEVariableMatrix_), INTENT( IN ) :: c1rank
+ !! Matrix
+ TYPE(FEVariableScalar_), INTENT( IN ) :: c2rank
+ !! Scalar
+ INTEGER( I4B ), OPTIONAL, INTENT( IN ) :: opt
+ !! ncopy
+ REAL(DFP), ALLOCATABLE :: ans(:, :)
+END FUNCTION DiffusionMatrix
```
## Diffusion matrix 12:
@@ -298,24 +298,24 @@ $$
Interface:
```fortran
- MODULE PURE FUNCTION DiffusionMatrix(test, trial, c1, c2, c1rank, &
- & c2rank, opt ) RESULT(ans)
- CLASS(ElemshapeData_), INTENT(IN) :: test
- !! test function
- CLASS(ElemshapeData_), INTENT(IN) :: trial
- !! trial function
- CLASS(FEVariable_), INTENT(IN) :: c1
- !! Matrix
- CLASS(FEVariable_), INTENT(IN) :: c2
- !! Vector
- TYPE(FEVariableMatrix_), INTENT( IN ) :: c1rank
- !! Matrix
- TYPE(FEVariableVector_), INTENT( IN ) :: c2rank
- !! Vector
- INTEGER( I4B ), OPTIONAL, INTENT( IN ) :: opt
- !! ncopy
- REAL(DFP), ALLOCATABLE :: ans(:, :)
- END FUNCTION DiffusionMatrix
+MODULE PURE FUNCTION DiffusionMatrix(test, trial, c1, c2, c1rank, &
+ & c2rank, opt ) RESULT(ans)
+ CLASS(ElemshapeData_), INTENT(IN) :: test
+ !! test function
+ CLASS(ElemshapeData_), INTENT(IN) :: trial
+ !! trial function
+ CLASS(FEVariable_), INTENT(IN) :: c1
+ !! Matrix
+ CLASS(FEVariable_), INTENT(IN) :: c2
+ !! Vector
+ TYPE(FEVariableMatrix_), INTENT( IN ) :: c1rank
+ !! Matrix
+ TYPE(FEVariableVector_), INTENT( IN ) :: c2rank
+ !! Vector
+ INTEGER( I4B ), OPTIONAL, INTENT( IN ) :: opt
+ !! ncopy
+ REAL(DFP), ALLOCATABLE :: ans(:, :)
+END FUNCTION DiffusionMatrix
```
## Diffusion matrix 13:
@@ -325,24 +325,24 @@ M(I,J)=\int\frac{\partial N^{I}}{\partial x_{i}}b_{ip}c_{pj}\frac{\partial N^{J}
$$
```fortran
- MODULE PURE FUNCTION DiffusionMatrix(test, trial, c1, c2, c1rank, &
- & c2rank, opt ) RESULT(ans)
- CLASS(ElemshapeData_), INTENT(IN) :: test
- !! test function
- CLASS(ElemshapeData_), INTENT(IN) :: trial
- !! trial function
- CLASS(FEVariable_), INTENT(IN) :: c1
- !! Matrix
- CLASS(FEVariable_), INTENT(IN) :: c2
- !! Matrix
- TYPE(FEVariableMatrix_), INTENT( IN ) :: c1rank
- !! Matrix
- TYPE(FEVariableMatrix_), INTENT( IN ) :: c2rank
- !! Matrix
- INTEGER( I4B ), OPTIONAL, INTENT( IN ) :: opt
- !! ncopy
- REAL(DFP), ALLOCATABLE :: ans(:, :)
- END FUNCTION DiffusionMatrix
+MODULE PURE FUNCTION DiffusionMatrix(test, trial, c1, c2, c1rank, &
+ & c2rank, opt ) RESULT(ans)
+ CLASS(ElemshapeData_), INTENT(IN) :: test
+ !! test function
+ CLASS(ElemshapeData_), INTENT(IN) :: trial
+ !! trial function
+ CLASS(FEVariable_), INTENT(IN) :: c1
+ !! Matrix
+ CLASS(FEVariable_), INTENT(IN) :: c2
+ !! Matrix
+ TYPE(FEVariableMatrix_), INTENT( IN ) :: c1rank
+ !! Matrix
+ TYPE(FEVariableMatrix_), INTENT( IN ) :: c2rank
+ !! Matrix
+ INTEGER( I4B ), OPTIONAL, INTENT( IN ) :: opt
+ !! ncopy
+ REAL(DFP), ALLOCATABLE :: ans(:, :)
+END FUNCTION DiffusionMatrix
```
## Diffusion matrix 14:
@@ -360,12 +360,12 @@ $$
$$
```fortran
- MODULE PURE FUNCTION DiffusionMatrix(test, trial, opt) RESULT(ans)
- CLASS(ElemshapeData_), INTENT(IN) :: test
- CLASS(ElemshapeData_), INTENT(IN) :: trial
- INTEGER( I4B ), INTENT( IN ) :: opt( 1 )
- REAL(DFP), ALLOCATABLE :: ans(:, :)
- END FUNCTION DiffusionMatrix
+MODULE PURE FUNCTION DiffusionMatrix(test, trial, opt) RESULT(ans)
+ CLASS(ElemshapeData_), INTENT(IN) :: test
+ CLASS(ElemshapeData_), INTENT(IN) :: trial
+ INTEGER( I4B ), INTENT( IN ) :: opt( 1 )
+ REAL(DFP), ALLOCATABLE :: ans(:, :)
+END FUNCTION DiffusionMatrix
```
## Diffusion matrix 15:
@@ -383,17 +383,17 @@ $$
$$
```fortran
- MODULE PURE FUNCTION DiffusionMatrix(test, trial, k, krank, opt) &
- & RESULT(ans)
- CLASS(ElemshapeData_), INTENT(IN) :: test
- !! test function
- CLASS(ElemshapeData_), INTENT(IN) :: trial
- !! trial function
- CLASS(FEVariable_), INTENT(IN) :: k
- !! scalar
- TYPE(FEVariableScalar_), INTENT( IN ) :: krank
- !! scalar fe variable
- INTEGER( I4B ), INTENT( IN ) :: opt(1)
- REAL(DFP), ALLOCATABLE :: ans(:, :)
- END FUNCTION DiffusionMatrix
+MODULE PURE FUNCTION DiffusionMatrix(test, trial, k, krank, opt) &
+ & RESULT(ans)
+ CLASS(ElemshapeData_), INTENT(IN) :: test
+ !! test function
+ CLASS(ElemshapeData_), INTENT(IN) :: trial
+ !! trial function
+ CLASS(FEVariable_), INTENT(IN) :: k
+ !! scalar
+ TYPE(FEVariableScalar_), INTENT( IN ) :: krank
+ !! scalar fe variable
+ INTEGER( I4B ), INTENT( IN ) :: opt(1)
+ REAL(DFP), ALLOCATABLE :: ans(:, :)
+END FUNCTION DiffusionMatrix
```
diff --git a/docs/docs-api/DiffusionMatrix/DiffusionMatrix_test_2.md b/docs/docs-api/DiffusionMatrix/DiffusionMatrix_test_2.md
index 20f60bf1..0d68bd82 100644
--- a/docs/docs-api/DiffusionMatrix/DiffusionMatrix_test_2.md
+++ b/docs/docs-api/DiffusionMatrix/DiffusionMatrix_test_2.md
@@ -14,9 +14,9 @@ tags:
# MassMatrix example 2
!!! note ""
- This example shows how to USE the SUBROUTINE called `DiffusionMatrix` to create a mass matrix in space domain.
-
-Here, we want to do the following.
+This example shows how to USE the SUBROUTINE called `DiffusionMatrix` to create a mass matrix in space domain.
+
+Here, we want to do the following.
$$
\int^{}_{\Omega } \frac{\partial N^{I}}{\partial x_{i}} \frac{\partial N^{J}}{\partial x_{i}} d\Omega
@@ -45,51 +45,51 @@ PROGRAM main
```
!!! note ""
- Now we create an instance of [[ReferenceLine_]].
+Now we create an instance of [[ReferenceLine_]].
```fortran
- simplexElem = referenceline(nsd=1)
- CALL simplexElem%LagrangeElement(order=order, highOrderObj=refelem)
+simplexElem = referenceline(nsd=1)
+CALL simplexElem%LagrangeElement(order=order, highOrderObj=refelem)
```
!!! note ""
- Here, we create the quadrature points.
+Here, we create the quadrature points.
```fortran
- CALL initiate( obj=quad, refelem=refelem, order=order*refelem%order, &
- & quadratureType='GaussLegendre' )
+CALL initiate( obj=quad, refelem=refelem, order=order*refelem%order, &
+ & quadratureType='GaussLegendre' )
```
!!! note ""
- Initiate an instance of [[ElemshapeData_]]. You can learn more about it from [[ElemshapeData_test]].
+Initiate an instance of [[ElemshapeData_]]. You can learn more about it from [[ElemshapeData_test]].
```fortran
- CALL initiate(obj=elemsdForsimplex, &
- & quad=quad, &
- & refelem=simplexElem, &
- & ContinuityType=typeH1, &
- & InterpolType=typeLagrangeInterpolation)
+CALL initiate(obj=elemsdForsimplex, &
+ & quad=quad, &
+ & refelem=simplexElem, &
+ & ContinuityType=typeH1, &
+ & InterpolType=typeLagrangeInterpolation)
```
!!! note ""
- Initiate an instance of [[ElemeshapeData_]].
-
+Initiate an instance of [[ElemeshapeData_]].
+
```fortran
- CALL initiate(obj=test, &
- & quad=quad, &
- & refelem=refElem, &
- & ContinuityType=typeH1, &
- & InterpolType=typeLagrangeInterpolation)
- CALL Set(obj=test, val=xij, N=elemsdForSimplex%N, &
- & dNdXi=elemsdForSimplex%dNdXi)
+CALL initiate(obj=test, &
+ & quad=quad, &
+ & refelem=refElem, &
+ & ContinuityType=typeH1, &
+ & InterpolType=typeLagrangeInterpolation)
+CALL Set(obj=test, val=xij, N=elemsdForSimplex%N, &
+ & dNdXi=elemsdForSimplex%dNdXi)
```
!!! note ""
- Let us now create the mass matrix.
+Let us now create the mass matrix.
```fortran
- mat=DiffusionMatrix(test=test, trial=test)
- CALL Display(mat, "mat:")
+mat=DiffusionMatrix(test=test, trial=test)
+CALL Display(mat, "mat:")
```
??? example "Results"
diff --git a/docs/docs-api/DiffusionMatrix/DiffusionMatrix_test_3.md b/docs/docs-api/DiffusionMatrix/DiffusionMatrix_test_3.md
index 52f96aeb..26fe9f73 100644
--- a/docs/docs-api/DiffusionMatrix/DiffusionMatrix_test_3.md
+++ b/docs/docs-api/DiffusionMatrix/DiffusionMatrix_test_3.md
@@ -14,9 +14,9 @@ tags:
# DiffusionMatrix example 3
!!! note ""
- This example shows how to USE the SUBROUTINE called `DiffusionMatrix` to create a mass matrix in space domain.
-
-Here, we want to DO the following.
+This example shows how to USE the SUBROUTINE called `DiffusionMatrix` to create a mass matrix in space domain.
+
+Here, we want to DO the following.
$$
\int^{}_{\Omega } \frac{\partial N^{I}}{\partial x_{i}} \frac{\partial N^{J}}{\partial x_{i}} d\Omega
@@ -45,66 +45,66 @@ PROGRAM main
```
!!! note ""
- Now we create an instance of [[ReferenceLine_]].
+Now we create an instance of [[ReferenceLine_]].
```fortran
- simplexElem = referenceline(nsd=1)
- CALL simplexElem%LagrangeElement(order=orderForTest, highOrderObj=refElemForTest)
- CALL simplexElem%LagrangeElement(order=orderForTrial, highOrderObj=refElemForTrial)
+simplexElem = referenceline(nsd=1)
+CALL simplexElem%LagrangeElement(order=orderForTest, highOrderObj=refElemForTest)
+CALL simplexElem%LagrangeElement(order=orderForTrial, highOrderObj=refElemForTrial)
```
!!! note ""
- Here, we create the quadrature points.
+Here, we create the quadrature points.
```fortran
- CALL Initiate( obj=quad, refelem=simplexElem, &
- & order=factor*refElemForTrial%order, &
- & quadratureType='GaussLegendre' )
+CALL Initiate( obj=quad, refelem=simplexElem, &
+ & order=factor*refElemForTrial%order, &
+ & quadratureType='GaussLegendre' )
```
!!! note ""
- Initiate an instance of [[ElemshapeData_]]. You can learn more about it from [[ElemshapeData_test]].
+Initiate an instance of [[ElemshapeData_]]. You can learn more about it from [[ElemshapeData_test]].
```fortran
- CALL Initiate(obj=elemsdForsimplex, &
- & quad=quad, &
- & refelem=simplexElem, &
- & ContinuityType=typeH1, &
- & InterpolType=typeLagrangeInterpolation)
+CALL Initiate(obj=elemsdForsimplex, &
+ & quad=quad, &
+ & refelem=simplexElem, &
+ & ContinuityType=typeH1, &
+ & InterpolType=typeLagrangeInterpolation)
```
!!! note ""
- Initiate an instance of [[ElemeshapeData_]] for test function.
-
+Initiate an instance of [[ElemeshapeData_]] for test function.
+
```fortran
- CALL Initiate(obj=test, &
- & quad=quad, &
- & refelem=refElemForTest, &
- & ContinuityType=typeH1, &
- & InterpolType=typeLagrangeInterpolation)
- CALL Set(obj=test, val=xij, N=elemsdForSimplex%N, &
- & dNdXi=elemsdForSimplex%dNdXi)
+CALL Initiate(obj=test, &
+ & quad=quad, &
+ & refelem=refElemForTest, &
+ & ContinuityType=typeH1, &
+ & InterpolType=typeLagrangeInterpolation)
+CALL Set(obj=test, val=xij, N=elemsdForSimplex%N, &
+ & dNdXi=elemsdForSimplex%dNdXi)
```
!!! note ""
- Initiate an instance of [[ElemeshapeData_]] for trial function.
-
+Initiate an instance of [[ElemeshapeData_]] for trial function.
+
```fortran
- CALL Initiate(obj=trial, &
- & quad=quad, &
- & refelem=refElemForTrial, &
- & ContinuityType=typeH1, &
- & InterpolType=typeLagrangeInterpolation)
- CALL Set(obj=trial, val=xij, N=elemsdForSimplex%N, &
- & dNdXi=elemsdForSimplex%dNdXi)
+CALL Initiate(obj=trial, &
+ & quad=quad, &
+ & refelem=refElemForTrial, &
+ & ContinuityType=typeH1, &
+ & InterpolType=typeLagrangeInterpolation)
+CALL Set(obj=trial, val=xij, N=elemsdForSimplex%N, &
+ & dNdXi=elemsdForSimplex%dNdXi)
```
!!! note ""
- Let us now create the mass matrix.
+Let us now create the mass matrix.
```fortran
- mat=DiffusionMatrix(test=test, trial=trial)
- CALL Display(mat, "mat:")
+mat=DiffusionMatrix(test=test, trial=trial)
+CALL Display(mat, "mat:")
```
??? example "Results"
diff --git a/docs/docs-api/DiffusionMatrix/DiffusionMatrix_test_4.md b/docs/docs-api/DiffusionMatrix/DiffusionMatrix_test_4.md
index 5a94678e..edd09acd 100644
--- a/docs/docs-api/DiffusionMatrix/DiffusionMatrix_test_4.md
+++ b/docs/docs-api/DiffusionMatrix/DiffusionMatrix_test_4.md
@@ -14,9 +14,9 @@ tags:
# DiffusionMatrix example 4
!!! note ""
- This example shows how to use the subroutine called `DiffusionMatrix` to create a Diffusion matrix in space domain.
-
-Here, we want to do the following.
+This example shows how to use the subroutine called `DiffusionMatrix` to create a Diffusion matrix in space domain.
+
+Here, we want to do the following.
$$
\int^{}_{\Omega } \frac{\partial N^{I}}{\partial x_{i}} \frac{\partial N^{J}}{\partial x_{i}} d\Omega
@@ -24,7 +24,6 @@ $$
- Line2 element
-
## Modules and classes
- [[ElemshapeData_]]
@@ -32,7 +31,6 @@ $$
- [[ReferenceLine_]]
- [[FEVariable_]]
-
## Usage
```fortran
@@ -48,41 +46,40 @@ PROGRAM main
integer( I4B ), parameter :: order = 2
```
-
!!! note ""
- Now we create an instance of [[ReferenceLine_]].
+Now we create an instance of [[ReferenceLine_]].
```fortran
- refelem = referenceline(nsd=1)
+refelem = referenceline(nsd=1)
```
!!! note ""
- Here, we create the quadrature points.
+Here, we create the quadrature points.
```fortran
- CALL initiate( obj=quad, refelem=refelem, order=order, &
- & quadratureType='GaussLegendre' )
+CALL initiate( obj=quad, refelem=refelem, order=order, &
+ & quadratureType='GaussLegendre' )
```
!!! note ""
- Initiate an instance of [[ElemshapeData_]]. You can learn more about it from [[ElemshapeData_test]]
-
+Initiate an instance of [[ElemshapeData_]]. You can learn more about it from [[ElemshapeData_test]]
+
```fortran
- CALL initiate(obj=test, &
- & quad=quad, &
- & refelem=refelem, &
- & ContinuityType=typeH1, &
- & InterpolType=typeLagrangeInterpolation)
- CALL Set( obj=test, val=xij, N=test%N, dNdXi=test%dNdXi)
+CALL initiate(obj=test, &
+ & quad=quad, &
+ & refelem=refelem, &
+ & ContinuityType=typeH1, &
+ & InterpolType=typeLagrangeInterpolation)
+CALL Set( obj=test, val=xij, N=test%N, dNdXi=test%dNdXi)
```
!!! note ""
- Let us now create the mass matrix.
+Let us now create the mass matrix.
```fortran
- kvar = NodalVariable(1.0_DFP, TypeFEVariableScalar, TypeFEVariableConstant)
- mat=DiffusionMatrix(test=test, trial=test, k=kvar)
- CALL Display(mat, "mat:")
+kvar = NodalVariable(1.0_DFP, TypeFEVariableScalar, TypeFEVariableConstant)
+mat=DiffusionMatrix(test=test, trial=test, k=kvar)
+CALL Display(mat, "mat:")
```
??? example "Results"
@@ -94,7 +91,6 @@ PROGRAM main
-0.500000 0.500000
```
-
!!! settings "Cleanup"
```fortran
diff --git a/docs/docs-api/DiffusionMatrix/examples/DiffusionMatrix_test_2.md b/docs/docs-api/DiffusionMatrix/examples/DiffusionMatrix_test_2.md
index 20f60bf1..0d68bd82 100644
--- a/docs/docs-api/DiffusionMatrix/examples/DiffusionMatrix_test_2.md
+++ b/docs/docs-api/DiffusionMatrix/examples/DiffusionMatrix_test_2.md
@@ -14,9 +14,9 @@ tags:
# MassMatrix example 2
!!! note ""
- This example shows how to USE the SUBROUTINE called `DiffusionMatrix` to create a mass matrix in space domain.
-
-Here, we want to do the following.
+This example shows how to USE the SUBROUTINE called `DiffusionMatrix` to create a mass matrix in space domain.
+
+Here, we want to do the following.
$$
\int^{}_{\Omega } \frac{\partial N^{I}}{\partial x_{i}} \frac{\partial N^{J}}{\partial x_{i}} d\Omega
@@ -45,51 +45,51 @@ PROGRAM main
```
!!! note ""
- Now we create an instance of [[ReferenceLine_]].
+Now we create an instance of [[ReferenceLine_]].
```fortran
- simplexElem = referenceline(nsd=1)
- CALL simplexElem%LagrangeElement(order=order, highOrderObj=refelem)
+simplexElem = referenceline(nsd=1)
+CALL simplexElem%LagrangeElement(order=order, highOrderObj=refelem)
```
!!! note ""
- Here, we create the quadrature points.
+Here, we create the quadrature points.
```fortran
- CALL initiate( obj=quad, refelem=refelem, order=order*refelem%order, &
- & quadratureType='GaussLegendre' )
+CALL initiate( obj=quad, refelem=refelem, order=order*refelem%order, &
+ & quadratureType='GaussLegendre' )
```
!!! note ""
- Initiate an instance of [[ElemshapeData_]]. You can learn more about it from [[ElemshapeData_test]].
+Initiate an instance of [[ElemshapeData_]]. You can learn more about it from [[ElemshapeData_test]].
```fortran
- CALL initiate(obj=elemsdForsimplex, &
- & quad=quad, &
- & refelem=simplexElem, &
- & ContinuityType=typeH1, &
- & InterpolType=typeLagrangeInterpolation)
+CALL initiate(obj=elemsdForsimplex, &
+ & quad=quad, &
+ & refelem=simplexElem, &
+ & ContinuityType=typeH1, &
+ & InterpolType=typeLagrangeInterpolation)
```
!!! note ""
- Initiate an instance of [[ElemeshapeData_]].
-
+Initiate an instance of [[ElemeshapeData_]].
+
```fortran
- CALL initiate(obj=test, &
- & quad=quad, &
- & refelem=refElem, &
- & ContinuityType=typeH1, &
- & InterpolType=typeLagrangeInterpolation)
- CALL Set(obj=test, val=xij, N=elemsdForSimplex%N, &
- & dNdXi=elemsdForSimplex%dNdXi)
+CALL initiate(obj=test, &
+ & quad=quad, &
+ & refelem=refElem, &
+ & ContinuityType=typeH1, &
+ & InterpolType=typeLagrangeInterpolation)
+CALL Set(obj=test, val=xij, N=elemsdForSimplex%N, &
+ & dNdXi=elemsdForSimplex%dNdXi)
```
!!! note ""
- Let us now create the mass matrix.
+Let us now create the mass matrix.
```fortran
- mat=DiffusionMatrix(test=test, trial=test)
- CALL Display(mat, "mat:")
+mat=DiffusionMatrix(test=test, trial=test)
+CALL Display(mat, "mat:")
```
??? example "Results"
diff --git a/docs/docs-api/DiffusionMatrix/examples/DiffusionMatrix_test_3.md b/docs/docs-api/DiffusionMatrix/examples/DiffusionMatrix_test_3.md
index 52f96aeb..26fe9f73 100644
--- a/docs/docs-api/DiffusionMatrix/examples/DiffusionMatrix_test_3.md
+++ b/docs/docs-api/DiffusionMatrix/examples/DiffusionMatrix_test_3.md
@@ -14,9 +14,9 @@ tags:
# DiffusionMatrix example 3
!!! note ""
- This example shows how to USE the SUBROUTINE called `DiffusionMatrix` to create a mass matrix in space domain.
-
-Here, we want to DO the following.
+This example shows how to USE the SUBROUTINE called `DiffusionMatrix` to create a mass matrix in space domain.
+
+Here, we want to DO the following.
$$
\int^{}_{\Omega } \frac{\partial N^{I}}{\partial x_{i}} \frac{\partial N^{J}}{\partial x_{i}} d\Omega
@@ -45,66 +45,66 @@ PROGRAM main
```
!!! note ""
- Now we create an instance of [[ReferenceLine_]].
+Now we create an instance of [[ReferenceLine_]].
```fortran
- simplexElem = referenceline(nsd=1)
- CALL simplexElem%LagrangeElement(order=orderForTest, highOrderObj=refElemForTest)
- CALL simplexElem%LagrangeElement(order=orderForTrial, highOrderObj=refElemForTrial)
+simplexElem = referenceline(nsd=1)
+CALL simplexElem%LagrangeElement(order=orderForTest, highOrderObj=refElemForTest)
+CALL simplexElem%LagrangeElement(order=orderForTrial, highOrderObj=refElemForTrial)
```
!!! note ""
- Here, we create the quadrature points.
+Here, we create the quadrature points.
```fortran
- CALL Initiate( obj=quad, refelem=simplexElem, &
- & order=factor*refElemForTrial%order, &
- & quadratureType='GaussLegendre' )
+CALL Initiate( obj=quad, refelem=simplexElem, &
+ & order=factor*refElemForTrial%order, &
+ & quadratureType='GaussLegendre' )
```
!!! note ""
- Initiate an instance of [[ElemshapeData_]]. You can learn more about it from [[ElemshapeData_test]].
+Initiate an instance of [[ElemshapeData_]]. You can learn more about it from [[ElemshapeData_test]].
```fortran
- CALL Initiate(obj=elemsdForsimplex, &
- & quad=quad, &
- & refelem=simplexElem, &
- & ContinuityType=typeH1, &
- & InterpolType=typeLagrangeInterpolation)
+CALL Initiate(obj=elemsdForsimplex, &
+ & quad=quad, &
+ & refelem=simplexElem, &
+ & ContinuityType=typeH1, &
+ & InterpolType=typeLagrangeInterpolation)
```
!!! note ""
- Initiate an instance of [[ElemeshapeData_]] for test function.
-
+Initiate an instance of [[ElemeshapeData_]] for test function.
+
```fortran
- CALL Initiate(obj=test, &
- & quad=quad, &
- & refelem=refElemForTest, &
- & ContinuityType=typeH1, &
- & InterpolType=typeLagrangeInterpolation)
- CALL Set(obj=test, val=xij, N=elemsdForSimplex%N, &
- & dNdXi=elemsdForSimplex%dNdXi)
+CALL Initiate(obj=test, &
+ & quad=quad, &
+ & refelem=refElemForTest, &
+ & ContinuityType=typeH1, &
+ & InterpolType=typeLagrangeInterpolation)
+CALL Set(obj=test, val=xij, N=elemsdForSimplex%N, &
+ & dNdXi=elemsdForSimplex%dNdXi)
```
!!! note ""
- Initiate an instance of [[ElemeshapeData_]] for trial function.
-
+Initiate an instance of [[ElemeshapeData_]] for trial function.
+
```fortran
- CALL Initiate(obj=trial, &
- & quad=quad, &
- & refelem=refElemForTrial, &
- & ContinuityType=typeH1, &
- & InterpolType=typeLagrangeInterpolation)
- CALL Set(obj=trial, val=xij, N=elemsdForSimplex%N, &
- & dNdXi=elemsdForSimplex%dNdXi)
+CALL Initiate(obj=trial, &
+ & quad=quad, &
+ & refelem=refElemForTrial, &
+ & ContinuityType=typeH1, &
+ & InterpolType=typeLagrangeInterpolation)
+CALL Set(obj=trial, val=xij, N=elemsdForSimplex%N, &
+ & dNdXi=elemsdForSimplex%dNdXi)
```
!!! note ""
- Let us now create the mass matrix.
+Let us now create the mass matrix.
```fortran
- mat=DiffusionMatrix(test=test, trial=trial)
- CALL Display(mat, "mat:")
+mat=DiffusionMatrix(test=test, trial=trial)
+CALL Display(mat, "mat:")
```
??? example "Results"
diff --git a/docs/docs-api/DiffusionMatrix/examples/DiffusionMatrix_test_4.md b/docs/docs-api/DiffusionMatrix/examples/DiffusionMatrix_test_4.md
index 5a94678e..edd09acd 100644
--- a/docs/docs-api/DiffusionMatrix/examples/DiffusionMatrix_test_4.md
+++ b/docs/docs-api/DiffusionMatrix/examples/DiffusionMatrix_test_4.md
@@ -14,9 +14,9 @@ tags:
# DiffusionMatrix example 4
!!! note ""
- This example shows how to use the subroutine called `DiffusionMatrix` to create a Diffusion matrix in space domain.
-
-Here, we want to do the following.
+This example shows how to use the subroutine called `DiffusionMatrix` to create a Diffusion matrix in space domain.
+
+Here, we want to do the following.
$$
\int^{}_{\Omega } \frac{\partial N^{I}}{\partial x_{i}} \frac{\partial N^{J}}{\partial x_{i}} d\Omega
@@ -24,7 +24,6 @@ $$
- Line2 element
-
## Modules and classes
- [[ElemshapeData_]]
@@ -32,7 +31,6 @@ $$
- [[ReferenceLine_]]
- [[FEVariable_]]
-
## Usage
```fortran
@@ -48,41 +46,40 @@ PROGRAM main
integer( I4B ), parameter :: order = 2
```
-
!!! note ""
- Now we create an instance of [[ReferenceLine_]].
+Now we create an instance of [[ReferenceLine_]].
```fortran
- refelem = referenceline(nsd=1)
+refelem = referenceline(nsd=1)
```
!!! note ""
- Here, we create the quadrature points.
+Here, we create the quadrature points.
```fortran
- CALL initiate( obj=quad, refelem=refelem, order=order, &
- & quadratureType='GaussLegendre' )
+CALL initiate( obj=quad, refelem=refelem, order=order, &
+ & quadratureType='GaussLegendre' )
```
!!! note ""
- Initiate an instance of [[ElemshapeData_]]. You can learn more about it from [[ElemshapeData_test]]
-
+Initiate an instance of [[ElemshapeData_]]. You can learn more about it from [[ElemshapeData_test]]
+
```fortran
- CALL initiate(obj=test, &
- & quad=quad, &
- & refelem=refelem, &
- & ContinuityType=typeH1, &
- & InterpolType=typeLagrangeInterpolation)
- CALL Set( obj=test, val=xij, N=test%N, dNdXi=test%dNdXi)
+CALL initiate(obj=test, &
+ & quad=quad, &
+ & refelem=refelem, &
+ & ContinuityType=typeH1, &
+ & InterpolType=typeLagrangeInterpolation)
+CALL Set( obj=test, val=xij, N=test%N, dNdXi=test%dNdXi)
```
!!! note ""
- Let us now create the mass matrix.
+Let us now create the mass matrix.
```fortran
- kvar = NodalVariable(1.0_DFP, TypeFEVariableScalar, TypeFEVariableConstant)
- mat=DiffusionMatrix(test=test, trial=test, k=kvar)
- CALL Display(mat, "mat:")
+kvar = NodalVariable(1.0_DFP, TypeFEVariableScalar, TypeFEVariableConstant)
+mat=DiffusionMatrix(test=test, trial=test, k=kvar)
+CALL Display(mat, "mat:")
```
??? example "Results"
@@ -94,7 +91,6 @@ PROGRAM main
-0.500000 0.500000
```
-
!!! settings "Cleanup"
```fortran
diff --git a/docs/docs-api/DirichletBC/examples/_ImportFromToml_test_1.md b/docs/docs-api/DirichletBC/examples/_ImportFromToml_test_1.md
index 84fabb19..98662329 100644
--- a/docs/docs-api/DirichletBC/examples/_ImportFromToml_test_1.md
+++ b/docs/docs-api/DirichletBC/examples/_ImportFromToml_test_1.md
@@ -1,7 +1,5 @@
-
import CodeBlock from '@theme/CodeBlock';
import CodeSnippet from '!!raw-loader!./_ImportFromToml_test_1.F90';
{CodeSnippet}
-
diff --git a/docs/docs-api/DirichletBC/examples/_ImportFromToml_test_2.md b/docs/docs-api/DirichletBC/examples/_ImportFromToml_test_2.md
index 2d1f273f..e6913521 100644
--- a/docs/docs-api/DirichletBC/examples/_ImportFromToml_test_2.md
+++ b/docs/docs-api/DirichletBC/examples/_ImportFromToml_test_2.md
@@ -1,7 +1,5 @@
-
import CodeBlock from '@theme/CodeBlock';
import CodeSnippet from '!!raw-loader!./_ImportFromToml_test_2.F90';
{CodeSnippet}
-
diff --git a/docs/docs-api/DirichletBC/examples/_Initiate_test_1.md b/docs/docs-api/DirichletBC/examples/_Initiate_test_1.md
index fdaba123..781fb571 100644
--- a/docs/docs-api/DirichletBC/examples/_Initiate_test_1.md
+++ b/docs/docs-api/DirichletBC/examples/_Initiate_test_1.md
@@ -1,7 +1,5 @@
-
import CodeBlock from '@theme/CodeBlock';
import CodeSnippet from '!!raw-loader!./_Initiate_test_1.F90';
{CodeSnippet}
-
diff --git a/docs/docs-api/DirichletBC/examples/_Initiate_test_2.md b/docs/docs-api/DirichletBC/examples/_Initiate_test_2.md
index 37a0ddfc..9e54927e 100644
--- a/docs/docs-api/DirichletBC/examples/_Initiate_test_2.md
+++ b/docs/docs-api/DirichletBC/examples/_Initiate_test_2.md
@@ -1,7 +1,5 @@
-
import CodeBlock from '@theme/CodeBlock';
import CodeSnippet from '!!raw-loader!./_Initiate_test_2.F90';
{CodeSnippet}
-
diff --git a/docs/docs-api/DirichletBC/examples/_Initiate_test_3.md b/docs/docs-api/DirichletBC/examples/_Initiate_test_3.md
index 8bf94822..21aa7c8e 100644
--- a/docs/docs-api/DirichletBC/examples/_Initiate_test_3.md
+++ b/docs/docs-api/DirichletBC/examples/_Initiate_test_3.md
@@ -1,7 +1,5 @@
-
import CodeBlock from '@theme/CodeBlock';
import CodeSnippet from '!!raw-loader!./_Initiate_test_3.F90';
{CodeSnippet}
-
diff --git a/docs/docs-api/DirichletBC/examples/_SetElemToLocalBoundary_test_1.md b/docs/docs-api/DirichletBC/examples/_SetElemToLocalBoundary_test_1.md
index ae63882c..175e2286 100644
--- a/docs/docs-api/DirichletBC/examples/_SetElemToLocalBoundary_test_1.md
+++ b/docs/docs-api/DirichletBC/examples/_SetElemToLocalBoundary_test_1.md
@@ -1,7 +1,5 @@
-
import CodeBlock from '@theme/CodeBlock';
import CodeSnippet from '!!raw-loader!./_SetElemToLocalBoundary_test_1.F90';
{CodeSnippet}
-
diff --git a/docs/docs-api/Display_Method/Display.md b/docs/docs-api/Display_Method/Display.md
index 64ab1cd9..c86a5693 100644
--- a/docs/docs-api/Display_Method/Display.md
+++ b/docs/docs-api/Display_Method/Display.md
@@ -1,6 +1,6 @@
# Display
-Display function prints variable on the screen.
+Display function prints variable on the screen.
import Tabs from '@theme/Tabs';
import TabItem from '@theme/TabItem';
diff --git a/docs/docs-api/Display_Method/SetDisplayProfile.md b/docs/docs-api/Display_Method/SetDisplayProfile.md
index 1e8d6420..e35dd6db 100644
--- a/docs/docs-api/Display_Method/SetDisplayProfile.md
+++ b/docs/docs-api/Display_Method/SetDisplayProfile.md
@@ -55,7 +55,7 @@ DispProfile is an instance of DISP_SETTINGS. You can pass following predefined g
- style="UNDERLINE"
- trim="FALSE"
- ZEROAS="."
-:::
+ :::
:::note DisplayProfilePrint
@@ -65,13 +65,13 @@ DispProfile is an instance of DISP_SETTINGS. You can pass following predefined g
- style="UNDERLINE"
- trim="FALSE"
- ZEROAS=""
-:::
+ :::
#### advance
It can take following values:
-1. "YES", go to the next line.
+1. "YES", go to the next line.
2. "NO", stay on the same line.
#### digmax
diff --git a/docs/docs-api/DistributedVector/index.md b/docs/docs-api/DistributedVector/index.md
index 3683a79e..48a2647b 100644
--- a/docs/docs-api/DistributedVector/index.md
+++ b/docs/docs-api/DistributedVector/index.md
@@ -5,4 +5,3 @@ update: 2023-08-05
---
# DistributedVector
-
diff --git a/docs/docs-api/Domain/InitiateFacetElements.md b/docs/docs-api/Domain/InitiateFacetElements.md
index 75995182..47bbdc4f 100644
--- a/docs/docs-api/Domain/InitiateFacetElements.md
+++ b/docs/docs-api/Domain/InitiateFacetElements.md
@@ -1,6 +1,6 @@
# InitiateFacetElements
-This routine initiates the facet element information for every mesh of the domain.
+This routine initiates the facet element information for every mesh of the domain.
More details are given in the following pages.
diff --git a/docs/docs-api/Domain/SetDomainFacetElement.md b/docs/docs-api/Domain/SetDomainFacetElement.md
index b3fef5d5..ca9492df 100644
--- a/docs/docs-api/Domain/SetDomainFacetElement.md
+++ b/docs/docs-api/Domain/SetDomainFacetElement.md
@@ -2,13 +2,13 @@
This routine sets the domain boundary element for cells and faces.
-When we call [InitiateFacetElements](../Mesh/InitiateFacetElements.md) for mesh, we can only identify boundary-facet-elements (i.e., boundary elements of the mesh). Moreover, when we call [InitiateFacetElements](../Mesh/InitiateFacetElements.md) from mesh or domain, all the facet elements are tagged as `DOMAIN_BOUNDARY_ELEMENT`.
+When we call [InitiateFacetElements](../Mesh/InitiateFacetElements.md) for mesh, we can only identify boundary-facet-elements (i.e., boundary elements of the mesh). Moreover, when we call [InitiateFacetElements](../Mesh/InitiateFacetElements.md) from mesh or domain, all the facet elements are tagged as `DOMAIN_BOUNDARY_ELEMENT`.
However, some of these boundary facet-elements will be located at the domain’s boundary. These facet elements are called `DOMAIN_BOUNDARY_ELEMENT`.
-Some of the facet elements will be at located at the interface of two mesh regions, these facet elements are called `BOUNDARY_ELEMENT`.
+Some of the facet elements will be at located at the interface of two mesh regions, these facet elements are called `BOUNDARY_ELEMENT`.
-This method correctly differentiates between `BOUNDARY_ELEMENT` and `DOMAIN_BOUNDARY_ELEMENT`.
+This method correctly differentiates between `BOUNDARY_ELEMENT` and `DOMAIN_BOUNDARY_ELEMENT`.
:::info
This routine needs facet element data information stored inside the mesh. Therefore, if for a mesh `isFacetDataInitiated` is false, then this routine will make a call to [InitiateFacetElements](../Mesh/InitiateFacetElements.md) for that mesh.
diff --git a/docs/docs-api/Domain/SetFacetElementType.md b/docs/docs-api/Domain/SetFacetElementType.md
index 75c64502..a663db04 100644
--- a/docs/docs-api/Domain/SetFacetElementType.md
+++ b/docs/docs-api/Domain/SetFacetElementType.md
@@ -2,18 +2,18 @@
This routine corrrects the facet element type in each mesh.
-When we call [InitiateFacetElements](../Mesh/InitiateFacetElements.md) for mesh, we can only identify boundary-facet-elements (i.e., boundary elements of the mesh).
+When we call [InitiateFacetElements](../Mesh/InitiateFacetElements.md) for mesh, we can only identify boundary-facet-elements (i.e., boundary elements of the mesh).
-Moreover, when we call [InitiateFacetElements](../Mesh/InitiateFacetElements.md) from mesh or domain, all the facet elements are tagged as `DOMAIN_BOUNDARY_ELEMENT`.
+Moreover, when we call [InitiateFacetElements](../Mesh/InitiateFacetElements.md) from mesh or domain, all the facet elements are tagged as `DOMAIN_BOUNDARY_ELEMENT`.
However, some of these boundary facet-elements will be located at the domain’s boundary. These facet elements are called `DOMAIN_BOUNDARY_ELEMENT`.
-Some of the facet elements will be at located at the interface of two mesh regions, these facet elements are called `BOUNDARY_ELEMENT`.
+Some of the facet elements will be at located at the interface of two mesh regions, these facet elements are called `BOUNDARY_ELEMENT`.
-This method correctly differentiates between `BOUNDARY_ELEMENT` and `DOMAIN_BOUNDARY_ELEMENT`.
+This method correctly differentiates between `BOUNDARY_ELEMENT` and `DOMAIN_BOUNDARY_ELEMENT`.
:::info
-This method needs information of boundary data in a mesh, which can be set by calling [InitiateBoundaryData](../Mesh/InitiateBoundaryData.md) by the user.
+This method needs information of boundary data in a mesh, which can be set by calling [InitiateBoundaryData](../Mesh/InitiateBoundaryData.md) by the user.
In this routine if for a mesh `isBoundaryDataInitiated` is `.FALSE.`, then this routine will make a call to [InitiateBoundaryData](../Mesh/InitiateBoundaryData.md) for that mesh and initiate the required boundary data.
:::
@@ -24,7 +24,6 @@ Please check documentation of following methods:
- [SetMeshFacetElement](SetMeshFacetElement.md)
- [SetFacetElementType](SetFacetElementType.md)
-
## Interface
```fortran
diff --git a/docs/docs-api/Domain/examples/_GetTotalElements_test_1.md b/docs/docs-api/Domain/examples/_GetTotalElements_test_1.md
index 8cecbe3a..2f5e0643 100644
--- a/docs/docs-api/Domain/examples/_GetTotalElements_test_1.md
+++ b/docs/docs-api/Domain/examples/_GetTotalElements_test_1.md
@@ -1,9 +1,9 @@
-This example show how to initiate an instance of `Domain_` from the `HDF5File_`
-mesh/domain file.
+This example show how to initiate an instance of `Domain_` from the `HDF5File_`
+mesh/domain file.
It tests `GetTotalElements`, and `OPERATOR(.tElements.)` methods
-``` fortran
+```fortran
PROGRAM main
USE easifemBase
USE easifemClasses
diff --git a/docs/docs-api/Domain/examples/_GetTotalNodes_test_1.md b/docs/docs-api/Domain/examples/_GetTotalNodes_test_1.md
index 49ae333a..d8b5177d 100644
--- a/docs/docs-api/Domain/examples/_GetTotalNodes_test_1.md
+++ b/docs/docs-api/Domain/examples/_GetTotalNodes_test_1.md
@@ -1,7 +1,7 @@
-This example show how to initiate an instance of `Domain_` from the `HDF5File_` mesh/domain file.
+This example show how to initiate an instance of `Domain_` from the `HDF5File_` mesh/domain file.
It tests `GetTotalNodes` and `Operator(.tNodes.)` methods.
-``` fortran
+```fortran
PROGRAM main
USE easifemBase
USE easifemClasses
diff --git a/docs/docs-api/Domain/examples/_IsNodePresent_test_1.md b/docs/docs-api/Domain/examples/_IsNodePresent_test_1.md
index 1a566782..01941535 100644
--- a/docs/docs-api/Domain/examples/_IsNodePresent_test_1.md
+++ b/docs/docs-api/Domain/examples/_IsNodePresent_test_1.md
@@ -1,7 +1,7 @@
-This example show how to initiate an instance of `Domain_` from the `HDF5File_` mesh/domain file.
+This example show how to initiate an instance of `Domain_` from the `HDF5File_` mesh/domain file.
It tests `isNodePresent`, `getTotalNodes`, and `Operator(.tNodes.)` methods
-``` fortran
+```fortran
PROGRAM main
USE easifemBase
USE easifemClasses
diff --git a/docs/docs-api/Domain/examples/_SetMeshFacetElement_test_1.md b/docs/docs-api/Domain/examples/_SetMeshFacetElement_test_1.md
index 1514f44f..16abe5c8 100644
--- a/docs/docs-api/Domain/examples/_SetMeshFacetElement_test_1.md
+++ b/docs/docs-api/Domain/examples/_SetMeshFacetElement_test_1.md
@@ -1,6 +1,6 @@
This example tests the `SetMeshFacetElement` method of the domain.
-``` fortran
+```fortran
PROGRAM main
USE easifemBase
USE easifemClasses
diff --git a/docs/docs-api/Domain/examples/_SetMeshMap_test_1.md b/docs/docs-api/Domain/examples/_SetMeshMap_test_1.md
index ce081d0b..5851cacb 100644
--- a/docs/docs-api/Domain/examples/_SetMeshMap_test_1.md
+++ b/docs/docs-api/Domain/examples/_SetMeshMap_test_1.md
@@ -1,6 +1,6 @@
This example tests the `SetMeshMap` method of the domain.
-``` fortran
+```fortran
PROGRAM main
USE easifemBase
USE easifemClasses
diff --git a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_1.md b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_1.md
index cbda1527..401961dc 100644
--- a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_1.md
+++ b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_1.md
@@ -6,7 +6,7 @@ Pressure domain consists Triangle3 elements as shown below.
Importing modules and variables
-``` fortran
+```fortran
PROGRAM main
USE easifemBase
USE easifemClasses
@@ -21,20 +21,20 @@ PROGRAM main
```
```fortran
- CALL pressureMeshFile%Initiate( FileName="./mesh_tri3.h5", MODE="READ" )
- CALL pressureMeshFile%Open()
- CALL pressureDomain%Initiate( pressureMeshFile, "")
- CALL pressureMeshFile%Deallocate()
+CALL pressureMeshFile%Initiate( FileName="./mesh_tri3.h5", MODE="READ" )
+CALL pressureMeshFile%Open()
+CALL pressureDomain%Initiate( pressureMeshFile, "")
+CALL pressureMeshFile%Deallocate()
```
This will create node to node-connectivity data from domain1 (dim=2, entityNum=1) to domain2 (dim=2, entityNum=2).
```fortran
- CALL obj%InitiateNodeToNodeData( domain1=pressureDomain, &
- & domain2=pressureDomain, dim1=2, entityNum1=1, dim2=2, entityNum2=1)
- nodeToNode => obj%getNodeToNodePointer()
- pressureMesh => pressureDomain%getMeshPointer( 2, 1 )
- pressureNode => pressureDomain%getNodeCoordPointer()
+CALL obj%InitiateNodeToNodeData( domain1=pressureDomain, &
+ & domain2=pressureDomain, dim1=2, entityNum1=1, dim2=2, entityNum2=1)
+nodeToNode => obj%getNodeToNodePointer()
+pressureMesh => pressureDomain%getMeshPointer( 2, 1 )
+pressureNode => pressureDomain%getNodeCoordPointer()
```
```fortran
diff --git a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_10.md b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_10.md
index f5b3495a..4ad59ab5 100644
--- a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_10.md
+++ b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_10.md
@@ -8,7 +8,7 @@ Velocity domain consists Triangle6 elements as shown below.
-``` fortran
+```fortran
PROGRAM main
USE easifemBase
USE easifemClasses
@@ -25,46 +25,46 @@ PROGRAM main
```
```fortran
- CALL velocityMeshFile%Initiate( FileName="./mesh_tri6.h5", MODE="READ" )
- CALL velocityMeshFile%Open()
- CALL pressureMeshFile%Initiate( FileName="./mesh_tri3.h5", MODE="READ" )
- CALL pressureMeshFile%Open()
+CALL velocityMeshFile%Initiate( FileName="./mesh_tri6.h5", MODE="READ" )
+CALL velocityMeshFile%Open()
+CALL pressureMeshFile%Initiate( FileName="./mesh_tri3.h5", MODE="READ" )
+CALL pressureMeshFile%Open()
```
```fortran
- CALL velocityDomain%Initiate( velocityMeshFile, "")
- CALL velocityMeshFile%Deallocate()
- CALL pressureDomain%Initiate( pressureMeshFile, "")
- CALL pressureMeshFile%Deallocate()
+CALL velocityDomain%Initiate( velocityMeshFile, "")
+CALL velocityMeshFile%Deallocate()
+CALL pressureDomain%Initiate( pressureMeshFile, "")
+CALL pressureMeshFile%Deallocate()
```
```fortran
- CALL obj%InitiateNodeToNodeData( domain2=velocityDomain, &
- & domain1=pressureDomain )
- nodeToNode => obj%getNodeToNodePointer()
- pressureNode => pressureDomain%getNodeCoordPointer()
- velocityNode => velocityDomain%getNodeCoordPointer()
+CALL obj%InitiateNodeToNodeData( domain2=velocityDomain, &
+ & domain1=pressureDomain )
+nodeToNode => obj%getNodeToNodePointer()
+pressureNode => pressureDomain%getNodeCoordPointer()
+velocityNode => velocityDomain%getNodeCoordPointer()
```
Simple testing
```fortran
- DO ii = pressureDomain%minNptrs, pressureDomain%maxNptrs
- IF( .NOT. pressureDomain%isNodePresent( globalNode=ii ) ) CYCLE
- IF( nodeToNode( ii ) .EQ. 0 ) CYCLE
- IF( ALL( pressureNode(:,pressureDomain%getLocalNodeNumber(ii)) &
- & .APPROXEQ. velocityNode(:, &
- & velocityDomain%getLocalNodeNumber(nodeToNode(ii)))) ) THEN
- !CALL Display( "pressure Node = " // TOSTRING(ii) &
- ! & // " matches with velocity Node = " // TOSTRING( nodeToNode(ii)))
- ELSE
- CALL Display( "ERROR: pressure Node = " // TOSTRING(ii) &
- & // " not matches with velocity Node = " &
- & // TOSTRING( nodeToNode(ii)))
- STOP
- END IF
- END DO
- CALL OK(.TRUE.)
+DO ii = pressureDomain%minNptrs, pressureDomain%maxNptrs
+ IF( .NOT. pressureDomain%isNodePresent( globalNode=ii ) ) CYCLE
+ IF( nodeToNode( ii ) .EQ. 0 ) CYCLE
+ IF( ALL( pressureNode(:,pressureDomain%getLocalNodeNumber(ii)) &
+ & .APPROXEQ. velocityNode(:, &
+ & velocityDomain%getLocalNodeNumber(nodeToNode(ii)))) ) THEN
+ !CALL Display( "pressure Node = " // TOSTRING(ii) &
+ ! & // " matches with velocity Node = " // TOSTRING( nodeToNode(ii)))
+ ELSE
+ CALL Display( "ERROR: pressure Node = " // TOSTRING(ii) &
+ & // " not matches with velocity Node = " &
+ & // TOSTRING( nodeToNode(ii)))
+ STOP
+ END IF
+END DO
+CALL OK(.TRUE.)
```
cleanup
diff --git a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_11.md b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_11.md
index 9ab248ee..ee6f6aee 100644
--- a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_11.md
+++ b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_11.md
@@ -1,4 +1,4 @@
-In this example we will generate cell to cell connectivity information between part of pressure-domain and part of pressure-Domain.
+In this example we will generate cell to cell connectivity information between part of pressure-domain and part of pressure-Domain.
- dim1=2, entity=1
- dim2=2, entity=1
@@ -7,8 +7,7 @@ Pressure domain consists Triangle3 elements as shown below.
-
-``` fortran
+```fortran
PROGRAM main
USE easifemBase
USE easifemClasses
@@ -25,18 +24,18 @@ PROGRAM main
Create domain for pressure variables, 🎇 READ the mesh file, and ⭕ initiates the domain for pressure
```fortran
- CALL pressureMeshFile%Initiate( FileName="./mesh_tri3.h5", MODE="READ" )
- CALL pressureMeshFile%Open()
- CALL pressureDomain%Initiate( pressureMeshFile, "")
- CALL pressureMeshFile%Deallocate()
+CALL pressureMeshFile%Initiate( FileName="./mesh_tri3.h5", MODE="READ" )
+CALL pressureMeshFile%Open()
+CALL pressureDomain%Initiate( pressureMeshFile, "")
+CALL pressureMeshFile%Deallocate()
```
Initiates the node to node connectivity DATA. It is important that we initiate the node to node DATA before initiating cell to cell DATA.
```fortran
- CALL obj%InitiateNodeToNodeData( domain1=pressureDomain, &
- & domain2=pressureDomain, dim1=dim1, entityNum1=entity1, dim2=dim2, &
- & entityNum2=entity2)
+CALL obj%InitiateNodeToNodeData( domain1=pressureDomain, &
+ & domain2=pressureDomain, dim1=dim1, entityNum1=entity1, dim2=dim2, &
+ & entityNum2=entity2)
```
This will create node-to-node connectivity DATA from domain1 (dim=2, entityNum=1) to domain2 (dim=2, entityNum=2).
@@ -44,26 +43,26 @@ This will create node-to-node connectivity DATA from domain1 (dim=2, entityNum=1
Now we can initiate cell-to-cell DATA between the above mentioned meshes.
```fortran
- CALL obj%InitiateCellToCellData( domain1=pressureDomain, &
- & domain2=pressureDomain, dim1=dim1, entityNum1=entity1, dim2=dim2, &
- & entityNum2=entity2)
- CALL Display("Success!!")
+CALL obj%InitiateCellToCellData( domain1=pressureDomain, &
+ & domain2=pressureDomain, dim1=dim1, entityNum1=entity1, dim2=dim2, &
+ & entityNum2=entity2)
+CALL Display("Success!!")
```
Now let us run some checks on the results. This is ONLY for the testing purpose. IF you want, you can skip this part, and move on to the next examples.
```fortran
- cellToCell => obj%getCellToCellPointer()
- pressureMesh => pressureDomain%getMeshPointer(dim=dim1, &
- & entityNum=entity1)
- DO ii = pressureMesh%minElemNum, pressureMesh%maxElemNum
- IF (.NOT. pressureMesh%isElementPresent(ii)) CYCLE
- IF (cellToCell(ii) .NE. ii) THEN
- CALL FAIL("DomainConnectivity-test has failed")
- STOP
- END IF
- END DO
- CALL PASS("DomainConnectivity-test-11 has passed")
+cellToCell => obj%getCellToCellPointer()
+pressureMesh => pressureDomain%getMeshPointer(dim=dim1, &
+ & entityNum=entity1)
+DO ii = pressureMesh%minElemNum, pressureMesh%maxElemNum
+ IF (.NOT. pressureMesh%isElementPresent(ii)) CYCLE
+ IF (cellToCell(ii) .NE. ii) THEN
+ CALL FAIL("DomainConnectivity-test has failed")
+ STOP
+ END IF
+END DO
+CALL PASS("DomainConnectivity-test-11 has passed")
```
Cleaning up.
diff --git a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_12.md b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_12.md
index f10ab7f5..494792bf 100644
--- a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_12.md
+++ b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_12.md
@@ -1,10 +1,10 @@
-In this example we will generate cell to cell connectivity information between part of velocity-domain and part of velocity-Domain.
+In this example we will generate cell to cell connectivity information between part of velocity-domain and part of velocity-Domain.
Velocity domain consists Triangle6 elements as shown below.
-``` fortran
+```fortran
PROGRAM main
USE easifemBase
USE easifemClasses
@@ -21,18 +21,18 @@ PROGRAM main
create domain for velocity variables, 🎇 READ the mesh file, and ⭕ initiates the domain for pressure
```fortran
- CALL velocityMeshFile%Initiate( FileName="./mesh_tri6.h5", MODE="READ" )
- CALL velocityMeshFile%Open()
- CALL velocityDomain%Initiate( velocityMeshFile, "")
- CALL velocityMeshFile%Deallocate()
+CALL velocityMeshFile%Initiate( FileName="./mesh_tri6.h5", MODE="READ" )
+CALL velocityMeshFile%Open()
+CALL velocityDomain%Initiate( velocityMeshFile, "")
+CALL velocityMeshFile%Deallocate()
```
Initiates the node to node connectivity DATA. It is important that we initiate the node to node DATA before initiating cell to cell DATA.
```fortran
- CALL obj%InitiateNodeToNodeData( domain1=velocityDomain, &
- & domain2=velocityDomain, dim1=dim1, entityNum1=entity1, dim2=dim2, &
- & entityNum2=entity2)
+CALL obj%InitiateNodeToNodeData( domain1=velocityDomain, &
+ & domain2=velocityDomain, dim1=dim1, entityNum1=entity1, dim2=dim2, &
+ & entityNum2=entity2)
```
This will create node-to-node connectivity DATA from domain1 (dim=2, entityNum=1) to domain2 (dim=2, entityNum=2).
@@ -40,25 +40,25 @@ This will create node-to-node connectivity DATA from domain1 (dim=2, entityNum=1
Now we can initiate cell-to-cell DATA between the above mentioned meshes.
```fortran
- CALL obj%InitiateCellToCellData( domain1=velocityDomain, &
- & domain2=velocityDomain, dim1=dim1, entityNum1=entity1, dim2=dim2, &
- & entityNum2=entity2)
+CALL obj%InitiateCellToCellData( domain1=velocityDomain, &
+ & domain2=velocityDomain, dim1=dim1, entityNum1=entity1, dim2=dim2, &
+ & entityNum2=entity2)
```
Now let us run some checks on the results. This is ONLY for the testing purpose. IF you want, you can skip this part, and move on to the next examples.
```fortran
- cellToCell => obj%getCellToCellPointer()
- velocityMesh => velocityDomain%getMeshPointer(dim=dim1, &
- & entityNum=entity1)
- DO ii = velocityMesh%minElemNum, velocityMesh%maxElemNum
- IF (.NOT. velocityMesh%isElementPresent(ii)) CYCLE
- IF (cellToCell(ii) .NE. ii) THEN
- CALL FAIL("DomainConnectivity-test has failed")
- STOP
- END IF
- END DO
- CALL PASS("DomainConnectivity-test has passed")
+cellToCell => obj%getCellToCellPointer()
+velocityMesh => velocityDomain%getMeshPointer(dim=dim1, &
+ & entityNum=entity1)
+DO ii = velocityMesh%minElemNum, velocityMesh%maxElemNum
+ IF (.NOT. velocityMesh%isElementPresent(ii)) CYCLE
+ IF (cellToCell(ii) .NE. ii) THEN
+ CALL FAIL("DomainConnectivity-test has failed")
+ STOP
+ END IF
+END DO
+CALL PASS("DomainConnectivity-test has passed")
```
Cleaning up.
diff --git a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_13.md b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_13.md
index 7487121b..b554e297 100644
--- a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_13.md
+++ b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_13.md
@@ -1,4 +1,4 @@
-In this example we will generate cell to cell connectivity information between part of pressure-domain and part of pressure-Domain. We will map boundary of a domain with the boundary of the other domain
+In this example we will generate cell to cell connectivity information between part of pressure-domain and part of pressure-Domain. We will map boundary of a domain with the boundary of the other domain
Pressure domain consists Triangle3 elements as shown below.
@@ -10,7 +10,7 @@ Velocity domain consists Triangle6 elements as shown below.
Importing modules and variables
-``` fortran
+```fortran
PROGRAM main
USE easifemBase
USE easifemClasses
@@ -27,18 +27,18 @@ PROGRAM main
Create domain for pressure variables, 🎇 READ the mesh file, and ⭕ initiates the domain for pressure
```fortran
- CALL pressureMeshFile%Initiate( FileName="./mesh_tri3.h5", MODE="READ" )
- CALL pressureMeshFile%Open()
- CALL pressureDomain%Initiate( pressureMeshFile, "")
- CALL pressureMeshFile%Deallocate()
+CALL pressureMeshFile%Initiate( FileName="./mesh_tri3.h5", MODE="READ" )
+CALL pressureMeshFile%Open()
+CALL pressureDomain%Initiate( pressureMeshFile, "")
+CALL pressureMeshFile%Deallocate()
```
Initiates the node to node connectivity DATA. It is important that we initiate the node to node DATA before initiating cell to cell DATA.
```fortran
- CALL obj%InitiateNodeToNodeData( domain1=pressureDomain, &
- & domain2=pressureDomain, dim1=dim1, entityNum1=entity1, dim2=dim2, &
- & entityNum2=entity2)
+CALL obj%InitiateNodeToNodeData( domain1=pressureDomain, &
+ & domain2=pressureDomain, dim1=dim1, entityNum1=entity1, dim2=dim2, &
+ & entityNum2=entity2)
```
This will create node-to-node connectivity DATA from domain1 (dim=2, entityNum=1) to domain2 (dim=2, entityNum=2).
@@ -46,26 +46,26 @@ This will create node-to-node connectivity DATA from domain1 (dim=2, entityNum=1
Now we can initiate cell-to-cell DATA between the above mentioned meshes.
```fortran
- CALL obj%InitiateCellToCellData( domain1=pressureDomain, &
- & domain2=pressureDomain, dim1=dim1, entityNum1=entity1, dim2=dim2, &
- & entityNum2=entity2)
- CALL Display("Success!!")
+CALL obj%InitiateCellToCellData( domain1=pressureDomain, &
+ & domain2=pressureDomain, dim1=dim1, entityNum1=entity1, dim2=dim2, &
+ & entityNum2=entity2)
+CALL Display("Success!!")
```
Now let us run some checks on the results. This is ONLY for the testing purpose. IF you want, you can skip this part, and move on to the next examples.
```fortran
- cellToCell => obj%getCellToCellPointer()
- pressureMesh => pressureDomain%getMeshPointer(dim=dim1, &
- & entityNum=entity1)
- DO ii = pressureMesh%minElemNum, pressureMesh%maxElemNum
- IF (.NOT. pressureMesh%isElementPresent(ii)) CYCLE
- IF (cellToCell(ii) .NE. ii) THEN
- CALL FAIL("DomainConnectivity-test-11 has failed")
- STOP
- END IF
- END DO
- CALL PASS("DomainConnectivity-test has passed")
+cellToCell => obj%getCellToCellPointer()
+pressureMesh => pressureDomain%getMeshPointer(dim=dim1, &
+ & entityNum=entity1)
+DO ii = pressureMesh%minElemNum, pressureMesh%maxElemNum
+ IF (.NOT. pressureMesh%isElementPresent(ii)) CYCLE
+ IF (cellToCell(ii) .NE. ii) THEN
+ CALL FAIL("DomainConnectivity-test-11 has failed")
+ STOP
+ END IF
+END DO
+CALL PASS("DomainConnectivity-test has passed")
```
Cleaning up.
diff --git a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_14.md b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_14.md
index 19067157..c7afc624 100644
--- a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_14.md
+++ b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_14.md
@@ -1,4 +1,4 @@
-In this example we will generate cell to cell connectivity information between part of velocity-domain and part of velocity-Domain.
+In this example we will generate cell to cell connectivity information between part of velocity-domain and part of velocity-Domain.
Pressure domain consists Triangle3 elements as shown below.
@@ -10,7 +10,7 @@ Velocity domain consists Triangle6 elements as shown below.
Importing modules and variables
-``` fortran
+```fortran
PROGRAM main
USE easifemBase
USE easifemClasses
@@ -27,18 +27,18 @@ PROGRAM main
Create domain for velocity variables, 🎇 READ the mesh file, and ⭕ initiates the domain for pressure
```fortran
- CALL velocityMeshFile%Initiate( FileName="./mesh_tri6.h5", MODE="READ" )
- CALL velocityMeshFile%Open()
- CALL velocityDomain%Initiate( velocityMeshFile, "")
- CALL velocityMeshFile%Deallocate()
+CALL velocityMeshFile%Initiate( FileName="./mesh_tri6.h5", MODE="READ" )
+CALL velocityMeshFile%Open()
+CALL velocityDomain%Initiate( velocityMeshFile, "")
+CALL velocityMeshFile%Deallocate()
```
Initiates the node to node connectivity DATA. It is important that we initiate the node to node DATA before initiating cell to cell DATA.
```fortran
- CALL obj%InitiateNodeToNodeData( domain1=velocityDomain, &
- & domain2=velocityDomain, dim1=dim1, entityNum1=entity1, dim2=dim2, &
- & entityNum2=entity2)
+CALL obj%InitiateNodeToNodeData( domain1=velocityDomain, &
+ & domain2=velocityDomain, dim1=dim1, entityNum1=entity1, dim2=dim2, &
+ & entityNum2=entity2)
```
This will create node-to-node connectivity DATA from domain1 (dim=2, entityNum=1) to domain2 (dim=2, entityNum=2).
@@ -46,25 +46,25 @@ This will create node-to-node connectivity DATA from domain1 (dim=2, entityNum=1
Now we can initiate cell-to-cell DATA between the above mentioned meshes.
```fortran
- CALL obj%InitiateCellToCellData( domain1=velocityDomain, &
- & domain2=velocityDomain, dim1=dim1, entityNum1=entity1, dim2=dim2, &
- & entityNum2=entity2)
+CALL obj%InitiateCellToCellData( domain1=velocityDomain, &
+ & domain2=velocityDomain, dim1=dim1, entityNum1=entity1, dim2=dim2, &
+ & entityNum2=entity2)
```
Now let us run some checks on the results. This is ONLY for the testing purpose. IF you want, you can skip this part, and move on to the next examples.
```fortran
- cellToCell => obj%getCellToCellPointer()
- velocityMesh => velocityDomain%getMeshPointer(dim=dim1, &
- & entityNum=entity1)
- DO ii = velocityMesh%minElemNum, velocityMesh%maxElemNum
- IF (.NOT. velocityMesh%isElementPresent(ii)) CYCLE
- IF (cellToCell(ii) .NE. ii) THEN
- CALL FAIL("DomainConnectivity-test-11 has failed")
- STOP
- END IF
- END DO
- CALL PASS("DomainConnectivity-test has passed")
+cellToCell => obj%getCellToCellPointer()
+velocityMesh => velocityDomain%getMeshPointer(dim=dim1, &
+ & entityNum=entity1)
+DO ii = velocityMesh%minElemNum, velocityMesh%maxElemNum
+ IF (.NOT. velocityMesh%isElementPresent(ii)) CYCLE
+ IF (cellToCell(ii) .NE. ii) THEN
+ CALL FAIL("DomainConnectivity-test-11 has failed")
+ STOP
+ END IF
+END DO
+CALL PASS("DomainConnectivity-test has passed")
```
Cleaning up.
diff --git a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_15.md b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_15.md
index 1cf040e1..ef1a4883 100644
--- a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_15.md
+++ b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_15.md
@@ -30,27 +30,27 @@ PROGRAM main
create domain for velocity variables, 🎇 READ the mesh file, and ⭕ initiates the domain for pressure
```fortran
- CALL velocityMeshFile%Initiate( FileName="./mesh_tri6.h5", MODE="READ" )
- CALL velocityMeshFile%Open()
- CALL velocityDomain%Initiate( velocityMeshFile, "")
- CALL velocityMeshFile%Deallocate()
+CALL velocityMeshFile%Initiate( FileName="./mesh_tri6.h5", MODE="READ" )
+CALL velocityMeshFile%Open()
+CALL velocityDomain%Initiate( velocityMeshFile, "")
+CALL velocityMeshFile%Deallocate()
```
create domain for pressure variables, 🎇 READ the mesh file, and ⭕ initiates the domain for pressure
```fortran
- CALL pressureMeshFile%Initiate( FileName="./mesh_tri3.h5", MODE="READ" )
- CALL pressureMeshFile%Open()
- CALL pressureDomain%Initiate( pressureMeshFile, "")
- CALL pressureMeshFile%Deallocate()
+CALL pressureMeshFile%Initiate( FileName="./mesh_tri3.h5", MODE="READ" )
+CALL pressureMeshFile%Open()
+CALL pressureDomain%Initiate( pressureMeshFile, "")
+CALL pressureMeshFile%Deallocate()
```
Initiates the node to node connectivity DATA. It is important that we initiate the node to node DATA before initiating cell to cell DATA.
```fortran
- CALL obj%InitiateNodeToNodeData( domain1=velocityDomain, &
- & domain2=pressureDomain, dim1=dim1, entityNum1=entity1, dim2=dim2, &
- & entityNum2=entity2)
+CALL obj%InitiateNodeToNodeData( domain1=velocityDomain, &
+ & domain2=pressureDomain, dim1=dim1, entityNum1=entity1, dim2=dim2, &
+ & entityNum2=entity2)
```
This will create node-to-node connectivity DATA from domain1 (dim=2, entityNum=1) to domain2 (dim=2, entityNum=2).
@@ -58,28 +58,27 @@ This will create node-to-node connectivity DATA from domain1 (dim=2, entityNum=1
Now we can initiate cell-to-cell DATA between the above mentioned meshes.
```fortran
- CALL obj%InitiateCellToCellData( domain1=velocityDomain, &
- & domain2=pressureDomain, dim1=dim1, entityNum1=entity1, dim2=dim2, &
- & entityNum2=entity2)
+CALL obj%InitiateCellToCellData( domain1=velocityDomain, &
+ & domain2=pressureDomain, dim1=dim1, entityNum1=entity1, dim2=dim2, &
+ & entityNum2=entity2)
```
Now let us run some checks on the results. This is ONLY for the testing purpose. IF you want, you can skip this part, and move on to the next examples.
```fortran
- cellToCell => obj%getCellToCellPointer()
- velocityMesh => velocityDomain%getMeshPointer(dim=dim1, &
- & entityNum=entity1)
- DO ii = velocityMesh%minElemNum, velocityMesh%maxElemNum
- IF (.NOT. velocityMesh%isElementPresent(ii)) CYCLE
- IF (cellToCell(ii) .EQ. 0) THEN
- CALL FAIL("DomainConnectivity-test has failed")
- STOP
- END IF
- END DO
- CALL PASS("DomainConnectivity-test has passed")
+cellToCell => obj%getCellToCellPointer()
+velocityMesh => velocityDomain%getMeshPointer(dim=dim1, &
+ & entityNum=entity1)
+DO ii = velocityMesh%minElemNum, velocityMesh%maxElemNum
+ IF (.NOT. velocityMesh%isElementPresent(ii)) CYCLE
+ IF (cellToCell(ii) .EQ. 0) THEN
+ CALL FAIL("DomainConnectivity-test has failed")
+ STOP
+ END IF
+END DO
+CALL PASS("DomainConnectivity-test has passed")
```
-
```fortran
CALL pressureDomain%Deallocate()
CALL velocityDomain%Deallocate()
diff --git a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_16.md b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_16.md
index f89331c2..1b579465 100644
--- a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_16.md
+++ b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_16.md
@@ -28,27 +28,27 @@ PROGRAM main
Create domain for velocity variables, 🎇 READ the mesh file, and ⭕ initiates the domain for pressure
```fortran
- CALL velocityMeshFile%Initiate( FileName="./mesh_tri6.h5", MODE="READ" )
- CALL velocityMeshFile%Open()
- CALL velocityDomain%Initiate( velocityMeshFile, "")
- CALL velocityMeshFile%Deallocate()
+CALL velocityMeshFile%Initiate( FileName="./mesh_tri6.h5", MODE="READ" )
+CALL velocityMeshFile%Open()
+CALL velocityDomain%Initiate( velocityMeshFile, "")
+CALL velocityMeshFile%Deallocate()
```
Create domain for pressure variables, 🎇 READ the mesh file, and ⭕ initiates the domain for pressure
```fortran
- CALL pressureMeshFile%Initiate( FileName="./mesh_tri3.h5", MODE="READ" )
- CALL pressureMeshFile%Open()
- CALL pressureDomain%Initiate( pressureMeshFile, "")
- CALL pressureMeshFile%Deallocate()
+CALL pressureMeshFile%Initiate( FileName="./mesh_tri3.h5", MODE="READ" )
+CALL pressureMeshFile%Open()
+CALL pressureDomain%Initiate( pressureMeshFile, "")
+CALL pressureMeshFile%Deallocate()
```
Initiates the node to node connectivity DATA. It is important that we initiate the node to node DATA before initiating cell to cell DATA.
```fortran
- CALL obj%InitiateNodeToNodeData( domain1=pressureDomain, &
- & domain2=velocityDomain, dim1=dim1, entityNum1=entity1, dim2=dim2, &
- & entityNum2=entity2)
+CALL obj%InitiateNodeToNodeData( domain1=pressureDomain, &
+ & domain2=velocityDomain, dim1=dim1, entityNum1=entity1, dim2=dim2, &
+ & entityNum2=entity2)
```
This will create node-to-node connectivity DATA from domain1 (dim=2, entityNum=1) to domain2 (dim=2, entityNum=2).
@@ -56,28 +56,27 @@ This will create node-to-node connectivity DATA from domain1 (dim=2, entityNum=1
Now we can initiate cell-to-cell DATA between the above mentioned meshes.
```fortran
- CALL obj%InitiateCellToCellData( domain1=pressureDomain, &
- & domain2=velocityDomain, dim1=dim1, entityNum1=entity1, dim2=dim2, &
- & entityNum2=entity2)
+CALL obj%InitiateCellToCellData( domain1=pressureDomain, &
+ & domain2=velocityDomain, dim1=dim1, entityNum1=entity1, dim2=dim2, &
+ & entityNum2=entity2)
```
Now let us run some checks on the results. This is ONLY for the testing purpose. IF you want, you can skip this part, and move on to the next examples.
```fortran
- cellToCell => obj%getCellToCellPointer()
- pressureMesh => pressureDomain%getMeshPointer(dim=dim1, &
- & entityNum=entity1)
- DO ii = pressureMesh%minElemNum, pressureMesh%maxElemNum
- IF (.NOT. pressureMesh%isElementPresent(ii)) CYCLE
- IF (cellToCell(ii) .EQ. 0) THEN
- CALL FAIL("DomainConnectivity-test has failed")
- STOP
- END IF
- END DO
- CALL PASS("DomainConnectivity-test has passed")
+cellToCell => obj%getCellToCellPointer()
+pressureMesh => pressureDomain%getMeshPointer(dim=dim1, &
+ & entityNum=entity1)
+DO ii = pressureMesh%minElemNum, pressureMesh%maxElemNum
+ IF (.NOT. pressureMesh%isElementPresent(ii)) CYCLE
+ IF (cellToCell(ii) .EQ. 0) THEN
+ CALL FAIL("DomainConnectivity-test has failed")
+ STOP
+ END IF
+END DO
+CALL PASS("DomainConnectivity-test has passed")
```
-
```fortran
CALL pressureDomain%Deallocate()
CALL velocityDomain%Deallocate()
diff --git a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_17.md b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_17.md
index e4f7920f..529dee53 100644
--- a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_17.md
+++ b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_17.md
@@ -10,7 +10,7 @@ Velocity domain consists Triangle6 elements as shown below.
Importing modules and variables
-``` fortran
+```fortran
PROGRAM main
USE easifemBase
USE easifemClasses
@@ -28,17 +28,17 @@ PROGRAM main
Initiate domain for pressure variable.
```fortran
- CALL pressureMeshFile%Initiate( FileName="./mesh_tri3.h5", MODE="READ" )
- CALL pressureMeshFile%Open()
- CALL pressureDomain%Initiate( pressureMeshFile, "")
+CALL pressureMeshFile%Initiate( FileName="./mesh_tri3.h5", MODE="READ" )
+CALL pressureMeshFile%Open()
+CALL pressureDomain%Initiate( pressureMeshFile, "")
```
Initiate node to node DATA.
```fortran
- CALL obj%InitiateNodeToNodeData( domain1=pressureDomain, &
- & domain2=pressureDomain )
- CALL PASS("InitiateNodeToNodeData()")
+CALL obj%InitiateNodeToNodeData( domain1=pressureDomain, &
+ & domain2=pressureDomain )
+CALL PASS("InitiateNodeToNodeData()")
```
This will create node to node connectivity DATA from domain1 (dim=2, entityNum=1) to domain2 (dim=2, entityNum=2).
@@ -46,32 +46,31 @@ This will create node to node connectivity DATA from domain1 (dim=2, entityNum=1
Initiate cell to cell connectivity DATA.
```fortran
- CALL obj%InitiateCellToCellData(domain1=pressureDomain, &
- & domain2=pressureDomain)
+CALL obj%InitiateCellToCellData(domain1=pressureDomain, &
+ & domain2=pressureDomain)
```
now let us run some tests.
```fortran
- cellToCell => obj%getCellToCellPointer()
- DO iel = pressureDomain%minElemNum, pressureDomain%maxElemNum
- IF (.NOT. pressureDomain%isElementPresent(iel)) CYCLE
- IF (cellToCell(iel) .EQ. 0) THEN
- pressureMesh => pressureDomain%getMeshPointer(globalElement=iel)
- refelem => pressureMesh%getRefElemPointer()
- IF (refelem%xidimension .EQ. pressureDomain%getNSD()) &
- & CALL fail("CellToCell: error code 1")
- ELSE
- IF (cellToCell(iel) .NE. iel) THEN
- CALL fail("CellToCell: error code 2")
- STOP
- END IF
- END IF
- END DO
- CALL PASS("InitiateCellToCellData()")
+cellToCell => obj%getCellToCellPointer()
+DO iel = pressureDomain%minElemNum, pressureDomain%maxElemNum
+ IF (.NOT. pressureDomain%isElementPresent(iel)) CYCLE
+ IF (cellToCell(iel) .EQ. 0) THEN
+ pressureMesh => pressureDomain%getMeshPointer(globalElement=iel)
+ refelem => pressureMesh%getRefElemPointer()
+ IF (refelem%xidimension .EQ. pressureDomain%getNSD()) &
+ & CALL fail("CellToCell: error code 1")
+ ELSE
+ IF (cellToCell(iel) .NE. iel) THEN
+ CALL fail("CellToCell: error code 2")
+ STOP
+ END IF
+ END IF
+END DO
+CALL PASS("InitiateCellToCellData()")
```
-
```fortran
CALL pressureMeshFile%Deallocate()
CALL pressureDomain%Deallocate()
diff --git a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_18.md b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_18.md
index 235ccd14..a458e967 100644
--- a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_18.md
+++ b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_18.md
@@ -10,7 +10,7 @@ Velocity domain consists Triangle6 elements as shown below.
Importing modules and variables
-``` fortran
+```fortran
PROGRAM main
USE easifemBase
USE easifemClasses
@@ -28,17 +28,17 @@ PROGRAM main
Initiate domain for velocity variable.
```fortran
- CALL velocityMeshFile%Initiate( FileName="./mesh_tri6.h5", MODE="READ" )
- CALL velocityMeshFile%Open()
- CALL velocityDomain%Initiate( velocityMeshFile, "")
+CALL velocityMeshFile%Initiate( FileName="./mesh_tri6.h5", MODE="READ" )
+CALL velocityMeshFile%Open()
+CALL velocityDomain%Initiate( velocityMeshFile, "")
```
Initiate node to node DATA.
```fortran
- CALL obj%InitiateNodeToNodeData( domain1=velocityDomain, &
- & domain2=velocityDomain )
- CALL PASS("InitiateNodeToNodeData()")
+CALL obj%InitiateNodeToNodeData( domain1=velocityDomain, &
+ & domain2=velocityDomain )
+CALL PASS("InitiateNodeToNodeData()")
```
This will create node to node connectivity DATA from domain1 (dim=2, entityNum=1) to domain2 (dim=2, entityNum=2).
@@ -46,32 +46,31 @@ This will create node to node connectivity DATA from domain1 (dim=2, entityNum=1
Initiate cell to cell connectivity DATA.
```fortran
- CALL obj%InitiateCellToCellData(domain1=velocityDomain, &
- & domain2=velocityDomain)
+CALL obj%InitiateCellToCellData(domain1=velocityDomain, &
+ & domain2=velocityDomain)
```
-now let us run some tests, this is only for testing purpose, so you can ignore the forthcoming section.
+now let us run some tests, this is only for testing purpose, so you can ignore the forthcoming section.
```fortran
- cellToCell => obj%getCellToCellPointer()
- DO iel = velocityDomain%minElemNum, velocityDomain%maxElemNum
- IF (.NOT. velocityDomain%isElementPresent(iel)) CYCLE
- IF (cellToCell(iel) .EQ. 0) THEN
- velocityMesh => velocityDomain%getMeshPointer(globalElement=iel)
- refelem => velocityMesh%getRefElemPointer()
- IF (refelem%xidimension .EQ. velocityDomain%getNSD()) &
- & CALL fail("CellToCell: error code 1")
- ELSE
- IF (cellToCell(iel) .NE. iel) THEN
- CALL fail("CellToCell: error code 2")
- STOP
- END IF
- END IF
- END DO
- CALL PASS("InitiateCellToCellData()")
+cellToCell => obj%getCellToCellPointer()
+DO iel = velocityDomain%minElemNum, velocityDomain%maxElemNum
+ IF (.NOT. velocityDomain%isElementPresent(iel)) CYCLE
+ IF (cellToCell(iel) .EQ. 0) THEN
+ velocityMesh => velocityDomain%getMeshPointer(globalElement=iel)
+ refelem => velocityMesh%getRefElemPointer()
+ IF (refelem%xidimension .EQ. velocityDomain%getNSD()) &
+ & CALL fail("CellToCell: error code 1")
+ ELSE
+ IF (cellToCell(iel) .NE. iel) THEN
+ CALL fail("CellToCell: error code 2")
+ STOP
+ END IF
+ END IF
+END DO
+CALL PASS("InitiateCellToCellData()")
```
-
```fortran
CALL velocityMeshFile%Deallocate()
CALL velocityDomain%Deallocate()
diff --git a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_19.md b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_19.md
index 069b632c..7b6fc4c5 100644
--- a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_19.md
+++ b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_19.md
@@ -32,68 +32,68 @@ PROGRAM main
Open the mesh file for pressure and velocity domain
```fortran
- CALL velocityMeshFile%Initiate( FileName="./mesh_tri6.h5", MODE="READ" )
- CALL velocityMeshFile%Open()
- CALL pressureMeshFile%Initiate( FileName="./mesh_tri3.h5", MODE="READ" )
- CALL pressureMeshFile%Open()
+CALL velocityMeshFile%Initiate( FileName="./mesh_tri6.h5", MODE="READ" )
+CALL velocityMeshFile%Open()
+CALL pressureMeshFile%Initiate( FileName="./mesh_tri3.h5", MODE="READ" )
+CALL pressureMeshFile%Open()
```
Initiate the domain for pressure and velocity
```fortran
- CALL velocityDomain%Initiate( velocityMeshFile, "")
- CALL pressureDomain%Initiate( pressureMeshFile, "")
+CALL velocityDomain%Initiate( velocityMeshFile, "")
+CALL pressureDomain%Initiate( pressureMeshFile, "")
```
Initiate node to node data between velocity domain and pressure domain.
```fortran
- CALL obj%InitiateNodeToNodeData( domain1=velocityDomain, &
- & domain2=pressureDomain )
- CALL PASS("InitiateNodeToNodeData()")
+CALL obj%InitiateNodeToNodeData( domain1=velocityDomain, &
+ & domain2=pressureDomain )
+CALL PASS("InitiateNodeToNodeData()")
```
Now that node-to-node data is ready, let us initiate cell to cell data from velocity domain to pressure domain.
```fortran
- CALL obj%InitiateCellToCellData( domain1=velocityDomain, &
- & domain2=pressureDomain )
+CALL obj%InitiateCellToCellData( domain1=velocityDomain, &
+ & domain2=pressureDomain )
```
now let us run some tests to check the validity of the data. This is only for testing purpose, so you can ignore the forthcoming section.
```fortran
- cellToCell => obj%getCellToCellPointer()
- DO iel = velocityDomain%minElemNum, velocityDomain%maxElemNum
- IF (.NOT. velocityDomain%isElementPresent(iel)) CYCLE
- IF (cellToCell(iel) .EQ. 0) THEN
- velocityMesh => velocityDomain%getMeshPointer(globalElement=iel)
- refelem => velocityMesh%getRefElemPointer()
- IF (refelem%xidimension .EQ. velocityDomain%getNSD()) THEN
- CALL fail("CellToCell: error code 1")
- STOP
- END IF
- ELSE
- !! here i am checking if the cellToCell(iel) is present in
- !! in the pressure domain or not.
- !! If it is present then it should be a cell element.
- ii = cellToCell(iel)
- IF (.NOT. pressureDomain%isElementPresent(ii)) THEN
- CALL fail("CellToCell: error code 2")
- STOP
- ELSE
- velocityMesh => velocityDomain%getMeshPointer(globalElement=iel)
- velocityRefelem => velocityMesh%getRefElemPointer()
- pressureMesh => pressureDomain%getMeshPointer(globalElement=ii)
- pressureRefelem => pressureMesh%getRefElemPointer()
- IF (pressureRefelem%xidimension .NE. velocityRefelem%xidimension) THEN
- CALL fail("CellToCell: error code 3")
- STOP
- END IF
- END IF
+cellToCell => obj%getCellToCellPointer()
+DO iel = velocityDomain%minElemNum, velocityDomain%maxElemNum
+ IF (.NOT. velocityDomain%isElementPresent(iel)) CYCLE
+ IF (cellToCell(iel) .EQ. 0) THEN
+ velocityMesh => velocityDomain%getMeshPointer(globalElement=iel)
+ refelem => velocityMesh%getRefElemPointer()
+ IF (refelem%xidimension .EQ. velocityDomain%getNSD()) THEN
+ CALL fail("CellToCell: error code 1")
+ STOP
+ END IF
+ ELSE
+ !! here i am checking if the cellToCell(iel) is present in
+ !! in the pressure domain or not.
+ !! If it is present then it should be a cell element.
+ ii = cellToCell(iel)
+ IF (.NOT. pressureDomain%isElementPresent(ii)) THEN
+ CALL fail("CellToCell: error code 2")
+ STOP
+ ELSE
+ velocityMesh => velocityDomain%getMeshPointer(globalElement=iel)
+ velocityRefelem => velocityMesh%getRefElemPointer()
+ pressureMesh => pressureDomain%getMeshPointer(globalElement=ii)
+ pressureRefelem => pressureMesh%getRefElemPointer()
+ IF (pressureRefelem%xidimension .NE. velocityRefelem%xidimension) THEN
+ CALL fail("CellToCell: error code 3")
+ STOP
END IF
- END DO
- CALL PASS("InitiateCellToCellData()")
+ END IF
+ END IF
+END DO
+CALL PASS("InitiateCellToCellData()")
```
```fortran
diff --git a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_2.md b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_2.md
index c49d3098..ee20f217 100644
--- a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_2.md
+++ b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_2.md
@@ -21,43 +21,43 @@ PROGRAM main
```
```fortran
- CALL velocityMeshFile%Initiate( FileName="./mesh_tri6.h5", MODE="READ" )
- CALL velocityMeshFile%Open()
- CALL velocityDomain%Initiate( velocityMeshFile, "")
- CALL velocityMeshFile%Deallocate()
+CALL velocityMeshFile%Initiate( FileName="./mesh_tri6.h5", MODE="READ" )
+CALL velocityMeshFile%Open()
+CALL velocityDomain%Initiate( velocityMeshFile, "")
+CALL velocityMeshFile%Deallocate()
```
```fortran
- CALL obj%InitiateNodeToNodeData( domain1=velocityDomain, &
- & domain2=velocityDomain, dim1=2, entityNum1=1, dim2=2, entityNum2=1)
- nodeToNode => obj%getNodeToNodePointer()
- velocityMesh => velocityDomain%getMeshPointer( 2, 1 )
- velocityNode => velocityDomain%getNodeCoordPointer()
+CALL obj%InitiateNodeToNodeData( domain1=velocityDomain, &
+ & domain2=velocityDomain, dim1=2, entityNum1=1, dim2=2, entityNum2=1)
+nodeToNode => obj%getNodeToNodePointer()
+velocityMesh => velocityDomain%getMeshPointer( 2, 1 )
+velocityNode => velocityDomain%getNodeCoordPointer()
```
Simple testing
```fortran
- DO ii = velocityMesh%minNptrs, velocityMesh%maxNptrs
- IF( .NOT. velocityMesh%isNodePresent( globalNode=ii ) ) CYCLE
- IF( nodeToNode( ii ) .EQ. 0 ) THEN
- CALL Display( "ERRRO: nodeToNode( "//TOSTRING(ii) // ") = 0 " )
- STOP
- END IF
- IF( ALL( velocityNode(:,velocityDomain%getLocalNodeNumber(ii)) &
- & .APPROXEQ. &
- & velocityNode(:, &
- & velocityDomain%getLocalNodeNumber(nodeToNode(ii)))) ) THEN
- !CALL Display( "velocity Node = " // TOSTRING(ii) &
- ! & // " matches with velocity Node = " // TOSTRING( nodeToNode(ii)))
- ELSE
- CALL Display( "ERROR: velocity Node = " // TOSTRING(ii) &
- & // " not matches with velocity Node = " &
- & // TOSTRING( nodeToNode(ii)))
- STOP
- END IF
- END DO
- CALL OK(.true.)
+DO ii = velocityMesh%minNptrs, velocityMesh%maxNptrs
+ IF( .NOT. velocityMesh%isNodePresent( globalNode=ii ) ) CYCLE
+ IF( nodeToNode( ii ) .EQ. 0 ) THEN
+ CALL Display( "ERRRO: nodeToNode( "//TOSTRING(ii) // ") = 0 " )
+ STOP
+ END IF
+ IF( ALL( velocityNode(:,velocityDomain%getLocalNodeNumber(ii)) &
+ & .APPROXEQ. &
+ & velocityNode(:, &
+ & velocityDomain%getLocalNodeNumber(nodeToNode(ii)))) ) THEN
+ !CALL Display( "velocity Node = " // TOSTRING(ii) &
+ ! & // " matches with velocity Node = " // TOSTRING( nodeToNode(ii)))
+ ELSE
+ CALL Display( "ERROR: velocity Node = " // TOSTRING(ii) &
+ & // " not matches with velocity Node = " &
+ & // TOSTRING( nodeToNode(ii)))
+ STOP
+ END IF
+END DO
+CALL OK(.true.)
```
cleaning up
diff --git a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_20.md b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_20.md
index 4284e7da..ee786a54 100644
--- a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_20.md
+++ b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_20.md
@@ -32,71 +32,70 @@ PROGRAM main
Open the mesh file for pressure and velocity domain
```fortran
- CALL velocityMeshFile%Initiate( FileName="./mesh_tri6.h5", MODE="READ" )
- CALL velocityMeshFile%Open()
- CALL pressureMeshFile%Initiate( FileName="./mesh_tri3.h5", MODE="READ" )
- CALL pressureMeshFile%Open()
+CALL velocityMeshFile%Initiate( FileName="./mesh_tri6.h5", MODE="READ" )
+CALL velocityMeshFile%Open()
+CALL pressureMeshFile%Initiate( FileName="./mesh_tri3.h5", MODE="READ" )
+CALL pressureMeshFile%Open()
```
Initiate the domain for pressure and velocity
```fortran
- CALL velocityDomain%Initiate( velocityMeshFile, "")
- CALL pressureDomain%Initiate( pressureMeshFile, "")
+CALL velocityDomain%Initiate( velocityMeshFile, "")
+CALL pressureDomain%Initiate( pressureMeshFile, "")
```
Initiate node to node data between velocity domain and pressure domain.
```fortran
- CALL obj%InitiateNodeToNodeData( domain1=pressureDomain, &
- & domain2=velocityDomain )
- CALL PASS("InitiateNodeToNodeData()")
+CALL obj%InitiateNodeToNodeData( domain1=pressureDomain, &
+ & domain2=velocityDomain )
+CALL PASS("InitiateNodeToNodeData()")
```
Now that node-to-node data is ready, let us initiate cell to cell data from pressure domain to velocity domain.
```fortran
- CALL obj%InitiateCellToCellData( domain1=pressureDomain, &
- & domain2=velocityDomain )
+CALL obj%InitiateCellToCellData( domain1=pressureDomain, &
+ & domain2=velocityDomain )
```
now let us run some tests to check the validity of the data. This is only for testing purpose, so you can ignore the forthcoming section.
```fortran
- cellToCell => obj%getCellToCellPointer()
- DO iel = pressureDomain%minElemNum, pressureDomain%maxElemNum
- IF (.NOT. pressureDomain%isElementPresent(iel)) CYCLE
- IF (cellToCell(iel) .EQ. 0) THEN
- pressureMesh => pressureDomain%getMeshPointer(globalElement=iel)
- refelem => pressureMesh%getRefElemPointer()
- IF (refelem%xidimension .EQ. pressureDomain%getNSD()) THEN
- CALL fail("CellToCell: error code 1")
- STOP
- END IF
- ELSE
- !! here i am checking if the cellToCell(iel) is present in
- !! in the pressure domain or not.
- !! If it is present then it should be a cell element.
- ii = cellToCell(iel)
- IF (.NOT. velocityDomain%isElementPresent(ii)) THEN
- CALL fail("CellToCell: error code 2")
- STOP
- ELSE
- velocityMesh => velocityDomain%getMeshPointer(globalElement=ii)
- velocityRefelem => velocityMesh%getRefElemPointer()
- pressureMesh => pressureDomain%getMeshPointer(globalElement=iel)
- pressureRefelem => pressureMesh%getRefElemPointer()
- IF (pressureRefelem%xidimension .NE. velocityRefelem%xidimension) THEN
- CALL fail("CellToCell: error code 3")
- STOP
- END IF
- END IF
+cellToCell => obj%getCellToCellPointer()
+DO iel = pressureDomain%minElemNum, pressureDomain%maxElemNum
+ IF (.NOT. pressureDomain%isElementPresent(iel)) CYCLE
+ IF (cellToCell(iel) .EQ. 0) THEN
+ pressureMesh => pressureDomain%getMeshPointer(globalElement=iel)
+ refelem => pressureMesh%getRefElemPointer()
+ IF (refelem%xidimension .EQ. pressureDomain%getNSD()) THEN
+ CALL fail("CellToCell: error code 1")
+ STOP
+ END IF
+ ELSE
+ !! here i am checking if the cellToCell(iel) is present in
+ !! in the pressure domain or not.
+ !! If it is present then it should be a cell element.
+ ii = cellToCell(iel)
+ IF (.NOT. velocityDomain%isElementPresent(ii)) THEN
+ CALL fail("CellToCell: error code 2")
+ STOP
+ ELSE
+ velocityMesh => velocityDomain%getMeshPointer(globalElement=ii)
+ velocityRefelem => velocityMesh%getRefElemPointer()
+ pressureMesh => pressureDomain%getMeshPointer(globalElement=iel)
+ pressureRefelem => pressureMesh%getRefElemPointer()
+ IF (pressureRefelem%xidimension .NE. velocityRefelem%xidimension) THEN
+ CALL fail("CellToCell: error code 3")
+ STOP
END IF
- END DO
- CALL PASS("InitiateCellToCellData()")
+ END IF
+ END IF
+END DO
+CALL PASS("InitiateCellToCellData()")
```
-
```fortran
CALL pressureMeshFile%Deallocate()
CALL velocityMeshFile%Deallocate()
diff --git a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_21.md b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_21.md
index 3297f2a0..c57d76b1 100644
--- a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_21.md
+++ b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_21.md
@@ -25,29 +25,29 @@ PROGRAM main
Open the mesh file for cellDomain
```fortran
- CALL cellDomainFile%Initiate( FileName=cellDomainFileName, MODE="READ" )
- CALL cellDomainFile%Open()
+CALL cellDomainFile%Initiate( FileName=cellDomainFileName, MODE="READ" )
+CALL cellDomainFile%Open()
```
Initiate the cellDomain
```fortran
- CALL cellDomain%Initiate( cellDomainFile, "")
+CALL cellDomain%Initiate( cellDomainFile, "")
```
Make a pointer to cellMesh and facet mesh
```fortran
- cellMesh => cellDomain%getMeshPointer( dim=2, entityNum=1)
- facetMesh => cellDomain%getMeshPointer( dim=1, entityNum=2 )
+cellMesh => cellDomain%getMeshPointer( dim=2, entityNum=1)
+facetMesh => cellDomain%getMeshPointer( dim=1, entityNum=2 )
```
Initiate FacetTOCellData.
```fortran
- CALL obj%InitiateFacetToCellData( facetMesh=facetMesh, &
- & cellMesh=cellMesh, dim=2, entityNum=1, isMaster=.TRUE. )
- CALL obj%DisplayFacetToCellData( msg="facetToCell=" )
+CALL obj%InitiateFacetToCellData( facetMesh=facetMesh, &
+ & cellMesh=cellMesh, dim=2, entityNum=1, isMaster=.TRUE. )
+CALL obj%DisplayFacetToCellData( msg="facetToCell=" )
```
```fortran
diff --git a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_22.md b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_22.md
index 3eb2bbe3..30dc29ff 100644
--- a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_22.md
+++ b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_22.md
@@ -4,7 +4,6 @@ The Cellmesh is shown below.
-
Importing modules and variables
```fortran
@@ -25,28 +24,28 @@ PROGRAM main
Open the mesh file for cellDomain
```fortran
- CALL cellDomainFile%Initiate( FileName=cellDomainFileName, MODE="READ" )
- CALL cellDomainFile%Open()
+CALL cellDomainFile%Initiate( FileName=cellDomainFileName, MODE="READ" )
+CALL cellDomainFile%Open()
```
Initiate the cellDomain
```fortran
- CALL cellDomain%Initiate( cellDomainFile, "")
+CALL cellDomain%Initiate( cellDomainFile, "")
```
Make a pointer to cellMesh and facet mesh
```fortran
- facetMesh => cellDomain%getMeshPointer( dim=1, entityNum=2 )
+facetMesh => cellDomain%getMeshPointer( dim=1, entityNum=2 )
```
Initiate FacetTOCellData.
```fortran
- CALL obj%InitiateFacetToCellData( facetMesh=facetMesh, &
- & cellDomain=cellDomain )
- CALL obj%DisplayFacetToCellData( msg="facetToCell=" )
+CALL obj%InitiateFacetToCellData( facetMesh=facetMesh, &
+ & cellDomain=cellDomain )
+CALL obj%DisplayFacetToCellData( msg="facetToCell=" )
```
```fortran
diff --git a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_23.md b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_23.md
index d5af8ff0..7e90f93f 100644
--- a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_23.md
+++ b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_23.md
@@ -25,32 +25,31 @@ PROGRAM main
Open the mesh file for cellDomain
```fortran
- CALL cellDomainFile%Initiate( FileName=cellDomainFileName, MODE="READ" )
- CALL cellDomainFile%Open()
+CALL cellDomainFile%Initiate( FileName=cellDomainFileName, MODE="READ" )
+CALL cellDomainFile%Open()
```
Initiate the cellDomain
```fortran
- CALL cellDomain%Initiate( cellDomainFile, "")
+CALL cellDomain%Initiate( cellDomainFile, "")
```
Make a pointer to cellMesh and facet mesh
```fortran
- cellMesh => cellDomain%getMeshPointer( dim=2, entityNum=1)
- facetMesh => cellDomain%getMeshPointer( dim=1, entityNum=7 )
+cellMesh => cellDomain%getMeshPointer( dim=2, entityNum=1)
+facetMesh => cellDomain%getMeshPointer( dim=1, entityNum=7 )
```
Initiate FacetTOCellData.
```fortran
- CALL obj%InitiateFacetToCellData( facetMesh=facetMesh, &
- & cellMesh=cellMesh, dim=2, entityNum=1, isMaster=.TRUE. )
- CALL obj%DisplayFacetToCellData( msg="facetToCell=" )
+CALL obj%InitiateFacetToCellData( facetMesh=facetMesh, &
+ & cellMesh=cellMesh, dim=2, entityNum=1, isMaster=.TRUE. )
+CALL obj%DisplayFacetToCellData( msg="facetToCell=" )
```
-
```fortran
CALL cellDomainFile%Deallocate()
CALL cellDomain%Deallocate()
diff --git a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_24.md b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_24.md
index 4e73a355..d2fcc46e 100644
--- a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_24.md
+++ b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_24.md
@@ -25,39 +25,37 @@ PROGRAM main
Open the mesh file for cellDomain
```fortran
- CALL cellDomainFile%Initiate( FileName=cellDomainFileName, MODE="READ" )
- CALL cellDomainFile%Open()
+CALL cellDomainFile%Initiate( FileName=cellDomainFileName, MODE="READ" )
+CALL cellDomainFile%Open()
```
Initiate the cellDomain
```fortran
- CALL cellDomain%Initiate( cellDomainFile, "")
+CALL cellDomain%Initiate( cellDomainFile, "")
```
Make a pointer to cellMesh and facet mesh
```fortran
- facetMesh => cellDomain%getMeshPointer( dim=1, entityNum=7 )
+facetMesh => cellDomain%getMeshPointer( dim=1, entityNum=7 )
```
Initiate FacetTOCellData.
```fortran
- CALL obj%InitiateFacetToCellData( &
- & facetMesh=facetMesh, &
- & cellDomain=cellDomain)
- !CALL obj%DisplayFacetToCellData( msg="facetToCell=" )
+CALL obj%InitiateFacetToCellData( &
+ & facetMesh=facetMesh, &
+ & cellDomain=cellDomain)
+!CALL obj%DisplayFacetToCellData( msg="facetToCell=" )
```
-
```fortran
CALL OK(obj%MasterCellNumber(localElement=1) .eq. 46, "masterCellNumber ")
CALL OK(ALL(obj%MasterCellNumber(localElement=[1,3]) .eq. [46,27]), &
& "masterCellNumber ")
```
-
```fortran
CALL OK(ALL(obj%MasterDimTag(localElement=1) .eq. [2,1]), "masterDimTag ")
CALL OK( &
@@ -66,7 +64,6 @@ CALL OK( &
& "masterDimTag ")
```
-
```fortran
CALL OK(ALL(obj%SlaveDimTag(localElement=1) .eq. [2,2]), "slaveDimTag ")
CALL OK( &
@@ -75,14 +72,12 @@ CALL OK( &
& "slaveDimTag ")
```
-
```fortran
CALL OK(obj%SlaveCellNumber(localElement=1) .eq. 59, "slaveCellNumber ")
CALL OK(ALL(obj%SlaveCellNumber(localElement=[1,3]) .eq. [59, 55]), &
& "slaveCellNumber ")
```
-
```fortran
CALL OK(ALL(obj%SlaveDimTag(localElement=1) .eq. [2,2]), "slaveDimTag ")
CALL OK( &
@@ -91,7 +86,6 @@ CALL OK( &
& "slaveDimTag ")
```
-
```fortran
CALL OK(obj%MasterFacetLocalID(localElement=1) .eq. 1, "masterFacetLocalID ")
CALL OK( &
@@ -100,7 +94,6 @@ CALL OK( &
& "masterFacetLocalID ")
```
-
```fortran
CALL OK(obj%SlaveFacetLocalID(localElement=1) .eq. 1, "slaveFacetLocalID ")
CALL OK( &
@@ -109,7 +102,6 @@ CALL OK( &
& "slaveFacetLocalID ")
```
-
```fortran
CALL OK(obj%GlobalFacetID(localElement=1) .eq. 23, "globalFacetID ")
CALL OK( &
@@ -118,7 +110,6 @@ CALL OK( &
& "globalFacetID ")
```
-
```fortran
CALL cellDomainFile%Deallocate()
CALL cellDomain%Deallocate()
diff --git a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_3.md b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_3.md
index 10b3c533..2147dd13 100644
--- a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_3.md
+++ b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_3.md
@@ -27,48 +27,48 @@ PROGRAM main
```
```fortran
- CALL velocityMeshFile%Initiate( FileName="./mesh_tri6.h5", MODE="READ" )
- CALL velocityMeshFile%Open()
- CALL pressureMeshFile%Initiate( FileName="./mesh_tri3.h5", MODE="READ" )
- CALL pressureMeshFile%Open()
+CALL velocityMeshFile%Initiate( FileName="./mesh_tri6.h5", MODE="READ" )
+CALL velocityMeshFile%Open()
+CALL pressureMeshFile%Initiate( FileName="./mesh_tri3.h5", MODE="READ" )
+CALL pressureMeshFile%Open()
```
```fortran
- CALL velocityDomain%Initiate( velocityMeshFile, "")
- CALL velocityMeshFile%Deallocate()
- CALL pressureDomain%Initiate( pressureMeshFile, "")
- CALL pressureMeshFile%Deallocate()
+CALL velocityDomain%Initiate( velocityMeshFile, "")
+CALL velocityMeshFile%Deallocate()
+CALL pressureDomain%Initiate( pressureMeshFile, "")
+CALL pressureMeshFile%Deallocate()
```
```fortran
- CALL obj%InitiateNodeToNodeData( domain1=velocityDomain, &
- & domain2=pressureDomain, dim1=2, entityNum1=1, dim2=2, entityNum2=1)
- nodeToNode => obj%getNodeToNodePointer()
- velocityMesh => velocityDomain%getMeshPointer( 2, 1 )
- pressureMesh => pressureDomain%getMeshPointer( 2, 1 )
- pressureNode => pressureDomain%getNodeCoordPointer()
- velocityNode => velocityDomain%getNodeCoordPointer()
+CALL obj%InitiateNodeToNodeData( domain1=velocityDomain, &
+ & domain2=pressureDomain, dim1=2, entityNum1=1, dim2=2, entityNum2=1)
+nodeToNode => obj%getNodeToNodePointer()
+velocityMesh => velocityDomain%getMeshPointer( 2, 1 )
+pressureMesh => pressureDomain%getMeshPointer( 2, 1 )
+pressureNode => pressureDomain%getNodeCoordPointer()
+velocityNode => velocityDomain%getNodeCoordPointer()
```
running some simple tests.
```fortran
- DO ii = velocityMesh%minNptrs, velocityMesh%maxNptrs
- IF( .NOT. velocityMesh%isNodePresent( globalNode=ii ) ) CYCLE
- IF( nodeToNode( ii ) .EQ. 0 ) CYCLE
- IF( ALL( velocityNode(:,velocityDomain%getLocalNodeNumber(ii)) &
- & .APPROXEQ. pressureNode(:, &
- & pressureDomain%getLocalNodeNumber(nodeToNode(ii)))) ) THEN
- !CALL Display( "velocity Node = " // TOSTRING(ii) &
- ! & // " matches with pressure Node = " // TOSTRING( nodeToNode(ii)))
- ELSE
- CALL Display( "ERROR: velocity Node = " // TOSTRING(ii) &
- & // " not matches with pressure Node = " &
- & // TOSTRING( nodeToNode(ii)))
- STOP
- END IF
- END DO
- CALL OK(.true.)
+DO ii = velocityMesh%minNptrs, velocityMesh%maxNptrs
+ IF( .NOT. velocityMesh%isNodePresent( globalNode=ii ) ) CYCLE
+ IF( nodeToNode( ii ) .EQ. 0 ) CYCLE
+ IF( ALL( velocityNode(:,velocityDomain%getLocalNodeNumber(ii)) &
+ & .APPROXEQ. pressureNode(:, &
+ & pressureDomain%getLocalNodeNumber(nodeToNode(ii)))) ) THEN
+ !CALL Display( "velocity Node = " // TOSTRING(ii) &
+ ! & // " matches with pressure Node = " // TOSTRING( nodeToNode(ii)))
+ ELSE
+ CALL Display( "ERROR: velocity Node = " // TOSTRING(ii) &
+ & // " not matches with pressure Node = " &
+ & // TOSTRING( nodeToNode(ii)))
+ STOP
+ END IF
+END DO
+CALL OK(.true.)
```
Cleanup
diff --git a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_4.md b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_4.md
index f45d7be7..dbbd8b95 100644
--- a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_4.md
+++ b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_4.md
@@ -28,49 +28,49 @@ PROGRAM main
```
```fortran
- CALL velocityMeshFile%Initiate( FileName="./mesh_tri6.h5", MODE="READ" )
- CALL velocityMeshFile%Open()
- CALL pressureMeshFile%Initiate( FileName="./mesh_tri3.h5", MODE="READ" )
- CALL pressureMeshFile%Open()
+CALL velocityMeshFile%Initiate( FileName="./mesh_tri6.h5", MODE="READ" )
+CALL velocityMeshFile%Open()
+CALL pressureMeshFile%Initiate( FileName="./mesh_tri3.h5", MODE="READ" )
+CALL pressureMeshFile%Open()
```
```fortran
- CALL velocityDomain%Initiate( velocityMeshFile, "")
- CALL velocityMeshFile%Deallocate()
- CALL pressureDomain%Initiate( pressureMeshFile, "")
- CALL pressureMeshFile%Deallocate()
+CALL velocityDomain%Initiate( velocityMeshFile, "")
+CALL velocityMeshFile%Deallocate()
+CALL pressureDomain%Initiate( pressureMeshFile, "")
+CALL pressureMeshFile%Deallocate()
```
```fortran
- CALL obj%InitiateNodeToNodeData( domain1=velocityDomain, &
- & domain2=pressureDomain, dim1=dim1, entityNum1=entityNum1, &
- & dim2=dim2, entityNum2=entityNum2 )
- nodeToNode => obj%getNodeToNodePointer()
- velocityMesh => velocityDomain%getMeshPointer( dim1, entityNum1 )
- pressureMesh => pressureDomain%getMeshPointer( dim2, entityNum2 )
- pressureNode => pressureDomain%getNodeCoordPointer()
- velocityNode => velocityDomain%getNodeCoordPointer()
+CALL obj%InitiateNodeToNodeData( domain1=velocityDomain, &
+ & domain2=pressureDomain, dim1=dim1, entityNum1=entityNum1, &
+ & dim2=dim2, entityNum2=entityNum2 )
+nodeToNode => obj%getNodeToNodePointer()
+velocityMesh => velocityDomain%getMeshPointer( dim1, entityNum1 )
+pressureMesh => pressureDomain%getMeshPointer( dim2, entityNum2 )
+pressureNode => pressureDomain%getNodeCoordPointer()
+velocityNode => velocityDomain%getNodeCoordPointer()
```
Simple testing
```fortran
- DO ii = velocityMesh%minNptrs, velocityMesh%maxNptrs
- IF( .NOT. velocityMesh%isNodePresent( globalNode=ii ) ) CYCLE
- IF( nodeToNode( ii ) .EQ. 0 ) CYCLE
- IF( ALL( velocityNode(:,velocityDomain%getLocalNodeNumber(ii)) &
- & .APPROXEQ. pressureNode(:, &
- & pressureDomain%getLocalNodeNumber(nodeToNode(ii)))) ) THEN
- !CALL Display( "velocity Node = " // TOSTRING(ii) &
- ! & // " matches with pressure Node = " // TOSTRING( nodeToNode(ii)))
- ELSE
- CALL Display( "ERROR: velocity Node = " // TOSTRING(ii) &
- & // " not matches with pressure Node = " &
- & // TOSTRING( nodeToNode(ii)))
- STOP
- END IF
- END DO
- call ok(.true.)
+DO ii = velocityMesh%minNptrs, velocityMesh%maxNptrs
+ IF( .NOT. velocityMesh%isNodePresent( globalNode=ii ) ) CYCLE
+ IF( nodeToNode( ii ) .EQ. 0 ) CYCLE
+ IF( ALL( velocityNode(:,velocityDomain%getLocalNodeNumber(ii)) &
+ & .APPROXEQ. pressureNode(:, &
+ & pressureDomain%getLocalNodeNumber(nodeToNode(ii)))) ) THEN
+ !CALL Display( "velocity Node = " // TOSTRING(ii) &
+ ! & // " matches with pressure Node = " // TOSTRING( nodeToNode(ii)))
+ ELSE
+ CALL Display( "ERROR: velocity Node = " // TOSTRING(ii) &
+ & // " not matches with pressure Node = " &
+ & // TOSTRING( nodeToNode(ii)))
+ STOP
+ END IF
+END DO
+call ok(.true.)
```
Cleanup
diff --git a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_5.md b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_5.md
index b3c15fcd..53bcd880 100644
--- a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_5.md
+++ b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_5.md
@@ -1,4 +1,3 @@
-
In this example we will generate node to node-connectivity information between part of velocity-domain (2,1) and part of pressure-Domain (1,2).
Pressure domain consists Triangle3 elements as shown below.
@@ -29,49 +28,49 @@ PROGRAM main
```
```fortran
- CALL velocityMeshFile%Initiate( FileName="./mesh_tri6.h5", MODE="READ" )
- CALL velocityMeshFile%Open()
- CALL pressureMeshFile%Initiate( FileName="./mesh_tri3.h5", MODE="READ" )
- CALL pressureMeshFile%Open()
+CALL velocityMeshFile%Initiate( FileName="./mesh_tri6.h5", MODE="READ" )
+CALL velocityMeshFile%Open()
+CALL pressureMeshFile%Initiate( FileName="./mesh_tri3.h5", MODE="READ" )
+CALL pressureMeshFile%Open()
```
```fortran
- CALL velocityDomain%Initiate( velocityMeshFile, "")
- CALL velocityMeshFile%Deallocate()
- CALL pressureDomain%Initiate( pressureMeshFile, "")
- CALL pressureMeshFile%Deallocate()
+CALL velocityDomain%Initiate( velocityMeshFile, "")
+CALL velocityMeshFile%Deallocate()
+CALL pressureDomain%Initiate( pressureMeshFile, "")
+CALL pressureMeshFile%Deallocate()
```
```fortran
- CALL obj%InitiateNodeToNodeData( domain1=velocityDomain, &
- & domain2=pressureDomain, dim1=dim1, entityNum1=entityNum1, &
- & dim2=dim2, entityNum2=entityNum2 )
- nodeToNode => obj%getNodeToNodePointer()
- velocityMesh => velocityDomain%getMeshPointer( dim1, entityNum1 )
- pressureMesh => pressureDomain%getMeshPointer( dim2, entityNum2 )
- pressureNode => pressureDomain%getNodeCoordPointer()
- velocityNode => velocityDomain%getNodeCoordPointer()
+CALL obj%InitiateNodeToNodeData( domain1=velocityDomain, &
+ & domain2=pressureDomain, dim1=dim1, entityNum1=entityNum1, &
+ & dim2=dim2, entityNum2=entityNum2 )
+nodeToNode => obj%getNodeToNodePointer()
+velocityMesh => velocityDomain%getMeshPointer( dim1, entityNum1 )
+pressureMesh => pressureDomain%getMeshPointer( dim2, entityNum2 )
+pressureNode => pressureDomain%getNodeCoordPointer()
+velocityNode => velocityDomain%getNodeCoordPointer()
```
Simple testing
```fortran
- DO ii = velocityMesh%minNptrs, velocityMesh%maxNptrs
- IF( .NOT. velocityMesh%isNodePresent( globalNode=ii ) ) CYCLE
- IF( nodeToNode( ii ) .EQ. 0 ) CYCLE
- IF( ALL( velocityNode(:,velocityDomain%getLocalNodeNumber(ii)) &
- & .APPROXEQ. pressureNode(:, &
- & pressureDomain%getLocalNodeNumber(nodeToNode(ii)))) ) THEN
- !CALL Display( "velocity Node = " // TOSTRING(ii) &
- ! & // " matches with pressure Node = " // TOSTRING( nodeToNode(ii)))
- ELSE
- CALL Display( "ERROR: velocity Node = " // TOSTRING(ii) &
- & // " not matches with pressure Node = " &
- & // TOSTRING( nodeToNode(ii)))
- STOP
- END IF
- END DO
- call ok(.true.)
+DO ii = velocityMesh%minNptrs, velocityMesh%maxNptrs
+ IF( .NOT. velocityMesh%isNodePresent( globalNode=ii ) ) CYCLE
+ IF( nodeToNode( ii ) .EQ. 0 ) CYCLE
+ IF( ALL( velocityNode(:,velocityDomain%getLocalNodeNumber(ii)) &
+ & .APPROXEQ. pressureNode(:, &
+ & pressureDomain%getLocalNodeNumber(nodeToNode(ii)))) ) THEN
+ !CALL Display( "velocity Node = " // TOSTRING(ii) &
+ ! & // " matches with pressure Node = " // TOSTRING( nodeToNode(ii)))
+ ELSE
+ CALL Display( "ERROR: velocity Node = " // TOSTRING(ii) &
+ & // " not matches with pressure Node = " &
+ & // TOSTRING( nodeToNode(ii)))
+ STOP
+ END IF
+END DO
+call ok(.true.)
```
cleanup
diff --git a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_6.md b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_6.md
index 6c797ea5..e7d219a6 100644
--- a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_6.md
+++ b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_6.md
@@ -8,7 +8,7 @@ Velocity domain consists Triangle6 elements as shown below.
-``` fortran
+```fortran
PROGRAM main
USE easifemBase
USE easifemClasses
@@ -28,49 +28,49 @@ PROGRAM main
```
```fortran
- CALL velocityMeshFile%Initiate( FileName="./mesh_tri6.h5", MODE="READ" )
- CALL velocityMeshFile%Open()
- CALL pressureMeshFile%Initiate( FileName="./mesh_tri3.h5", MODE="READ" )
- CALL pressureMeshFile%Open()
+CALL velocityMeshFile%Initiate( FileName="./mesh_tri6.h5", MODE="READ" )
+CALL velocityMeshFile%Open()
+CALL pressureMeshFile%Initiate( FileName="./mesh_tri3.h5", MODE="READ" )
+CALL pressureMeshFile%Open()
```
```fortran
- CALL velocityDomain%Initiate( velocityMeshFile, "")
- CALL velocityMeshFile%Deallocate()
- CALL pressureDomain%Initiate( pressureMeshFile, "")
- CALL pressureMeshFile%Deallocate()
+CALL velocityDomain%Initiate( velocityMeshFile, "")
+CALL velocityMeshFile%Deallocate()
+CALL pressureDomain%Initiate( pressureMeshFile, "")
+CALL pressureMeshFile%Deallocate()
```
```fortran
- CALL obj%InitiateNodeToNodeData( domain1=velocityDomain, &
- & domain2=pressureDomain, dim1=dim1, entityNum1=entityNum1, &
- & dim2=dim2, entityNum2=entityNum2 )
- nodeToNode => obj%getNodeToNodePointer()
- velocityMesh => velocityDomain%getMeshPointer( dim1, entityNum1 )
- pressureMesh => pressureDomain%getMeshPointer( dim2, entityNum2 )
- pressureNode => pressureDomain%getNodeCoordPointer()
- velocityNode => velocityDomain%getNodeCoordPointer()
+CALL obj%InitiateNodeToNodeData( domain1=velocityDomain, &
+ & domain2=pressureDomain, dim1=dim1, entityNum1=entityNum1, &
+ & dim2=dim2, entityNum2=entityNum2 )
+nodeToNode => obj%getNodeToNodePointer()
+velocityMesh => velocityDomain%getMeshPointer( dim1, entityNum1 )
+pressureMesh => pressureDomain%getMeshPointer( dim2, entityNum2 )
+pressureNode => pressureDomain%getNodeCoordPointer()
+velocityNode => velocityDomain%getNodeCoordPointer()
```
Simple testing
```fortran
- DO ii = velocityMesh%minNptrs, velocityMesh%maxNptrs
- IF( .NOT. velocityMesh%isNodePresent( globalNode=ii ) ) CYCLE
- IF( nodeToNode( ii ) .EQ. 0 ) CYCLE
- IF( ALL( velocityNode(:,velocityDomain%getLocalNodeNumber(ii)) &
- & .APPROXEQ. pressureNode(:, &
- & pressureDomain%getLocalNodeNumber(nodeToNode(ii)))) ) THEN
- !CALL Display( "velocity Node = " // TOSTRING(ii) &
- ! & // " matches with pressure Node = " // TOSTRING( nodeToNode(ii)))
- ELSE
- CALL Display( "ERROR: velocity Node = " // TOSTRING(ii) &
- & // " not matches with pressure Node = " &
- & // TOSTRING( nodeToNode(ii)))
- STOP
- END IF
- END DO
- call ok(.true.)
+DO ii = velocityMesh%minNptrs, velocityMesh%maxNptrs
+ IF( .NOT. velocityMesh%isNodePresent( globalNode=ii ) ) CYCLE
+ IF( nodeToNode( ii ) .EQ. 0 ) CYCLE
+ IF( ALL( velocityNode(:,velocityDomain%getLocalNodeNumber(ii)) &
+ & .APPROXEQ. pressureNode(:, &
+ & pressureDomain%getLocalNodeNumber(nodeToNode(ii)))) ) THEN
+ !CALL Display( "velocity Node = " // TOSTRING(ii) &
+ ! & // " matches with pressure Node = " // TOSTRING( nodeToNode(ii)))
+ ELSE
+ CALL Display( "ERROR: velocity Node = " // TOSTRING(ii) &
+ & // " not matches with pressure Node = " &
+ & // TOSTRING( nodeToNode(ii)))
+ STOP
+ END IF
+END DO
+call ok(.true.)
```
clean up
diff --git a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_7.md b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_7.md
index 16220c1a..fa063160 100644
--- a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_7.md
+++ b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_7.md
@@ -8,8 +8,7 @@ Velocity domain consists Triangle6 elements as shown below.
-
-``` fortran
+```fortran
PROGRAM main
USE easifemBase
USE easifemClasses
@@ -28,52 +27,49 @@ PROGRAM main
INTEGER( I4B ) :: ii
```
-
```fortran
- CALL velocityMeshFile%Initiate( FileName="./mesh_tri6.h5", MODE="READ" )
- CALL velocityMeshFile%Open()
- CALL pressureMeshFile%Initiate( FileName="./mesh_tri3.h5", MODE="READ" )
- CALL pressureMeshFile%Open()
+CALL velocityMeshFile%Initiate( FileName="./mesh_tri6.h5", MODE="READ" )
+CALL velocityMeshFile%Open()
+CALL pressureMeshFile%Initiate( FileName="./mesh_tri3.h5", MODE="READ" )
+CALL pressureMeshFile%Open()
```
-
```fortran
- CALL velocityDomain%Initiate( velocityMeshFile, "")
- CALL velocityMeshFile%Deallocate()
- CALL pressureDomain%Initiate( pressureMeshFile, "")
- CALL pressureMeshFile%Deallocate()
+CALL velocityDomain%Initiate( velocityMeshFile, "")
+CALL velocityMeshFile%Deallocate()
+CALL pressureDomain%Initiate( pressureMeshFile, "")
+CALL pressureMeshFile%Deallocate()
```
-
```fortran
- CALL obj%InitiateNodeToNodeData( domain1=velocityDomain, &
- & domain2=pressureDomain, dim1=dim1, entityNum1=entityNum1, &
- & dim2=dim2, entityNum2=entityNum2 )
- nodeToNode => obj%getNodeToNodePointer()
- velocityMesh => velocityDomain%getMeshPointer( dim1, entityNum1 )
- pressureMesh => pressureDomain%getMeshPointer( dim2, entityNum2 )
- pressureNode => pressureDomain%getNodeCoordPointer()
- velocityNode => velocityDomain%getNodeCoordPointer()
+CALL obj%InitiateNodeToNodeData( domain1=velocityDomain, &
+ & domain2=pressureDomain, dim1=dim1, entityNum1=entityNum1, &
+ & dim2=dim2, entityNum2=entityNum2 )
+nodeToNode => obj%getNodeToNodePointer()
+velocityMesh => velocityDomain%getMeshPointer( dim1, entityNum1 )
+pressureMesh => pressureDomain%getMeshPointer( dim2, entityNum2 )
+pressureNode => pressureDomain%getNodeCoordPointer()
+velocityNode => velocityDomain%getNodeCoordPointer()
```
Simple testing
```fortran
- DO ii = velocityMesh%minNptrs, velocityMesh%maxNptrs
- IF( .NOT. velocityMesh%isNodePresent( globalNode=ii ) ) CYCLE
- IF( nodeToNode( ii ) .EQ. 0 ) CYCLE
- IF( ALL( velocityNode(:,velocityDomain%getLocalNodeNumber(ii)) &
- & .APPROXEQ. pressureNode(:, &
- & pressureDomain%getLocalNodeNumber(nodeToNode(ii)))) ) THEN
- CALL Display( "velocity Node = " // TOSTRING(ii) &
- & // " matches with pressure Node = " // TOSTRING( nodeToNode(ii)))
- ELSE
- CALL Display( "ERROR: velocity Node = " // TOSTRING(ii) &
- & // " not matches with pressure Node = " &
- & // TOSTRING( nodeToNode(ii)))
- STOP
- END IF
- END DO
+DO ii = velocityMesh%minNptrs, velocityMesh%maxNptrs
+ IF( .NOT. velocityMesh%isNodePresent( globalNode=ii ) ) CYCLE
+ IF( nodeToNode( ii ) .EQ. 0 ) CYCLE
+ IF( ALL( velocityNode(:,velocityDomain%getLocalNodeNumber(ii)) &
+ & .APPROXEQ. pressureNode(:, &
+ & pressureDomain%getLocalNodeNumber(nodeToNode(ii)))) ) THEN
+ CALL Display( "velocity Node = " // TOSTRING(ii) &
+ & // " matches with pressure Node = " // TOSTRING( nodeToNode(ii)))
+ ELSE
+ CALL Display( "ERROR: velocity Node = " // TOSTRING(ii) &
+ & // " not matches with pressure Node = " &
+ & // TOSTRING( nodeToNode(ii)))
+ STOP
+ END IF
+END DO
```
cleanup
diff --git a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_8.md b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_8.md
index 11892b96..2194d8b8 100644
--- a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_8.md
+++ b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_8.md
@@ -8,7 +8,7 @@ Velocity domain consists Triangle6 elements as shown below.
-``` fortran
+```fortran
PROGRAM main
USE easifemBase
USE easifemClasses
@@ -27,51 +27,49 @@ PROGRAM main
INTEGER( I4B ) :: ii
```
-
```fortran
- CALL velocityMeshFile%Initiate( FileName="./mesh_tri6.h5", MODE="READ" )
- CALL velocityMeshFile%Open()
- CALL pressureMeshFile%Initiate( FileName="./mesh_tri3.h5", MODE="READ" )
- CALL pressureMeshFile%Open()
+CALL velocityMeshFile%Initiate( FileName="./mesh_tri6.h5", MODE="READ" )
+CALL velocityMeshFile%Open()
+CALL pressureMeshFile%Initiate( FileName="./mesh_tri3.h5", MODE="READ" )
+CALL pressureMeshFile%Open()
```
```fortran
- CALL velocityDomain%Initiate( velocityMeshFile, "")
- CALL velocityMeshFile%Deallocate()
- CALL pressureDomain%Initiate( pressureMeshFile, "")
- CALL pressureMeshFile%Deallocate()
+CALL velocityDomain%Initiate( velocityMeshFile, "")
+CALL velocityMeshFile%Deallocate()
+CALL pressureDomain%Initiate( pressureMeshFile, "")
+CALL pressureMeshFile%Deallocate()
```
-
```fortran
- CALL obj%InitiateNodeToNodeData( domain2=velocityDomain, &
- & domain1=pressureDomain, dim1=dim1, entityNum1=entityNum1, &
- & dim2=dim2, entityNum2=entityNum2 )
- nodeToNode => obj%getNodeToNodePointer()
- velocityMesh => velocityDomain%getMeshPointer( dim1, entityNum1 )
- pressureMesh => pressureDomain%getMeshPointer( dim2, entityNum2 )
- pressureNode => pressureDomain%getNodeCoordPointer()
- velocityNode => velocityDomain%getNodeCoordPointer()
+CALL obj%InitiateNodeToNodeData( domain2=velocityDomain, &
+ & domain1=pressureDomain, dim1=dim1, entityNum1=entityNum1, &
+ & dim2=dim2, entityNum2=entityNum2 )
+nodeToNode => obj%getNodeToNodePointer()
+velocityMesh => velocityDomain%getMeshPointer( dim1, entityNum1 )
+pressureMesh => pressureDomain%getMeshPointer( dim2, entityNum2 )
+pressureNode => pressureDomain%getNodeCoordPointer()
+velocityNode => velocityDomain%getNodeCoordPointer()
```
Simple testing
```fortran
- DO ii = pressureMesh%minNptrs, pressureMesh%maxNptrs
- IF( .NOT. pressureMesh%isNodePresent( globalNode=ii ) ) CYCLE
- IF( nodeToNode( ii ) .EQ. 0 ) CYCLE
- IF( ALL( pressureNode(:,pressureDomain%getLocalNodeNumber(ii)) &
- & .APPROXEQ. velocityNode(:, &
- & velocityDomain%getLocalNodeNumber(nodeToNode(ii)))) ) THEN
- CALL Display( "pressure Node = " // TOSTRING(ii) &
- & // " matches with velocity Node = " // TOSTRING( nodeToNode(ii)))
- ELSE
- CALL Display( "ERROR: pressure Node = " // TOSTRING(ii) &
- & // " not matches with velocity Node = " &
- & // TOSTRING( nodeToNode(ii)))
- STOP
- END IF
- END DO
+DO ii = pressureMesh%minNptrs, pressureMesh%maxNptrs
+ IF( .NOT. pressureMesh%isNodePresent( globalNode=ii ) ) CYCLE
+ IF( nodeToNode( ii ) .EQ. 0 ) CYCLE
+ IF( ALL( pressureNode(:,pressureDomain%getLocalNodeNumber(ii)) &
+ & .APPROXEQ. velocityNode(:, &
+ & velocityDomain%getLocalNodeNumber(nodeToNode(ii)))) ) THEN
+ CALL Display( "pressure Node = " // TOSTRING(ii) &
+ & // " matches with velocity Node = " // TOSTRING( nodeToNode(ii)))
+ ELSE
+ CALL Display( "ERROR: pressure Node = " // TOSTRING(ii) &
+ & // " not matches with velocity Node = " &
+ & // TOSTRING( nodeToNode(ii)))
+ STOP
+ END IF
+END DO
```
Cleanup
diff --git a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_9.md b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_9.md
index ab35d71c..5f2bbabb 100644
--- a/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_9.md
+++ b/docs/docs-api/DomainConnectivity/examples/_DomainConnectivity_test_9.md
@@ -1,4 +1,4 @@
-In this example we will generate node to node connectivity information between velocity-domain and pressure-Domain.
+In this example we will generate node to node connectivity information between velocity-domain and pressure-Domain.
Pressure domain consists Triangle3 elements as shown below.
@@ -8,8 +8,7 @@ Velocity domain consists Triangle6 elements as shown below.
-
-``` fortran
+```fortran
PROGRAM main
USE easifemBase
USE easifemClasses
@@ -25,48 +24,46 @@ PROGRAM main
INTEGER( I4B ) :: ii
```
-
```fortran
- CALL velocityMeshFile%Initiate( FileName="./mesh_tri6.h5", MODE="READ" )
- CALL velocityMeshFile%Open()
- CALL pressureMeshFile%Initiate( FileName="./mesh_tri3.h5", MODE="READ" )
- CALL pressureMeshFile%Open()
+CALL velocityMeshFile%Initiate( FileName="./mesh_tri6.h5", MODE="READ" )
+CALL velocityMeshFile%Open()
+CALL pressureMeshFile%Initiate( FileName="./mesh_tri3.h5", MODE="READ" )
+CALL pressureMeshFile%Open()
```
```fortran
- CALL velocityDomain%Initiate( velocityMeshFile, "")
- CALL velocityMeshFile%Deallocate()
- CALL pressureDomain%Initiate( pressureMeshFile, "")
- CALL pressureMeshFile%Deallocate()
+CALL velocityDomain%Initiate( velocityMeshFile, "")
+CALL velocityMeshFile%Deallocate()
+CALL pressureDomain%Initiate( pressureMeshFile, "")
+CALL pressureMeshFile%Deallocate()
```
-
```fortran
- CALL obj%InitiateNodeToNodeData( domain1=velocityDomain, &
- & domain2=pressureDomain )
- nodeToNode => obj%getNodeToNodePointer()
- pressureNode => pressureDomain%getNodeCoordPointer()
- velocityNode => velocityDomain%getNodeCoordPointer()
+CALL obj%InitiateNodeToNodeData( domain1=velocityDomain, &
+ & domain2=pressureDomain )
+nodeToNode => obj%getNodeToNodePointer()
+pressureNode => pressureDomain%getNodeCoordPointer()
+velocityNode => velocityDomain%getNodeCoordPointer()
```
Simple testing
```fortran
- DO ii = velocityDomain%minNptrs, velocityDomain%maxNptrs
- IF( .NOT. velocityDomain%isNodePresent( globalNode=ii ) ) CYCLE
- IF( nodeToNode( ii ) .EQ. 0 ) CYCLE
- IF( ALL( velocityNode(:,velocityDomain%getLocalNodeNumber(ii)) &
- & .APPROXEQ. pressureNode(:, &
- & pressureDomain%getLocalNodeNumber(nodeToNode(ii)))) ) THEN
- CALL Display( "velocity Node = " // TOSTRING(ii) &
- & // " matches with pressure Node = " // TOSTRING( nodeToNode(ii)))
- ELSE
- CALL Display( "ERROR: velocity Node = " // TOSTRING(ii) &
- & // " not matches with pressure Node = " &
- & // TOSTRING( nodeToNode(ii)))
- STOP
- END IF
- END DO
+DO ii = velocityDomain%minNptrs, velocityDomain%maxNptrs
+ IF( .NOT. velocityDomain%isNodePresent( globalNode=ii ) ) CYCLE
+ IF( nodeToNode( ii ) .EQ. 0 ) CYCLE
+ IF( ALL( velocityNode(:,velocityDomain%getLocalNodeNumber(ii)) &
+ & .APPROXEQ. pressureNode(:, &
+ & pressureDomain%getLocalNodeNumber(nodeToNode(ii)))) ) THEN
+ CALL Display( "velocity Node = " // TOSTRING(ii) &
+ & // " matches with pressure Node = " // TOSTRING( nodeToNode(ii)))
+ ELSE
+ CALL Display( "ERROR: velocity Node = " // TOSTRING(ii) &
+ & // " not matches with pressure Node = " &
+ & // TOSTRING( nodeToNode(ii)))
+ STOP
+ END IF
+END DO
```
cleanup
diff --git a/docs/docs-api/EasyPlplot/EasyPlplot_test_1.md b/docs/docs-api/EasyPlplot/EasyPlplot_test_1.md
index 29cfe1df..dc4b2e7d 100644
--- a/docs/docs-api/EasyPlplot/EasyPlplot_test_1.md
+++ b/docs/docs-api/EasyPlplot/EasyPlplot_test_1.md
@@ -23,12 +23,12 @@ PROGRAM main
!!! note ""
```fortran
- n = 1000
- do ii = 1, n
- call showProgress( "debug-1", real(ii, kind=DFP)/n )
- end do
+n = 1000
+do ii = 1, n
+ call showProgress( "debug-1", real(ii, kind=DFP)/n )
+end do
```
```fortran
END PROGRAM main
-```
\ No newline at end of file
+```
diff --git a/docs/docs-api/EasyPlplot/EasyPlplot_test_2.md b/docs/docs-api/EasyPlplot/EasyPlplot_test_2.md
index 0a25b632..78697349 100644
--- a/docs/docs-api/EasyPlplot/EasyPlplot_test_2.md
+++ b/docs/docs-api/EasyPlplot/EasyPlplot_test_2.md
@@ -22,10 +22,10 @@ PROGRAM main
```
```fortran
- call setup(device='svg', fileName='media/logo-%n.svg', &
- & figSize=[600, 500])
- call makeLogo
- call show()
+call setup(device='svg', fileName='media/logo-%n.svg', &
+ & figSize=[600, 500])
+call makeLogo
+call show()
```
```fortran
@@ -54,4 +54,4 @@ PROGRAM main
```fortran
END PROGRAM main
-```
\ No newline at end of file
+```
diff --git a/docs/docs-api/EigenUtility/GetSymEigenJacobi.md b/docs/docs-api/EigenUtility/GetSymEigenJacobi.md
index 08b0a2dd..c6edf07a 100644
--- a/docs/docs-api/EigenUtility/GetSymEigenJacobi.md
+++ b/docs/docs-api/EigenUtility/GetSymEigenJacobi.md
@@ -3,7 +3,7 @@
This subroutine computes all eigenvalues and eigenvectors of a real symmetric N × N matrix `Mat`.
:::note Reference
- The algorithm is direct implementation of Numerical Reciepe in Fortran, Page 1225
+The algorithm is direct implementation of Numerical Reciepe in Fortran, Page 1225
:::
import Tabs from '@theme/Tabs';
diff --git a/docs/docs-api/EigenUtility/SymEigenValues.md b/docs/docs-api/EigenUtility/SymEigenValues.md
index e37aa369..0a5a126d 100644
--- a/docs/docs-api/EigenUtility/SymEigenValues.md
+++ b/docs/docs-api/EigenUtility/SymEigenValues.md
@@ -7,7 +7,7 @@ This function calculates eigenvalues of a symmetric matrix.
- For `n=2` it calls [SymEigenValues2y2](SymEigenValues2by2.md)
- For `n=3` it calls [SymEigenValues3by3](SymEigenValues3by3.md)
- For `n>=4` it calls `SYEV` routine from Lapack95
-:::
+ :::
import Tabs from '@theme/Tabs';
import TabItem from '@theme/TabItem';
diff --git a/docs/docs-api/EigenUtility/_GetSymEigenJacobi_test_1.md b/docs/docs-api/EigenUtility/_GetSymEigenJacobi_test_1.md
index 0b38aca0..4be9b579 100644
--- a/docs/docs-api/EigenUtility/_GetSymEigenJacobi_test_1.md
+++ b/docs/docs-api/EigenUtility/_GetSymEigenJacobi_test_1.md
@@ -6,37 +6,37 @@ USE easifemBase
```
```fortran
- REAL( DFP ), ALLOCATABLE :: eigenValues(:), eigenVectors(:, :), mat(:,:), exact(:)
- REAL( DFP ), PARAMETER :: tol= 1.0E-2
+REAL( DFP ), ALLOCATABLE :: eigenValues(:), eigenVectors(:, :), mat(:,:), exact(:)
+REAL( DFP ), PARAMETER :: tol= 1.0E-2
```
Test 1
```fortran
- mat =RESHAPE( &
- [ 1.96, -6.49, -0.47, -7.20, -0.65, &
- & -6.49, 3.80, -6.39, 1.50, -6.34, &
- & -0.47,-6.39, 4.17, -1.51, 2.67, &
- & -7.20, 1.50,-1.51, 5.70, 1.80, &
- & -0.65,-6.34, 2.67, 1.80,-7.10 &
- ], [5,5])
- !!
- CALL Reallocate(eigenVectors, SIZE(mat,1), SIZE(mat,2))
- CALL Reallocate(eigenValues, SIZE(mat,1))
- !!
- CALL GetSymEigenJacobi(&
- & mat=mat, &
- & eigenValues=eigenValues, &
- & eigenVectors=eigenVectors, &
- & maxIter=SIZE(mat,1))
- !!
- exact = [-11.07, -6.23, 0.86, 8.87, 16.09]
- !!
- CALL OK( ALL(SOFTEQ(eigenValues, exact, tol)), "")
- !!
- CALL Display(MdEncode(eigenValues), "eigenValues=")
- !!
- CALL Display(MdEncode(eigenVectors), "eigenVectors=")
+mat =RESHAPE( &
+ [ 1.96, -6.49, -0.47, -7.20, -0.65, &
+ & -6.49, 3.80, -6.39, 1.50, -6.34, &
+ & -0.47,-6.39, 4.17, -1.51, 2.67, &
+ & -7.20, 1.50,-1.51, 5.70, 1.80, &
+ & -0.65,-6.34, 2.67, 1.80,-7.10 &
+ ], [5,5])
+!!
+CALL Reallocate(eigenVectors, SIZE(mat,1), SIZE(mat,2))
+CALL Reallocate(eigenValues, SIZE(mat,1))
+!!
+CALL GetSymEigenJacobi(&
+ & mat=mat, &
+ & eigenValues=eigenValues, &
+ & eigenVectors=eigenVectors, &
+ & maxIter=SIZE(mat,1))
+!!
+exact = [-11.07, -6.23, 0.86, 8.87, 16.09]
+!!
+CALL OK( ALL(SOFTEQ(eigenValues, exact, tol)), "")
+!!
+CALL Display(MdEncode(eigenValues), "eigenValues=")
+!!
+CALL Display(MdEncode(eigenVectors), "eigenVectors=")
```
Results
@@ -44,7 +44,7 @@ Results
Eigenvalues=
| | | | | |
-|-------------|----------|----------|----------|----------|
+| ----------- | -------- | -------- | -------- | -------- |
| 0.29807 | -0.48964 | -0.40262 | -0.37448 | -0.60751 |
| 0.5078 | 0.60526 | 0.40659 | -0.35717 | -0.28797 |
| 8.16062E-02 | -0.39915 | 0.65997 | 0.50076 | -0.38432 |
diff --git a/docs/docs-api/EigenUtility/_GetSymEigenValues__test_1.md b/docs/docs-api/EigenUtility/_GetSymEigenValues__test_1.md
index c1c3b277..7849102e 100644
--- a/docs/docs-api/EigenUtility/_GetSymEigenValues__test_1.md
+++ b/docs/docs-api/EigenUtility/_GetSymEigenValues__test_1.md
@@ -12,30 +12,30 @@ USE easifemBase
```
```fortran
- REAL( DFP ), ALLOCATABLE :: mat0(:,:), mat(:,:), w(:), exact(:)
- REAL( DFP ), PARAMETER :: tol= 1.0E-2
+REAL( DFP ), ALLOCATABLE :: mat0(:,:), mat(:,:), w(:), exact(:)
+REAL( DFP ), PARAMETER :: tol= 1.0E-2
```
!!! note "Test-1"
```fortran
- mat =RESHAPE( &
- [ 1.96, -6.49, -0.47, -7.20, -0.65, &
- & -6.49, 3.80, -6.39, 1.50, -6.34, &
- & -0.47,-6.39, 4.17, -1.51, 2.67, &
- & -7.20, 1.50,-1.51, 5.70, 1.80, &
- & -0.65,-6.34, 2.67, 1.80,-7.10 &
- ], [5,5])
- mat0=mat
- !!
- CALL Reallocate(w, SIZE(mat,1))
- CALL GetSymEigenValues_(mat=mat, eigenValues=w)
- !!
- exact = [-11.07, -6.23, 0.86, 8.87, 16.09]
- !!
- CALL OK( ALL(SOFTEQ(w, exact, tol)), "")
- !!
- CALL Display(MdEncode(ABS(mat0-mat)), "mat0-mat=")
+mat =RESHAPE( &
+ [ 1.96, -6.49, -0.47, -7.20, -0.65, &
+ & -6.49, 3.80, -6.39, 1.50, -6.34, &
+ & -0.47,-6.39, 4.17, -1.51, 2.67, &
+ & -7.20, 1.50,-1.51, 5.70, 1.80, &
+ & -0.65,-6.34, 2.67, 1.80,-7.10 &
+ ], [5,5])
+mat0=mat
+!!
+CALL Reallocate(w, SIZE(mat,1))
+CALL GetSymEigenValues_(mat=mat, eigenValues=w)
+!!
+exact = [-11.07, -6.23, 0.86, 8.87, 16.09]
+!!
+CALL OK( ALL(SOFTEQ(w, exact, tol)), "")
+!!
+CALL Display(MdEncode(ABS(mat0-mat)), "mat0-mat=")
```
:::caution
@@ -43,13 +43,13 @@ At output `mat` is changed, the difference is given below.
`mat0-mat=`
| | | | | |
-|---------|--------|---------|---------|--------|
+| ------- | ------ | ------- | ------- | ------ |
| 0.79415 | 10.448 | 0.47892 | 7.5634 | 0.5773 |
| 0 | 1.5357 | 2.4282 | 1.5005 | 5.6309 |
| 0 | 0 | 1.599 | 7.8722 | 2.3714 |
| 0 | 0 | 0 | 0.85741 | 8.9405 |
| 0 | 0 | 0 | 0 | 0 |
-:::
+| ::: | | | | |
```fortran
END PROGRAM main
diff --git a/docs/docs-api/EigenUtility/_SymEigenValues2by2_test_1.md b/docs/docs-api/EigenUtility/_SymEigenValues2by2_test_1.md
index e1f7c7ae..178e495e 100644
--- a/docs/docs-api/EigenUtility/_SymEigenValues2by2_test_1.md
+++ b/docs/docs-api/EigenUtility/_SymEigenValues2by2_test_1.md
@@ -4,38 +4,38 @@ USE easifemBase
```
```fortran
- REAL( DFP ) :: mat(2,2), w(2), e, exact(2)
- REAL( DFP ), PARAMETER :: tol= 1.0E-12
+REAL( DFP ) :: mat(2,2), w(2), e, exact(2)
+REAL( DFP ), PARAMETER :: tol= 1.0E-12
```
Test 1
```fortran
- e = 0.5
- exact = [1.0_DFP - e, 1.0_DFP + 4.0_DFP*e]
- mat(1,1) = 1+3*e
- mat(1,2) = 2*e
- mat(2,1) = 2*e
- mat(2,2) = 1
- !!
- w = SymEigenValues2by2(mat)
- !!
- CALL OK( ALL(SOFTEQ(w, exact, tol)), "e = "//tostring(e))
+e = 0.5
+exact = [1.0_DFP - e, 1.0_DFP + 4.0_DFP*e]
+mat(1,1) = 1+3*e
+mat(1,2) = 2*e
+mat(2,1) = 2*e
+mat(2,2) = 1
+!!
+w = SymEigenValues2by2(mat)
+!!
+CALL OK( ALL(SOFTEQ(w, exact, tol)), "e = "//tostring(e))
```
Test 2
```fortran
- e = 0.01
- exact = [1.0_DFP - e, 1.0_DFP + 4.0_DFP*e]
- mat(1,1) = 1+3*e
- mat(1,2) = 2*e
- mat(2,1) = 2*e
- mat(2,2) = 1
- !!
- w = SymEigenValues2by2(mat)
- !!
- CALL OK( ALL(SOFTEQ(w, exact, tol)), "e = "//tostring(e))
+e = 0.01
+exact = [1.0_DFP - e, 1.0_DFP + 4.0_DFP*e]
+mat(1,1) = 1+3*e
+mat(1,2) = 2*e
+mat(2,1) = 2*e
+mat(2,2) = 1
+!!
+w = SymEigenValues2by2(mat)
+!!
+CALL OK( ALL(SOFTEQ(w, exact, tol)), "e = "//tostring(e))
```
```fortran
diff --git a/docs/docs-api/EigenUtility/_SymEigenValues3by3_test_1.md b/docs/docs-api/EigenUtility/_SymEigenValues3by3_test_1.md
index fd2ee142..2cc807e6 100644
--- a/docs/docs-api/EigenUtility/_SymEigenValues3by3_test_1.md
+++ b/docs/docs-api/EigenUtility/_SymEigenValues3by3_test_1.md
@@ -8,20 +8,20 @@ USE easifemBase
```
```fortran
- REAL( DFP ) :: mat(3,3), w(3), exact(3)
- REAL( DFP ), PARAMETER :: tol= 1.0E-5
+REAL( DFP ) :: mat(3,3), w(3), exact(3)
+REAL( DFP ), PARAMETER :: tol= 1.0E-5
```
Test-1
```fortran
- exact = [-5.51082, 3.65928, 5.85154]
- mat = RESHAPE([-2._DFP,-4._DFP,2._DFP,-4._DFP,1._DFP,2._DFP,2._DFP,2._DFP,5._DFP], [3,3])
- !!
- w = SymEigenValues(mat)
- CALL Display(w, "w=")
- !!
- CALL OK( ALL(SOFTEQ(w, exact, tol)), "")
+exact = [-5.51082, 3.65928, 5.85154]
+mat = RESHAPE([-2._DFP,-4._DFP,2._DFP,-4._DFP,1._DFP,2._DFP,2._DFP,2._DFP,5._DFP], [3,3])
+!!
+w = SymEigenValues(mat)
+CALL Display(w, "w=")
+!!
+CALL OK( ALL(SOFTEQ(w, exact, tol)), "")
```
```fortran
diff --git a/docs/docs-api/ElemshapeData/Allocate.md b/docs/docs-api/ElemshapeData/Allocate.md
index 7a887db8..2af33460 100644
--- a/docs/docs-api/ElemshapeData/Allocate.md
+++ b/docs/docs-api/ElemshapeData/Allocate.md
@@ -20,4 +20,3 @@ MODULE PURE SUBROUTINE Allocate(obj, nsd, xidim, nns, nips)
!! number of integration points
END SUBROUTINE Allocate
```
-
diff --git a/docs/docs-api/ElemshapeData/BaseInterpolation.md b/docs/docs-api/ElemshapeData/BaseInterpolation.md
index ccef672c..7f8cfcf5 100644
--- a/docs/docs-api/ElemshapeData/BaseInterpolation.md
+++ b/docs/docs-api/ElemshapeData/BaseInterpolation.md
@@ -6,4 +6,3 @@ MODULE FUNCTION BaseInterpolation(childName) RESULT(Ans)
CLASS(BaseInterpolation_), POINTER :: ans
END FUNCTION BaseInterpolation
```
-
diff --git a/docs/docs-api/ElemshapeData/Deallocate.md b/docs/docs-api/ElemshapeData/Deallocate.md
index 8b0142bd..3b44198b 100644
--- a/docs/docs-api/ElemshapeData/Deallocate.md
+++ b/docs/docs-api/ElemshapeData/Deallocate.md
@@ -9,4 +9,3 @@ MODULE PURE SUBROUTINE Deallocate(obj)
CLASS(ElemshapeData_), INTENT(INOUT) :: obj
END SUBROUTINE Deallocate
```
-
diff --git a/docs/docs-api/ElemshapeData/Divergence.md b/docs/docs-api/ElemshapeData/Divergence.md
index d97d3628..cf2aecfc 100644
--- a/docs/docs-api/ElemshapeData/Divergence.md
+++ b/docs/docs-api/ElemshapeData/Divergence.md
@@ -17,4 +17,3 @@ MODULE PURE FUNCTION Divergence_2(obj, val) RESULT(Ans)
TYPE(FEVariable_) :: ans
END FUNCTION Divergence_2
```
-
diff --git a/docs/docs-api/ElemshapeData/GetDivergence.md b/docs/docs-api/ElemshapeData/GetDivergence.md
index ba8bc0ce..77fb8361 100644
--- a/docs/docs-api/ElemshapeData/GetDivergence.md
+++ b/docs/docs-api/ElemshapeData/GetDivergence.md
@@ -97,4 +97,3 @@ MODULE PURE SUBROUTINE getDivergence_8(obj, lg, val)
!! space time nodal values of scalar/vector/matrix
END SUBROUTINE getDivergence_8
```
-
diff --git a/docs/docs-api/ElemshapeData/GetHRGNParam.md b/docs/docs-api/ElemshapeData/GetHRGNParam.md
index 7499d2ac..49b19153 100644
--- a/docs/docs-api/ElemshapeData/GetHRGNParam.md
+++ b/docs/docs-api/ElemshapeData/GetHRGNParam.md
@@ -92,4 +92,3 @@ MODULE PURE SUBROUTINE GetHRGNParam(obj, h, val, opt)
INTEGER(I4B), OPTIONAL, INTENT(IN) :: opt
END SUBROUTINE GetHRGNParam
```
-
diff --git a/docs/docs-api/ElemshapeData/GetProjectionOfdNTdXt.md b/docs/docs-api/ElemshapeData/GetProjectionOfdNTdXt.md
index 7f6af855..0579557d 100644
--- a/docs/docs-api/ElemshapeData/GetProjectionOfdNTdXt.md
+++ b/docs/docs-api/ElemshapeData/GetProjectionOfdNTdXt.md
@@ -53,4 +53,3 @@ MODULE PURE SUBROUTINE GetProjectionOfdNTdXt(obj, cdNTdXt, val)
TYPE(FEVariable_), INTENT(IN) :: val
END SUBROUTINE GetProjectionOfdNTdXt
```
-
diff --git a/docs/docs-api/ElemshapeData/GetSUGN3Param.md b/docs/docs-api/ElemshapeData/GetSUGN3Param.md
index 71d615b6..2d66da45 100644
--- a/docs/docs-api/ElemshapeData/GetSUGN3Param.md
+++ b/docs/docs-api/ElemshapeData/GetSUGN3Param.md
@@ -71,4 +71,3 @@ MODULE PURE SUBROUTINE GetSUGN3Param_4(obj, tau, val, nu, h, opt)
!! currently, opt is not used, but it may be used in future
END SUBROUTINE GetSUGN3Param_4
```
-
diff --git a/docs/docs-api/ElemshapeData/GetSUGN3Param_Takizawa2018.md b/docs/docs-api/ElemshapeData/GetSUGN3Param_Takizawa2018.md
index da99b282..b78b7acf 100644
--- a/docs/docs-api/ElemshapeData/GetSUGN3Param_Takizawa2018.md
+++ b/docs/docs-api/ElemshapeData/GetSUGN3Param_Takizawa2018.md
@@ -91,4 +91,3 @@ MODULE PURE SUBROUTINE GetSUGN3Param_Takizawa2018_4(obj, tau, val, &
!! currently, opt is not used, but it may be used in future
END SUBROUTINE GetSUGN3Param_Takizawa2018_4
```
-
diff --git a/docs/docs-api/ElemshapeData/GetSUPGParam.md b/docs/docs-api/ElemshapeData/GetSUPGParam.md
index 6e45f176..6186bc59 100644
--- a/docs/docs-api/ElemshapeData/GetSUPGParam.md
+++ b/docs/docs-api/ElemshapeData/GetSUPGParam.md
@@ -268,4 +268,3 @@ MODULE PURE SUBROUTINE GetSUPGParam(obj, tau, c, val, nu, k, &
!! futuristic options
END SUBROUTINE GetSUPGParam
```
-
diff --git a/docs/docs-api/ElemshapeData/H1Div_Hermit.md b/docs/docs-api/ElemshapeData/H1Div_Hermit.md
index d8af7358..007b7109 100644
--- a/docs/docs-api/ElemshapeData/H1Div_Hermit.md
+++ b/docs/docs-api/ElemshapeData/H1Div_Hermit.md
@@ -12,4 +12,3 @@ END SUBROUTINE H1Div_Hermit
```
This method belongs to the generic method [[#Initiate]].
-
diff --git a/docs/docs-api/ElemshapeData/H1_Hermit.md b/docs/docs-api/ElemshapeData/H1_Hermit.md
index 47b5fd8d..f7f66f67 100644
--- a/docs/docs-api/ElemshapeData/H1_Hermit.md
+++ b/docs/docs-api/ElemshapeData/H1_Hermit.md
@@ -12,4 +12,3 @@ END SUBROUTINE H1_Hermit
```
This method belongs to the generic method [[#Initiate]].
-
diff --git a/docs/docs-api/ElemshapeData/H1_Hierarchy.md b/docs/docs-api/ElemshapeData/H1_Hierarchy.md
index 4b0013e6..f5f2ba65 100644
--- a/docs/docs-api/ElemshapeData/H1_Hierarchy.md
+++ b/docs/docs-api/ElemshapeData/H1_Hierarchy.md
@@ -12,4 +12,3 @@ END SUBROUTINE H1_Hierarchy
```
This method belongs to the generic method [[#Initiate]].
-
diff --git a/docs/docs-api/ElemshapeData/H1_Lagrange.md b/docs/docs-api/ElemshapeData/H1_Lagrange.md
index a824241a..fe358b9e 100644
--- a/docs/docs-api/ElemshapeData/H1_Lagrange.md
+++ b/docs/docs-api/ElemshapeData/H1_Lagrange.md
@@ -12,4 +12,3 @@ END SUBROUTINE H1_Lagrange
```
This method belongs to the generic method [[#Initiate]].
-
diff --git a/docs/docs-api/ElemshapeData/LocalDivergence.md b/docs/docs-api/ElemshapeData/LocalDivergence.md
index 15ed63ac..134b37b6 100644
--- a/docs/docs-api/ElemshapeData/LocalDivergence.md
+++ b/docs/docs-api/ElemshapeData/LocalDivergence.md
@@ -15,4 +15,3 @@ MODULE PURE FUNCTION LocalDivergence(obj, val) RESULT(Ans)
TYPE(FEVariable_) :: ans
END FUNCTION LocalDivergence
```
-
diff --git a/docs/docs-api/ElemshapeData/SpatialGradient.md b/docs/docs-api/ElemshapeData/SpatialGradient.md
index 3d5a2c2c..c2bad113 100644
--- a/docs/docs-api/ElemshapeData/SpatialGradient.md
+++ b/docs/docs-api/ElemshapeData/SpatialGradient.md
@@ -15,4 +15,3 @@ MODULE PURE FUNCTION SpatialGradient(obj, val) RESULT(Ans)
TYPE(FEVariable_) :: ans
END FUNCTION SpatialGradient
```
-
diff --git a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_1.md b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_1.md
index 2dfc2109..cc66c5aa 100644
--- a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_1.md
+++ b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_1.md
@@ -9,9 +9,9 @@ This example demonstrates how initiates an instance of [[ElemshapeData_]] for [[
## Usage
!!! note ""
- Import modules and declare variables
+Import modules and declare variables
-``` fortran
+```fortran
PROGRAM main
USE easifemBase
IMPLICIT NONE
@@ -23,29 +23,29 @@ PROGRAM main
```
!!! note ""
- Create an instance of [[ReferenceLine_]] element.
+Create an instance of [[ReferenceLine_]] element.
```fortran
- refelem = ReferenceLine( nsd = nsd )
+refelem = ReferenceLine( nsd = nsd )
```
!!! note ""
- Create an instance of [[QuadraturePoint_]]. Here we are creating Gauss-Legendre Quadrature points.
+Create an instance of [[QuadraturePoint_]]. Here we are creating Gauss-Legendre Quadrature points.
```fortran
- quad = GaussLegendreQuadrature( refelem = refelem, order = order )
+quad = GaussLegendreQuadrature( refelem = refelem, order = order )
```
!!! note ""
- Let us initiate an instance of [[ElemshapeData_]]. The code shown below only initiates the local shape function data.
+Let us initiate an instance of [[ElemshapeData_]]. The code shown below only initiates the local shape function data.
```fortran
- CALL Initiate( obj = obj, quad = quad, refelem = refelem, &
- & ContinuityType= typeH1, InterpolType = TypeLagrangeInterpolation )
+CALL Initiate( obj = obj, quad = quad, refelem = refelem, &
+ & ContinuityType= typeH1, InterpolType = TypeLagrangeInterpolation )
```
!!! note ""
- Now we pass the information about the physical element. The code shown below will complete the information of the shape function in the physical element.
+Now we pass the information about the physical element. The code shown below will complete the information of the shape function in the physical element.
- val: is the nodal coordinates of the element
- N: is the shape function used for interpolating the nodal coordinate
@@ -53,14 +53,14 @@ PROGRAM main
- In the case of isoparameteric coordinate sysmtem, N and dNdXi is same as those stored inside `obj` ([[ElemshapeData_]]).
```fortran
- CALL Set( obj=obj, val=xij(1:nsd, :), N=obj%N, dNdXi=obj%dNdXi )
+CALL Set( obj=obj, val=xij(1:nsd, :), N=obj%N, dNdXi=obj%dNdXi )
```
!!! note ""
- Display the content on the terminal.
+Display the content on the terminal.
```fortran
- CALL Display( obj, "obj" )
+CALL Display( obj, "obj" )
```
??? example "Results"
diff --git a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_10.md b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_10.md
index 7c1d6b7a..be7db0cf 100644
--- a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_10.md
+++ b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_10.md
@@ -9,4 +9,3 @@ This example demonstrates how to initiate an instance of [[ElemshapeData_]] for
- [[ReferenceTriangle_]]
## Usage
-
diff --git a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_11.md b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_11.md
index 34d80e80..4aec1afc 100644
--- a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_11.md
+++ b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_11.md
@@ -11,9 +11,9 @@ This example is build upon example [[_ElemshapeData_test_3]], so make sure you f
## Usage
!!! note ""
- IMPORT modules and declare variables
+IMPORT modules and declare variables
-``` fortran
+```fortran
PROGRAM main
USE easifemBase
IMPLICIT NONE
@@ -26,29 +26,29 @@ PROGRAM main
```
!!! note ""
- Initiate an instance of [[ReferenceTriangle_]]
+Initiate an instance of [[ReferenceTriangle_]]
```fortran
- refelem = ReferenceTriangle( nsd = nsd )
+refelem = ReferenceTriangle( nsd = nsd )
```
!!! note ""
- Initiate Gauss-Legendre Quadrature points.
+Initiate Gauss-Legendre Quadrature points.
```fortran
- CALL Initiate(obj=quad, refelem=refelem, order=order, quadratureType='GaussLegendre')
+CALL Initiate(obj=quad, refelem=refelem, order=order, quadratureType='GaussLegendre')
```
!!! note ""
- Initiate an instance of [[ElemshapeData_]] for [[ReferenceTriangle_]]. The code shown below ONLY initiates the local shape FUNCTION DATA.
+Initiate an instance of [[ElemshapeData_]] for [[ReferenceTriangle_]]. The code shown below ONLY initiates the local shape FUNCTION DATA.
```fortran
- CALL Initiate( obj = obj, quad = quad, refelem = refelem, &
- & ContinuityType= typeH1, InterpolType = TypeLagrangeInterpolation )
+CALL Initiate( obj = obj, quad = quad, refelem = refelem, &
+ & ContinuityType= typeH1, InterpolType = TypeLagrangeInterpolation )
```
!!! note ""
- Now we PASS the information about the physical element. The code shown below will complete the information of the shape FUNCTION in the physical element.
+Now we PASS the information about the physical element. The code shown below will complete the information of the shape FUNCTION in the physical element.
- val: is the nodal coordinates of the element
- N: is the shape FUNCTION used for interpolating the nodal coordinate
@@ -56,14 +56,14 @@ PROGRAM main
- In the CASE of isoparameteric coordinate sysmtem, N and dNdXi is same as those stored inside `obj` ([[ElemshapeData_]]).
```fortran
- CALL Set( obj=obj, val=xij(1:nsd, :), N=obj%N, dNdXi=obj%dNdXi )
+CALL Set( obj=obj, val=xij(1:nsd, :), N=obj%N, dNdXi=obj%dNdXi )
```
!!! note ""
- Display the content on terminal.
+Display the content on terminal.
```fortran
- CALL Display( obj, "obj" )
+CALL Display( obj, "obj" )
```
??? example "Results"
@@ -120,11 +120,11 @@ PROGRAM main
0.00000
!!! note ""
- Now let us CALL the GetProjectionOfdNdXt method.
+Now let us CALL the GetProjectionOfdNdXt method.
```fortran
- CALL GetProjectionOfdNdXt(obj=obj, cdNdXt=cdNdXt, val=[1.0_DFP, 1.0_DFP])
- CALL Display(cdNdXt, "cdNdXt = ")
+CALL GetProjectionOfdNdXt(obj=obj, cdNdXt=cdNdXt, val=[1.0_DFP, 1.0_DFP])
+CALL Display(cdNdXt, "cdNdXt = ")
```
??? example "Results"
@@ -137,7 +137,6 @@ PROGRAM main
1.00000
```
-
```fortran
CALL DEALLOCATE( obj )
END PROGRAM main
diff --git a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_12.md b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_12.md
index 45715b5e..043e0064 100644
--- a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_12.md
+++ b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_12.md
@@ -1,4 +1,4 @@
-This example demonstrates how to USE the [[ElemshapeData_#GetProjectionOfdNdXt]] `GetProjectionOfdNdXt` method.
+This example demonstrates how to USE the [[ElemshapeData_#GetProjectionOfdNdXt]] `GetProjectionOfdNdXt` method.
## Modules and classes
@@ -9,9 +9,9 @@ This example demonstrates how to USE the [[ElemshapeData_#GetProjectionOfdNdXt]]
## Usage
!!! note ""
- IMPORT modules and declare variables
+IMPORT modules and declare variables
-``` fortran
+```fortran
PROGRAM main
USE easifemBase
IMPLICIT NONE
@@ -26,30 +26,30 @@ PROGRAM main
```
!!! note ""
- Initiate an instance of [[ReferenceTriangle_]]
+Initiate an instance of [[ReferenceTriangle_]]
```fortran
- refelem = ReferenceTriangle( nsd = nsd )
+refelem = ReferenceTriangle( nsd = nsd )
```
!!! note ""
- Initiate Gauss-Legendre Quadrature points.
+Initiate Gauss-Legendre Quadrature points.
```fortran
- CALL Initiate(obj=quad, refelem=refelem, order=order, &
- & quadratureType='GaussLegendre')
+CALL Initiate(obj=quad, refelem=refelem, order=order, &
+ & quadratureType='GaussLegendre')
```
!!! note ""
- Initiate an instance of [[ElemshapeData_]] for [[ReferenceTriangle_]]. The code shown below ONLY initiates the local shape FUNCTION DATA.
+Initiate an instance of [[ElemshapeData_]] for [[ReferenceTriangle_]]. The code shown below ONLY initiates the local shape FUNCTION DATA.
```fortran
- CALL Initiate( obj = obj, quad = quad, refelem = refelem, &
- & ContinuityType= typeH1, InterpolType = TypeLagrangeInterpolation )
+CALL Initiate( obj = obj, quad = quad, refelem = refelem, &
+ & ContinuityType= typeH1, InterpolType = TypeLagrangeInterpolation )
```
!!! note ""
- Now we PASS the information about the physical element. The code shown below will complete the information of the shape FUNCTION in the physical element.
+Now we PASS the information about the physical element. The code shown below will complete the information of the shape FUNCTION in the physical element.
- val: is the nodal coordinates of the element
- N: is the shape FUNCTION used for interpolating the nodal coordinate
@@ -57,14 +57,14 @@ PROGRAM main
- In the CASE of isoparameteric coordinate sysmtem, N and dNdXi is same as those stored inside `obj` ([[ElemshapeData_]]).
```fortran
- CALL Set( obj=obj, val=xij(1:nsd, :), N=obj%N, dNdXi=obj%dNdXi )
+CALL Set( obj=obj, val=xij(1:nsd, :), N=obj%N, dNdXi=obj%dNdXi )
```
!!! note ""
- Display the content on terminal.
+Display the content on terminal.
```fortran
- CALL Display( obj, "obj" )
+CALL Display( obj, "obj" )
```
??? example "Results"
@@ -121,13 +121,13 @@ PROGRAM main
0.00000
!!! note ""
- Now let us CALL the GetProjectionOfdNdXt method.
+Now let us CALL the GetProjectionOfdNdXt method.
```fortran
- fevar = NodalVariable([1.0_DFP, 1.0_DFP], TypeFEVariableVector, &
- & typeFEVariableConstant)
- CALL GetProjectionOfdNdXt(obj=obj, cdNdXt=cdNdXt, val=fevar)
- CALL Display(cdNdXt, "cdNdXt = ")
+fevar = NodalVariable([1.0_DFP, 1.0_DFP], TypeFEVariableVector, &
+ & typeFEVariableConstant)
+CALL GetProjectionOfdNdXt(obj=obj, cdNdXt=cdNdXt, val=fevar)
+CALL Display(cdNdXt, "cdNdXt = ")
```
??? example "Results"
@@ -143,11 +143,11 @@ PROGRAM main
Let us try another test.
```fortran
- fevar = NodalVariable(reshape([(1.0_DFP, ii=1,6)], [2,3]), &
- & typeFEVariableVector, &
- & typeFEVariableSpace)
- CALL GetProjectionOfdNdXt(obj=obj, cdNdXt=cdNdXt, val=fevar)
- CALL Display(cdNdXt, "cdNdXt = ")
+fevar = NodalVariable(reshape([(1.0_DFP, ii=1,6)], [2,3]), &
+ & typeFEVariableVector, &
+ & typeFEVariableSpace)
+CALL GetProjectionOfdNdXt(obj=obj, cdNdXt=cdNdXt, val=fevar)
+CALL Display(cdNdXt, "cdNdXt = ")
```
??? example "Results"
diff --git a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_13.md b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_13.md
index 2a54cbfd..6f1511f7 100644
--- a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_13.md
+++ b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_13.md
@@ -7,7 +7,7 @@ $$
$$
$$
-\nabla \Vert mathbf{v} \Vert / \Vert (\nabla \Vert mathbf{v} \Vert) \Vert
+\nabla \Vert mathbf{v} \Vert / \Vert (\nabla \Vert mathbf{v} \Vert) \Vert
$$
## Modules and classes
@@ -19,9 +19,9 @@ $$
## Usage
!!! note ""
- IMPORT modules and declare variables
+IMPORT modules and declare variables
-``` fortran
+```fortran
PROGRAM main
USE easifemBase
IMPLICIT NONE
@@ -42,30 +42,30 @@ PROGRAM main
```
!!! note ""
- Initiate an instance of [[ReferenceQuadrangle_]]
+Initiate an instance of [[ReferenceQuadrangle_]]
```fortran
- refelem = ReferenceQuadrangle( nsd = nsd )
+refelem = ReferenceQuadrangle( nsd = nsd )
```
!!! note ""
- Initiate Gauss-Legendre Quadrature points.
+Initiate Gauss-Legendre Quadrature points.
```fortran
- CALL Initiate(obj=quad, refelem=refelem, order=order, &
- & quadratureType='GaussLegendre')
+CALL Initiate(obj=quad, refelem=refelem, order=order, &
+ & quadratureType='GaussLegendre')
```
!!! note ""
- Initiate an instance of [[ElemshapeData_]] for [[ReferenceQuadrangle_]]. The code shown below ONLY initiates the local shape FUNCTION DATA.
+Initiate an instance of [[ElemshapeData_]] for [[ReferenceQuadrangle_]]. The code shown below ONLY initiates the local shape FUNCTION DATA.
```fortran
- CALL Initiate( obj = obj, quad = quad, refelem = refelem, &
- & ContinuityType= typeH1, InterpolType = TypeLagrangeInterpolation )
+CALL Initiate( obj = obj, quad = quad, refelem = refelem, &
+ & ContinuityType= typeH1, InterpolType = TypeLagrangeInterpolation )
```
!!! note ""
- Now we PASS the information about the physical element. The code shown below will complete the information of the shape FUNCTION in the physical element.
+Now we PASS the information about the physical element. The code shown below will complete the information of the shape FUNCTION in the physical element.
- val: is the nodal coordinates of the element
- N: is the shape FUNCTION used for interpolating the nodal coordinate
@@ -73,50 +73,47 @@ PROGRAM main
- In the CASE of isoparameteric coordinate sysmtem, N and dNdXi is same as those stored inside `obj` ([[ElemshapeData_]]).
```fortran
- CALL Set( obj=obj, val=xij, N=obj%N, dNdXi=obj%dNdXi )
+CALL Set( obj=obj, val=xij, N=obj%N, dNdXi=obj%dNdXi )
```
!!! note ""
- Now let us CALL the GetUnitNormal method.
+Now let us CALL the GetUnitNormal method.
```fortran
- CALL GetUnitNormal(obj=obj, r=r, val=v1)
- CALL Display(r, "r = ")
+CALL GetUnitNormal(obj=obj, r=r, val=v1)
+CALL Display(r, "r = ")
```
??? example "Results"
-
!!! note ""
- Getnormal for vector
+Getnormal for vector
```fortran
- CALL GetUnitNormal(obj=obj, r=r, val=v2)
- CALL Display(r, "r = ")
+CALL GetUnitNormal(obj=obj, r=r, val=v2)
+CALL Display(r, "r = ")
```
!!! note ""
- GetUnitNormal for [[FEVariable_]]
+GetUnitNormal for [[FEVariable_]]
```fortran
- fevar = NodalVariable(v1, typeFEVariableScalar, typeFEVariableSpace)
- CALL GetUnitNormal(obj=obj, r=r, val=fevar)
- CALL Display(r, "r=")
+fevar = NodalVariable(v1, typeFEVariableScalar, typeFEVariableSpace)
+CALL GetUnitNormal(obj=obj, r=r, val=fevar)
+CALL Display(r, "r=")
```
!!! note ""
- GetUnitNormal for [[FEVariable_]]
+GetUnitNormal for [[FEVariable_]]
```fortran
- fevar = NodalVariable(v2, typeFEVariableVector, typeFEVariableSpace)
- CALL GetUnitNormal(obj=obj, r=r, val=fevar)
- CALL Display(r, "r=")
+fevar = NodalVariable(v2, typeFEVariableVector, typeFEVariableSpace)
+CALL GetUnitNormal(obj=obj, r=r, val=fevar)
+CALL Display(r, "r=")
```
-
!!! settings "Cleanup"
-
```fortran
CALL DEALLOCATE( obj )
END PROGRAM main
diff --git a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_14.md b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_14.md
index 326f0d21..0e028b5c 100644
--- a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_14.md
+++ b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_14.md
@@ -35,9 +35,9 @@ $$
## Usage
!!! note ""
- IMPORT modules and declare variables
+IMPORT modules and declare variables
-``` fortran
+```fortran
PROGRAM main
USE easifemBase
IMPLICIT NONE
@@ -57,41 +57,41 @@ PROGRAM main
```
!!! note ""
- Initiate an instance of [[ReferenceQuadrangle_]]
+Initiate an instance of [[ReferenceQuadrangle_]]
```fortran
- refelem = ReferenceQuadrangle( nsd = nsd )
+refelem = ReferenceQuadrangle( nsd = nsd )
```
!!! note ""
- Initiate Gauss-Legendre Quadrature points.
+Initiate Gauss-Legendre Quadrature points.
```fortran
- CALL Initiate(obj=quad, refelem=refelem, order=order, &
- & quadratureType='GaussLegendre')
+CALL Initiate(obj=quad, refelem=refelem, order=order, &
+ & quadratureType='GaussLegendre')
```
!!! note ""
- Initiate an instance of [[ElemshapeData_]] for [[ReferenceQuadrangle_]]. The code shown below ONLY initiates the local shape FUNCTION DATA.
+Initiate an instance of [[ElemshapeData_]] for [[ReferenceQuadrangle_]]. The code shown below ONLY initiates the local shape FUNCTION DATA.
```fortran
- CALL Initiate( obj = obj, quad = quad, refelem = refelem, &
- & ContinuityType= typeH1, InterpolType = TypeLagrangeInterpolation )
- CALL Set( obj=obj, val=xij, N=obj%N, dNdXi=obj%dNdXi )
+CALL Initiate( obj = obj, quad = quad, refelem = refelem, &
+ & ContinuityType= typeH1, InterpolType = TypeLagrangeInterpolation )
+CALL Set( obj=obj, val=xij, N=obj%N, dNdXi=obj%dNdXi )
```
!!! note ""
- GetUnitNormal for [[FEVariable_]]
+GetUnitNormal for [[FEVariable_]]
```fortran
- c = NodalVariable([1.0_DFP, 0.0_DFP], typeFEVariableVector, &
- & typeFEVariableConstant)
- nu = NodalVariable(1.0_DFP, typeFEVariableScalar, &
- & typeFEVariableConstant)
- val = NodalVariable(v1, typeFEVariableScalar, typeFEVariableSpace )
- CALL GetSUPGParam(elemsd=obj, tau=tau, c=c, val=val, nu=nu, &
- & dt=0.0_DFP, opt=1)
- CALL Display( tau, "tau=")
+c = NodalVariable([1.0_DFP, 0.0_DFP], typeFEVariableVector, &
+ & typeFEVariableConstant)
+nu = NodalVariable(1.0_DFP, typeFEVariableScalar, &
+ & typeFEVariableConstant)
+val = NodalVariable(v1, typeFEVariableScalar, typeFEVariableSpace )
+CALL GetSUPGParam(elemsd=obj, tau=tau, c=c, val=val, nu=nu, &
+ & dt=0.0_DFP, opt=1)
+CALL Display( tau, "tau=")
```
!!! settings "Cleanup"
diff --git a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_15.md b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_15.md
index d20fac8b..249ed098 100644
--- a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_15.md
+++ b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_15.md
@@ -10,9 +10,9 @@ This example demonstrates how initiates an instance of [[ElemshapeData_]] for [[
## Usage
!!! note ""
- Import modules and declare variables
+Import modules and declare variables
-``` fortran
+```fortran
PROGRAM main
USE easifemBase
IMPLICIT NONE
@@ -27,32 +27,32 @@ PROGRAM main
```
!!! note ""
- Create an instance of [[ReferenceLine_]] [[ReferenceQuadrangle_]] element.
+Create an instance of [[ReferenceLine_]] [[ReferenceQuadrangle_]] element.
```fortran
- refelem_line = ReferenceLine( nsd = nsd )
- refelem_quad = ReferenceQuadrangle( nsd = nsd )
+refelem_line = ReferenceLine( nsd = nsd )
+refelem_quad = ReferenceQuadrangle( nsd = nsd )
```
!!! note ""
- Create an instance of [[QuadraturePoint_]] on the [[ReferenceLine_]]. Here we are creating Gauss-Legendre Quadrature points.
+Create an instance of [[QuadraturePoint_]] on the [[ReferenceLine_]]. Here we are creating Gauss-Legendre Quadrature points.
```fortran
- quad = GaussLegendreQuadrature( refelem = refelem_line, order = order )
+quad = GaussLegendreQuadrature( refelem = refelem_line, order = order )
```
!!! note ""
- Let us initiate an instance of [[ElemshapeData_]]. The code shown below only initiates the local shape function data.
+Let us initiate an instance of [[ElemshapeData_]]. The code shown below only initiates the local shape function data.
```fortran
- CALL Initiate( obj = elemsd_line, quad = quad, refelem = refelem_line, &
- & ContinuityType= typeH1, InterpolType = TypeLagrangeInterpolation )
- CALL Initiate( obj = elemsd_quad, quad = quad, refelem = refelem_quad, &
- & ContinuityType= typeH1, InterpolType = TypeLagrangeInterpolation )
+CALL Initiate( obj = elemsd_line, quad = quad, refelem = refelem_line, &
+ & ContinuityType= typeH1, InterpolType = TypeLagrangeInterpolation )
+CALL Initiate( obj = elemsd_quad, quad = quad, refelem = refelem_quad, &
+ & ContinuityType= typeH1, InterpolType = TypeLagrangeInterpolation )
```
!!! note ""
- Now we pass the information about the physical element. The code shown below will complete the information of the shape function in the physical element.
+Now we pass the information about the physical element. The code shown below will complete the information of the shape function in the physical element.
- `val`: is the nodal coordinates of the element
- `N`: is the shape function used for interpolating the nodal coordinate
@@ -60,15 +60,15 @@ PROGRAM main
- In the case of isoparameteric coordinate sysmtem, `N` and `dNdXi` is same as those stored inside `obj` ([[ElemshapeData_]]).
```fortran
- CALL Set( obj=elemsd_line, val=node_line, N=elemsd_line%N, dNdXi=elemsd_line%dNdXi )
- CALL Set( obj=elemsd_quad, val=node_quad, N=elemsd_quad%N, dNdXi=elemsd_quad%dNdXi )
+CALL Set( obj=elemsd_line, val=node_line, N=elemsd_line%N, dNdXi=elemsd_line%dNdXi )
+CALL Set( obj=elemsd_quad, val=node_quad, N=elemsd_quad%N, dNdXi=elemsd_quad%dNdXi )
```
!!! note ""
- Display the content on the terminal.
+Display the content on the terminal.
```fortran
- CALL Display( elemsd_line, "elemsd_line: " )
+CALL Display( elemsd_line, "elemsd_line: " )
```
??? example "Results"
@@ -145,7 +145,6 @@ PROGRAM main
As you can see the value of $\frac{dN}{dXt}$ is zero, we want to calculate these values using cell element.
-
!!! settings "Cleanup"
```fortran
diff --git a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_2.md b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_2.md
index 548052e2..8885d060 100644
--- a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_2.md
+++ b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_2.md
@@ -9,9 +9,9 @@ This example demonstrates how initiates an instance of [[ElemshapeData_]] for [[
## Usage
!!! note ""
- Import modules and declare variables
+Import modules and declare variables
-``` fortran
+```fortran
PROGRAM main
USE easifemBase
IMPLICIT NONE
@@ -23,29 +23,29 @@ PROGRAM main
```
!!! note ""
- Create an instance of [[ReferenceLine_]] element of order 2. That is `Line3` element.
+Create an instance of [[ReferenceLine_]] element of order 2. That is `Line3` element.
```fortran
- refelem = ReferenceLine( nsd = nsd )
+refelem = ReferenceLine( nsd = nsd )
```
!!! note ""
- Create an instance of [[QuadraturePoint_]]. Here we are creating Gauss-Legendre Quadrature points.
+Create an instance of [[QuadraturePoint_]]. Here we are creating Gauss-Legendre Quadrature points.
```fortran
- quad = GaussLegendreQuadrature( refelem = refelem, order = order )
+quad = GaussLegendreQuadrature( refelem = refelem, order = order )
```
!!! note ""
- Let us initiate an instance of [[ElemshapeData_]]. The code shown below only initiates the local shape function data.
+Let us initiate an instance of [[ElemshapeData_]]. The code shown below only initiates the local shape function data.
```fortran
- CALL Initiate( obj = obj, quad = quad, refelem = refelem, &
- & ContinuityType= typeH1, InterpolType = TypeLagrangeInterpolation )
+CALL Initiate( obj = obj, quad = quad, refelem = refelem, &
+ & ContinuityType= typeH1, InterpolType = TypeLagrangeInterpolation )
```
!!! note ""
- Now we pass the information about the physical element. The code shown below will complete the information of the shape function in the physical element.
+Now we pass the information about the physical element. The code shown below will complete the information of the shape function in the physical element.
- val: is the nodal coordinates of the element
- N: is the shape function used for interpolating the nodal coordinate
@@ -53,17 +53,17 @@ PROGRAM main
- In the case of isoparameteric coordinate sysmtem, N and dNdXi is same as those stored inside `obj` ([[ElemshapeData_]]).
!!! note ""
- Now we pass the information about the physical element. The code shown below will complete the information of the shape function in the physical element.
+Now we pass the information about the physical element. The code shown below will complete the information of the shape function in the physical element.
```fortran
- CALL Set( obj=obj, val=xij(1:nsd, :), N=obj%N, dNdXi=obj%dNdXi )
+CALL Set( obj=obj, val=xij(1:nsd, :), N=obj%N, dNdXi=obj%dNdXi )
```
!!! note ""
- Display the content on the terminal.
+Display the content on the terminal.
```fortran
- CALL Display( obj, "obj" )
+CALL Display( obj, "obj" )
```
??? example "Results"
diff --git a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_21.md b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_21.md
index 4ee00f09..e6b107ec 100644
--- a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_21.md
+++ b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_21.md
@@ -10,9 +10,9 @@ This example demonstrates how to USE the `GetInterpolation` method for scalar va
## Usage
!!! note ""
- IMPORT modules and declare variables
+IMPORT modules and declare variables
-``` fortran
+```fortran
PROGRAM main
USE easifemBase
IMPLICIT NONE
@@ -30,63 +30,63 @@ PROGRAM main
```
!!! note ""
- Initiate an instance of [[ReferenceQuadrangle_]]
+Initiate an instance of [[ReferenceQuadrangle_]]
```fortran
- refelem = ReferenceQuadrangle( nsd = nsd )
+refelem = ReferenceQuadrangle( nsd = nsd )
```
!!! note ""
- Initiate Gauss-Legendre Quadrature points.
+Initiate Gauss-Legendre Quadrature points.
```fortran
- CALL Initiate(obj=quad, refelem=refelem, order=order, &
- & quadratureType='GaussLegendre')
+CALL Initiate(obj=quad, refelem=refelem, order=order, &
+ & quadratureType='GaussLegendre')
```
!!! note ""
- Initiate an instance of [[ElemshapeData_]] for [[ReferenceQuadrangle_]]. The code shown below ONLY initiates the local shape FUNCTION DATA.
+Initiate an instance of [[ElemshapeData_]] for [[ReferenceQuadrangle_]]. The code shown below ONLY initiates the local shape FUNCTION DATA.
```fortran
- CALL Initiate( obj = obj, quad = quad, refelem = refelem, &
- & ContinuityType= typeH1, InterpolType = TypeLagrangeInterpolation )
- CALL Set( obj=obj, val=xij, N=obj%N, dNdXi=obj%dNdXi )
+CALL Initiate( obj = obj, quad = quad, refelem = refelem, &
+ & ContinuityType= typeH1, InterpolType = TypeLagrangeInterpolation )
+CALL Set( obj=obj, val=xij, N=obj%N, dNdXi=obj%dNdXi )
```
!!! note "GetInterpolation"
- Scalar variable, constant.
+Scalar variable, constant.
```fortran
- var1 = NodalVariable( 1.0_DFP, &
- & typeFEVariableScalar, &
- & typeFEVariableConstant )
- CALL GetInterpolation(obj=obj, interpol=var2, val=var1)
- CALL Display( var2, "scalar+constant")
+var1 = NodalVariable( 1.0_DFP, &
+ & typeFEVariableScalar, &
+ & typeFEVariableConstant )
+CALL GetInterpolation(obj=obj, interpol=var2, val=var1)
+CALL Display( var2, "scalar+constant")
```
```fortran
- var1 = NodalVariable( 1.0_DFP, &
- & typeFEVariableScalar, &
- & typeFEVariableConstant )
- CALL Display(Interpolation(obj=obj, val=var1), "scalar+constant")
+var1 = NodalVariable( 1.0_DFP, &
+ & typeFEVariableScalar, &
+ & typeFEVariableConstant )
+CALL Display(Interpolation(obj=obj, val=var1), "scalar+constant")
```
!!! note "GetInterpolation"
- Scalar variable, space.
+Scalar variable, space.
```fortran
- var1 = NodalVariable( ones(4, 1.0_DFP), &
- & typeFEVariableScalar, &
- & typeFEVariableSpace )
- CALL GetInterpolation(obj=obj, interpol=var2, val=var1)
- CALL Display( var2, "scalar+space")
+var1 = NodalVariable( ones(4, 1.0_DFP), &
+ & typeFEVariableScalar, &
+ & typeFEVariableSpace )
+CALL GetInterpolation(obj=obj, interpol=var2, val=var1)
+CALL Display( var2, "scalar+space")
```
```fortran
- var1 = NodalVariable( ones(4, 1.0_DFP), &
- & typeFEVariableScalar, &
- & typeFEVariableSpace )
- CALL Display(Interpolation(obj=obj, val=var1), "scalar+space")
+var1 = NodalVariable( ones(4, 1.0_DFP), &
+ & typeFEVariableScalar, &
+ & typeFEVariableSpace )
+CALL Display(Interpolation(obj=obj, val=var1), "scalar+space")
```
!!! settings "Cleanup"
diff --git a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_22.md b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_22.md
index 4a014ac7..68a4d5cd 100644
--- a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_22.md
+++ b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_22.md
@@ -10,9 +10,9 @@ This example demonstrates how to USE the `GetInterpolation` method for vector va
## Usage
!!! note ""
- IMPORT modules and declare variables
+IMPORT modules and declare variables
-``` fortran
+```fortran
PROGRAM main
USE easifemBase
IMPLICIT NONE
@@ -30,52 +30,52 @@ PROGRAM main
```
!!! note ""
- Initiate an instance of [[ReferenceQuadrangle_]]
+Initiate an instance of [[ReferenceQuadrangle_]]
```fortran
- refelem = ReferenceQuadrangle( nsd = nsd )
+refelem = ReferenceQuadrangle( nsd = nsd )
```
!!! note ""
- Initiate Gauss-Legendre Quadrature points.
+Initiate Gauss-Legendre Quadrature points.
```fortran
- CALL Initiate(obj=quad, refelem=refelem, order=order, &
- & quadratureType='GaussLegendre')
+CALL Initiate(obj=quad, refelem=refelem, order=order, &
+ & quadratureType='GaussLegendre')
```
!!! note ""
- Initiate an instance of [[ElemshapeData_]] for [[ReferenceQuadrangle_]]. The code shown below ONLY initiates the local shape FUNCTION DATA.
+Initiate an instance of [[ElemshapeData_]] for [[ReferenceQuadrangle_]]. The code shown below ONLY initiates the local shape FUNCTION DATA.
```fortran
- CALL Initiate( obj = obj, quad = quad, refelem = refelem, &
- & ContinuityType= typeH1, InterpolType = TypeLagrangeInterpolation )
- CALL Set( obj=obj, val=xij, N=obj%N, dNdXi=obj%dNdXi )
+CALL Initiate( obj = obj, quad = quad, refelem = refelem, &
+ & ContinuityType= typeH1, InterpolType = TypeLagrangeInterpolation )
+CALL Set( obj=obj, val=xij, N=obj%N, dNdXi=obj%dNdXi )
```
!!! note "GetInterpolation"
- Vector variable, constant.
+Vector variable, constant.
```fortran
- var1 = NodalVariable( ones(2, 1.0_DFP), &
- & typeFEVariableVector, &
- & typeFEVariableConstant )
- CALL GetInterpolation(obj=obj, interpol=var2, val=var1)
- CALL Display( var2, "Vector + constant")
- CALL Display( Interpolation(obj, var1), "Vector + constant")
+var1 = NodalVariable( ones(2, 1.0_DFP), &
+ & typeFEVariableVector, &
+ & typeFEVariableConstant )
+CALL GetInterpolation(obj=obj, interpol=var2, val=var1)
+CALL Display( var2, "Vector + constant")
+CALL Display( Interpolation(obj, var1), "Vector + constant")
```
!!! note "GetInterpolation"
- Vector variable, space.
+Vector variable, space.
```fortran
- var1 = NodalVariable( reshape([1.0_DFP, 1.0_DFP, 1.0_DFP, 1.0_DFP, &
- & 1.0_DFP,1.0_DFP,1.0_DFP,1.0_DFP], [2,4]), &
- & typeFEVariableVector, &
- & typeFEVariableSpace )
- CALL GetInterpolation(obj=obj, interpol=var2, val=var1)
- CALL Display( var2, "Vector + space")
- CALL Display( Interpolation(obj, var1), "Vector + space")
+var1 = NodalVariable( reshape([1.0_DFP, 1.0_DFP, 1.0_DFP, 1.0_DFP, &
+ & 1.0_DFP,1.0_DFP,1.0_DFP,1.0_DFP], [2,4]), &
+ & typeFEVariableVector, &
+ & typeFEVariableSpace )
+CALL GetInterpolation(obj=obj, interpol=var2, val=var1)
+CALL Display( var2, "Vector + space")
+CALL Display( Interpolation(obj, var1), "Vector + space")
```
!!! settings "Cleanup"
diff --git a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_23.md b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_23.md
index 6c323b02..a76ec5d3 100644
--- a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_23.md
+++ b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_23.md
@@ -10,9 +10,9 @@ This example demonstrates how to USE the `GetInterpolation` method for matrix va
## Usage
!!! note ""
- IMPORT modules and declare variables
+IMPORT modules and declare variables
-``` fortran
+```fortran
PROGRAM main
USE easifemBase
IMPLICIT NONE
@@ -30,51 +30,51 @@ PROGRAM main
```
!!! note ""
- Initiate an instance of [[ReferenceQuadrangle_]]
+Initiate an instance of [[ReferenceQuadrangle_]]
```fortran
- refelem = ReferenceQuadrangle( nsd = nsd )
+refelem = ReferenceQuadrangle( nsd = nsd )
```
!!! note ""
- Initiate Gauss-Legendre Quadrature points.
+Initiate Gauss-Legendre Quadrature points.
```fortran
- CALL Initiate(obj=quad, refelem=refelem, order=order, &
- & quadratureType='GaussLegendre')
+CALL Initiate(obj=quad, refelem=refelem, order=order, &
+ & quadratureType='GaussLegendre')
```
!!! note ""
- Initiate an instance of [[ElemshapeData_]] for [[ReferenceQuadrangle_]]. The code shown below ONLY initiates the local shape FUNCTION DATA.
+Initiate an instance of [[ElemshapeData_]] for [[ReferenceQuadrangle_]]. The code shown below ONLY initiates the local shape FUNCTION DATA.
```fortran
- CALL Initiate( obj = obj, quad = quad, refelem = refelem, &
- & ContinuityType= typeH1, InterpolType = TypeLagrangeInterpolation )
- CALL Set( obj=obj, val=xij, N=obj%N, dNdXi=obj%dNdXi )
+CALL Initiate( obj = obj, quad = quad, refelem = refelem, &
+ & ContinuityType= typeH1, InterpolType = TypeLagrangeInterpolation )
+CALL Set( obj=obj, val=xij, N=obj%N, dNdXi=obj%dNdXi )
```
!!! note "GetInterpolation"
- Vector variable, constant.
+Vector variable, constant.
```fortran
- var1 = NodalVariable( ones(2,2, 1.0_DFP), &
- & typeFEVariableMatrix, &
- & typeFEVariableConstant )
- CALL GetInterpolation(obj=obj, interpol=var2, val=var1)
- CALL Display( var2, "Vector + constant")
- CALL Display( interpolation(obj, var1), "Vector + constant")
+var1 = NodalVariable( ones(2,2, 1.0_DFP), &
+ & typeFEVariableMatrix, &
+ & typeFEVariableConstant )
+CALL GetInterpolation(obj=obj, interpol=var2, val=var1)
+CALL Display( var2, "Vector + constant")
+CALL Display( interpolation(obj, var1), "Vector + constant")
```
!!! note "GetInterpolation"
- Vector variable, space.
+Vector variable, space.
```fortran
- var1 = NodalVariable( ones(2,2, 4, 1.0_DFP), &
- & typeFEVariableMatrix, &
- & typeFEVariableSpace )
- CALL GetInterpolation(obj=obj, interpol=var2, val=var1)
- CALL Display( var2, "Vector + space")
- CALL Display( interpolation(obj, var1), "Vector + space")
+var1 = NodalVariable( ones(2,2, 4, 1.0_DFP), &
+ & typeFEVariableMatrix, &
+ & typeFEVariableSpace )
+CALL GetInterpolation(obj=obj, interpol=var2, val=var1)
+CALL Display( var2, "Vector + space")
+CALL Display( interpolation(obj, var1), "Vector + space")
```
!!! settings "Cleanup"
diff --git a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_3.md b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_3.md
index b35dceae..8ef5892e 100644
--- a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_3.md
+++ b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_3.md
@@ -9,9 +9,9 @@ This example demonstrates how initiates an instance of [[ElemshapeData_]] for [[
## Usage
!!! note ""
- Import modules and declare variables
+Import modules and declare variables
-``` fortran
+```fortran
PROGRAM main
USE easifemBase
IMPLICIT NONE
@@ -23,29 +23,29 @@ PROGRAM main
```
!!! note ""
- Initiate an instance of [[ReferenceTriangle_]]
+Initiate an instance of [[ReferenceTriangle_]]
```fortran
- refelem = ReferenceTriangle( nsd = nsd )
+refelem = ReferenceTriangle( nsd = nsd )
```
!!! note ""
- Initiate Gauss-Legendre Quadrature points.
+Initiate Gauss-Legendre Quadrature points.
```fortran
- quad = GaussLegendreQuadrature( refelem = refelem, order = order )
+quad = GaussLegendreQuadrature( refelem = refelem, order = order )
```
!!! note ""
- Initiate an instance of [[ElemshapeData_]] for [[ReferenceTriangle_]]. The code shown below only initiates the local shape function data.
+Initiate an instance of [[ElemshapeData_]] for [[ReferenceTriangle_]]. The code shown below only initiates the local shape function data.
```fortran
- CALL Initiate( obj = obj, quad = quad, refelem = refelem, &
- & ContinuityType= typeH1, InterpolType = TypeLagrangeInterpolation )
+CALL Initiate( obj = obj, quad = quad, refelem = refelem, &
+ & ContinuityType= typeH1, InterpolType = TypeLagrangeInterpolation )
```
!!! note ""
- Now we pass the information about the physical element. The code shown below will complete the information of the shape function in the physical element.
+Now we pass the information about the physical element. The code shown below will complete the information of the shape function in the physical element.
- val: is the nodal coordinates of the element
- N: is the shape function used for interpolating the nodal coordinate
@@ -53,14 +53,14 @@ PROGRAM main
- In the case of isoparameteric coordinate sysmtem, N and dNdXi is same as those stored inside `obj` ([[ElemshapeData_]]).
```fortran
- CALL Set( obj=obj, val=xij(1:nsd, :), N=obj%N, dNdXi=obj%dNdXi )
+CALL Set( obj=obj, val=xij(1:nsd, :), N=obj%N, dNdXi=obj%dNdXi )
```
!!! note ""
- Display the content on terminal.
+Display the content on terminal.
```fortran
- CALL Display( obj, "obj" )
+CALL Display( obj, "obj" )
```
??? example "Results"
diff --git a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_31.md b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_31.md
index 3f1f6f25..ad0af5d4 100644
--- a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_31.md
+++ b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_31.md
@@ -10,9 +10,9 @@ This example demonstrates how to USE the `GetLocalGradient` method for scalar va
## Usage
!!! note ""
- IMPORT modules and declare variables
+IMPORT modules and declare variables
-``` fortran
+```fortran
PROGRAM main
USE easifemBase
IMPLICIT NONE
@@ -30,51 +30,51 @@ PROGRAM main
```
!!! note ""
- Initiate an instance of [[ReferenceQuadrangle_]]
+Initiate an instance of [[ReferenceQuadrangle_]]
```fortran
- refelem = ReferenceQuadrangle( nsd = nsd )
+refelem = ReferenceQuadrangle( nsd = nsd )
```
!!! note ""
- Initiate Gauss-Legendre Quadrature points.
+Initiate Gauss-Legendre Quadrature points.
```fortran
- CALL Initiate(obj=quad, refelem=refelem, order=order, &
- & quadratureType='GaussLegendre')
+CALL Initiate(obj=quad, refelem=refelem, order=order, &
+ & quadratureType='GaussLegendre')
```
!!! note ""
- Initiate an instance of [[ElemshapeData_]] for [[ReferenceQuadrangle_]]. The code shown below ONLY initiates the local shape FUNCTION DATA.
+Initiate an instance of [[ElemshapeData_]] for [[ReferenceQuadrangle_]]. The code shown below ONLY initiates the local shape FUNCTION DATA.
```fortran
- CALL Initiate( obj = obj, quad = quad, refelem = refelem, &
- & ContinuityType= typeH1, InterpolType = TypeLagrangeInterpolation )
- CALL Set( obj=obj, val=xij, N=obj%N, dNdXi=obj%dNdXi )
+CALL Initiate( obj = obj, quad = quad, refelem = refelem, &
+ & ContinuityType= typeH1, InterpolType = TypeLagrangeInterpolation )
+CALL Set( obj=obj, val=xij, N=obj%N, dNdXi=obj%dNdXi )
```
!!! note "GetLocalGradient"
- Scalar variable, constant.
+Scalar variable, constant.
```fortran
- var1 = NodalVariable( 1.0_DFP, &
- & typeFEVariableScalar, &
- & typeFEVariableConstant )
- CALL GetLocalGradient(obj=obj, lg=var2, val=var1)
- CALL Display( var2, "scalar+constant")
- CALL Display(LocalGradient(obj=obj, val=var1), "scalar+constant")
+var1 = NodalVariable( 1.0_DFP, &
+ & typeFEVariableScalar, &
+ & typeFEVariableConstant )
+CALL GetLocalGradient(obj=obj, lg=var2, val=var1)
+CALL Display( var2, "scalar+constant")
+CALL Display(LocalGradient(obj=obj, val=var1), "scalar+constant")
```
!!! note "GetLocalGradient"
- Scalar variable, space.
+Scalar variable, space.
```fortran
- var1 = NodalVariable( ones(4, 1.0_DFP), &
- & typeFEVariableScalar, &
- & typeFEVariableSpace )
- CALL GetLocalGradient(obj=obj, lg=var2, val=var1)
- CALL Display( var2, "scalar+space")
- CALL Display(LocalGradient(obj=obj, val=var1), "scalar+space")
+var1 = NodalVariable( ones(4, 1.0_DFP), &
+ & typeFEVariableScalar, &
+ & typeFEVariableSpace )
+CALL GetLocalGradient(obj=obj, lg=var2, val=var1)
+CALL Display( var2, "scalar+space")
+CALL Display(LocalGradient(obj=obj, val=var1), "scalar+space")
```
!!! settings "Cleanup"
diff --git a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_32.md b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_32.md
index 6fbd8002..53e105cf 100644
--- a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_32.md
+++ b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_32.md
@@ -10,9 +10,9 @@ This example demonstrates how to USE the `GetLocalGradient` method for vector va
## Usage
!!! note ""
- IMPORT modules and declare variables
+IMPORT modules and declare variables
-``` fortran
+```fortran
PROGRAM main
USE easifemBase
IMPLICIT NONE
@@ -30,53 +30,53 @@ PROGRAM main
```
!!! note ""
- Initiate an instance of [[ReferenceQuadrangle_]]
+Initiate an instance of [[ReferenceQuadrangle_]]
```fortran
- refelem = ReferenceQuadrangle( nsd = nsd )
+refelem = ReferenceQuadrangle( nsd = nsd )
```
!!! note ""
- Initiate Gauss-Legendre Quadrature points.
+Initiate Gauss-Legendre Quadrature points.
```fortran
- CALL Initiate(obj=quad, refelem=refelem, order=order, &
- & quadratureType='GaussLegendre')
+CALL Initiate(obj=quad, refelem=refelem, order=order, &
+ & quadratureType='GaussLegendre')
```
!!! note ""
- Initiate an instance of [[ElemshapeData_]] for [[ReferenceQuadrangle_]]. The code shown below ONLY initiates the local shape FUNCTION DATA.
+Initiate an instance of [[ElemshapeData_]] for [[ReferenceQuadrangle_]]. The code shown below ONLY initiates the local shape FUNCTION DATA.
```fortran
- CALL Initiate( obj = obj, quad = quad, refelem = refelem, &
- & ContinuityType= typeH1, InterpolType = TypeLagrangeInterpolation )
- CALL Set( obj=obj, val=xij, N=obj%N, dNdXi=obj%dNdXi )
+CALL Initiate( obj = obj, quad = quad, refelem = refelem, &
+ & ContinuityType= typeH1, InterpolType = TypeLagrangeInterpolation )
+CALL Set( obj=obj, val=xij, N=obj%N, dNdXi=obj%dNdXi )
```
!!! note "GetLocalGradient"
- Vector variable, constant.
+Vector variable, constant.
```fortran
- var1 = NodalVariable( ones(2, 1.0_DFP), &
- & typeFEVariableVector, &
- & typeFEVariableConstant )
- CALL GetLocalGradient(obj=obj, lg=var2, val=var1)
- CALL Display( var2, "Vector + constant")
- CALL Display( LocalGradient(obj, var1), "Vector + constant")
+var1 = NodalVariable( ones(2, 1.0_DFP), &
+ & typeFEVariableVector, &
+ & typeFEVariableConstant )
+CALL GetLocalGradient(obj=obj, lg=var2, val=var1)
+CALL Display( var2, "Vector + constant")
+CALL Display( LocalGradient(obj, var1), "Vector + constant")
```
!!! note "GetLocalGradient"
- Vector variable, space.
+Vector variable, space.
```fortran
- var1 = NodalVariable( &
- & reshape([1.0_DFP, 1.0_DFP, 1.0_DFP, 1.0_DFP, &
- & 1.0_DFP,1.0_DFP,1.0_DFP,1.0_DFP], [2,4]), &
- & typeFEVariableVector, &
- & typeFEVariableSpace )
- CALL GetLocalGradient(obj=obj, lg=var2, val=var1)
- CALL Display( var2, "Vector + space")
- CALL Display( LocalGradient(obj, var1), "Vector + space")
+var1 = NodalVariable( &
+ & reshape([1.0_DFP, 1.0_DFP, 1.0_DFP, 1.0_DFP, &
+ & 1.0_DFP,1.0_DFP,1.0_DFP,1.0_DFP], [2,4]), &
+ & typeFEVariableVector, &
+ & typeFEVariableSpace )
+CALL GetLocalGradient(obj=obj, lg=var2, val=var1)
+CALL Display( var2, "Vector + space")
+CALL Display( LocalGradient(obj, var1), "Vector + space")
```
!!! settings "Cleanup"
diff --git a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_33.md b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_33.md
index e8c6a295..b602eb62 100644
--- a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_33.md
+++ b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_33.md
@@ -10,9 +10,9 @@ This example demonstrates how to USE the `GetLocalGradient` method for matrix va
## Usage
!!! note ""
- IMPORT modules and declare variables
+IMPORT modules and declare variables
-``` fortran
+```fortran
PROGRAM main
USE easifemBase
IMPLICIT NONE
@@ -30,51 +30,51 @@ PROGRAM main
```
!!! note ""
- Initiate an instance of [[ReferenceQuadrangle_]]
+Initiate an instance of [[ReferenceQuadrangle_]]
```fortran
- refelem = ReferenceQuadrangle( nsd = nsd )
+refelem = ReferenceQuadrangle( nsd = nsd )
```
!!! note ""
- Initiate Gauss-Legendre Quadrature points.
+Initiate Gauss-Legendre Quadrature points.
```fortran
- CALL Initiate(obj=quad, refelem=refelem, order=order, &
- & quadratureType='GaussLegendre')
+CALL Initiate(obj=quad, refelem=refelem, order=order, &
+ & quadratureType='GaussLegendre')
```
!!! note ""
- Initiate an instance of [[ElemshapeData_]] for [[ReferenceQuadrangle_]]. The code shown below ONLY initiates the local shape FUNCTION DATA.
+Initiate an instance of [[ElemshapeData_]] for [[ReferenceQuadrangle_]]. The code shown below ONLY initiates the local shape FUNCTION DATA.
```fortran
- CALL Initiate( obj = obj, quad = quad, refelem = refelem, &
- & ContinuityType= typeH1, InterpolType = TypeLagrangeInterpolation )
- CALL Set( obj=obj, val=xij, N=obj%N, dNdXi=obj%dNdXi )
+CALL Initiate( obj = obj, quad = quad, refelem = refelem, &
+ & ContinuityType= typeH1, InterpolType = TypeLagrangeInterpolation )
+CALL Set( obj=obj, val=xij, N=obj%N, dNdXi=obj%dNdXi )
```
!!! note "GetLocalGradient"
- Vector variable, constant.
+Vector variable, constant.
```fortran
- var1 = NodalVariable( ones(2,2, 1.0_DFP), &
- & typeFEVariableMatrix, &
- & typeFEVariableConstant )
- CALL GetLocalGradient(obj=obj, lg=var2, val=var1)
- CALL Display( var2, "matrix+ constant")
- CALL Display( LocalGradient(obj, var1), "matrix + constant")
+var1 = NodalVariable( ones(2,2, 1.0_DFP), &
+ & typeFEVariableMatrix, &
+ & typeFEVariableConstant )
+CALL GetLocalGradient(obj=obj, lg=var2, val=var1)
+CALL Display( var2, "matrix+ constant")
+CALL Display( LocalGradient(obj, var1), "matrix + constant")
```
!!! note "GetLocalGradient"
- Vector variable, space.
+Vector variable, space.
```fortran
- var1 = NodalVariable( ones(2,2, 4, 1.0_DFP), &
- & typeFEVariableMatrix, &
- & typeFEVariableSpace )
- CALL GetLocalGradient(obj=obj, lg=var2, val=var1)
- CALL Display( var2, "matrix + space")
- CALL Display( LocalGradient(obj, var1), "matrix + space")
+var1 = NodalVariable( ones(2,2, 4, 1.0_DFP), &
+ & typeFEVariableMatrix, &
+ & typeFEVariableSpace )
+CALL GetLocalGradient(obj=obj, lg=var2, val=var1)
+CALL Display( var2, "matrix + space")
+CALL Display( LocalGradient(obj, var1), "matrix + space")
```
!!! settings "Cleanup"
diff --git a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_4.md b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_4.md
index cc0d52f9..390b9e27 100644
--- a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_4.md
+++ b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_4.md
@@ -9,4 +9,3 @@ This example demonstrates how to initiate an instance of [[ElemshapeData_]] for
- [[ReferenceTriangle_]]
## Usage
-
diff --git a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_41.md b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_41.md
index ab415ede..fb05bcd1 100644
--- a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_41.md
+++ b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_41.md
@@ -10,9 +10,9 @@ This example demonstrates how to USE the `GetSpatialGradient` method for scalar
## Usage
!!! note ""
- IMPORT modules and declare variables
+IMPORT modules and declare variables
-``` fortran
+```fortran
PROGRAM main
USE easifemBase
IMPLICIT NONE
@@ -30,51 +30,51 @@ PROGRAM main
```
!!! note ""
- Initiate an instance of [[ReferenceQuadrangle_]]
+Initiate an instance of [[ReferenceQuadrangle_]]
```fortran
- refelem = ReferenceQuadrangle( nsd = nsd )
+refelem = ReferenceQuadrangle( nsd = nsd )
```
!!! note ""
- Initiate Gauss-Legendre Quadrature points.
+Initiate Gauss-Legendre Quadrature points.
```fortran
- CALL Initiate(obj=quad, refelem=refelem, order=order, &
- & quadratureType='GaussLegendre')
+CALL Initiate(obj=quad, refelem=refelem, order=order, &
+ & quadratureType='GaussLegendre')
```
!!! note ""
- Initiate an instance of [[ElemshapeData_]] for [[ReferenceQuadrangle_]]. The code shown below ONLY initiates the local shape FUNCTION DATA.
+Initiate an instance of [[ElemshapeData_]] for [[ReferenceQuadrangle_]]. The code shown below ONLY initiates the local shape FUNCTION DATA.
```fortran
- CALL Initiate( obj = obj, quad = quad, refelem = refelem, &
- & ContinuityType= typeH1, InterpolType = TypeLagrangeInterpolation )
- CALL Set( obj=obj, val=xij, N=obj%N, dNdXi=obj%dNdXi )
+CALL Initiate( obj = obj, quad = quad, refelem = refelem, &
+ & ContinuityType= typeH1, InterpolType = TypeLagrangeInterpolation )
+CALL Set( obj=obj, val=xij, N=obj%N, dNdXi=obj%dNdXi )
```
!!! note "GetSpatialGradient"
- Scalar variable, constant.
+Scalar variable, constant.
```fortran
- var1 = NodalVariable( 1.0_DFP, &
- & typeFEVariableScalar, &
- & typeFEVariableConstant )
- CALL GetSpatialGradient(obj=obj, lg=var2, val=var1)
- CALL Display( var2, "scalar+constant")
- CALL Display(SpatialGradient(obj=obj, val=var1), "scalar+constant")
+var1 = NodalVariable( 1.0_DFP, &
+ & typeFEVariableScalar, &
+ & typeFEVariableConstant )
+CALL GetSpatialGradient(obj=obj, lg=var2, val=var1)
+CALL Display( var2, "scalar+constant")
+CALL Display(SpatialGradient(obj=obj, val=var1), "scalar+constant")
```
!!! note "GetSpatialGradient"
- Scalar variable, space.
+Scalar variable, space.
```fortran
- var1 = NodalVariable( ones(4, 1.0_DFP), &
- & typeFEVariableScalar, &
- & typeFEVariableSpace )
- CALL GetSpatialGradient(obj=obj, lg=var2, val=var1)
- CALL Display( var2, "scalar+space")
- CALL Display(SpatialGradient(obj=obj, val=var1), "scalar+space")
+var1 = NodalVariable( ones(4, 1.0_DFP), &
+ & typeFEVariableScalar, &
+ & typeFEVariableSpace )
+CALL GetSpatialGradient(obj=obj, lg=var2, val=var1)
+CALL Display( var2, "scalar+space")
+CALL Display(SpatialGradient(obj=obj, val=var1), "scalar+space")
```
!!! settings "Cleanup"
diff --git a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_42.md b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_42.md
index 89fbe615..c5e676e2 100644
--- a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_42.md
+++ b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_42.md
@@ -10,9 +10,9 @@ This example demonstrates how to USE the `GetSpatialGradient` method for vector
## Usage
!!! note ""
- IMPORT modules and declare variables
+IMPORT modules and declare variables
-``` fortran
+```fortran
PROGRAM main
USE easifemBase
IMPLICIT NONE
@@ -30,53 +30,53 @@ PROGRAM main
```
!!! note ""
- Initiate an instance of [[ReferenceQuadrangle_]]
+Initiate an instance of [[ReferenceQuadrangle_]]
```fortran
- refelem = ReferenceQuadrangle( nsd = nsd )
+refelem = ReferenceQuadrangle( nsd = nsd )
```
!!! note ""
- Initiate Gauss-Legendre Quadrature points.
+Initiate Gauss-Legendre Quadrature points.
```fortran
- CALL Initiate(obj=quad, refelem=refelem, order=order, &
- & quadratureType='GaussLegendre')
+CALL Initiate(obj=quad, refelem=refelem, order=order, &
+ & quadratureType='GaussLegendre')
```
!!! note ""
- Initiate an instance of [[ElemshapeData_]] for [[ReferenceQuadrangle_]]. The code shown below ONLY initiates the Spatial shape FUNCTION DATA.
+Initiate an instance of [[ElemshapeData_]] for [[ReferenceQuadrangle_]]. The code shown below ONLY initiates the Spatial shape FUNCTION DATA.
```fortran
- CALL Initiate( obj = obj, quad = quad, refelem = refelem, &
- & ContinuityType= typeH1, InterpolType = TypeLagrangeInterpolation )
- CALL Set( obj=obj, val=xij, N=obj%N, dNdXi=obj%dNdXi )
+CALL Initiate( obj = obj, quad = quad, refelem = refelem, &
+ & ContinuityType= typeH1, InterpolType = TypeLagrangeInterpolation )
+CALL Set( obj=obj, val=xij, N=obj%N, dNdXi=obj%dNdXi )
```
!!! note "GetSpatialGradient"
- Vector variable, constant.
+Vector variable, constant.
```fortran
- var1 = NodalVariable( ones(2, 1.0_DFP), &
- & typeFEVariableVector, &
- & typeFEVariableConstant )
- CALL GetSpatialGradient(obj=obj, lg=var2, val=var1)
- CALL Display( var2, "Vector + constant")
- CALL Display( SpatialGradient(obj, var1), "Vector + constant")
+var1 = NodalVariable( ones(2, 1.0_DFP), &
+ & typeFEVariableVector, &
+ & typeFEVariableConstant )
+CALL GetSpatialGradient(obj=obj, lg=var2, val=var1)
+CALL Display( var2, "Vector + constant")
+CALL Display( SpatialGradient(obj, var1), "Vector + constant")
```
!!! note "GetSpatialGradient"
- Vector variable, space.
+Vector variable, space.
```fortran
- var1 = NodalVariable( &
- & reshape([1.0_DFP, 1.0_DFP, 1.0_DFP, 1.0_DFP, &
- & 1.0_DFP,1.0_DFP,1.0_DFP,1.0_DFP], [2,4]), &
- & typeFEVariableVector, &
- & typeFEVariableSpace )
- CALL GetSpatialGradient(obj=obj, lg=var2, val=var1)
- CALL Display( var2, "Vector + space")
- CALL Display( SpatialGradient(obj, var1), "Vector + space")
+var1 = NodalVariable( &
+ & reshape([1.0_DFP, 1.0_DFP, 1.0_DFP, 1.0_DFP, &
+ & 1.0_DFP,1.0_DFP,1.0_DFP,1.0_DFP], [2,4]), &
+ & typeFEVariableVector, &
+ & typeFEVariableSpace )
+CALL GetSpatialGradient(obj=obj, lg=var2, val=var1)
+CALL Display( var2, "Vector + space")
+CALL Display( SpatialGradient(obj, var1), "Vector + space")
```
!!! settings "Cleanup"
diff --git a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_43.md b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_43.md
index 3d479f4f..facc9b31 100644
--- a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_43.md
+++ b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_43.md
@@ -10,9 +10,9 @@ This example demonstrates how to USE the `GetSpatialGradient` method for matrix
## Usage
!!! note ""
- IMPORT modules and declare variables
+IMPORT modules and declare variables
-``` fortran
+```fortran
PROGRAM main
USE easifemBase
IMPLICIT NONE
@@ -30,51 +30,51 @@ PROGRAM main
```
!!! note ""
- Initiate an instance of [[ReferenceQuadrangle_]]
+Initiate an instance of [[ReferenceQuadrangle_]]
```fortran
- refelem = ReferenceQuadrangle( nsd = nsd )
+refelem = ReferenceQuadrangle( nsd = nsd )
```
!!! note ""
- Initiate Gauss-Legendre Quadrature points.
+Initiate Gauss-Legendre Quadrature points.
```fortran
- CALL Initiate(obj=quad, refelem=refelem, order=order, &
- & quadratureType='GaussLegendre')
+CALL Initiate(obj=quad, refelem=refelem, order=order, &
+ & quadratureType='GaussLegendre')
```
!!! note ""
- Initiate an instance of [[ElemshapeData_]] for [[ReferenceQuadrangle_]]. The code shown below ONLY initiates the Spatial shape FUNCTION DATA.
+Initiate an instance of [[ElemshapeData_]] for [[ReferenceQuadrangle_]]. The code shown below ONLY initiates the Spatial shape FUNCTION DATA.
```fortran
- CALL Initiate( obj = obj, quad = quad, refelem = refelem, &
- & ContinuityType= typeH1, InterpolType = TypeLagrangeInterpolation )
- CALL Set( obj=obj, val=xij, N=obj%N, dNdXi=obj%dNdXi )
+CALL Initiate( obj = obj, quad = quad, refelem = refelem, &
+ & ContinuityType= typeH1, InterpolType = TypeLagrangeInterpolation )
+CALL Set( obj=obj, val=xij, N=obj%N, dNdXi=obj%dNdXi )
```
!!! note "GetSpatialGradient"
- Vector variable, constant.
+Vector variable, constant.
```fortran
- var1 = NodalVariable( ones(2,2, 1.0_DFP), &
- & typeFEVariableMatrix, &
- & typeFEVariableConstant )
- CALL GetSpatialGradient(obj=obj, lg=var2, val=var1)
- CALL Display( var2, "matrix+ constant")
- CALL Display( SpatialGradient(obj, var1), "matrix + constant")
+var1 = NodalVariable( ones(2,2, 1.0_DFP), &
+ & typeFEVariableMatrix, &
+ & typeFEVariableConstant )
+CALL GetSpatialGradient(obj=obj, lg=var2, val=var1)
+CALL Display( var2, "matrix+ constant")
+CALL Display( SpatialGradient(obj, var1), "matrix + constant")
```
!!! note "GetSpatialGradient"
- Vector variable, space.
+Vector variable, space.
```fortran
- var1 = NodalVariable( ones(2,2, 4, 1.0_DFP), &
- & typeFEVariableMatrix, &
- & typeFEVariableSpace )
- CALL GetSpatialGradient(obj=obj, lg=var2, val=var1)
- CALL Display( var2, "matrix + space")
- CALL Display( SpatialGradient(obj, var1), "matrix + space")
+var1 = NodalVariable( ones(2,2, 4, 1.0_DFP), &
+ & typeFEVariableMatrix, &
+ & typeFEVariableSpace )
+CALL GetSpatialGradient(obj=obj, lg=var2, val=var1)
+CALL Display( var2, "matrix + space")
+CALL Display( SpatialGradient(obj, var1), "matrix + space")
```
!!! settings "Cleanup"
diff --git a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_5.md b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_5.md
index 96f42324..4400c60f 100644
--- a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_5.md
+++ b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_5.md
@@ -9,4 +9,3 @@ This example demonstrates how to initiate an instance of [[ElemshapeData_]] for
- [[ReferenceTriangle_]]
## Usage
-
diff --git a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_6.md b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_6.md
index 21e8ac00..61a3dec6 100644
--- a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_6.md
+++ b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_6.md
@@ -9,4 +9,3 @@ This example demonstrates how to initiate an instance of [[ElemshapeData_]] for
- [[ReferenceTriangle_]]
## Usage
-
diff --git a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_7.md b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_7.md
index 4785c71a..6dfd1455 100644
--- a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_7.md
+++ b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_7.md
@@ -9,4 +9,3 @@ This example demonstrates how to initiate an instance of [[ElemshapeData_]] for
- [[ReferenceTriangle_]]
## Usage
-
diff --git a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_8.md b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_8.md
index bd40369e..15097bab 100644
--- a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_8.md
+++ b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_8.md
@@ -9,4 +9,3 @@ This example demonstrates how to initiate an instance of [[ElemshapeData_]] for
- [[ReferenceTriangle_]]
## Usage
-
diff --git a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_9.md b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_9.md
index 2befb857..5d73fdbd 100644
--- a/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_9.md
+++ b/docs/docs-api/ElemshapeData/examples/_ElemshapeData_test_9.md
@@ -9,4 +9,3 @@ This example demonstrates how to initiate an instance of [[ElemshapeData_]] for
- [[ReferenceTriangle_]]
## Usage
-
diff --git a/docs/docs-api/ExceptionHandler/ExceptionHandler_test_1.md b/docs/docs-api/ExceptionHandler/ExceptionHandler_test_1.md
index 7e795939..cd7fb05e 100644
--- a/docs/docs-api/ExceptionHandler/ExceptionHandler_test_1.md
+++ b/docs/docs-api/ExceptionHandler/ExceptionHandler_test_1.md
@@ -47,9 +47,9 @@ CALL e%raiseInformation(modName//"::"//myName//" - "// &
Result:
[💚 INFORMATION ✅]
- [🚀 Module ] ExceptionHandler_test_1.F90
- [🎇 Method ] main()
- [🔊 Message] Hello world
+[🚀 Module ] ExceptionHandler_test_1.F90
+[🎇 Method ] main()
+[🔊 Message] Hello world
- [[ExceptionHandler_#RaiseWarning]]
@@ -59,9 +59,9 @@ CALL e%raiseWarning(modName//"::"//myName//" - "// &
```
[⚠ WARNING ❗]
- [🚀 Module ] ExceptionHandler_test_1.F90
- [🎇 Method ] main()
- [🔊 Message] Hello world
+[🚀 Module ] ExceptionHandler_test_1.F90
+[🎇 Method ] main()
+[🔊 Message] Hello world
- [[ExceptionHandler_#RaiseDebug]]
@@ -71,9 +71,9 @@ CALL e%raiseDebug(modName//"::"//myName//" - "// &
```
[❓ DEBUG 🐛]
- [🚀 Module ] ExceptionHandler_test_1.F90
- [🎇 Method ] main()
- [🔊 Message] Hello world
+[🚀 Module ] ExceptionHandler_test_1.F90
+[🎇 Method ] main()
+[🔊 Message] Hello world
- [[ExceptionHandler_#RaiseError]]
@@ -83,9 +83,9 @@ CALL e%raiseError(modName//"::"//myName//" - "// &
```
[❎ ERROR ⛔]
- [🚀 Module ] ExceptionHandler_test_1.F90
- [🎇 Method ] main()
- [🔊 Message] Hello world
+[🚀 Module ] ExceptionHandler_test_1.F90
+[🎇 Method ] main()
+[🔊 Message] Hello world
```fortran
END PROGRAM main
diff --git a/docs/docs-api/EyeUtility/_Eye_test_1.md b/docs/docs-api/EyeUtility/_Eye_test_1.md
index 76891103..a50651f6 100644
--- a/docs/docs-api/EyeUtility/_Eye_test_1.md
+++ b/docs/docs-api/EyeUtility/_Eye_test_1.md
@@ -15,8 +15,8 @@ end program main
Eye (Real32) =
-| | | | | |
-| --- | --- | --- | --- | --- |
+| | | | | |
+| - | - | - | - | - |
| 1 | 0 | 0 | 0 | 0 |
| 0 | 1 | 0 | 0 | 0 |
| 0 | 0 | 1 | 0 | 0 |
@@ -25,8 +25,8 @@ Eye (Real32) =
Eye (Int32) =
-| | | | | |
-| --- | --- | --- | --- | --- |
+| | | | | |
+| - | - | - | - | - |
| 1 | 0 | 0 | 0 | 0 |
| 0 | 1 | 0 | 0 | 0 |
| 0 | 0 | 1 | 0 | 0 |
diff --git a/docs/docs-api/FEDOF/FEDOF_.md b/docs/docs-api/FEDOF/FEDOF_.md
index b20bb245..ca5a8320 100644
--- a/docs/docs-api/FEDOF/FEDOF_.md
+++ b/docs/docs-api/FEDOF/FEDOF_.md
@@ -1,20 +1,5 @@
---
sidebar_position: 2
-date: 2024-09-30
-update: 2024-09-30
-status: stable
-docs: done
-extpkgs: none
-category:
- - Domain
- - Mesh
- - ShapeFunctions
- - FEDOF
-tags:
- - Domain
- - Mesh
- - shapeFunctions
- - FEDOF
---
# Structure
@@ -112,23 +97,23 @@ It is true when `baseInterpolation` is Lagrange
### `tdof`
-Total number of degrees of freedom
+Total number of degrees of freedom in FEDOF object.
### `tNodes`
-Total number of nodes
+Total number of nodes in mesh.
### `tEdges`
-Total number of edges
+Total number of edges in mesh.
### `tFaces`
-Total number of faces
+Total number of faces in mesh.
### `tCells`
-Total number of cells
+Total number of cells in mesh.
### `maxTotalConnectivity`
diff --git a/docs/docs-api/FEDOF/ImportFromToml.md b/docs/docs-api/FEDOF/ImportFromToml.md
new file mode 100644
index 00000000..d76e3c31
--- /dev/null
+++ b/docs/docs-api/FEDOF/ImportFromToml.md
@@ -0,0 +1,57 @@
+---
+title: ImportFromToml
+---
+
+This method imports the configuration form a toml file and initiates the FEDOF instance.
+
+## Interface 1
+
+In this interface to import the data we specify the toml table and mesh.
+
+```fortran
+INTERFACE FEDOFImportFromToml
+ MODULE SUBROUTINE ImportFromToml(obj, table, mesh)
+ CLASS(FEDOF_), INTENT(INOUT) :: obj
+ TYPE(toml_table), INTENT(INOUT) :: table
+ CLASS(AbstractMesh_), TARGET, INTENT(IN) :: mesh
+ END SUBROUTINE ImportFromToml
+END INTERFACE FEDOFImportFromToml
+```
+
+## Interface 2
+
+In this interface to import the data we specify the name of the toml file (or provide an instance of TxtFile), name of the key (tomlName), and mesh.
+
+```fortran
+INTERFACE FEDOFImportFromToml
+ MODULE SUBROUTINE ImportFromToml(obj, tomlName, afile, &
+ filename, printToml, mesh)
+ CLASS(FEDOF_), INTENT(INOUT) :: obj
+ CHARACTER(*), INTENT(IN) :: tomlName
+ TYPE(TxtFile_), OPTIONAL, INTENT(INOUT) :: afile
+ CHARACTER(*), OPTIONAL, INTENT(IN) :: filename
+ LOGICAL(LGT), OPTIONAL, INTENT(IN) :: printToml
+ CLASS(AbstractMesh_), OPTIONAL, INTENT(IN) :: mesh
+ END SUBROUTINE ImportFromToml
+END INTERFACE FEDOFImportFromToml
+```
+
+## Template for Import for toml file
+
+import CodeBlock from '@theme/CodeBlock';
+
+import CodeSnippet from '!!raw-loader!./examples/toml/_ImportFromToml_test_1.toml';
+
+
{CodeSnippet}
+
+## Example 1
+
+import EXAMPLE47 from "./examples/_ImportFromToml_test_1.md";
+
+
+
+## Example 2
+
+import EXAMPLE56 from "./examples/_ImportFromToml_test_2.md";
+
+
diff --git a/docs/docs-api/FEDOF/Initiate.md b/docs/docs-api/FEDOF/Initiate.md
index c2d842fd..a78bf878 100644
--- a/docs/docs-api/FEDOF/Initiate.md
+++ b/docs/docs-api/FEDOF/Initiate.md
@@ -4,7 +4,8 @@ sidebar_position: 4
# Initiate
-This method initiates an instance of `FEDOF`. There are several ways to initiate an instance of `FEDOF`.
+This method initiates an instance of `FEDOF`.
+There are several ways to initiate an instance of `FEDOF`.
## Interface 1
@@ -87,10 +88,7 @@ END INTERFACE
## Interface 4
This routine is similar to the interface 2, but the order of the element is defined for global element numbers.
-
-The number of rows in order is equal to 2, the first row contains the global element number the second row contains the order.
-
-This routine will make `order0(:)` from `order(:,:)` and call `Initiate2`.
+`order` is a two-dimensional array. The number of rows in order is equal to 2, the first row contains the global element number the second row contains the order. This routine will make `order0(:)` from `order(:,:)` and call `Initiate2`.
```fortran
INTERFACE
@@ -121,3 +119,48 @@ INTERFACE
END SUBROUTINE Initiate
END INTERFACE
```
+
+## Examples
+
+
+
+
+import EXAMPLE129 from "./examples/_Initiate_test_1.md";
+
+
+
+
+
+
+
+import EXAMPLE139 from "./examples/_Initiate_test_2.md";
+
+
+
+
+
+
+
+import EXAMPLE147 from "./examples/_Initiate_test_3.md";
+
+
+
+
+
+
+
+import EXAMPLE153 from "./examples/_Initiate_test_4.md";
+
+
+
+
+
+
+
+import EXAMPLE162 from "./examples/_Initiate_test_5.md";
+
+
+
+
+
+
diff --git a/docs/docs-api/FEDOF/examples/_ImportFromToml_test_1.F90 b/docs/docs-api/FEDOF/examples/_ImportFromToml_test_1.F90
new file mode 100644
index 00000000..2c558dde
--- /dev/null
+++ b/docs/docs-api/FEDOF/examples/_ImportFromToml_test_1.F90
@@ -0,0 +1,86 @@
+!> author: Vikas Sharma, Ph. D.
+! date: 2025-06-01
+! summary: Initiate FEDOF object by import from toml
+
+PROGRAM main
+USE FEDOF_Class
+USE FEDomain_Class
+USE AbstractMesh_Class
+USE HDF5File_Class
+USE Display_Method
+USE GlobalData
+USE Test_Method
+USE ExceptionHandler_Class, ONLY: e, EXCEPTION_INFORMATION
+
+IMPLICIT NONE
+
+TYPE(FEDOF_) :: obj
+TYPE(FEDomain_) :: dom
+CLASS(AbstractMesh_), POINTER :: meshptr => NULL()
+CHARACTER(*), PARAMETER :: filename = &
+ "../../FEMesh/examples/meshdata/small_tri3_mesh.h5"
+TYPE(HDF5File_) :: meshfile
+INTEGER(I4B) :: found, want
+
+CALL e%setQuietMode(EXCEPTION_INFORMATION, .TRUE.)
+CALL meshfile%Initiate(filename, mode="READ")
+CALL meshfile%OPEN()
+CALL dom%Initiate(meshfile, '')
+
+meshptr => dom%GetMeshPointer()
+
+CALL obj%ImportFromToml(tomlName="test1", &
+ filename="./toml/_ImportFromToml_test_1.toml", mesh=meshptr)
+!CALL fedof%Display("FEDOF:")
+found = obj%GetTotalDOF()
+want = meshptr%GetTotalNodes()
+CALL IS(found, want, "Total DOF (order=1): ")
+
+CALL obj%ImportFromToml(tomlName="test2", &
+ filename="./toml/_ImportFromToml_test_1.toml", mesh=meshptr)
+found = obj%GetTotalDOF()
+want = meshptr%GetTotalNodes() + meshptr%GetTotalFaces() + 0*meshptr%GetTotalCells()
+CALL IS(found, want, "Total DOF (order=2): ")
+
+CALL obj%ImportFromToml(tomlName="test3", &
+ filename="./toml/_ImportFromToml_test_1.toml", mesh=meshptr)
+found = obj%GetTotalDOF()
+want = meshptr%GetTotalNodes() + 2*meshptr%GetTotalFaces() + 1*meshptr%GetTotalCells()
+CALL IS(found, want, "Total DOF (order=3): ")
+
+CALL obj%ImportFromToml(tomlName="test4", &
+ filename="./toml/_ImportFromToml_test_1.toml", mesh=meshptr)
+found = obj%GetTotalDOF()
+want = meshptr%GetTotalNodes() + 3*meshptr%GetTotalFaces() + 3*meshptr%GetTotalCells()
+CALL OK(found == want, "Total DOF (order=4): ")
+
+CALL obj%ImportFromToml(tomlName="test5", &
+ filename="./toml/_ImportFromToml_test_1.toml", mesh=meshptr)
+!CALL fedof%Display("FEDOF:")
+found = obj%GetTotalDOF()
+want = meshptr%GetTotalNodes()
+CALL IS(found, want, "Total DOF (order=1): ")
+
+CALL obj%ImportFromToml(tomlName="test6", &
+ filename="./toml/_ImportFromToml_test_1.toml", mesh=meshptr)
+found = obj%GetTotalDOF()
+want = meshptr%GetTotalNodes() + meshptr%GetTotalFaces() + 0*meshptr%GetTotalCells()
+CALL IS(found, want, "Total DOF (order=2): ")
+
+CALL obj%ImportFromToml(tomlName="test7", &
+ filename="./toml/_ImportFromToml_test_1.toml", mesh=meshptr)
+found = obj%GetTotalDOF()
+want = meshptr%GetTotalNodes() + 2*meshptr%GetTotalFaces() + 1*meshptr%GetTotalCells()
+CALL IS(found, want, "Total DOF (order=3): ")
+
+CALL obj%ImportFromToml(tomlName="test8", &
+ filename="./toml/_ImportFromToml_test_1.toml", mesh=meshptr)
+found = obj%GetTotalDOF()
+want = meshptr%GetTotalNodes() + 3*meshptr%GetTotalFaces() + 3*meshptr%GetTotalCells()
+CALL OK(found == want, "Total DOF (order=4): ")
+
+!CALL dom%Display("domain:")
+CALL dom%DEALLOCATE()
+CALL meshfile%DEALLOCATE()
+
+END PROGRAM main
diff --git a/docs/docs-api/FEDOF/examples/_ImportFromToml_test_1.md b/docs/docs-api/FEDOF/examples/_ImportFromToml_test_1.md
new file mode 100644
index 00000000..98662329
--- /dev/null
+++ b/docs/docs-api/FEDOF/examples/_ImportFromToml_test_1.md
@@ -0,0 +1,5 @@
+import CodeBlock from '@theme/CodeBlock';
+
+import CodeSnippet from '!!raw-loader!./_ImportFromToml_test_1.F90';
+
+
{CodeSnippet}
diff --git a/docs/docs-api/FEDOF/examples/_ImportFromToml_test_2.F90 b/docs/docs-api/FEDOF/examples/_ImportFromToml_test_2.F90
new file mode 100644
index 00000000..3d82b9a9
--- /dev/null
+++ b/docs/docs-api/FEDOF/examples/_ImportFromToml_test_2.F90
@@ -0,0 +1,50 @@
+!> author: Vikas Sharma, Ph. D.
+! date:
+! summary: Initiate fedof with H1 and Heirarchical bases, order is a vector.
+
+PROGRAM main
+USE FEDOF_Class
+USE FEDomain_Class
+USE AbstractMesh_Class
+USE HDF5File_Class
+USE Display_Method
+USE GlobalData
+USE Test_Method
+USE ExceptionHandler_Class, ONLY: e, EXCEPTION_INFORMATION
+USE ReallocateUtility
+
+IMPLICIT NONE
+
+TYPE(FEDOF_) :: fedof
+TYPE(FEDomain_) :: dom
+CLASS(AbstractMesh_), POINTER :: meshptr => NULL()
+CHARACTER(*), PARAMETER :: filename = &
+ "../../FEMesh/examples/meshdata/small_tri3_mesh.h5"
+TYPE(HDF5File_) :: meshfile
+LOGICAL(LGT) :: isok
+INTEGER(I4B) :: found, want, order, ii, iel
+
+CALL e%setQuietMode(EXCEPTION_INFORMATION, .TRUE.)
+CALL meshfile%Initiate(filename, mode="READ")
+CALL meshfile%OPEN()
+CALL dom%Initiate(meshfile, '')
+
+meshptr => dom%GetMeshPointer()
+
+CALL fedof%ImportFromToml(tomlName="test1", &
+ filename="./toml/_ImportFromToml_test_2.toml", mesh=meshptr)
+
+! CALL fedof%DisplayCellOrder("Debug Cell order", full=.TRUE.)
+
+found = fedof%GetTotalDOF()
+want = 39
+isok = found == want
+CALL IS(found, want, "Total DOF ")
+
+! CALL Display(fedof%GetConnectivity(globalElement=13, islocal=.FALSE., opt="A"), &
+! "connectivity of global element 13", full=.TRUE.)
+
+CALL dom%DEALLOCATE()
+CALL meshfile%DEALLOCATE()
+
+END PROGRAM main
diff --git a/docs/docs-api/FEDOF/examples/_ImportFromToml_test_2.md b/docs/docs-api/FEDOF/examples/_ImportFromToml_test_2.md
new file mode 100644
index 00000000..e6913521
--- /dev/null
+++ b/docs/docs-api/FEDOF/examples/_ImportFromToml_test_2.md
@@ -0,0 +1,5 @@
+import CodeBlock from '@theme/CodeBlock';
+
+import CodeSnippet from '!!raw-loader!./_ImportFromToml_test_2.F90';
+
+
{CodeSnippet}
diff --git a/docs/docs-api/FEDOF/examples/_Initiate_test_1.md b/docs/docs-api/FEDOF/examples/_Initiate_test_1.md
new file mode 100644
index 00000000..5b9586f1
--- /dev/null
+++ b/docs/docs-api/FEDOF/examples/_Initiate_test_1.md
@@ -0,0 +1,7 @@
+This example shows how to initiate FEDOF with H1 and Hierarchy interpolation.
+
+import CodeBlock from '@theme/CodeBlock';
+
+import CodeSnippet from '!!raw-loader!./_Initiate_test_1.F90';
+
+
{CodeSnippet}
diff --git a/docs/docs-api/FEDOF/examples/_Initiate_test_2.F90 b/docs/docs-api/FEDOF/examples/_Initiate_test_2.F90
index e2f85e0c..7ed3c42c 100644
--- a/docs/docs-api/FEDOF/examples/_Initiate_test_2.F90
+++ b/docs/docs-api/FEDOF/examples/_Initiate_test_2.F90
@@ -1,3 +1,7 @@
+!> author: Vikas Sharma, Ph. D.
+! date: 2025-06-01
+! summary: Initiate fedof for H1 and Heirarchical bases, order is a vector.
+
PROGRAM main
USE FEDOF_Class
USE FEDomain_Class
@@ -15,7 +19,7 @@ PROGRAM main
TYPE(FEDomain_) :: dom
CLASS(AbstractMesh_), POINTER :: meshptr => NULL()
CHARACTER(*), PARAMETER :: filename = &
- & "../../Mesh/examples/meshdata/small_mesh.h5"
+ "../../FEMesh/examples/meshdata/small_tri3_mesh.h5"
TYPE(HDF5File_) :: meshfile
INTEGER(I4B) :: found, want
INTEGER(I4B), ALLOCATABLE :: cellOrder(:)
@@ -34,28 +38,28 @@ PROGRAM main
!CALL fedof%Display("FEDOF:")
found = fedof%GetTotalDOF()
want = meshptr%GetTotalNodes()
-CALL OK(found == want, "Total DOF (order=1): ")
+CALL IS(found, want, "Total DOF (order=1): ")
cellOrder = 2
CALL fedof%Initiate(baseContinuity="H1", baseInterpolation="Heirarchical", &
order=cellOrder, mesh=meshptr)
found = fedof%GetTotalDOF()
want = meshptr%GetTotalNodes() + meshptr%GetTotalFaces()
-CALL OK(found == want, "Total DOF (order=2): ")
+CALL IS(found, want, "Total DOF (order=2): ")
cellOrder = 3
CALL fedof%Initiate(baseContinuity="H1", baseInterpolation="Heirarchical", &
order=cellOrder, mesh=meshptr)
found = fedof%GetTotalDOF()
want = meshptr%GetTotalNodes() + 2*meshptr%GetTotalFaces() + meshptr%GetTotalCells()
-CALL OK(found == want, "Total DOF (order=3): ")
+CALL IS(found, want, "Total DOF (order=3): ")
cellOrder = 4
CALL fedof%Initiate(baseContinuity="H1", baseInterpolation="Heirarchical", &
order=cellOrder, mesh=meshptr)
found = fedof%GetTotalDOF()
want = meshptr%GetTotalNodes() + 3*meshptr%GetTotalFaces() + 3*meshptr%GetTotalCells()
-CALL OK(found == want, "Total DOF (order=4): ")
+CALL IS(found, want, "Total DOF (order=4): ")
!CALL dom%Display("domain:")
CALL dom%DEALLOCATE()
diff --git a/docs/docs-api/FEDOF/examples/_Initiate_test_2.md b/docs/docs-api/FEDOF/examples/_Initiate_test_2.md
new file mode 100644
index 00000000..100cfe13
--- /dev/null
+++ b/docs/docs-api/FEDOF/examples/_Initiate_test_2.md
@@ -0,0 +1,7 @@
+This example shows how to initiate FEDOF with H1 and Hierarchy interpolation. Interface 2 of initiate method is used wherein order is a vector of integers representing the order of basis functions for each cell.
+
+import CodeBlock from '@theme/CodeBlock';
+
+import CodeSnippet from '!!raw-loader!./_Initiate_test_2.F90';
+
+
{CodeSnippet}
diff --git a/docs/docs-api/FEDOF/examples/_Initiate_test_3.F90 b/docs/docs-api/FEDOF/examples/_Initiate_test_3.F90
index fbe4b68a..1a486add 100644
--- a/docs/docs-api/FEDOF/examples/_Initiate_test_3.F90
+++ b/docs/docs-api/FEDOF/examples/_Initiate_test_3.F90
@@ -1,3 +1,7 @@
+!> author: Vikas Sharma, Ph. D.
+! date:
+! summary: Initiate fedof with H1 and Heirarchical bases, order is a vector.
+
PROGRAM main
USE FEDOF_Class
USE FEDomain_Class
@@ -15,7 +19,7 @@ PROGRAM main
TYPE(FEDomain_) :: dom
CLASS(AbstractMesh_), POINTER :: meshptr => NULL()
CHARACTER(*), PARAMETER :: filename = &
- & "../../Mesh/examples/meshdata/small_mesh.h5"
+ "../../FEMesh/examples/meshdata/small_tri3_mesh.h5"
TYPE(HDF5File_) :: meshfile
LOGICAL(LGT) :: isok
INTEGER(I4B) :: found, want, order, ii, iel
diff --git a/docs/docs-api/FEDOF/examples/_Initiate_test_3.md b/docs/docs-api/FEDOF/examples/_Initiate_test_3.md
new file mode 100644
index 00000000..21aa7c8e
--- /dev/null
+++ b/docs/docs-api/FEDOF/examples/_Initiate_test_3.md
@@ -0,0 +1,5 @@
+import CodeBlock from '@theme/CodeBlock';
+
+import CodeSnippet from '!!raw-loader!./_Initiate_test_3.F90';
+
+
{CodeSnippet}
diff --git a/docs/docs-api/FEDOF/examples/_Initiate_test_4.F90 b/docs/docs-api/FEDOF/examples/_Initiate_test_4.F90
index 3719e3ca..2e7bf158 100644
--- a/docs/docs-api/FEDOF/examples/_Initiate_test_4.F90
+++ b/docs/docs-api/FEDOF/examples/_Initiate_test_4.F90
@@ -11,6 +11,7 @@ PROGRAM main
USE GlobalData
USE Test_Method
USE ExceptionHandler_Class, ONLY: e, EXCEPTION_INFORMATION
+use BaseType, only: poly=>TypePolynomialOpt
IMPLICIT NONE
@@ -18,10 +19,11 @@ PROGRAM main
TYPE(FEDomain_) :: dom
CLASS(AbstractMesh_), POINTER :: meshptr => NULL()
CHARACTER(*), PARAMETER :: filename = &
- & "../../Mesh/examples/meshdata/small_mesh.h5"
+ "../../FEMesh/examples/meshdata/small_tri3_mesh.h5"
+
TYPE(HDF5File_) :: meshfile
INTEGER(I4B) :: found, want
-INTEGER(I4B), PARAMETER :: order = 1
+INTEGER(I4B), PARAMETER :: order = 1, ipType = poly%monomial
CHARACTER(*), PARAMETER :: baseContinuity = "H1"
CHARACTER(*), PARAMETER :: baseInterpolation = "Lagrange"
@@ -32,14 +34,12 @@ PROGRAM main
meshptr => dom%GetMeshPointer()
-CALL fedof%Initiate(baseContinuity=baseContinuity, &
- baseInterpolation=baseInterpolation, &
- order=order, &
- mesh=meshptr)
+CALL fedof%Initiate(baseContinuity=baseContinuity, ipType=ipType, &
+ baseInterpolation=baseInterpolation, order=order, mesh=meshptr)
!CALL fedof%Display("FEDOF:")
found = fedof%GetTotalDOF()
want = meshptr%GetTotalNodes()
-CALL OK(found == want, "Total DOF (order=1): ")
+CALL IS(found, want, "Total DOF (order=1): ")
!CALL dom%Display("domain:")
CALL dom%DEALLOCATE()
diff --git a/docs/docs-api/FEDOF/examples/_Initiate_test_4.md b/docs/docs-api/FEDOF/examples/_Initiate_test_4.md
new file mode 100644
index 00000000..107a927b
--- /dev/null
+++ b/docs/docs-api/FEDOF/examples/_Initiate_test_4.md
@@ -0,0 +1,5 @@
+import CodeBlock from '@theme/CodeBlock';
+
+import CodeSnippet from '!!raw-loader!./_Initiate_test_4.F90';
+
+
{CodeSnippet}
diff --git a/docs/docs-api/FEDOF/examples/_Initiate_test_5.F90 b/docs/docs-api/FEDOF/examples/_Initiate_test_5.F90
index 6bf92f44..ae0b32f0 100644
--- a/docs/docs-api/FEDOF/examples/_Initiate_test_5.F90
+++ b/docs/docs-api/FEDOF/examples/_Initiate_test_5.F90
@@ -11,6 +11,7 @@ PROGRAM main
USE GlobalData
USE Test_Method
USE ExceptionHandler_Class, ONLY: e, EXCEPTION_INFORMATION
+USE BaseType, ONLY: poly => TypePolynomialOpt
IMPLICIT NONE
@@ -18,10 +19,10 @@ PROGRAM main
TYPE(FEDomain_) :: dom
CLASS(AbstractMesh_), POINTER :: meshptr => NULL()
CHARACTER(*), PARAMETER :: filename = &
- & "../../Mesh/examples/meshdata/small_tri6_mesh.h5"
+ "../../FEMesh/examples/meshdata/small_tri6_mesh.h5"
TYPE(HDF5File_) :: meshfile
INTEGER(I4B) :: found, want
-INTEGER(I4B), PARAMETER :: order = 2
+INTEGER(I4B), PARAMETER :: order = 2, ipType = poly%monomial
CHARACTER(*), PARAMETER :: baseContinuity = "H1"
CHARACTER(*), PARAMETER :: baseInterpolation = "Lagrange"
@@ -32,7 +33,7 @@ PROGRAM main
meshptr => dom%GetMeshPointer()
-CALL fedof%Initiate(baseContinuity=baseContinuity, &
+CALL fedof%Initiate(baseContinuity=baseContinuity, ipType=ipType, &
baseInterpolation=baseInterpolation, &
order=order, &
mesh=meshptr)
diff --git a/docs/docs-api/FEDOF/examples/_Initiate_test_5.md b/docs/docs-api/FEDOF/examples/_Initiate_test_5.md
new file mode 100644
index 00000000..3e1a3ab6
--- /dev/null
+++ b/docs/docs-api/FEDOF/examples/_Initiate_test_5.md
@@ -0,0 +1,5 @@
+import CodeBlock from '@theme/CodeBlock';
+
+import CodeSnippet from '!!raw-loader!./_Initiate_test_5.F90';
+
+
{CodeSnippet}
diff --git a/docs/docs-api/FEDOF/examples/_Initiate_test_6.F90 b/docs/docs-api/FEDOF/examples/_Initiate_test_6.F90
index d0c31268..493fd8dc 100644
--- a/docs/docs-api/FEDOF/examples/_Initiate_test_6.F90
+++ b/docs/docs-api/FEDOF/examples/_Initiate_test_6.F90
@@ -1,25 +1,6 @@
-! This program is a part of EASIFEM library
-! Expandable And Scalable Infrastructure for Finite Element Methods
-! htttps://www.easifem.com
-! Vikas Sharma, Ph.D., vickysharma0812@gmail.com
-!
-! This program is free software: you can redistribute it and/or modify
-! it under the terms of the GNU General Public License as published by
-! the Free Software Foundation, either version 3 of the License, or
-! (at your option) any later version.
-!
-! This program is distributed in the hope that it will be useful,
-! but WITHOUT ANY WARRANTY; without even the implied warranty of
-! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-! GNU General Public License for more details.
-!
-! You should have received a copy of the GNU General Public License
-! along with this program. If not, see
-!
-
!> author: Vikas Sharma, Ph. D.
! date: 2024-05-24
-! summary: Heirarchical DOF test
+! summary: testing initiate method for Hierarchical bases with different orders
PROGRAM main
USE FEDOF_Class
@@ -38,7 +19,7 @@ PROGRAM main
TYPE(FEDomain_) :: dom
CLASS(AbstractMesh_), POINTER :: meshptr => NULL()
CHARACTER(*), PARAMETER :: filename = &
- & "../../Mesh/examples/meshdata/small_mesh.h5"
+ "../../FEMesh/examples/meshdata/small_tri3_mesh.h5"
TYPE(HDF5File_) :: meshfile
LOGICAL(LGT) :: isok
INTEGER(I4B) :: found, want, order, ii, iel
diff --git a/docs/docs-api/FEDOF/examples/_Initiate_test_6.md b/docs/docs-api/FEDOF/examples/_Initiate_test_6.md
new file mode 100644
index 00000000..a2846396
--- /dev/null
+++ b/docs/docs-api/FEDOF/examples/_Initiate_test_6.md
@@ -0,0 +1,5 @@
+import CodeBlock from '@theme/CodeBlock';
+
+import CodeSnippet from '!!raw-loader!./_Initiate_test_6.F90';
+
+
{CodeSnippet}
diff --git a/docs/docs-api/FEDOF/examples/_Initiate_test_7.F90 b/docs/docs-api/FEDOF/examples/_Initiate_test_7.F90
index a75e49ac..e4ad4d15 100644
--- a/docs/docs-api/FEDOF/examples/_Initiate_test_7.F90
+++ b/docs/docs-api/FEDOF/examples/_Initiate_test_7.F90
@@ -1,3 +1,7 @@
+!> author: Vikas Sharma, Ph. D.
+! date: 2025-06-01
+! summary: Testing initiate methods for Hierarchical DOF
+
PROGRAM main
USE FEDOF_Class
USE FEDomain_Class
@@ -14,7 +18,7 @@ PROGRAM main
TYPE(FEDomain_) :: dom
CLASS(AbstractMesh_), POINTER :: meshptr => NULL()
CHARACTER(*), PARAMETER :: filename = &
- "../../Mesh/examples/meshdata/small_mesh.h5"
+ "../../FEMesh/examples/meshdata/small_tri3_mesh.h5"
TYPE(HDF5File_) :: meshfile
INTEGER(I4B) :: found, want
CHARACTER(:), ALLOCATABLE :: testname
diff --git a/docs/docs-api/FEDOF/examples/_Initiate_test_7.md b/docs/docs-api/FEDOF/examples/_Initiate_test_7.md
new file mode 100644
index 00000000..91741de4
--- /dev/null
+++ b/docs/docs-api/FEDOF/examples/_Initiate_test_7.md
@@ -0,0 +1,5 @@
+import CodeBlock from '@theme/CodeBlock';
+
+import CodeSnippet from '!!raw-loader!./_Initiate_test_7.F90';
+
+
{CodeSnippet}
diff --git a/docs/docs-api/FEDOF/examples/_Lagrange_test_1.F90 b/docs/docs-api/FEDOF/examples/_Lagrange_test_1.F90
new file mode 100644
index 00000000..7b29e29b
--- /dev/null
+++ b/docs/docs-api/FEDOF/examples/_Lagrange_test_1.F90
@@ -0,0 +1,48 @@
+!> author: Vikas Sharma, Ph. D.
+! date: 2024-05-24
+! summary: Lagrange polynomial is tested in this example
+
+PROGRAM main
+USE FEDOF_Class
+USE FEDomain_Class
+USE AbstractMesh_Class
+USE HDF5File_Class
+USE Display_Method
+USE GlobalData
+USE Test_Method
+USE ExceptionHandler_Class, ONLY: e, EXCEPTION_INFORMATION
+use BaseType, only: poly=>TypePolynomialOpt
+
+IMPLICIT NONE
+
+TYPE(FEDOF_) :: fedof
+TYPE(FEDomain_) :: dom
+CLASS(AbstractMesh_), POINTER :: meshptr => NULL()
+CHARACTER(*), PARAMETER :: filename = &
+ "../../FEMesh/examples/meshdata/small_tri3_mesh.h5"
+
+TYPE(HDF5File_) :: meshfile
+INTEGER(I4B) :: found, want
+INTEGER(I4B), PARAMETER :: order = 2, ipType = poly%monomial
+CHARACTER(*), PARAMETER :: baseContinuity = "H1"
+CHARACTER(*), PARAMETER :: baseInterpolation = "Lagrange"
+
+CALL e%setQuietMode(EXCEPTION_INFORMATION, .TRUE.)
+CALL meshfile%Initiate(filename, mode="READ")
+CALL meshfile%OPEN()
+CALL dom%Initiate(meshfile, '')
+
+meshptr => dom%GetMeshPointer()
+
+CALL fedof%Initiate(baseContinuity=baseContinuity, ipType=ipType, &
+ baseInterpolation=baseInterpolation, order=order, mesh=meshptr)
+CALL fedof%Display("FEDOF:")
+found = fedof%GetTotalDOF()
+want = meshptr%GetTotalNodes()
+CALL IS(found, want, "Total DOF (order=2): ")
+
+!CALL dom%Display("domain:")
+CALL dom%DEALLOCATE()
+CALL meshfile%DEALLOCATE()
+
+END PROGRAM main
diff --git a/docs/docs-api/FEDOF/examples/runner.toml b/docs/docs-api/FEDOF/examples/runner.toml
index df0e5aec..d6545342 100644
--- a/docs/docs-api/FEDOF/examples/runner.toml
+++ b/docs/docs-api/FEDOF/examples/runner.toml
@@ -1,3 +1,3 @@
BuildType = "Debug"
-BuildDir = "/tmp/easifem-test/"
+BuildDir = "/tmp/easifem-tests/FEDOF"
TargetLibs = ["easifemClasses"]
diff --git a/docs/docs-api/FEDOF/examples/toml/_ImportFromToml_test_1.toml b/docs/docs-api/FEDOF/examples/toml/_ImportFromToml_test_1.toml
new file mode 100644
index 00000000..1207cf73
--- /dev/null
+++ b/docs/docs-api/FEDOF/examples/toml/_ImportFromToml_test_1.toml
@@ -0,0 +1,39 @@
+[test1]
+baseContinuity = "H1"
+baseInterpolation = "Hierarchical"
+order = 1
+
+[test2]
+baseContinuity = "H1"
+baseInterpolation = "Hierarchical"
+order = 2
+
+[test3]
+baseContinuity = "H1"
+baseInterpolation = "Hierarchical"
+order = 3
+
+[test4]
+baseContinuity = "H1"
+baseInterpolation = "Hierarchical"
+order = 4
+
+[test5]
+baseContinuity = "H1"
+baseInterpolation = "Hierarchical"
+order = [1]
+
+[test6]
+baseContinuity = "H1"
+baseInterpolation = "Hierarchical"
+order = [2]
+
+[test7]
+baseContinuity = "H1"
+baseInterpolation = "Hierarchical"
+order = [3]
+
+[test8]
+baseContinuity = "H1"
+baseInterpolation = "Hierarchical"
+order = [4]
diff --git a/docs/docs-api/FEDOF/examples/toml/_ImportFromToml_test_2.toml b/docs/docs-api/FEDOF/examples/toml/_ImportFromToml_test_2.toml
new file mode 100644
index 00000000..39558d89
--- /dev/null
+++ b/docs/docs-api/FEDOF/examples/toml/_ImportFromToml_test_2.toml
@@ -0,0 +1,35 @@
+[test1]
+baseContinuity = "H1"
+baseInterpolation = "Hierarchical"
+order = "./toml/order.csv"
+# [
+# [14, 1],
+# [15, 1],
+# [17, 1],
+# [18, 1],
+# [24, 1],
+# [21, 2],
+# [22, 2],
+# [23, 2],
+# [25, 2],
+# [13, 3],
+# [16, 3],
+# [19, 3],
+# [20, 3],
+# [26, 3]
+# ]
+
+[test2]
+baseContinuity = "H1"
+baseInterpolation = "Hierarchical"
+order = 2
+
+[test3]
+baseContinuity = "H1"
+baseInterpolation = "Hierarchical"
+order = 3
+
+[test4]
+baseContinuity = "H1"
+baseInterpolation = "Hierarchical"
+order = 4
diff --git a/docs/docs-api/FEDOF/index.md b/docs/docs-api/FEDOF/index.md
index e97597e0..a72a4541 100644
--- a/docs/docs-api/FEDOF/index.md
+++ b/docs/docs-api/FEDOF/index.md
@@ -1,11 +1,11 @@
---
sidebar_position: 1
-date: 2024-05-18
-update: 2024-05-18
+date: 2024-05-18
+update: 2024-05-18
status: stable
docs: done
extpkgs: none
-category:
+category:
- Domain
- Mesh
- ShapeFunctions
@@ -18,7 +18,11 @@ tags:
# FEDOF
-Data type for finite element degree of freedoms. `FEDOF_` defines the abstract node in finite element method. The basic steps of using this data type is given below.
+Data type for finite element degree of freedoms.
+`FEDOF_` defines the abstract node in finite element method.
+The meaning of degree of freedom depends upon the basis interpolation function and type.
+For example, in the case of Lagrange interpolation, the degree of freedoms corresponds to the nodes in the element.
+The basic steps of using this data type is given below.
## Basic usage
@@ -30,11 +34,15 @@ There are several ways to initiate an instance of `FEDOF`.
CALL obj%Initiate(order, mesh, baseContinuity, baseInterpolation, ipType, basisType, alpha, beta, lambda)
```
-- Here `order` represents the order of each element.
-- It can be a scalar, vector, or a two dimensional matrix.
-- [The method with scalar order is given here.](./Initiate.md#interface-1)
-- When it is a vector then it represents the order of each cell element. [This method is given here](./Initiate.md#interface-2)
-- Then order is a matrix then the first row represents the global number of cell element, and the second row represents the order of cell element. [This method is given here](./Initiate.md#interface-4)
+- Here `order` represents the order of each element. It can be a scalar, vector, or a two dimensional matrix of integers. [The method with scalar order is given here.](./Initiate.md#interface-1)
+
+:::tip Order is a vector
+When `order` is a vector of integer then it represents the order of each cell element. [This method is discussed here](./Initiate.md#interface-2). In this case, the length of `order` must be equal to the number of elements in the mesh.
+:::
+
+:::tip Order is a matrix
+When order is a matrix of integer then the first row represents the global number of cell element, and the second row represents the order of cell element. [This method is given here](./Initiate.md#interface-4)
+:::
:::info
Read more about [Initiate](./Initiate.md) method.
@@ -42,7 +50,7 @@ Read more about [Initiate](./Initiate.md) method.
You can also initiate an instance of `FEDOF` using [ParameterList](/docs/docs-api/ParameterList/index.md). The process is given below.
-- First, set parameters in `ParameterList` object by using [SetFEDOFParam].
+- First, set parameters in `ParameterList` object by using [SetFEDOFParam](./SetFEDOFParam.md).
- Then, initiate an instance of `FEDOF` using `ParameterList` object by using [Initiate](/docs/docs-api/FEDOF/Initiate.md#interface-3)
```fortran
@@ -90,3 +98,9 @@ Getting the local element connectivity.
```fortran
CALL obj%GetConnectivity_(globalElement, isLocal, ans, tsize, opt)
```
+
+## Methods
+
+import DocCardList from '@theme/DocCardList';
+
+
diff --git a/docs/docs-api/FEDomain/Initiate.md b/docs/docs-api/FEDomain/Initiate.md
index 141097e7..5af28bca 100644
--- a/docs/docs-api/FEDomain/Initiate.md
+++ b/docs/docs-api/FEDomain/Initiate.md
@@ -34,4 +34,3 @@ import EXAMPLE7 from "./examples/_Initiate_test_1.md";
-
diff --git a/docs/docs-api/FEDomain/InitiateFacetElements.md b/docs/docs-api/FEDomain/InitiateFacetElements.md
index 763680a7..9fdc4a2a 100644
--- a/docs/docs-api/FEDomain/InitiateFacetElements.md
+++ b/docs/docs-api/FEDomain/InitiateFacetElements.md
@@ -1,6 +1,6 @@
# InitiateFacetElements
-This routine initiates the facet element information for every mesh of the domain.
+This routine initiates the facet element information for every mesh of the domain.
- [InitiateFacetElements](../FEMesh/InitiateFacetElements.md)
diff --git a/docs/docs-api/FEDomain/SetDomainFacetElement.md b/docs/docs-api/FEDomain/SetDomainFacetElement.md
index 4e4cb068..33c406c3 100644
--- a/docs/docs-api/FEDomain/SetDomainFacetElement.md
+++ b/docs/docs-api/FEDomain/SetDomainFacetElement.md
@@ -2,13 +2,13 @@
This routine sets the domain boundary element for cells and faces.
-When we call [InitiateFacetElements](../FEMesh/InitiateFacetElements.md) for mesh, we can only identify boundary-facet-elements (i.e., boundary elements of the mesh). Moreover, when we call [InitiateFacetElements](../FEMesh/InitiateFacetElements.md) from mesh or domain, all the facet elements are tagged as `DOMAIN_BOUNDARY_ELEMENT`.
+When we call [InitiateFacetElements](../FEMesh/InitiateFacetElements.md) for mesh, we can only identify boundary-facet-elements (i.e., boundary elements of the mesh). Moreover, when we call [InitiateFacetElements](../FEMesh/InitiateFacetElements.md) from mesh or domain, all the facet elements are tagged as `DOMAIN_BOUNDARY_ELEMENT`.
However, some of these boundary facet-elements will be located at the domain’s boundary. These facet elements are called `DOMAIN_BOUNDARY_ELEMENT`.
-Some of the facet elements will be at located at the interface of two mesh regions, these facet elements are called `BOUNDARY_ELEMENT`.
+Some of the facet elements will be at located at the interface of two mesh regions, these facet elements are called `BOUNDARY_ELEMENT`.
-This method correctly differentiates between `BOUNDARY_ELEMENT` and `DOMAIN_BOUNDARY_ELEMENT`.
+This method correctly differentiates between `BOUNDARY_ELEMENT` and `DOMAIN_BOUNDARY_ELEMENT`.
:::info
This routine needs facet element data information stored inside the mesh. Therefore, if for a mesh `isFacetDataInitiated` is false, then this routine will make a call to [InitiateFacetElements](../FEMesh/InitiateFacetElements.md) for that mesh.
diff --git a/docs/docs-api/FEDomain/SetFacetElementType.md b/docs/docs-api/FEDomain/SetFacetElementType.md
index ca302e4a..fc7be8a5 100644
--- a/docs/docs-api/FEDomain/SetFacetElementType.md
+++ b/docs/docs-api/FEDomain/SetFacetElementType.md
@@ -2,18 +2,18 @@
This routine corrrects the facet element type in each mesh.
-When we call [InitiateFacetElements](../Mesh/InitiateFacetElements.md) for mesh, we can only identify boundary-facet-elements (i.e., boundary elements of the mesh).
+When we call [InitiateFacetElements](../Mesh/InitiateFacetElements.md) for mesh, we can only identify boundary-facet-elements (i.e., boundary elements of the mesh).
-Moreover, when we call [InitiateFacetElements](../Mesh/InitiateFacetElements.md) from mesh or domain, all the facet elements are tagged as `DOMAIN_BOUNDARY_ELEMENT`.
+Moreover, when we call [InitiateFacetElements](../Mesh/InitiateFacetElements.md) from mesh or domain, all the facet elements are tagged as `DOMAIN_BOUNDARY_ELEMENT`.
However, some of these boundary facet-elements will be located at the domain’s boundary. These facet elements are called `DOMAIN_BOUNDARY_ELEMENT`.
-Some of the facet elements will be at located at the interface of two mesh regions, these facet elements are called `BOUNDARY_ELEMENT`.
+Some of the facet elements will be at located at the interface of two mesh regions, these facet elements are called `BOUNDARY_ELEMENT`.
-This method correctly differentiates between `BOUNDARY_ELEMENT` and `DOMAIN_BOUNDARY_ELEMENT`.
+This method correctly differentiates between `BOUNDARY_ELEMENT` and `DOMAIN_BOUNDARY_ELEMENT`.
:::info
-This method needs information of boundary data in a mesh, which can be set by calling [InitiateBoundaryData](../Mesh/InitiateBoundaryData.md) by the user.
+This method needs information of boundary data in a mesh, which can be set by calling [InitiateBoundaryData](../Mesh/InitiateBoundaryData.md) by the user.
In this routine if for a mesh `isBoundaryDataInitiated` is `.FALSE.`, then this routine will make a call to [InitiateBoundaryData](../Mesh/InitiateBoundaryData.md) for that mesh and initiate the required boundary data.
:::
@@ -24,7 +24,6 @@ Please check documentation of following methods:
- [SetMeshFacetElement](./SetMeshFacetElement.md)
- [SetFacetElementType](./SetFacetElementType.md)
-
## Interface
```fortran
diff --git a/docs/docs-api/FEDomain/examples/_GetConnectivity_test_1.md b/docs/docs-api/FEDomain/examples/_GetConnectivity_test_1.md
index e0966acb..a3c967b4 100644
--- a/docs/docs-api/FEDomain/examples/_GetConnectivity_test_1.md
+++ b/docs/docs-api/FEDomain/examples/_GetConnectivity_test_1.md
@@ -1,4 +1,4 @@
-``` fortran
+```fortran
PROGRAM main
USE easifemBase
USE easifemClasses
diff --git a/docs/docs-api/FEDomain/examples/_InitiateKdtree_test_1.F90 b/docs/docs-api/FEDomain/examples/_InitiateKdtree_test_1.F90
index 9989ed97..dedec0cc 100644
--- a/docs/docs-api/FEDomain/examples/_InitiateKdtree_test_1.F90
+++ b/docs/docs-api/FEDomain/examples/_InitiateKdtree_test_1.F90
@@ -1,13 +1,20 @@
+!> author: Vikas Sharma, Ph. D.
+! date: 2025-06-02
+! summary: Test for InitiateKdtree method of FEDomain class
PROGRAM main
-USE easifemBase
-USE easifemClasses
USE FEDomain_Class
+USE HDF5File_Class
+USE GlobalData
+
IMPLICIT NONE
+
TYPE(FEDomain_) :: dom
TYPE(HDF5File_) :: meshfile
+
CHARACTER(*), PARAMETER :: filename = &
- & "../../Mesh/examples/meshdata/small_mesh.h5"
+ "./meshdata/small_tri3_mesh.h5"
+
CALL meshfile%Initiate(filename, mode="READ")
CALL meshfile%OPEN()
CALL dom%Initiate(meshfile, '')
diff --git a/docs/docs-api/FEDomain/examples/_IsElementPresent_test_1.md b/docs/docs-api/FEDomain/examples/_IsElementPresent_test_1.md
index 51bc3911..7366928a 100644
--- a/docs/docs-api/FEDomain/examples/_IsElementPresent_test_1.md
+++ b/docs/docs-api/FEDomain/examples/_IsElementPresent_test_1.md
@@ -1,4 +1,4 @@
-``` fortran
+```fortran
PROGRAM main
USE easifemBase
USE easifemClasses
diff --git a/docs/docs-api/FEDomain/examples/_MSH2HDF5_test_1.md b/docs/docs-api/FEDomain/examples/_MSH2HDF5_test_1.md
index bc68da94..b26705d2 100644
--- a/docs/docs-api/FEDomain/examples/_MSH2HDF5_test_1.md
+++ b/docs/docs-api/FEDomain/examples/_MSH2HDF5_test_1.md
@@ -12,22 +12,22 @@ PROGRAM main
Open mesh file, which is in [[HDF5File_]] file format. It is a three setup process; Initiate, open and read.
```fortran
- CALL mshFile%Initiate("./mesh.msh", STATUS="OLD", ACTION="READ")
- CALL mshFile%Open()
- CALL mshFile%Read()
+CALL mshFile%Initiate("./mesh.msh", STATUS="OLD", ACTION="READ")
+CALL mshFile%Open()
+CALL mshFile%Read()
```
Open the [[HDF5File_]] so that we can export data to it from mesh file [[MSHFile_]].
```fortran
- CALL hdf5File%Initiate("./mesh.h5", MODE="NEW")
- CALL hdf5File%Open()
+CALL hdf5File%Initiate("./mesh.h5", MODE="NEW")
+CALL hdf5File%Open()
```
Export mesh file to [[HDF5File_]].
```fortran
- CALL mshFile%Export(hdf5=hdf5File, group="")
+CALL mshFile%Export(hdf5=hdf5File, group="")
```
```fortran
diff --git a/docs/docs-api/FEDomain/examples/_SetMeshFacetElement_test_1.md b/docs/docs-api/FEDomain/examples/_SetMeshFacetElement_test_1.md
index 1514f44f..16abe5c8 100644
--- a/docs/docs-api/FEDomain/examples/_SetMeshFacetElement_test_1.md
+++ b/docs/docs-api/FEDomain/examples/_SetMeshFacetElement_test_1.md
@@ -1,6 +1,6 @@
This example tests the `SetMeshFacetElement` method of the domain.
-``` fortran
+```fortran
PROGRAM main
USE easifemBase
USE easifemClasses
diff --git a/docs/docs-api/FEDomain/examples/_SetMeshMap_test_1.md b/docs/docs-api/FEDomain/examples/_SetMeshMap_test_1.md
index ce081d0b..5851cacb 100644
--- a/docs/docs-api/FEDomain/examples/_SetMeshMap_test_1.md
+++ b/docs/docs-api/FEDomain/examples/_SetMeshMap_test_1.md
@@ -1,6 +1,6 @@
This example tests the `SetMeshMap` method of the domain.
-``` fortran
+```fortran
PROGRAM main
USE easifemBase
USE easifemClasses
diff --git a/docs/docs-api/FEMatrix/FEMatrix_.md b/docs/docs-api/FEMatrix/FEMatrix_.md
index ba7ad7f7..bb196613 100644
--- a/docs/docs-api/FEMatrix/FEMatrix_.md
+++ b/docs/docs-api/FEMatrix/FEMatrix_.md
@@ -18,7 +18,6 @@ $$
\int_{\Omega } N^{I}T_{a}\rho N^{J}T_{b}d\Omega
$$
-
$$
\iint \frac{\partial N^{I}T_{a}}{\partial t} \rho N^{J}T_{b}d\Omega dt
$$
diff --git a/docs/docs-api/FEMesh/Deallocate.md b/docs/docs-api/FEMesh/Deallocate.md
new file mode 100644
index 00000000..d9070782
--- /dev/null
+++ b/docs/docs-api/FEMesh/Deallocate.md
@@ -0,0 +1,9 @@
+# Deallocate
+
+:::tip Inheritence
+This method is inherited from the [AbstractMesh](../AbstractMesh/AbstractMesh_.md) class.
+:::
+
+import EXAMPLE5 from "../AbstractMesh/Deallocate.md";
+
+
diff --git a/docs/docs-api/FEMesh/DeallocateKdTree.md b/docs/docs-api/FEMesh/DeallocateKdTree.md
new file mode 100644
index 00000000..e6055b06
--- /dev/null
+++ b/docs/docs-api/FEMesh/DeallocateKdTree.md
@@ -0,0 +1,9 @@
+# DeallocateKdTree
+
+:::tip Inheritence
+This method is inherited from the [AbstractMesh](../AbstractMesh/AbstractMesh_.md) class.
+:::
+
+import EXAMPLE5 from "../AbstractMesh/DeallocateKdTree.md";
+
+
diff --git a/docs/docs-api/FEMesh/Display.md b/docs/docs-api/FEMesh/Display.md
index 3853fda6..143c9db6 100644
--- a/docs/docs-api/FEMesh/Display.md
+++ b/docs/docs-api/FEMesh/Display.md
@@ -8,3 +8,8 @@ import EXAMPLE5 from "../AbstractMesh/Display.md";
+## Example
+
+import EXAMPLE13 from "./examples/_Display_test_1.md";
+
+
diff --git a/docs/docs-api/FEMesh/DisplayBoundaryFacetData.md b/docs/docs-api/FEMesh/DisplayBoundaryFacetData.md
index 2a74909c..48051ffd 100644
--- a/docs/docs-api/FEMesh/DisplayBoundaryFacetData.md
+++ b/docs/docs-api/FEMesh/DisplayBoundaryFacetData.md
@@ -9,3 +9,15 @@ This method is inherited from the [AbstractMesh](../AbstractMesh/AbstractMesh_.m
import EXAMPLE5 from "../AbstractMesh/DisplayBoundaryFacetData.md";
+
+## Example 1
+
+import EXAMPLE15 from "./examples/_DisplayBoundaryFacetData_test_1.md";
+
+
+
+## Example 2
+
+import EXAMPLE21 from "./examples/_DisplayBoundaryFacetData_test_2.md";
+
+
diff --git a/docs/docs-api/FEMesh/DisplayElementData.md b/docs/docs-api/FEMesh/DisplayElementData.md
index 1e8fe337..662ff676 100644
--- a/docs/docs-api/FEMesh/DisplayElementData.md
+++ b/docs/docs-api/FEMesh/DisplayElementData.md
@@ -10,3 +10,14 @@ import EXAMPLE5 from "../AbstractMesh/DisplayElementData.md";
+## Example 1
+
+import EXAMPLE15 from "./examples/_DisplayElementData_test_1.md";
+
+
+
+## Example 2
+
+import EXAMPLE25 from "./examples/_DisplayElementData_test_2.md";
+
+
diff --git a/docs/docs-api/FEMesh/DisplayFacetData.md b/docs/docs-api/FEMesh/DisplayFacetData.md
new file mode 100644
index 00000000..b40de8e1
--- /dev/null
+++ b/docs/docs-api/FEMesh/DisplayFacetData.md
@@ -0,0 +1,17 @@
+---
+title: DisplayFacetData
+---
+
+:::tip Inheritence
+This method is inherited from the [AbstractMesh](../AbstractMesh/AbstractMesh_.md) class.
+:::
+
+import EXAMPLE5 from "../AbstractMesh/DisplayFacetData.md";
+
+
+
+## Example
+
+import EXAMPLE15 from "./examples/_DisplayFacetData_test_1.md";
+
+
diff --git a/docs/docs-api/FEMesh/DisplayFacetElemSD.md b/docs/docs-api/FEMesh/DisplayFacetElemSD.md
index b06bbfc6..82131050 100644
--- a/docs/docs-api/FEMesh/DisplayFacetElemSD.md
+++ b/docs/docs-api/FEMesh/DisplayFacetElemSD.md
@@ -9,4 +9,3 @@ This method is inherited from the [AbstractMesh](../AbstractMesh/AbstractMesh_.m
import EXAMPLE5 from "../AbstractMesh/DisplayFacetElemSD.md";
-
diff --git a/docs/docs-api/FEMesh/DisplayFacetElements.md b/docs/docs-api/FEMesh/DisplayFacetElements.md
index 51a302c3..0b176eb9 100644
--- a/docs/docs-api/FEMesh/DisplayFacetElements.md
+++ b/docs/docs-api/FEMesh/DisplayFacetElements.md
@@ -9,4 +9,3 @@ This method is inherited from the [AbstractMesh](../AbstractMesh/AbstractMesh_.m
import EXAMPLE5 from "../AbstractMesh/DisplayFacetElements.md";
-
diff --git a/docs/docs-api/FEMesh/DisplayMeshInfo.md b/docs/docs-api/FEMesh/DisplayMeshInfo.md
new file mode 100644
index 00000000..8fe26a8b
--- /dev/null
+++ b/docs/docs-api/FEMesh/DisplayMeshInfo.md
@@ -0,0 +1,15 @@
+# DisplayMeshInfo
+
+:::tip Inheritence
+This method is inherited from the [AbstractMesh](../AbstractMesh/AbstractMesh_.md) class.
+:::
+
+import EXAMPLE5 from "../AbstractMesh/DisplayMeshInfo.md";
+
+
+
+## Example 1
+
+import EXAMPLE14 from "./examples/_DisplayMeshInfo_test_1.md";
+
+
diff --git a/docs/docs-api/FEMesh/Export.md b/docs/docs-api/FEMesh/Export.md
new file mode 100644
index 00000000..745908c7
--- /dev/null
+++ b/docs/docs-api/FEMesh/Export.md
@@ -0,0 +1,10 @@
+# Export
+
+:::tip Inheritence
+This method is inherited from the [AbstractMesh](../AbstractMesh/AbstractMesh_.md) class.
+:::
+
+import EXAMPLE5 from "../AbstractMesh/Export.md";
+
+
+
diff --git a/docs/docs-api/FEMesh/ExportToVTK.md b/docs/docs-api/FEMesh/ExportToVTK.md
new file mode 100644
index 00000000..8e9a3cad
--- /dev/null
+++ b/docs/docs-api/FEMesh/ExportToVTK.md
@@ -0,0 +1,10 @@
+# ExportToVTK
+
+:::tip Inheritence
+This method is inherited from the [AbstractMesh](../AbstractMesh/AbstractMesh_.md) class.
+:::
+
+import EXAMPLE5 from "../AbstractMesh/ExportToVTK.md";
+
+
+
diff --git a/docs/docs-api/FEMesh/FEMesh_.md b/docs/docs-api/FEMesh/FEMesh_.md
index 859b1922..9e4579a5 100644
--- a/docs/docs-api/FEMesh/FEMesh_.md
+++ b/docs/docs-api/FEMesh/FEMesh_.md
@@ -14,5 +14,3 @@ CONTAINS
FINAL :: obj_Final
END TYPE FEMesh_
```
-
-
diff --git a/docs/docs-api/FEMesh/GetBoundaryElementData.md b/docs/docs-api/FEMesh/GetBoundaryElementData.md
index 5781fbae..63e72197 100644
--- a/docs/docs-api/FEMesh/GetBoundaryElementData.md
+++ b/docs/docs-api/FEMesh/GetBoundaryElementData.md
@@ -10,18 +10,15 @@ import EXAMPLE5 from "../AbstractMesh/GetBoundaryElementData.md";
-
-## Examples
+## Examples
Example 1
-
import EXAMPLE6 from "./examples/_GetBoundaryElementData_test_1.md";
-
diff --git a/docs/docs-api/FEMesh/GetBoundaryNptrs.md b/docs/docs-api/FEMesh/GetBoundaryNptrs.md
index a61fa4fb..2fa35c6f 100644
--- a/docs/docs-api/FEMesh/GetBoundaryNptrs.md
+++ b/docs/docs-api/FEMesh/GetBoundaryNptrs.md
@@ -9,4 +9,3 @@ This method is inherited from the [AbstractMesh](../AbstractMesh/AbstractMesh_.m
import EXAMPLE5 from "../AbstractMesh/GetBoundaryNptrs.md";
-
diff --git a/docs/docs-api/FEMesh/GetBoundingBox.md b/docs/docs-api/FEMesh/GetBoundingBox.md
index 9e8f2081..63b2fcd9 100644
--- a/docs/docs-api/FEMesh/GetBoundingBox.md
+++ b/docs/docs-api/FEMesh/GetBoundingBox.md
@@ -9,4 +9,3 @@ This method is inherited from the [AbstractMesh](../AbstractMesh/AbstractMesh_.m
import EXAMPLE5 from "../AbstractMesh/GetBoundingBox.md";
-
diff --git a/docs/docs-api/FEMesh/GetCellNumber.md b/docs/docs-api/FEMesh/GetCellNumber.md
index 794c8b68..169df68a 100644
--- a/docs/docs-api/FEMesh/GetCellNumber.md
+++ b/docs/docs-api/FEMesh/GetCellNumber.md
@@ -9,5 +9,3 @@ This method is inherited from the [AbstractMesh](../AbstractMesh/AbstractMesh_.m
import EXAMPLE5 from "../AbstractMesh/GetCellNumber.md";
-
-
diff --git a/docs/docs-api/FEMesh/GetElemNum.md b/docs/docs-api/FEMesh/GetElemNum.md
index 674df0c0..04a44804 100644
--- a/docs/docs-api/FEMesh/GetElemNum.md
+++ b/docs/docs-api/FEMesh/GetElemNum.md
@@ -9,4 +9,3 @@ This method is inherited from the [AbstractMesh](../AbstractMesh/AbstractMesh_.m
import EXAMPLE5 from "../AbstractMesh/GetElemNum.md";
-
diff --git a/docs/docs-api/FEMesh/GetElementToElements.md b/docs/docs-api/FEMesh/GetElementToElements.md
index 036ec4f5..f91d05fb 100644
--- a/docs/docs-api/FEMesh/GetElementToElements.md
+++ b/docs/docs-api/FEMesh/GetElementToElements.md
@@ -10,7 +10,7 @@ import EXAMPLE5 from "../AbstractMesh/GetElementToElements.md";
-## Examples
+## Examples
Example 1
@@ -20,7 +20,5 @@ import EXAMPLE6 from "./examples/_GetElementToElements_test_1.md";
-