SceneClass Module


Uses


Interfaces

public interface operator(.contacts.)


Derived Types

type, public ::  Scene_

Components

Type Visibility Attributes Name Initial
type(FEMDomainp_), public, allocatable :: femdomain(:)
type(soybeanp_), public, allocatable :: soybean(:)

Type-Bound Procedures

procedure, public, pass :: add_FEMDomain_to_Scene
procedure, public, pass :: add_soybean_to_Scene
generic, public :: add => add_FEMDomain_to_Scene, add_soybean_to_Scene
procedure, public :: vtk => vtk_FEMDomain_from_Scene
procedure, public :: nn => nn_Scene
procedure, public :: ne => ne_Scene
procedure, public :: x => x_Scene
procedure, public :: y => y_Scene
procedure, public :: z => z_Scene
procedure, public :: xyz => xyz_Scene
procedure, public :: xmin => xmin_Scene
procedure, public :: xmax => xmax_Scene
procedure, public :: x_min => xmin_Scene
procedure, public :: x_max => xmax_Scene
procedure, public :: ymin => ymin_Scene
procedure, public :: ymax => ymax_Scene
procedure, public :: y_min => ymin_Scene
procedure, public :: y_max => ymax_Scene
procedure, public :: zmin => zmin_Scene
procedure, public :: zmax => zmax_Scene
procedure, public :: z_min => zmin_Scene
procedure, public :: z_max => zmax_Scene
procedure, public :: resize => resize_scene
procedure, public :: rotate => rotate_scene
procedure, public :: move => move_scene
procedure, public :: overset => overset_scene
procedure, public :: getOverlapList => getOverlapList_Scene
procedure, public :: select_point_ID => select_point_ID_Scene
procedure, public, pass :: full_function_Scene
procedure, public, pass :: full_select_node_in_range_Scene
generic, public :: full => full_function_Scene, full_select_node_in_range_Scene

Functions

public function nn_Scene(this) result(ret)

Arguments

Type IntentOptional Attributes Name
class(Scene_), intent(in) :: this

Return Value integer(kind=int32)

public function ne_Scene(this) result(ret)

Arguments

Type IntentOptional Attributes Name
class(Scene_), intent(in) :: this

Return Value integer(kind=int32)

public function x_Scene(this, node_id) result(ret)

Arguments

Type IntentOptional Attributes Name
class(Scene_), intent(in) :: this
integer(kind=int32), intent(in), optional :: node_id

Return Value real(kind=real64), allocatable, (:)

public recursive function y_Scene(this, node_id) result(ret)

Arguments

Type IntentOptional Attributes Name
class(Scene_), intent(in) :: this
integer(kind=int32), intent(in), optional :: node_id

Return Value real(kind=real64), allocatable, (:)

public recursive function z_Scene(this, node_id) result(ret)

Arguments

Type IntentOptional Attributes Name
class(Scene_), intent(in) :: this
integer(kind=int32), intent(in), optional :: node_id

Return Value real(kind=real64), allocatable, (:)

public function xyz_Scene(this) result(ret)

Arguments

Type IntentOptional Attributes Name
class(Scene_), intent(in) :: this

Return Value real(kind=real64), allocatable, (:,:)

public function getOverlapList_Scene(this) result(Overlap)

Arguments

Type IntentOptional Attributes Name
class(Scene_), intent(in) :: this

Return Value integer(kind=int32), allocatable, (:,:)

public function full_select_node_in_range_Scene(this, DomainIDs, values, x_min, x_max, y_min, y_max, z_min, z_max) result(ret)

Arguments

Type IntentOptional Attributes Name
class(Scene_), intent(inout) :: this
integer(kind=int32), intent(in) :: DomainIDs(:)
real(kind=real64), intent(in) :: values
real(kind=real64), intent(in), optional :: x_min
real(kind=real64), intent(in), optional :: x_max
real(kind=real64), intent(in), optional :: y_min
real(kind=real64), intent(in), optional :: y_max
real(kind=real64), intent(in), optional :: z_min
real(kind=real64), intent(in), optional :: z_max

Return Value real(kind=real64), allocatable, (:)

public function select_point_ID_Scene(this, DomainIDs, x_min, x_max, y_min, y_max, z_min, z_max) result(ret)

Arguments

Type IntentOptional Attributes Name
class(Scene_), intent(inout) :: this
integer(kind=int32), intent(in) :: DomainIDs(:)
real(kind=real64), intent(in), optional :: x_min
real(kind=real64), intent(in), optional :: x_max
real(kind=real64), intent(in), optional :: y_min
real(kind=real64), intent(in), optional :: y_max
real(kind=real64), intent(in), optional :: z_min
real(kind=real64), intent(in), optional :: z_max

Return Value integer(kind=int32), allocatable, (:)

