Import from toml-file (user function)

! Import from toml
! we define userfunction in the config file.
!
! Initiate an instance of `DirichletBC_` by importing config from a Toml file.
!
! In the toml file we define details of [UserFunction](/docs-api/UserFunction).
!
! ```toml
! [bc2]
! name = "DirichletBC"
! idof = 1
! nodalValueType = "Constant"
! isUserFunction = true
!
! [bc2.function]
! name = "func"
! returnType = "Scalar"
! argType = "Constant"
! value = 10.0
!
! # boundary
! [bc2.boundary]
! isSelectionByMeshID = true
!
! [bc2.boundary.meshID]
! surface = [1, 2]
! ```

PROGRAM main
USE easifemBase
USE easifemClasses
IMPLICIT NONE

TYPE(DirichletBC_) :: obj
TYPE(Domain_) :: dom
TYPE(HDF5File_) :: domainfile
CHARACTER(*), PARAMETER :: domainfilename = "./mesh3D.h5"
CHARACTER(*), PARAMETER :: tomlFileName = "./DirichletBC.toml"
INTEGER(I4B) :: bottom = 1, top = 2, left = 3, right = 4,  &
  & front = 5, behind = 6
INTEGER(I4B), ALLOCATABLE :: nodeNum(:)
REAL(DFP), ALLOCATABLE :: nodalValue(:, :)

CALL FPL_Init()
CALL domainfile%Initiate(filename=domainfilename, mode="READ")
CALL domainfile%OPEN()
CALL dom%Initiate(domainfile, group="")
CALL obj%ImportFromToml(filename=tomlFileName, dom=dom, tomlName="bc2")

CALL obj%Get(nodeNum=nodeNum, nodalValue=nodalValue)

CALL Display(nodeNum, "nodeNum", advance="NO")
CALL Display(nodalValue, "nodalValue", advance="YES")
CALL display(SIZE(nodeNum), "size = ")

CALL domainfile%DEALLOCATE()
CALL dom%DEALLOCATE()
CALL FPL_Finalize()
END PROGRAM main