gha3mi / foropenai

ForOpenAI - A Fortran library for OpenAI API.

My Fortran Projects

All projects listed here are designed to be used as fpm (Fortran package manager) packages. Each library provides specific functionality and can be easily integrated into your Fortran projects using fpm.

Below is a brief overview of each project:

ForCAD

ForCAD is A Fortran library for Geometric Modeling using NURBS (Non-Uniform Rational B-Splines).

fpm Dependency:

[dependencies]
forcad = { git = "https://github.com/gha3mi/forcad.git" }

ForCompile

ForCompile is a Fortran library to access the Compile Explorer API.

fpm Dependency:

[dependencies]
forcompile = { git = "https://github.com/gha3mi/forcompile.git" }

ForMatmul

ForMatmul is a Fortran library that overloads the matmul function to enable efficient matrix multiplication with coarray.

fpm Dependency:

[dependencies]
formatmul = { git = "https://github.com/gha3mi/formatmul.git" }

ForDot

ForDot is a Fortran library that overloads the dot_product function to enable efficient dot product with/without coarray.

fpm Dependency:

[dependencies]
fordot = { git = "https://github.com/gha3mi/fordot.git" }

ForOpenAI

ForOpenAI is a Fortran library for OpenAI API.

fpm Dependency:

[dependencies]
foropenai = { git = "https://github.com/gha3mi/foropenai.git" }

ForSVD

ForSVD is a Fortran library for singular value decomposition (SVD) calculation, low-rank approximation, and image compression.

fpm Dependency:

[dependencies]
forsvd = { git = "https://github.com/gha3mi/forsvd.git" }

ForPCA

ForPCA is a Fortran library for principal component analysis (PCA).

fpm Dependency:

[dependencies]
forpca = { git = "https://github.com/gha3mi/forpca.git" }

ForEig

ForEig is a Fortran library for eigenvalue and eigenvector calculations.

fpm Dependency:

[dependencies]
foreig = { git = "https://github.com/gha3mi/foreig.git" }

ForClust

ForClust allows you to manage and control a Linux system, such as adjusting the settings of the CPU and other components.

fpm Dependency:

[dependencies]
forclust = { git = "https://github.com/gha3mi/forclust.git" }

ForSolver

ForSolver provides linear and nonlinear solvers.

fpm Dependency:

[dependencies]
forsolver = { git = "https://github.com/gha3mi/forsolver.git" }

ForDiff

ForDiff is a Fortran library for numerical differentiation.

fpm Dependency:

[dependencies]
fordiff = { git = "https://github.com/gha3mi/fordiff.git" }

ForTime

ForTime is a Fortran library for measuring elapsed time, CPU time, OMP time, and MPI time.

fpm Dependency:

[dependencies]
fortime = { git = "https://github.com/gha3mi/fortime.git" }

ForLapack

ForLAPACK is a Fortran library for LAPACK-related operations.

fpm Dependency:

[dependencies]
forlapack = { git = "https://github.com/gha3mi/forlapack.git" }

ForBlas

ForBLAS is a Fortran library for BLAS-related operations.

fpm Dependency:

[dependencies]
forblas = { git = "https://github.com/gha3mi/forblas.git" }

ForImage

ForImage is a Fortran library for PNM file processing and image editing.

fpm Dependency:

[dependencies]
forimage = { git = "https://github.com/gha3mi/forimage.git" }

ForInv

ForInv is a Fortran library for calculating pseudoinverse using various methods.

fpm Dependency:

[dependencies]
forinv = { git = "https://github.com/gha3mi/forinv.git" }

ForDebug

ForDebug is a Fortran library designed for debugging Fortran code, especially within pure procedures.

fpm Dependency:

[dependencies]
fordebug = { git = "https://github.com/gha3mi/fordebug.git" }

ForBenchmark

ForBenchmark is a Fortran library for benchmarking (with support for coarrays).

fpm Dependency:

[dependencies]
forbenchmark = { git = "https://github.com/gha3mi/forbenchmark.git" }

ForUnitTest

ForUnitTest is a Fortran library for unit testing.

fpm Dependency:

[dependencies]
forunittest = { git = "https://github.com/gha3mi/forunittest.git" }

foropenai's Issues

Update README

Minor fixes

Add command-line interface (CLI)

Problem with http-client using multipart/form-data

In test5 for translation:

This curl command functions correctly:

curl https://api.openai.com/v1/audio/translations \
  -H "Authorization: Bearer $OPENAI_API_KEY" \
  -H "Content-Type: multipart/form-data" \
  -F file="@test/audio_de.mp3" \
  -F model="whisper-1" \
  -F prompt="" \
  -F response_format="json" \
  -F temperature=0.0

The equivalent HTTP request using http-client doesn't work when there is a temperature parameter:

program test_translation

   use http, only: response_type, request, HTTP_POST, pair_type

   type(pair_type),    allocatable :: req_header(:), form_data(:), file_data
   character(len=:),   allocatable :: api_key
   type(response_type)             :: response

   api_key = 'OPENAI_API_KEY'

   req_header = [&
      pair_type('Authorization', 'Bearer '//trim(api_key)),&
      pair_type('Content-Type', 'multipart/form-data')&
      ]

   form_data = [&
      pair_type('model'          , "whisper-1"),&
      pair_type('prompt'         , ""),&
      pair_type('response_format', "json"),&
      pair_type('temperature'    , "0.0")&
      ]

   file_data = pair_type('file', 'test/audio_de.mp3')

   response = request(&
      url    = "https://api.openai.com/v1/audio/translations",&
      method = HTTP_POST,&
      header = req_header,&
      form   = form_data,&
      file   = file_data)

   print*, response%content

end program test_translation

Edit: Updated test program.

Add New Functionalities for Chat Completion

• presence_penalty
• frequency_penalty
• top_p
• stream
• n

Update FORD documentation

Add speech to text

Bug in request function of http-client package

There is a bug with the request function of http-client when working with multipart/form-data in subroutine create_transcription.

The issue arises when there are no spaces before the "name" attribute in the form variable for the second and following pairs. Here's an example:

response = request(url=this%url, method=HTTP_POST , header=req_header, form=form_data, file=file_data)

And here's the problematic form definition:

form_data = [&
   pair_type('model', trim(this%model)),&
   pair_type(' language', trim(this%language)),&
   pair_type(' response_format', trim(this%response_format)),&
   pair_type(' prompt', trim(this%prompt)),&
   pair_type(' temperature', trim(tempereture_str))&
   ]

Setting API Keys Using Environment Variables

Fix Bug in 'read_user_message' Subroutine

Initialize and destroy JSON

Add Translation

Add Image Edit

Initialize and destroy JSON in the 'load_organization' subroutine

functionality to add

Hello, this is a comment, not an "issue".

I have a project https://github.com/Beliavsky/ChatGPT-Fortran-generator that may interest you. One thing it can do is ask ChatGPT to create a Fortran program to solve a task, compile the supplied code, and feed the compiler error messages back to ChatGPT if there are any, so that it can produce code that compiles. My project is in Python, but it could be done in Fortran as well.

Initialize and destroy JSON in the 'load_api_key' subroutine

Update README

Use newunit in write_history subroutine

Remove Unused Module from Two Subroutines

create_chat_completion subroutine
conversation subroutine

Add 'function calling'

Add elemental for deallocate_ChatCompletion and deallocate_openai

Show error message for chat completion

Add image generation

Add private procedures

Update 'ChatCompletion' module

Update 'openai' derived type