FEMIface_ Derived Type

  1. FEMIfaceClass.f90
  2. FEMIfaceClass
  3. FEMIface_

type, public :: FEMIface_


Contents

Variables

Type-Bound Procedures


Components

TypeVisibility AttributesNameInitial
type(ShapeFunction_), public :: ShapeFunction1
type(ShapeFunction_), public :: ShapeFunction2
type(Mesh_), public :: Mesh1
type(Mesh_), public :: Mesh2
type(MaterialProp_), public :: MaterialProp
type(ControlParameter_), public :: ControlPara
type(FEMDomainPointer_), public, allocatable:: FEMDomains(:)
real(kind=real64), public, allocatable:: NTN_NodCoord(:,:)
real(kind=real64), public, allocatable:: NTS_NodCoord(:,:)
real(kind=real64), public, allocatable:: STS_NodCoord(:,:)
real(kind=real64), public, allocatable:: NTN_Val(:,:)
real(kind=real64), public, allocatable:: NTS_Val(:,:)
real(kind=real64), public, allocatable:: STS_Val(:,:)
integer(kind=int32), public, allocatable:: NTN_ElemNod(:,:)
integer(kind=int32), public, allocatable:: NTS_ElemNod(:,:)
integer(kind=int32), public, allocatable:: STS_ElemNod(:,:)
integer(kind=int32), public, allocatable:: NTN_Active(:)
integer(kind=int32), public, allocatable:: NTS_Active(:)
integer(kind=int32), public, allocatable:: STS_Active(:)
real(kind=real64), public, allocatable:: NTN_Value(:,:)
real(kind=real64), public, allocatable:: NTS_Value(:,:)
real(kind=real64), public, allocatable:: STS_Value(:,:)
integer(kind=int32), public, allocatable:: NTS_SegmentID(:,:)
integer(kind=int32), public, allocatable:: GloNodPoint1(:,:)
integer(kind=int32), public, allocatable:: GloNodPoint2(:,:)
integer(kind=int32), public :: DomainID1
integer(kind=int32), public :: DomainID2
integer(kind=int32), public :: DomainID3
integer(kind=int32), public :: TimeStep
integer(kind=int32), public :: NumOfImportedDomain
character(len=200), public :: FilePathDomain1
character(len=200), public :: FilePathDomain2
character(len=200), public :: FilePath
character(len=200), public :: FileNameDomain1
character(len=200), public :: FileNameDomain2
character(len=200), public :: FileName
character(len=9), public :: Dtype
character(len=20), public :: SolverType

Type-Bound Procedures

procedure, public :: Init => InitializeFEMIface

  • public subroutine InitializeFEMIface(obj, NumOfDomain)

    Arguments

    Type IntentOptional AttributesName
    class(FEMIface_), intent(inout) :: obj
    integer(kind=int32), intent(in), optional :: NumOfDomain

procedure, public :: setFEMDomain => setFEMDomainFEMIface

  • public subroutine setFEMDomainFEMIface(obj, dobj, Name)

    Arguments

    Type IntentOptional AttributesName
    class(FEMIface_), intent(inout) :: obj
    class(FEMDomain_), intent(in), target:: dobj
    character(len=*), intent(in), optional :: Name

procedure, public :: Delete => DeallocateFEMIface

procedure, public :: Import => ImportFEMIface

  • public subroutine ImportFEMIface(obj, OptionalFileFormat, OptionalProjectName, FileHandle)

    Arguments

    Type IntentOptional AttributesName
    class(FEMIface_), intent(inout) :: obj
    character(len=4), intent(in), optional :: OptionalFileFormat
    character(len=70), intent(in), optional :: OptionalProjectName
    integer(kind=int32), intent(in), optional :: FileHandle

procedure, public :: GetFEMIface => GetFEMIfaceFromFEMDomains

  • public subroutine GetFEMIfaceFromFEMDomains(obj, obj1, obj2, MasterID, SlaveID)

    Arguments

    Type IntentOptional AttributesName
    class(FEMIface_), intent(inout) :: obj
    class(FEMDomain_), intent(inout), optional :: obj1
    class(FEMDomain_), intent(inout), optional :: obj2
    integer(kind=int32), intent(in), optional :: MasterID
    integer(kind=int32), intent(in), optional :: SlaveID

procedure, public :: Export => ExportFEMIface

  • public subroutine ExportFEMIface(obj, OptionalFileFormat, OptionalProjectName, FileHandle)

    Arguments

    Type IntentOptional AttributesName
    class(FEMIface_), intent(inout) :: obj
    character(len=4), intent(in), optional :: OptionalFileFormat
    character(len=70), intent(in), optional :: OptionalProjectName
    integer(kind=int32), intent(in), optional :: FileHandle

procedure, public :: GmshPlotMesh => GmshPlotMeshFEMIface

  • public subroutine GmshPlotMeshFEMIface(obj, Name, withNeumannBC, withDirichletBC)

    Arguments

    Type IntentOptional AttributesName
    class(FEMIface_), intent(inout) :: obj
    character(len=*), intent(in), optional :: Name
    logical, intent(in), optional :: withNeumannBC
    logical, intent(in), optional :: withDirichletBC

procedure, public :: GmshPlotNTS => GmshPlotNTSFEMIface

  • public subroutine GmshPlotNTSFEMIface(obj, Name)

    Arguments

    Type IntentOptional AttributesName
    class(FEMIface_), intent(in) :: obj
    character(len=*), intent(in), optional :: Name

procedure, public :: GetNTNelement

  • public subroutine GetNTNelement(obj)

    Arguments

    Type IntentOptional AttributesName
    class(FEMIface_), intent(inout) :: obj

procedure, public :: GetNTSelement

  • public subroutine GetNTSelement(obj)

    Arguments

    Type IntentOptional AttributesName
    class(FEMIface_), intent(inout) :: obj

procedure, public :: GetGlobalNodePointer => GetGlobalNodePointerNTS

procedure, public :: updateTimestep => updateTimestepIface

  • public subroutine updateTimestepIface(obj, timestep)

    Arguments

    Type IntentOptional AttributesName
    class(FEMIface_), intent(inout) :: obj
    integer(kind=int32), intent(in), optional :: timestep