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 endif return endif print *, "Caution :: no input is in initleaf" end subroutine ! ######################################## end module