PreprocessingClass Module

  1. PreProcessingClass.f90
  2. PreprocessingClass

Uses


Contents

Derived Types

Subroutines


Derived Types

type, public :: PreProcessing_

Components

TypeVisibility AttributesNameInitial
type(FEMDomain_), public :: FEMDomain
type(FEMDomain_), public, pointer:: pFEMDomain
character(len=200), public :: PictureName
character(len=200), public :: RGBDataName
character(len=200), public :: PixcelSizeDataName
integer(kind=int32), public :: PixcelSize(2)
integer(kind=int32), public :: num_of_pixcel
integer(kind=int32), public :: ColorRGB(3)

Type-Bound Procedures

procedure, public :: getScfFromImage => getScfFromImagePreProcessing
procedure, public :: Init => InitializePrePro
procedure, public :: finalize => finalizePrePro
procedure, public :: ImportPictureName
procedure, public :: importPixcelAsNode => importPixcelAsNodePreProcessing
procedure, public :: ShowName => ShowPictureName
procedure, public :: ShowPixcelSize
procedure, public :: GetPixcelSize
procedure, public :: GetAllPointCloud
procedure, public :: SetColor
procedure, public :: ShowColor
procedure, public :: GetPixcelByRGB
procedure, public :: GetSurfaceNode => GetPixcelSurfaceNode
procedure, public :: modifySuefaceNode => modifySuefaceNodePrepro
procedure, public :: AssembleSurfaceElement
procedure, public :: ReduceSize
procedure, public :: ExportGeoFile
procedure, public :: ConvertGeo2Msh
procedure, public :: ConvertGeo2Inp
procedure, public :: ConvertGeo2Mesh
procedure, public :: ConvertMsh2Scf
procedure, public :: ConvertMesh2Scf
procedure, public :: ConvertGeo2VTK
procedure, public :: Export => ExportPreProcessing
procedure, public :: ExportAsLodgingSim => ExportAsLodgingSimProcessing
procedure, public :: import => importPreProcessing
procedure, public :: Reverse => ReversePreProcessing
procedure, public :: SetDataType => SetDataTypeFEMDomain
procedure, public :: SetSolver => SetSolverPreProcessing
procedure, public :: SetUp => SetUpPreprocessing
procedure, public :: SetScale => SetScalePreProcessing
procedure, public :: SetBC => SetBoundaryConditionPrePro
procedure, public :: removeBC => removeBoundaryConditionPrePro
procedure, public :: SetSizeOfBC => SetSizeOfBCPrePrecessing
procedure, public :: SetMatPara => SetMatParaPreProcessing
procedure, public :: SetMatID => SetMatIDPreProcessing
procedure, public :: ShowBC => ShowBCPrePrecessing
procedure, public :: Convert3Dto2D
procedure, public :: Convert2Dto3D
procedure, public :: SetControlPara => SetControlParaPrePro
procedure, public :: getSkelton => getSkeltonPreProcessing
procedure, public :: Boolean => BooleanModifyerPreProcessing
procedure, public :: setEntity => setEntityPreProcessing
procedure, public :: showMesh => showMeshPreProcessing
procedure, public :: meshing => meshingPreProcessing

Subroutines

public subroutine getScfFromImagePreProcessing(obj, project, elemtype, MPIData, R, G, B, scalex, scaley, Soilfile, sR, SG, sB, SolverName)

Arguments

Type IntentOptional AttributesName
class(PreProcessing_), intent(inout) :: obj
character(len=*), intent(in) :: project
character(len=*), intent(in) :: elemtype
class(MPI_), intent(inout) :: MPIData
integer(kind=int32), intent(in) :: R
integer(kind=int32), intent(in) :: G
integer(kind=int32), intent(in) :: B
real(kind=real64), intent(in) :: scalex
real(kind=real64), intent(in) :: scaley
character(len=*), intent(in), optional :: Soilfile
integer(kind=int32), intent(in), optional :: sR
integer(kind=int32), intent(in), optional :: SG
integer(kind=int32), intent(in), optional :: sB
character(len=*), intent(in) :: SolverName

