Skip to content

Commit

Permalink
comment out sp interfaces
Browse files Browse the repository at this point in the history
  • Loading branch information
@HugoMVale
HugoMVale committed Aug 3, 2024
1 parent 22abcbe commit fe565e2
Showing 1 changed file with 85 additions and 85 deletions.
170 changes: 85 additions & 85 deletions src/blas_interfaces.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -5,13 +5,13 @@ module blas_interfaces

interface

pure real(sp) function sasum(n, x, incx)
!! Sum of magnitudes of vector components.
import :: sp
integer, intent(in) :: n
real(sp), intent(in) :: x(*)
integer, intent(in) :: incx
end function sasum
! pure real(sp) function sasum(n, x, incx)
! !! Sum of magnitudes of vector components.
! import :: sp
! integer, intent(in) :: n
! real(sp), intent(in) :: x(*)
! integer, intent(in) :: incx
! end function sasum

pure real(dp) function dasum(n, x, incx)
!! Sum of magnitudes of vector components.
Expand All @@ -21,16 +21,16 @@ pure real(dp) function dasum(n, x, incx)
integer, intent(in) :: incx
end function dasum

pure subroutine saxpy(n, a, x, incx, y, incy)
!! Computation `Y = A*X + Y`.
import :: sp
integer, intent(in) :: n
real(sp), intent(in) :: a
real(sp), intent(in) :: x(*)
integer, intent(in) :: incx
real(sp), intent(inout) :: y(*)
integer, intent(in) :: incy
end subroutine saxpy
! pure subroutine saxpy(n, a, x, incx, y, incy)
! !! Computation `Y = A*X + Y`.
! import :: sp
! integer, intent(in) :: n
! real(sp), intent(in) :: a
! real(sp), intent(in) :: x(*)
! integer, intent(in) :: incx
! real(sp), intent(inout) :: y(*)
! integer, intent(in) :: incy
! end subroutine saxpy

pure subroutine daxpy(n, a, x, incx, y, incy)
!! Computation `Y = A*X + Y`.
Expand All @@ -43,15 +43,15 @@ pure subroutine daxpy(n, a, x, incx, y, incy)
integer, intent(in) :: incy
end subroutine daxpy

pure subroutine scopy(n, x, incx, y, incy)
!! Vector copy `Y = X`.
import :: sp
integer, intent(in) :: n
real(sp), intent(in) :: x(*)
integer, intent(in) :: incx
real(sp), intent(inout) :: y(*)
integer, intent(in) :: incy
end subroutine scopy
! pure subroutine scopy(n, x, incx, y, incy)
! !! Vector copy `Y = X`.
! import :: sp
! integer, intent(in) :: n
! real(sp), intent(in) :: x(*)
! integer, intent(in) :: incx
! real(sp), intent(inout) :: y(*)
! integer, intent(in) :: incy
! end subroutine scopy

pure subroutine dcopy(n, x, incx, y, incy)
!! Vector copy `Y = X`.
Expand All @@ -63,15 +63,15 @@ pure subroutine dcopy(n, x, incx, y, incy)
integer, intent(in) :: incy
end subroutine dcopy

pure real(sp) function sdot(n, x, incx, y, incy)
!! Inner product of vectors.
import :: sp
integer, intent(in) :: n
real(sp), intent(in) :: x(*)
integer, intent(in) :: incx
real(sp), intent(in) :: y(*)
integer, intent(in) :: incy
end function sdot
! pure real(sp) function sdot(n, x, incx, y, incy)
! !! Inner product of vectors.
! import :: sp
! integer, intent(in) :: n
! real(sp), intent(in) :: x(*)
! integer, intent(in) :: incx
! real(sp), intent(in) :: y(*)
! integer, intent(in) :: incy
! end function sdot

pure real(dp) function ddot(n, x, incx, y, incy)
!! Inner product of vectors.
Expand All @@ -83,13 +83,13 @@ pure real(dp) function ddot(n, x, incx, y, incy)
integer, intent(in) :: incy
end function ddot

pure real(sp) function snrm2(n, x, incx)
!! Euclidean length (L2 Norm) of vector.
import :: sp
integer, intent(in) :: n
real(sp), intent(in) :: x(*)
integer, intent(in) :: incx
end function snrm2
! pure real(sp) function snrm2(n, x, incx)
! !! Euclidean length (L2 Norm) of vector.
! import :: sp
! integer, intent(in) :: n
! real(sp), intent(in) :: x(*)
! integer, intent(in) :: incx
! end function snrm2

