src/naivemath.F90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

MODULE naivmat
  IMPLICIT none
  PRIVATE

  PUBLIC :: naivmull
  PRIVATE :: naivmull_4, naivmull_8, naivmull_16
  
  INTERFACE naivmull
     procedure naivmull_4, naivmull_8, naivmull_16
  END INTERFACE naivmull

CONTAINS

  
END MODULE naivmat