diff options
Diffstat (limited to 'src/main.F90')
-rw-r--r-- | src/main.F90 | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/src/main.F90 b/src/main.F90 index 8b9823c..f28bbb8 100644 --- a/src/main.F90 +++ b/src/main.F90 @@ -2,6 +2,7 @@ PROGRAM mul USE naivmat USE bettmat USE dotmat + USE bettmat2 USE iso_fortran_env, only: error_unit IMPLICIT none @@ -35,6 +36,8 @@ PROGRAM mul multype = 3 ELSE IF (trim(impl_arg) .eq. "mat") THEN multype = 4 + ELSE IF (trim(impl_arg) .eq. "bett2") THEN + multype = 5 ELSE write (error_unit, '(A)') "Unrecognized implementation argument" call print_usage() @@ -108,8 +111,10 @@ CONTAINS res = bettmull(mat1, mat2) CASE (3) res = dotmull(mat1, mat2) - CASE default + CASE (4) res = matmul(mat1, mat2) + CASE default + res = bett2mull(mat1, mat2) END SELECT @@ -143,8 +148,10 @@ CONTAINS res = bettmull(mat1, mat2) CASE (3) res = dotmull(mat1, mat2) - CASE default + CASE (4) res = matmul(mat1, mat2) + CASE default + res = bett2mull(mat1, mat2) END SELECT @@ -178,8 +185,10 @@ CONTAINS res = bettmull(mat1, mat2) CASE (3) res = dotmull(mat1, mat2) - CASE default + CASE (4) res = matmul(mat1, mat2) + CASE default + res = bett2mull(mat1, mat2) END SELECT |