deallocate_user_name Subroutine

private pure elemental subroutine deallocate_user_name(this)

Type Bound

ImageGeneration

Arguments

Type IntentOptional Attributes Name
class(ImageGeneration), intent(inout) :: this

Called by

proc~~deallocate_user_name~2~~CalledByGraph proc~deallocate_user_name~2 foropenai_ImageGeneration::ImageGeneration%deallocate_user_name proc~deallocate_imagegeneration foropenai_ImageGeneration::ImageGeneration%deallocate_ImageGeneration proc~deallocate_imagegeneration->proc~deallocate_user_name~2 program~test_imagegeneration test_ImageGeneration program~test_imagegeneration->proc~deallocate_imagegeneration

Source Code

   elemental pure subroutine deallocate_user_name(this)
      class(ImageGeneration), intent(inout) :: this
      if (allocated(this%user_name)) deallocate(this%user_name)
   end subroutine deallocate_user_name