src/naivemath.F90


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

MODULE naivemat
  IMPLICIT none
  PRIVATE

  PUBLIC :: naivemull
  PRIVATE :: naivemull_4, naivemull_8, naivemull_16
  
  INTERFACE naivemull
     procedure naivemull_4, naivemull_8, naivemull_16
  END INTERFACE naivemull

CONTAINS

  
END MODULE naivemat