public function xmax_Scene(this, DomainIDs) result(ret)

Arguments

Type IntentOptional Attributes Name
class(Scene_), intent(inout) :: this
integer(kind=int32), intent(in), optional :: DomainIDs(:)

Return Value real(kind=real64), allocatable

public function xmin_Scene(this, DomainIDs) result(ret)

Arguments

Type IntentOptional Attributes Name
class(Scene_), intent(inout) :: this
integer(kind=int32), intent(in), optional :: DomainIDs(:)

Return Value real(kind=real64), allocatable

public function ymax_Scene(this, DomainIDs) result(ret)

Arguments

Type IntentOptional Attributes Name
class(Scene_), intent(inout) :: this
integer(kind=int32), intent(in), optional :: DomainIDs(:)

Return Value real(kind=real64), allocatable

public function ymin_Scene(this, DomainIDs) result(ret)

Arguments

Type IntentOptional Attributes Name
class(Scene_), intent(inout) :: this
integer(kind=int32), intent(in), optional :: DomainIDs(:)

Return Value real(kind=real64), allocatable

public function zmax_Scene(this, DomainIDs) result(ret)

Arguments

Type IntentOptional Attributes Name
class(Scene_), intent(inout) :: this
integer(kind=int32), intent(in), optional :: DomainIDs(:)

Return Value real(kind=real64), allocatable

public function zmin_Scene(this, DomainIDs) result(ret)

Arguments

Type IntentOptional Attributes Name
class(Scene_), intent(inout) :: this
integer(kind=int32), intent(in), optional :: DomainIDs(:)

Return Value real(kind=real64), allocatable

public function full_function_Scene(this, func, params) result(ret)

Arguments

Type IntentOptional Attributes Name
class(Scene_), intent(in) :: this
public function func(x, params) result(ret)
Arguments
Type IntentOptional Attributes Name
real(kind=real64), intent(in) :: x(:)
real(kind=real64), intent(in), optional :: params(:)
Return Value real(kind=real64)
real(kind=real64), intent(in), optional :: params(:)

Return Value real(kind=real64), allocatable, (:)

public function femdomain_contacts_with_femdomain(obj1, obj2) result(ret)

Arguments

Type IntentOptional Attributes Name
type(FEMDomain_), intent(in) :: obj1
type(FEMDomain_), intent(in) :: obj2

Return Value logical


Subroutines

public subroutine add_FEMDomain_to_Scene(this, femdomain)

Arguments

Type IntentOptional Attributes Name
class(Scene_), intent(inout) :: this
type(FEMDomain_), intent(in), target :: femdomain(:)

public subroutine add_soybean_to_Scene(this, soybean)

Arguments

Type IntentOptional Attributes Name
class(Scene_), intent(inout) :: this
type(soybean_), intent(in), target :: soybean(:)

public subroutine vtk_FEMDomain_from_Scene(this, name, scalar)

Arguments

Type IntentOptional Attributes Name
class(Scene_), intent(inout) :: this
character(len=*), intent(in) :: name
real(kind=real64), intent(in), optional :: scalar(:)

public subroutine resize_scene(this, object, x, y, z, x_rate, y_rate, z_rate)

Arguments

Type IntentOptional Attributes Name
class(Scene_), intent(inout) :: this
integer(kind=int32), intent(in) :: object(:)
real(kind=real64), intent(in), optional :: x
real(kind=real64), intent(in), optional :: y
real(kind=real64), intent(in), optional :: z
real(kind=real64), intent(in), optional :: x_rate
real(kind=real64), intent(in), optional :: y_rate
real(kind=real64), intent(in), optional :: z_rate

public subroutine move_scene(this, object, x, y, z)

Arguments

Type IntentOptional Attributes Name
class(Scene_), intent(inout) :: this
integer(kind=int32), intent(in) :: object(:)
real(kind=real64), intent(in), optional :: x
real(kind=real64), intent(in), optional :: y
real(kind=real64), intent(in), optional :: z

public subroutine rotate_scene(this, object, x, y, z)

Arguments

Type IntentOptional Attributes Name
class(Scene_), intent(inout) :: this
integer(kind=int32), intent(in) :: object(:)
real(kind=real64), intent(in), optional :: x
real(kind=real64), intent(in), optional :: y
real(kind=real64), intent(in), optional :: z

public subroutine overset_scene(this, pairing, x, y, z, algorithm)

Arguments

Type IntentOptional Attributes Name
class(Scene_), intent(inout) :: this
integer(kind=int32), intent(in), optional :: pairing(1:2)
real(kind=real64), intent(in), optional :: x
real(kind=real64), intent(in), optional :: y
real(kind=real64), intent(in), optional :: z
character(len=*), intent(in), optional :: algorithm