fffc_linalg_inv_func.f90 Source File

submodule(fffc_linalg) fffc_linalg_inv_func
contains
    module procedure inv_func_real_kind
        b = a
        call inv(b)
    end procedure inv_func_real_kind
    module procedure inv_func_complex_kind
        b = a
        call inv(b)
    end procedure inv_func_complex_kind
end submodule fffc_linalg_inv_func