エントリーの編集
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
LAPACKで連立一次方程式を解く - yohtn
LAPACK : DGESVの例題のサンプルをf90っぽく書き換えました。 program main implicit none integer, par... LAPACK : DGESVの例題のサンプルをf90っぽく書き換えました。 program main implicit none integer, parameter :: SP = kind(1.0) integer, parameter :: DP = selected_real_kind(2*precision(1.0_SP)) integer :: i integer, parameter :: n = 4, m = 4 real(DP), dimension(n,m) :: a real(DP), dimension(n) :: b integer, dimension(n) :: ipiv integer :: info a = reshape( (/1.80_DP, 5.25_DP, 1.58_DP,-1.11_DP, & 2.88_DP,-2.95_DP,-2.69_DP,