src/bettermath.F90

   1 MODULE bettermat
   2   IMPLICIT none
   3   PRIVATE
   4
   5   PUBLIC :: bettermull
   6   PRIVATE :: bettermull_4, bettermull_8, bettermull_16
   7
   8   INTERFACE bettermull
   9      procedure bettermull_4, bettermull_8, bettermull_16
  10   END INTERFACE bettermull
  11
  12 CONTAINS
  13
  14
  15 END MODULE bettermat