aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorWojtek Kosior <kwojtus@protonmail.com>2019-04-25 19:29:12 +0200
committerWojtek Kosior <kwojtus@protonmail.com>2019-04-25 19:29:12 +0200
commit0e767b06e541debcbb87fbddbf8175b315c3e72a (patch)
treedf5f768da3a34bce58308300721e85e8511df3b6 /src
parent5cb0fe181bf691a28aaf276e60271773c38fd197 (diff)
downloadfortran-assignment1-0e767b06e541debcbb87fbddbf8175b315c3e72a.tar.gz
fortran-assignment1-0e767b06e541debcbb87fbddbf8175b315c3e72a.zip
adjust blocks size for different real types
Diffstat (limited to 'src')
-rw-r--r--src/blockmath.F905
1 files changed, 3 insertions, 2 deletions
diff --git a/src/blockmath.F90 b/src/blockmath.F90
index 247d0b0..2a05b94 100644
--- a/src/blockmath.F90
+++ b/src/blockmath.F90
@@ -28,8 +28,6 @@
MODULE blockmat
IMPLICIT none
PRIVATE
-
- integer, public :: blocksize = 25
PUBLIC :: blockmull
PRIVATE :: blockmull_4, blockmull_8, blockmull_16
@@ -45,6 +43,7 @@ CONTAINS
real(kind=4), intent(in), dimension(1:,1:) :: A, B
real(kind=4), dimension(size(A, 1), size(B, 2)) :: C
integer :: i, ii, ii_max, iiend, j, k, kk, kk_max, kkend
+ integer, parameter :: blocksize = 400
C = 0
@@ -81,6 +80,7 @@ CONTAINS
real(kind=8), intent(in), dimension(1:,1:) :: A, B
real(kind=8), dimension(size(A, 1), size(B, 2)) :: C
integer :: i, ii, ii_max, iiend, j, k, kk, kk_max, kkend
+ integer, parameter :: blocksize = 44
C = 0
@@ -117,6 +117,7 @@ CONTAINS
real(kind=16), intent(in), dimension(1:,1:) :: A, B
real(kind=16), dimension(size(A, 1), size(B, 2)) :: C
integer :: i, ii, ii_max, iiend, j, k, kk, kk_max, kkend
+ integer, parameter :: blocksize = 28
C = 0