public subroutine InitializePrePro(obj, Default)

Arguments

Type IntentOptional AttributesName
class(PreProcessing_), intent(inout) :: obj
logical, intent(in), optional :: Default

public subroutine finalizePrePro(obj)

Arguments

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

public subroutine ImportPictureName(obj, Name)

Arguments

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

public subroutine ShowPictureName(obj)

Arguments

Type IntentOptional AttributesName
class(PreProcessing_) :: obj

public subroutine ShowPixcelSize(obj)

Arguments

Type IntentOptional AttributesName
class(PreProcessing_) :: obj

public subroutine GetPixcelSize(obj, MPIData, Name)

Arguments

Type IntentOptional AttributesName
class(PreProcessing_), intent(inout) :: obj
class(MPI_), intent(inout) :: MPIData
character(len=*), intent(in), optional :: Name

public subroutine GetAllPointCloud(obj, MPIData, Name)

Arguments

Type IntentOptional AttributesName
class(PreProcessing_), intent(inout) :: obj
class(MPI_), intent(inout) :: MPIData
character(len=*), intent(in), optional :: Name

public subroutine GetPixcelByRGB(obj, MPIData, err, onlycoord, Name)

Arguments

Type IntentOptional AttributesName
class(PreProcessing_), intent(inout) :: obj
class(MPI_), intent(inout) :: MPIData
integer(kind=int32), intent(in), optional :: err
logical, intent(in), optional :: onlycoord
character(len=*), intent(in), optional :: Name

public subroutine SetColor(obj, Red, Green, Blue)

Arguments

Type IntentOptional AttributesName
class(PreProcessing_), intent(inout) :: obj
integer(kind=int32), intent(in) :: Red
integer(kind=int32), intent(in) :: Green
integer(kind=int32), intent(in) :: Blue

public subroutine ShowColor(obj)

Arguments

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

public subroutine GetPixcelSurfaceNode(obj, MPIData, r, NumOfMaxNod, Name, convex, division, box)

Arguments

Type IntentOptional AttributesName
class(PreProcessing_), intent(inout) :: obj
class(MPI_), intent(inout) :: MPIData
integer(kind=int32), intent(in), optional :: r
integer(kind=int32), intent(in), optional :: NumOfMaxNod
character(len=*), intent(in), optional :: Name
logical, intent(in), optional :: convex
integer(kind=int32), intent(in), optional :: division
logical, intent(in), optional :: box

public subroutine AssembleSurfaceElement(obj, MPIData, dim, threshold, DelRange, Name)

Arguments

Type IntentOptional AttributesName
class(PreProcessing_), intent(inout) :: obj
class(MPI_), intent(inout) :: MPIData
integer(kind=int32), intent(in), optional :: dim
integer(kind=int32), intent(in), optional :: threshold
integer(kind=int32), intent(in), optional :: DelRange
character(len=*), intent(in), optional :: Name

public subroutine ReduceSize(obj, MPIData, interval, Name, auto, curvetol)

Arguments

Type IntentOptional AttributesName
class(PreProcessing_), intent(inout) :: obj
class(MPI_), intent(inout) :: MPIData
integer(kind=int32), intent(in), optional :: interval
character(len=*), intent(in), optional :: Name
logical, intent(in), optional :: auto
real(kind=real64), intent(in), optional :: curvetol

public subroutine ExportGeoFile(obj, MPIData, Name)

Arguments

Type IntentOptional AttributesName
class(PreProcessing_), intent(inout) :: obj
class(MPI_), intent(inout) :: MPIData
character(len=*), intent(in), optional :: Name

public subroutine ConvertGeo2Msh(obj, MPIData, Name, clmin, clmax)

Arguments

