set_asisstant_response Subroutine

private pure elemental subroutine set_asisstant_response(this, response)

Type Bound

ChatCompletion

Arguments

Type IntentOptional Attributes Name
class(ChatCompletion), intent(inout) :: this
character(len=*), intent(in) :: response

Calls

proc~~set_asisstant_response~~CallsGraph proc~set_asisstant_response foropenai_ChatCompletion::ChatCompletion%set_asisstant_response proc~set_content foropenai_ChatCompletion::ChatCompletion_messages%set_content proc~set_asisstant_response->proc~set_content

Called by

proc~~set_asisstant_response~~CalledByGraph proc~set_asisstant_response foropenai_ChatCompletion::ChatCompletion%set_asisstant_response proc~conversation foropenai_ChatCompletion::ChatCompletion%conversation proc~conversation->proc~set_asisstant_response proc~create_chat_completion foropenai_ChatCompletion::ChatCompletion%create_chat_completion proc~conversation->proc~create_chat_completion proc~create_chat_completion->proc~set_asisstant_response program~test_chatcompletion test_ChatCompletion program~test_chatcompletion->proc~create_chat_completion

Source Code

   elemental pure subroutine set_asisstant_response(this, response)
      class(ChatCompletion), intent(inout) :: this
      character(len=*),      intent(in)    :: response
      integer                              :: i
      do i = 1, size(this%messages)
         if (this%messages(i)%role == 'assistant') then
            call this%messages(i)%set_content(content=response)
         end if
      end do
   end subroutine set_asisstant_response