load_model Subroutine

private impure elemental subroutine load_model(this)

Uses

    • json_module
  • proc~~load_model~~UsesGraph proc~load_model foropenai_Transcription::Transcription%load_model json_module json_module proc~load_model->json_module

Type Bound

Transcription

Arguments

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

Calls

proc~~load_model~~CallsGraph proc~load_model foropenai_Transcription::Transcription%load_model destroy destroy proc~load_model->destroy get get proc~load_model->get initialize initialize proc~load_model->initialize load_file load_file proc~load_model->load_file

Called by

proc~~load_model~~CalledByGraph proc~load_model foropenai_Transcription::Transcription%load_model proc~load_transcription_data foropenai_Transcription::Transcription%load_Transcription_data proc~load_transcription_data->proc~load_model proc~set_transcription_data foropenai_Transcription::Transcription%set_Transcription_data proc~set_transcription_data->proc~load_transcription_data program~test_transcription test_Transcription program~test_transcription->proc~set_transcription_data

Source Code

   elemental impure subroutine load_model(this)
      use json_module, only: json_file
      class(Transcription), intent(inout) :: this
      type(json_file)                     :: json
      character(len=:), allocatable       :: tmp
      logical                             :: found
      call json%initialize()
      call json%load_file(trim(this%file_name))
      call json%get("Transcription.model", tmp, found=found)
      if (found) this%model = trim(tmp)
      call json%destroy()
   end subroutine load_model