Skip to main content

Monomial3D example 3

  • This example shows the usage of [[Monomial3D_]] class.
  • Following methods are tested.
  • [[Monomial3D_#Eval]]

Modules and classes​

  • [[Monomial3D_]]

Usage​

PROGRAM main
use easifemBase
use easifemClasses
implicit none
type(Monomial3D_) :: obj
integer(I4B) :: n1, n2, n3
character(len=*), parameter :: varname1="x", varname2="y", varname3="z"
real( dfp ) :: x, y, z, ans, avar
real( dfp ), parameter :: tol=1.0E-10

!!! note "" Initiate the following monomial.

f(x,y)=x2yzf(x,y)=x^2 y z 
  n1=2; n2=1; n3=1
  obj=Monomial3D( n1=n1, n2=n2, n3=n3, varname1=varname1, &
    & varname2=varname2, varname3=varname3 )

!!! note "Eval"

  x = 2.0; y = 3.0; z = 4.0
  ans = x**2 * y * z
  avar = obj%Eval(x,y,z)
  CALL OK( SOFTEQ(ans, avar, tol), "test-3(b)" )

!!! example "result" ok 1 - test-3(b)

END PROGRAM main