FlowerClass.f90 Source File

module FlowerClass
   use KinematicClass
   use StemClass
   use FEMDomainClass
   implicit none

   type :: Flower_
      type(FEMDomain_)    ::  FEMDomain
      real(real64), allocatable ::  LeafSurfaceNode2D(:, :)
      real(real64)             ::  Thickness, length, width, center(3)
      integer(int32)             ::  Division
      type(Stem_), pointer ::  pStem
   contains
      procedure, public :: Init => initFlower
   end type
contains

! ########################################
   subroutine initflower(obj, Thickness, length, width)
      class(flower_), intent(inout) :: obj
      real(real64), optional :: Thickness, length, width

      if (present(length) .and. present(width)) then
         obj%length = length
         obj%width = width
         if (present(Thickness)) then
            obj%Thickness = Thickness
         end if
         return
      end if

      print *, "Caution :: no input is in initleaf"

   end subroutine
! ########################################

end module