FEVariable_test_21a

This example shows the use of subtraction operator for scalar-nodal-variable.

PROGRAM main
  USE easifemBase
  IMPLICIT NONE
  TYPE(FEVariable_) :: obj

!!! note "constant-constant"

  obj = NodalVariable( 1.0_DFP, &
                      & typeFEVariableScalar,    &
                      & typeFEVariableConstant ) &
      - NodalVariable( 1.0_DFP, &
                      & typeFEVariableScalar,    &
                      & typeFEVariableConstant )
  CALL Display(obj, "constant-constant")

  obj = NodalVariable( 1.0_DFP, &
                      & typeFEVariableScalar,    &
                      & typeFEVariableConstant ) &
      - 1.0_DFP 
  CALL Display(obj, "constant-constant")

!!! note "space-constant"

  call display("=================================")
  obj = NodalVariable( arange(1.0_DFP, 3.0_DFP), &
                      & typeFEVariableScalar, &
                      & typeFEVariableSpace ) &
      - NodalVariable( 1.0_DFP, &
                      & typeFEVariableScalar,    &
                      & typeFEVariableConstant )
  CALL Display(obj, "space-constant")

  call display("=================================")
  obj = NodalVariable( arange(1.0_DFP, 3.0_DFP), &
                      & typeFEVariableScalar, &
                      & typeFEVariableSpace ) &
      - 1.0_DFP
  CALL Display(obj, "space-constant")

!!! note "time-constant"

  call display("=================================")
  obj = NodalVariable( arange(1.0_DFP, 3.0_DFP), &
                      & typeFEVariableScalar, &
                      & typeFEVariableTime ) &
      - NodalVariable( 1.0_DFP, &
                      & typeFEVariableScalar,    &
                      & typeFEVariableConstant )
  CALL Display(obj, "time-constant")

  call display("=================================")
  obj = NodalVariable( arange(1.0_DFP, 3.0_DFP), &
                      & typeFEVariableScalar, &
                      & typeFEVariableTime ) &
      - 1.0_DFP 
  CALL Display(obj, "time-constant")

!!! note "spacetime-constant"

  call display("=================================")
  obj = NodalVariable( reshape(arange(1.0_DFP, 6.0_DFP), [3,2]), &
                      & typeFEVariableScalar, &
                      & typeFEVariableSpaceTime ) &
      - NodalVariable( 1.0_DFP, &
                      & typeFEVariableScalar,    &
                      & typeFEVariableConstant )
  CALL Display(obj, "spacetime - constant")

  call display("=================================")
  obj = NodalVariable( reshape(arange(1.0_DFP, 6.0_DFP), [3,2]), &
                      & typeFEVariableScalar, &
                      & typeFEVariableSpaceTime ) &
      - 1.0_DFP 
  CALL Display(obj, "spacetime - constant")

END PROGRAM main