set_model Subroutine

private pure elemental subroutine set_model(this, model)

Type Bound

Translation

Arguments

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

Called by

proc~~set_model~3~~CalledByGraph proc~set_model~3 foropenai_Translation::Translation%set_model proc~set_translation_data foropenai_Translation::Translation%set_Translation_data proc~set_translation_data->proc~set_model~3 program~test_translation test_Translation program~test_translation->proc~set_translation_data

Source Code

   elemental pure subroutine set_model(this, model)
      class(Translation), intent(inout) :: this
      character(len=*),   intent(in)    :: model
      this%model = trim(model)
   end subroutine set_model