From 5a492e2abd1a946136fa5424c0519221cdb450f8 Mon Sep 17 00:00:00 2001 From: Wojtek Kosior Date: Mon, 22 Apr 2019 21:43:26 +0200 Subject: add dotmat module boilerplate --- CMakeLists.txt | 1 + src/dotmath.F90 | 15 +++++++++++++++ 2 files changed, 16 insertions(+) create mode 100644 src/dotmath.F90 diff --git a/CMakeLists.txt b/CMakeLists.txt index 39580b1..cd3dc18 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -68,6 +68,7 @@ set(SRC src) set(mull_SRC ${SRC}/naivemath.F90 ${SRC}/bettermath.F90 + ${SRC}/dotmath.F90 ${SRC}/main.F90 ) diff --git a/src/dotmath.F90 b/src/dotmath.F90 new file mode 100644 index 0000000..e27929c --- /dev/null +++ b/src/dotmath.F90 @@ -0,0 +1,15 @@ +MODULE dotmat + IMPLICIT none + PRIVATE + + PUBLIC :: dotmull + PRIVATE :: dotmull_4, dotmull_8, dotmull_16 + + INTERFACE dotmull + procedure dotmull_4, dotmull_8, dotmull_16 + END INTERFACE dotmull + +CONTAINS + + +END MODULE dotmat -- cgit v1.2.3