Skip to content

Commit d52c355

Browse files
Add external interfaces
1 parent c6ebea0 commit d52c355

File tree

3 files changed

+16
-0
lines changed

3 files changed

+16
-0
lines changed

src/CMakeLists.txt

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -16,5 +16,6 @@ set(FSTATS_SOURCES
1616
${dir}/distributions_chisquared.f90
1717
${dir}/allan.f90
1818
${dir}/fstats_errors.f90
19+
${dir}/external.f90
1920
)
2021
set(FSTATS_SOURCES ${FSTATS_SOURCES} PARENT_SCOPE)

src/external.f90

Lines changed: 14 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,14 @@
1+
module external
2+
3+
interface
4+
subroutine SGEMM(transa, transb, m, n, k, alpha, a, lda, b, ldb, beta, &
5+
c, ldc)
6+
use iso_fortran_env, only : int32, real32
7+
character, intent(in) :: transa, transb
8+
integer(int32), intent(in) :: m, n, k, lda, ldb, ldc
9+
real(real32), intent(in) :: alpha, a(lda,*), b(ldb,*), beta
10+
real(real32), intent(inout) :: c(ldc,*)
11+
end subroutine
12+
end interface
13+
14+
end module

src/regression_implementation.f90

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,7 @@
11
submodule (fstats) regression_implementation
22
use linalg
33
use fstats_errors
4+
use external
45
implicit none
56
contains
67
! ------------------------------------------------------------------------------

0 commit comments

Comments
 (0)