Type IntentOptional AttributesName
class(PreProcessing_), intent(inout) :: obj
class(MPI_), intent(inout) :: MPIData
character(len=*), intent(in), optional :: Name
real(kind=real64), intent(in), optional :: clmin
real(kind=real64), intent(in), optional :: clmax

public subroutine ConvertGeo2VTK(obj, MPIData, Name, clmin, clmax)

Arguments

Type IntentOptional AttributesName
class(PreProcessing_), intent(inout) :: obj
class(MPI_), intent(inout) :: MPIData
character(len=*), intent(in), optional :: Name
real(kind=real64), intent(in), optional :: clmin
real(kind=real64), intent(in), optional :: clmax

public subroutine ConvertGeo2Inp(obj, MPIData, Name, clmin, clmax)

Arguments

Type IntentOptional AttributesName
class(PreProcessing_), intent(inout) :: obj
class(MPI_), intent(inout) :: MPIData
character(len=*), intent(in), optional :: Name
real(kind=real64), intent(in), optional :: clmin
real(kind=real64), intent(in), optional :: clmax

public subroutine ConvertGeo2Mesh(obj, MPIData, SizePara, Name, clmin, clmax)

Arguments

Type IntentOptional AttributesName
class(PreProcessing_), intent(inout) :: obj
class(MPI_), intent(inout) :: MPIData
integer(kind=int32), intent(in), optional :: SizePara
character(len=*), intent(in), optional :: Name
real(kind=real64), intent(in), optional :: clmin
real(kind=real64), intent(in), optional :: clmax

public subroutine ConvertMsh2Scf(obj, MPIData, ElementType, Name)

Arguments

Type IntentOptional AttributesName
class(PreProcessing_), intent(inout) :: obj
class(MPI_), intent(inout) :: MPIData
character(len=200), intent(in), optional :: ElementType
character(len=*), intent(in), optional :: Name

public subroutine ConvertMesh2Scf(obj, MPIData, ElementType, Name)

Arguments

Type IntentOptional AttributesName
class(PreProcessing_), intent(inout) :: obj
class(MPI_), intent(inout), optional :: MPIData
character(len=*), intent(in), optional :: ElementType
character(len=*), intent(in), optional :: Name

public subroutine ExportPreProcessing(obj, MPIData, FileName, MeshDimension, Name, regacy, with)

Arguments

Type IntentOptional AttributesName
class(PreProcessing_), intent(inout) :: obj
class(MPI_), intent(inout), optional :: MPIData
character(len=200), intent(in), optional :: FileName
integer(kind=int32), intent(in), optional :: MeshDimension
character(len=*), intent(in), optional :: Name
logical, intent(in), optional :: regacy
class(PreProcessing_), intent(inout), optional :: with

public subroutine SetSolverPreProcessing(obj, inSolverType)

Arguments

Type IntentOptional AttributesName
class(PreProcessing_), intent(inout) :: obj
character(len=200), intent(in), optional :: inSolverType

public subroutine SetDataTypeFEMDomain(obj, inDType)

Arguments

Type IntentOptional AttributesName
class(PreProcessing_), intent(inout) :: obj
character(len=200), intent(in), optional :: inDType

public subroutine SetUpPreprocessing(obj, DataType, SolverType, NoFacetMode, MatPara)

Arguments

Type IntentOptional AttributesName
class(PreProcessing_), intent(inout) :: obj
character(len=200), intent(in), optional :: DataType
character(len=200), intent(in), optional :: SolverType
logical, intent(in), optional :: NoFacetMode
real(kind=real64), intent(inout), optional allocatable:: MatPara(:,:)

public subroutine SetScalePreProcessing(obj, scalex, scaley, scalez, picscalex, picscaley, picscalez, xratio, yratio)

Arguments

