test1.f90 Source File


This file depends on

sourcefile~~test1.f90~~EfferentGraph sourcefile~test1.f90 test1.f90 sourcefile~foropenai.f90 foropenai.f90 sourcefile~test1.f90->sourcefile~foropenai.f90 sourcefile~foropenai_base.f90 foropenai_base.f90 sourcefile~foropenai.f90->sourcefile~foropenai_base.f90 sourcefile~foropenai_chatcompletion.f90 foropenai_ChatCompletion.f90 sourcefile~foropenai.f90->sourcefile~foropenai_chatcompletion.f90 sourcefile~foropenai_imagegeneration.f90 foropenai_ImageGeneration.f90 sourcefile~foropenai.f90->sourcefile~foropenai_imagegeneration.f90 sourcefile~foropenai_transcription.f90 foropenai_Transcription.f90 sourcefile~foropenai.f90->sourcefile~foropenai_transcription.f90 sourcefile~foropenai_translation.f90 foropenai_Translation.f90 sourcefile~foropenai.f90->sourcefile~foropenai_translation.f90 sourcefile~foropenai_chatcompletion.f90->sourcefile~foropenai_base.f90 sourcefile~foropenai_imagegeneration.f90->sourcefile~foropenai_base.f90 sourcefile~foropenai_transcription.f90->sourcefile~foropenai_base.f90 sourcefile~foropenai_translation.f90->sourcefile~foropenai_base.f90

Source Code

program test_base

   use foropenai, only: openai

   implicit none

   type(openai) :: base

   call base%set_base_data(file_name='foropenai.json')
   
   call base%print_api_key()
   call base%print_organization()
   call base%print_file_name()

   call base%finalize()

end program test_base