set_assistant_response Subroutine

private pure elemental subroutine set_assistant_response(this, assistant_response, i)

Type Bound

ImageGeneration

Arguments

Type IntentOptional Attributes Name
class(ImageGeneration), intent(inout) :: this
character(len=*), intent(in) :: assistant_response
integer, intent(in) :: i

Called by

proc~~set_assistant_response~2~~CalledByGraph proc~set_assistant_response~2 foropenai_ImageGeneration::ImageGeneration%set_assistant_response proc~create_image foropenai_ImageGeneration::ImageGeneration%create_image proc~create_image->proc~set_assistant_response~2 program~test_imagegeneration test_ImageGeneration program~test_imagegeneration->proc~create_image

Source Code

   elemental pure subroutine set_assistant_response(this, assistant_response, i)
      class(ImageGeneration), intent(inout) :: this
      character(len=*),       intent(in)    :: assistant_response
      integer,                intent(in)    :: i
      this%assistant_response(i) = trim(assistant_response)
   end subroutine set_assistant_response