Rename module external_interfaces

gha3mi · Jan 17, 2024 · 181bd08 · 181bd08
1 parent 2806581
commit 181bd08
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 8 deletions.
diff --git a/src/external_interfaces_matmul.f90 → src/external_interfaces.f90 b/src/external_interfaces_matmul.f90 → src/external_interfaces.f90
@@ -1,4 +1,4 @@
-module external_interfaces
+module external_interfaces_matmul
 
  use kinds
 
@@ -108,4 +108,4 @@ end subroutine dgemv
 #endif
  end interface
 
-end module external_interfaces
+end module external_interfaces_matmul
diff --git a/src/formatmul_opts.f90 b/src/formatmul_opts.f90
@@ -250,7 +250,7 @@ end subroutine mm_AB_1
  !===============================================================================
  !> author: Seyed Ali Ghasemi
  pure subroutine mm_AB_2(A, B, C)
- use external_interfaces
+ use external_interfaces_matmul
 
  real(rk), intent(in), contiguous :: A(:,:), B(:,:)
  real(rk), intent(inout), contiguous :: C(:,:)
@@ -540,7 +540,7 @@ end subroutine mm_ATB_1
  !===============================================================================
  !> author: Seyed Ali Ghasemi
  pure subroutine mm_ATB_2(A, B, C)
- use external_interfaces
+ use external_interfaces_matmul
 
  real(rk), intent(in), contiguous :: A(:,:), B(:,:)
  real(rk), intent(inout), contiguous :: C(:,:)
@@ -830,7 +830,7 @@ end subroutine mm_ABT_1
  !===============================================================================
  !> author: Seyed Ali Ghasemi
  pure subroutine mm_ABT_2(A, B, C)
- use external_interfaces
+ use external_interfaces_matmul
 
  real(rk), intent(in), contiguous :: A(:,:), B(:,:)
  real(rk), intent(inout), contiguous :: C(:,:)
@@ -1119,7 +1119,7 @@ end subroutine mm_ATBT_1
  !===============================================================================
  !> author: Seyed Ali Ghasemi
  pure subroutine mm_ATBT_2(A, B, C)
- use external_interfaces
+ use external_interfaces_matmul
 
  real(rk), intent(in), contiguous :: A(:,:), B(:,:)
  real(rk), intent(inout), contiguous :: C(:,:)
@@ -1411,7 +1411,7 @@ end subroutine mv_Av_1
  !===============================================================================
  !> author: Seyed Ali Ghasemi
  pure subroutine mv_Av_2(A, v, w)
- use external_interfaces
+ use external_interfaces_matmul
 
  real(rk), intent(in), contiguous :: A(:,:), v(:)
  real(rk), intent(inout), contiguous :: w(:)
@@ -1567,7 +1567,7 @@ end subroutine mv_ATv_1
  !===============================================================================
  !> author: Seyed Ali Ghasemi
  pure subroutine mv_ATv_2(A, v, w)
- use external_interfaces
+ use external_interfaces_matmul
 
  real(rk), intent(in), contiguous :: A(:,:), v(:)
  real(rk), intent(inout), contiguous :: w(:)