Type IntentOptional AttributesName
class(PreProcessing_), intent(inout) :: obj
real(kind=real64), intent(in), optional :: scalex
real(kind=real64), intent(in), optional :: scaley
real(kind=real64), intent(in), optional :: scalez
real(kind=real64), intent(in), optional :: picscalex
real(kind=real64), intent(in), optional :: picscaley
real(kind=real64), intent(in), optional :: picscalez
real(kind=real64), intent(in), optional :: xratio
real(kind=real64), intent(in), optional :: yratio

public subroutine SetBoundaryConditionPrePro(obj, Dirichlet, Neumann, Initial, xmin, xmax, ymin, ymax, zmin, zmax, tmin, tmax, val, val_id, NumOfValPerNod, BoundInfo, MPIData)

Arguments

Type IntentOptional AttributesName
class(PreProcessing_), intent(inout) :: obj
logical, intent(in), optional :: Dirichlet
logical, intent(in), optional :: Neumann
logical, intent(in), optional :: Initial
real(kind=real64), intent(in), optional :: xmin
real(kind=real64), intent(in), optional :: xmax
real(kind=real64), intent(in), optional :: ymin
real(kind=real64), intent(in), optional :: ymax
real(kind=real64), intent(in), optional :: zmin
real(kind=real64), intent(in), optional :: zmax
real(kind=real64), intent(in), optional :: tmin
real(kind=real64), intent(in), optional :: tmax
real(kind=real64), intent(in), optional :: val
integer(kind=int32), intent(in), optional :: val_id
integer(kind=int32), intent(in), optional :: NumOfValPerNod
class(Dictionary_), intent(in), optional :: BoundInfo
class(MPI_), intent(inout), optional :: MPIData

public subroutine SetSizeOfBCPrePrecessing(obj, Dirichlet, Neumann, Initial, NumOfValue)

Arguments

Type IntentOptional AttributesName
class(PreProcessing_), intent(inout) :: obj
logical, intent(in), optional :: Dirichlet
logical, intent(in), optional :: Neumann
logical, intent(in), optional :: Initial
integer(kind=int32), intent(in), optional :: NumOfValue

public subroutine ShowBCPrePrecessing(obj, Dirichlet, Neumann, Initial)

Arguments

Type IntentOptional AttributesName
class(PreProcessing_), intent(inout) :: obj
logical, intent(in), optional :: Dirichlet
logical, intent(in), optional :: Neumann
logical, intent(in), optional :: Initial

public subroutine Convert3Dto2D(obj)

Arguments

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

public subroutine Convert2Dto3D(obj, Thickness, division)

Arguments

Type IntentOptional AttributesName
class(PreProcessing_), intent(inout) :: obj
real(kind=real64), intent(in), optional :: Thickness
integer(kind=int32), intent(in), optional :: division

public subroutine SetControlParaPrePro(obj, OptionalTol, OptionalItrTol, OptionalTimestep, OptionalSimMode)

Arguments

Type IntentOptional AttributesName
class(PreProcessing_), intent(inout) :: obj
real(kind=real64), intent(in), optional :: OptionalTol
integer(kind=int32), intent(in), optional :: OptionalItrTol
integer(kind=int32), intent(in), optional :: OptionalTimestep
integer(kind=int32), intent(in), optional :: OptionalSimMode

public subroutine SetMatParaPreProcessing(obj, MaterialID, ParameterID, Val, materialist, simple)

Arguments

Type IntentOptional AttributesName
class(PreProcessing_), intent(inout) :: obj
integer(kind=int32), intent(in), optional :: MaterialID
integer(kind=int32), intent(in), optional :: ParameterID
real(kind=real64), intent(in), optional :: Val
class(Dictionary_), intent(inout), optional :: materialist
logical, intent(in), optional :: simple

public subroutine SetMatIDPreProcessing(obj, xmin, xmax, ymin, ymax, zmin, zmax, tmin, tmax, MaterialID)

Arguments

