MaterialPropClass Module

Uses

- MeshClass
- iso_fortran_env

Contents

Derived Types

MaterialProp_

Subroutines

openMaterialProp removeMaterialProp createMaterialProp saveMaterialProp exportMaterialProp showMaterialProp setMaterialProp gmshMaterialProp DeallocateMaterialProp initializeMaterial ImportMatPara MergeMaterialProp ShowMatPara getValuesMaterialProp

Derived Types

type, public :: MaterialProp_

Components

Type	Visibility	Attributes		Name		Initial
type(Mesh_),	public		::	Mesh
real(kind=real64),	public,	allocatable	::	meshPara(:,:)
real(kind=real64),	public		::	x_max
real(kind=real64),	public		::	x_min
real(kind=real64),	public		::	y_max
real(kind=real64),	public		::	y_min
real(kind=real64),	public		::	z_max
real(kind=real64),	public		::	z_min
real(kind=real64),	public		::	t_max
real(kind=real64),	public		::	t_min
integer(kind=int32),	public		::	Mcount
integer(kind=int32),	public		::	layer
character(len=200),	public		::	Name	=	" "
real(kind=real64),	public,	allocatable	::	MatPara(:,:)
integer(kind=int32),	public		::	NumOfMatPara
integer(kind=int32),	public		::	NumOfMaterial
character(len=40),	public		::	MaterialType	=	" "
character(len=70),	public		::	ErrorMsg	=	" "

Type-Bound Procedures

procedure, public :: Init => initializeMaterial
procedure, public :: export => exportMaterialProp
procedure, public :: save => saveMaterialProp
procedure, public :: Delete => DeallocateMaterialProp
procedure, public :: create => createMaterialProp
procedure, public :: set => setMaterialProp
procedure, public :: gmsh => gmshMaterialProp
procedure, public :: show => showMaterialProp
procedure, public :: getValues => getValuesMaterialProp
procedure, public :: remove => removeMaterialProp
procedure, public :: open => openMaterialProp

Subroutines

public subroutine openMaterialProp(obj, path, name)

Arguments

Type	Intent	Optional	Attributes		Name
class(MaterialProp_),	intent(inout)			::	obj
character(len=*),	intent(in)			::	path
character(len=*),	intent(in),	optional		::	name

public subroutine removeMaterialProp(obj)

Arguments

Type	Intent	Optional	Attributes		Name
class(MaterialProp_),	intent(inout)			::	obj

public subroutine createMaterialProp(obj, Name, x_max, x_min, y_max, y_min, z_max, z_min, t_max, t_min, ParaValue, Layer)

Arguments

Type	Intent	Optional	Attributes		Name
class(MaterialProp_),	intent(inout)			::	obj
character(len=*),	intent(in),	optional		::	Name
real(kind=real64),	intent(in),	optional		::	x_max
real(kind=real64),	intent(in),	optional		::	x_min
real(kind=real64),	intent(in),	optional		::	y_max
real(kind=real64),	intent(in),	optional		::	y_min
real(kind=real64),	intent(in),	optional		::	z_max
real(kind=real64),	intent(in),	optional		::	z_min
real(kind=real64),	intent(in),	optional		::	t_max
real(kind=real64),	intent(in),	optional		::	t_min
real(kind=real64),	intent(in),	optional		::	ParaValue
integer(kind=int32),	intent(in),	optional		::	Layer

public subroutine saveMaterialProp(obj, path, name)

Arguments

Type	Intent	Optional	Attributes		Name
class(MaterialProp_),	intent(inout)			::	obj
character(len=*),	intent(in)			::	path
character(len=*),	intent(in),	optional		::	name

public subroutine exportMaterialProp(obj, restart, path)

Arguments

Type	Intent	Optional	Attributes		Name
class(MaterialProp_),	intent(inout)			::	obj
logical,	intent(in),	optional		::	restart
character(len=*),	intent(in)			::	path

public subroutine showMaterialProp(obj)

Arguments

Type	Intent	Optional	Attributes		Name
class(MaterialProp_),	intent(inout)			::	obj

public subroutine setMaterialProp(obj, x_max, x_min, y_max, y_min, z_max, z_min, t_max, t_min, ParaValue, Layer)

Arguments

Type	Intent	Optional	Attributes		Name
class(MaterialProp_),	intent(inout)			::	obj
real(kind=real64),	intent(in),	optional		::	x_max
real(kind=real64),	intent(in),	optional		::	x_min
real(kind=real64),	intent(in),	optional		::	y_max
real(kind=real64),	intent(in),	optional		::	y_min
real(kind=real64),	intent(in),	optional		::	z_max
real(kind=real64),	intent(in),	optional		::	z_min
real(kind=real64),	intent(in),	optional		::	t_max
real(kind=real64),	intent(in),	optional		::	t_min
real(kind=real64),	intent(in),	optional		::	ParaValue
integer(kind=int32),	intent(in),	optional		::	Layer

public subroutine gmshMaterialProp(obj, Name, Tag)

Arguments

Type	Intent	Optional	Attributes		Name
class(MaterialProp_),	intent(inout)			::	obj
character(len=*),	intent(in),	optional		::	Name
character(len=*),	intent(in),	optional		::	Tag

public subroutine DeallocateMaterialProp(obj)

Arguments

Type	Intent	Optional	Attributes		Name
class(MaterialProp_),	intent(inout)			::	obj

public subroutine initializeMaterial(obj, MaterialParameters)

Arguments

Type	Intent	Optional	Attributes		Name
class(MaterialProp_),	intent(inout)			::	obj
real(kind=real64),	intent(inout),	optional	allocatable	::	MaterialParameters(:,:)

public subroutine ImportMatPara(obj, mat_para)

Arguments

Type	Intent	Optional	Attributes		Name
class(MaterialProp_),	intent(inout)			::	obj
real(kind=real64),	intent(in)			::	mat_para(:,:)

public subroutine MergeMaterialProp(inobj1, inobj2, outobj)

Arguments

Type	Intent	Optional	Attributes		Name
class(MaterialProp_),	intent(in)			::	inobj1
class(MaterialProp_),	intent(in)			::	inobj2
class(MaterialProp_),	intent(out)			::	outobj

public subroutine ShowMatPara(obj)

Arguments

Type	Intent	Optional	Attributes		Name
class(MaterialProp_),	intent(in)			::	obj

public subroutine getValuesMaterialProp(obj, mesh, Values)

Arguments

Type	Intent	Optional	Attributes		Name
class(MaterialProp_),	intent(in)			::	obj
type(Mesh_),	intent(in)			::	mesh
real(kind=real64),	intent(inout),		allocatable	::	Values(:)