PanicleClass.f90 Source File


Contents

Source Code


Source Code

module PanicleClass
    use, intrinsic :: iso_fortran_env
    use KinematicClass
    use FEMDomainClass



    type :: Panicle_
        type(FEMDomain_)    ::  FEMDomain
        real(real64)             ::  Thickness,length,width
        real(real64)             ::  center_bottom(3),center_top(3)
        real(real64)             ::  radius_bottom(3),radius_top(3)
        real(real64)             ::  outer_normal_bottom(3),outer_normal_top(3)
        integer(int32)             ::  Division
        type(Panicle_),pointer ::  pPanicle
    contains
        !procedure, public :: Init => initPanicle
    end type
contains

end module