pure real(dp) function dnrm2(n, x, incx)
!! Euclidean length (L2 Norm) of vector.
Expand All @@ -99,17 +99,17 @@ pure real(dp) function dnrm2(n, x, incx)
integer, intent(in) :: incx
end function dnrm2

pure subroutine srot(n, x, incx, y, incy, c, s)
!! Apply Givens rotation.
import :: sp
integer, intent(in) :: n
real(sp), intent(inout) :: x(*)
integer, intent(in) :: incx
real(sp), intent(inout) :: y(*)
integer, intent(in) :: incy
real(sp), intent(in) :: c
real(sp), intent(in) :: s
end subroutine srot
! pure subroutine srot(n, x, incx, y, incy, c, s)
! !! Apply Givens rotation.
! import :: sp
! integer, intent(in) :: n
! real(sp), intent(inout) :: x(*)
! integer, intent(in) :: incx
! real(sp), intent(inout) :: y(*)
! integer, intent(in) :: incy
! real(sp), intent(in) :: c
! real(sp), intent(in) :: s
! end subroutine srot

pure subroutine drot(n, x, incx, y, incy, c, s)
!! Apply Givens rotation.
Expand All @@ -124,14 +124,14 @@ pure subroutine drot(n, x, incx, y, incy, c, s)
real(dp), intent(in) :: s
end subroutine drot

pure subroutine srotg(a, b, c, s)
!! Construct plane Givens rotation.
import :: sp
real(sp), intent(in) :: a
real(sp), intent(in) :: b
real(sp), intent(out) :: c
real(sp), intent(out) :: s
end subroutine srotg
! pure subroutine srotg(a, b, c, s)
! !! Construct plane Givens rotation.
! import :: sp
! real(sp), intent(in) :: a
! real(sp), intent(in) :: b
! real(sp), intent(out) :: c
! real(sp), intent(out) :: s
! end subroutine srotg

pure subroutine drotg(a, b, c, s)
!! Construct plane Givens rotation.
Expand All @@ -142,14 +142,14 @@ pure subroutine drotg(a, b, c, s)
real(dp), intent(out) :: s
end subroutine drotg

pure subroutine sscal(n, a, x, incx)
!! Vector scale `X = A*X`.
import :: sp
integer, intent(in) :: n
real(sp), intent(in) :: a
real(sp), intent(inout) :: x(*)
integer, intent(in) :: incx
end subroutine sscal
! pure subroutine sscal(n, a, x, incx)
! !! Vector scale `X = A*X`.
! import :: sp
! integer, intent(in) :: n
! real(sp), intent(in) :: a
! real(sp), intent(inout) :: x(*)
! integer, intent(in) :: incx
! end subroutine sscal

pure subroutine dscal(n, a, x, incx)
!! Vector scale `X = A*X`.
Expand All @@ -160,15 +160,15 @@ pure subroutine dscal(n, a, x, incx)
integer, intent(in) :: incx
end subroutine dscal

pure subroutine sswap(n, x, incx, y, incy)
!! Interchange vectors.
import :: sp
integer, intent(in) :: n
real(sp), intent(in) :: x(*)
integer, intent(in) :: incx
real(sp), intent(inout) :: y(*)
integer, intent(in) :: incy
end subroutine sswap
! pure subroutine sswap(n, x, incx, y, incy)
! !! Interchange vectors.
! import :: sp
! integer, intent(in) :: n
! real(sp), intent(in) :: x(*)
! integer, intent(in) :: incx
! real(sp), intent(inout) :: y(*)
! integer, intent(in) :: incy
! end subroutine sswap

pure subroutine dswap(n, x, incx, y, incy)
!! Interchange vectors.
Expand All @@ -180,13 +180,13 @@ pure subroutine dswap(n, x, incx, y, incy)
integer, intent(in) :: incy
end subroutine dswap

pure integer function isamax(n, x, incx)
!! Find largest component of vector.
import :: sp
integer, intent(in) :: n
real(sp), intent(in) :: x(*)
integer, intent(in) :: incx
end function isamax
! pure integer function isamax(n, x, incx)
! !! Find largest component of vector.
! import :: sp
! integer, intent(in) :: n
! real(sp), intent(in) :: x(*)
! integer, intent(in) :: incx
! end function isamax

pure integer function idamax(n, x, incx)
!! Find largest component of vector.
Expand Down

0 comments on commit fe565e2

Please sign in to comment.