fortran

LAPACKで連立一次方程式を解く

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 re…