Type IntentOptional AttributesName
class(PreProcessing_), intent(inout) :: obj
real(kind=real64), intent(in), optional :: xmin
real(kind=real64), intent(in), optional :: xmax
real(kind=real64), intent(in), optional :: ymin
real(kind=real64), intent(in), optional :: ymax
real(kind=real64), intent(in), optional :: zmin
real(kind=real64), intent(in), optional :: zmax
real(kind=real64), intent(in), optional :: tmin
real(kind=real64), intent(in), optional :: tmax
integer(kind=int32), intent(in), optional :: MaterialID

public subroutine getSkeltonPreProcessing(obj)

Arguments

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

public subroutine setEntityPreProcessing(obj, Circle, Rectangle, Plane, Cylinder, Box, Radius, XSize, YSize, ZSize, Xloc, Yloc, Zloc)

Arguments

Type IntentOptional AttributesName
class(PreProcessing_), intent(inout) :: obj
logical, intent(in), optional :: Circle
logical, intent(in), optional :: Rectangle
logical, intent(in), optional :: Plane
logical, intent(in), optional :: Cylinder
logical, intent(in), optional :: Box
real(kind=real64), intent(in), optional :: Radius
real(kind=real64), intent(in), optional :: XSize
real(kind=real64), intent(in), optional :: YSize
real(kind=real64), intent(in), optional :: ZSize
real(kind=real64), intent(in), optional :: Xloc
real(kind=real64), intent(in), optional :: Yloc
real(kind=real64), intent(in), optional :: Zloc

public subroutine BooleanModifyerPreProcessing(obj, ModObj, XDiv, Ydic, Zdiv)

Arguments

Type IntentOptional AttributesName
class(PreProcessing_), intent(inout) :: obj
class(PreProcessing_), intent(inout) :: ModObj
integer(kind=int32), intent(in), optional :: XDiv
integer(kind=int32), intent(in), optional :: Ydic
integer(kind=int32), intent(in), optional :: Zdiv

public subroutine ReversePreProcessing(obj)

Arguments

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

public subroutine showMeshPreProcessing(obj, Step, Name, withNeumannBC, withDirichletBC, withMaterial)

Arguments

Type IntentOptional AttributesName
class(PreProcessing_), intent(inout) :: obj
integer(kind=int32), intent(in), optional :: Step
character(len=*), intent(in), optional :: Name
logical, intent(in), optional :: withNeumannBC
logical, intent(in), optional :: withDirichletBC
logical, intent(in), optional :: withMaterial

public subroutine meshingPreProcessing(obj)

Arguments

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

public subroutine importPixcelAsNodePreProcessing(Obj, interval)

Arguments

Type IntentOptional AttributesName
class(PreProcessing_), intent(inout) :: Obj
integer(kind=int32), intent(in), optional :: interval

public subroutine removeBoundaryConditionPrePro(obj, Dirichlet, Neumann, Initial)

Arguments

Type IntentOptional AttributesName
class(PreProcessing_), intent(inout) :: obj
logical, intent(in), optional :: Dirichlet
logical, intent(in), optional :: Neumann
logical, intent(in), optional :: Initial

public subroutine importPreProcessing(obj, Name, FileHandle, Mesh)

Arguments

Type IntentOptional AttributesName
class(PreProcessing_), intent(inout) :: obj
character(len=*), intent(in), optional :: Name
integer(kind=int32), intent(in), optional :: FileHandle
type(Mesh_), intent(in), optional :: Mesh

public subroutine modifySuefaceNodePrepro(obj, Mesh, boolean)

Arguments

Type IntentOptional AttributesName
class(PreProcessing_), intent(inout) :: obj
class(Mesh_), intent(inout) :: Mesh
character(len=*), intent(in) :: boolean

public subroutine ExportAsLodgingSimProcessing(obj, soil, Name, penalypara, displacement)

Arguments

Type IntentOptional AttributesName
class(PreProcessing_), intent(inout) :: obj
type(PreProcessing_), intent(inout) :: soil
character(len=*), intent(in) :: Name
real(kind=real64), intent(in), optional :: penalypara
real(kind=real64), intent(in), optional :: displacement