print_assistant_response Subroutine

private impure elemental subroutine print_assistant_response(this)

Uses

    • face
  • proc~~print_assistant_response~3~~UsesGraph proc~print_assistant_response~3 foropenai_ImageGeneration::ImageGeneration%print_assistant_response face face proc~print_assistant_response~3->face

Type Bound

ImageGeneration

Arguments

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

Calls

proc~~print_assistant_response~3~~CallsGraph proc~print_assistant_response~3 foropenai_ImageGeneration::ImageGeneration%print_assistant_response colorize colorize proc~print_assistant_response~3->colorize

Called by

proc~~print_assistant_response~3~~CalledByGraph proc~print_assistant_response~3 foropenai_ImageGeneration::ImageGeneration%print_assistant_response program~test_imagegeneration test_ImageGeneration program~test_imagegeneration->proc~print_assistant_response~3

Source Code

   elemental impure subroutine print_assistant_response(this)
      use face, only: colorize
      class(ImageGeneration), intent(in) :: this
      integer                            :: i
      do i = 1, this%n
         print "(a,': ',a)",colorize("DALL-E", color_bg='blue'), trim(this%assistant_response(i))
      end do
   end subroutine print_assistant_response