Skip to content

Commit 594161f

Browse files
committed
use main module in examples
1 parent 34b1452 commit 594161f

File tree

4 files changed

+3
-6
lines changed

4 files changed

+3
-6
lines changed

example/example_blas_gemv.f90

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,5 @@
11
program example_gemv
2-
use la_eye, only: eye
3-
use la_blas, only: sp,gemv
2+
use linear_algebra, only: eye,sp,gemv
43
implicit none(type,external)
54
real(sp) :: A(2, 2), B(2)
65
B = [1.0,2.0]

example/example_lapack_getrf.f90

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,5 @@
11
program example_getrf
2-
use la_eye, only: eye
3-
use la_lapack, only: dp,ilp,getrf
2+
use linear_algebra, only: eye,dp,ilp,getrf
43
implicit none(type,external)
54
real(dp) :: A(3, 3)
65
integer(ilp) :: ipiv(3),info

example/example_state1.f90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,5 @@
11
program example_state1
2-
use linear_algebra
2+
use linear_algebra, only: la_state, LINALG_VALUE_ERROR, operator(==)
33
implicit none
44
type(la_state) :: err
55

fpm.toml

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -18,4 +18,3 @@ source-form = "free"
1818
source-dir="src"
1919
[preprocess]
2020
[preprocess.cpp]
21-
###macros = ["STDLIB_EXTERNAL_BLAS","STDLIB_EXTERNAL_LAPACK"]

0 commit comments

Comments
 (0)