Skip to content

Commit 27911ae

Browse files
committed
add very basic example
1 parent fed4d73 commit 27911ae

File tree

2 files changed

+9
-1
lines changed

2 files changed

+9
-1
lines changed

example/intrinsics/CMakeLists.txt

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,2 +1,3 @@
11
ADD_EXAMPLE(sum)
2-
ADD_EXAMPLE(dot_product)
2+
ADD_EXAMPLE(dot_product)
3+
ADD_EXAMPLE(matmul)

example/intrinsics/example_matmul.f90

Lines changed: 7 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,7 @@
1+
program example_matmul
2+
use stdlib_intrinsics, only: stdlib_matmul
3+
complex :: a(2,2)
4+
a = reshape([(0, 0), (0, -1), (0, 1), (0, 0)], [2, 2]) ! pauli y-matrix
5+
6+
print *, stdlib_matmul(a, a, a, a, a) ! should be sigma_y
7+
end program example_matmul

0 commit comments

Comments
 (0)