Fortran是一種科學計算語言,常用于數值計算和科學計算領域。在現代計算中,JSON作為一種輕量級的數據交換格式,被廣泛應用于分布式系統之間的數據交換和API接口的開發。
那么,如何在Fortran中使用JSON文件呢?下面將介紹一些基本的方法。
! 使用json-fortran庫 ! https://github.com/jacobwilliams/json-fortran program example use iso_fortran_env use json_module, only: json_read_file, json_scalar, json_object, json_array, json_null, json_logical, json_integer, json_real, json_string implicit none type(json_object) :: json integer :: i, n if(.not. json_read_file("example.json", json)) then print *, "ERROR: JSON read failed!" stop endif ! 獲取 JSON 對象中的值 print *, json % get("key1") % as_string() print *, json % get("key2") % as_integer() print *, json % get("key3") % as_real() print *, json % get("key4") % as_logical() ! 獲取 JSON 數組中的值 n = json % get("arr") % as_array() % size() do i = 1, n print *, json % get("arr") % as_array() % get(i) % as_integer() enddo end program example
上述代碼使用了json-fortran庫來解析JSON文件。首先,判斷文件的讀取是否成功,然后可以從JSON對象中獲取鍵值對,包括字符串、整型、浮點型和邏輯型等類型。值得注意的是,在獲取數組中的值時,必須先獲取JSON數組對象,然后通過循環獲取每個元素的值。
總的來說,使用JSON文件在Fortran中可以方便地實現數據的傳輸和解析。使用json-fortran這樣的庫可以大大簡化開發過程,提高效率。