Merge pull request #13 from hsnyder/master

hsnyder · web-flow · commit 505fdcd4604e · 2021-09-09T19:53:52.000-04:00
Changed dp =&gt; real64 to dp = kind(1.0d0)
diff --git a/src/fftpack.f90 b/src/fftpack.f90
@@ -1,9 +1,10 @@
 module fftpack
 
-    use, intrinsic :: iso_fortran_env, only: dp => real64
     implicit none
     private
+    integer, parameter :: dp = kind(1.0d0)
 
+    public :: dp
     public :: zffti, zfftf, zfftb
     public :: fft, ifft
     public :: fftshift, ifftshift
diff --git a/test/test_fftpack_dcosq.f90 b/test/test_fftpack_dcosq.f90
@@ -12,8 +12,7 @@ subroutine check(condition, msg)
     end subroutine check
 
     subroutine test_fftpack_dcosq_real
-        use fftpack, only: dcosqi, dcosqf, dcosqb
-        use iso_fortran_env, only: dp => real64
+        use fftpack, only: dcosqi, dcosqf, dcosqb, dp
         real(kind=dp) :: w(3*4 + 15)
         real(kind=dp) :: x(4) = [1, 2, 3, 4]
         real(kind=dp) :: eps = 1.0e-10_dp
diff --git a/test/test_fftpack_dfft.f90 b/test/test_fftpack_dfft.f90
@@ -12,8 +12,7 @@ subroutine check(condition, msg)
     end subroutine check
 
     subroutine test_fftpack_dfft()
-        use fftpack, only: dffti, dfftf, dfftb
-        use iso_fortran_env, only: dp => real64
+        use fftpack, only: dffti, dfftf, dfftb, dp
 
         real(kind=dp) :: x(4)
         real(kind=dp) :: w(31)
diff --git a/test/test_fftpack_dzfft.f90 b/test/test_fftpack_dzfft.f90
@@ -12,8 +12,7 @@ subroutine check(condition, msg)
     end subroutine check
 
     subroutine test_fftpack_dzfft
-        use fftpack, only: dzffti, dzfftf, dzfftb
-        use iso_fortran_env, only: dp => real64
+        use fftpack, only: dzffti, dzfftf, dzfftb, dp
 
         real(kind=dp) :: x(4) = [1, 2, 3, 4]
         real(kind=dp) :: w(3*4 + 15)
diff --git a/test/test_fftpack_fft.f90 b/test/test_fftpack_fft.f90
@@ -12,8 +12,7 @@ subroutine check(condition, msg)
     end subroutine check
 
     subroutine test_fftpack_fft
-        use fftpack, only: fft
-        use iso_fortran_env, only: dp => real64
+        use fftpack, only: fft, dp
         real(kind=dp) :: eps = 1.0e-10_dp
 
         complex(kind=dp) :: x(3) = [1.0_dp, 2.0_dp, 3.0_dp]
diff --git a/test/test_fftpack_fftshift.f90 b/test/test_fftpack_fftshift.f90
@@ -13,8 +13,7 @@ subroutine check(condition, msg)
     end subroutine check
 
     subroutine test_fftpack_fftshift_complex
-        use fftpack, only: fftshift
-        use iso_fortran_env, only: dp => real64
+        use fftpack, only: fftshift, dp
 
         complex(kind=dp) :: xeven(4) = [1, 2, 3, 4]
         complex(kind=dp) :: xodd(5) = [1, 2, 3, 4, 5]
@@ -27,8 +26,7 @@ subroutine test_fftpack_fftshift_complex
     end subroutine test_fftpack_fftshift_complex
 
     subroutine test_fftpack_fftshift_real
-        use fftpack, only: fftshift
-        use iso_fortran_env, only: dp => real64
+        use fftpack, only: fftshift, dp
 
         real(kind=dp) :: xeven(4) = [1, 2, 3, 4]
         real(kind=dp) :: xodd(5) = [1, 2, 3, 4, 5]
diff --git a/test/test_fftpack_ifft.f90 b/test/test_fftpack_ifft.f90
@@ -12,8 +12,7 @@ subroutine check(condition, msg)
     end subroutine check
 
     subroutine test_fftpack_ifft
-        use fftpack, only: fft, ifft
-        use iso_fortran_env, only: dp => real64
+        use fftpack, only: fft, ifft, dp
         real(kind=dp) :: eps = 1.0e-10_dp
 
         complex(kind=dp) :: x(4) = [1, 2, 3, 4]
diff --git a/test/test_fftpack_ifftshift.f90 b/test/test_fftpack_ifftshift.f90
@@ -13,8 +13,7 @@ subroutine check(condition, msg)
     end subroutine check
 
     subroutine test_fftpack_ifftshift_complex
-        use fftpack, only: ifftshift
-        use iso_fortran_env, only: dp => real64
+        use fftpack, only: ifftshift, dp
         integer :: i
 
         complex(kind=dp) :: xeven(4) = [3, 4, 1, 2]
@@ -28,8 +27,7 @@ subroutine test_fftpack_ifftshift_complex
     end subroutine test_fftpack_ifftshift_complex
 
     subroutine test_fftpack_ifftshift_real
-        use fftpack, only: ifftshift
-        use iso_fortran_env, only: dp => real64
+        use fftpack, only: ifftshift, dp
         integer :: i
 
         real(kind=dp) :: xeven(4) = [3, 4, 1, 2]
diff --git a/test/test_fftpack_iqct.f90 b/test/test_fftpack_iqct.f90
@@ -12,8 +12,7 @@ subroutine check(condition, msg)
     end subroutine check
 
     subroutine test_fftpack_iqct
-        use fftpack, only: qct, iqct
-        use iso_fortran_env, only: dp => real64
+        use fftpack, only: qct, iqct, dp
         real(kind=dp) :: eps = 1.0e-10_dp
 
         real(kind=dp) :: x(4) = [1, 2, 3, 4]
diff --git a/test/test_fftpack_irfft.f90 b/test/test_fftpack_irfft.f90
@@ -12,8 +12,7 @@ subroutine check(condition, msg)
     end subroutine check
 
     subroutine test_fftpack_irfft
-        use fftpack, only: rfft, irfft
-        use iso_fortran_env, only: dp => real64
+        use fftpack, only: rfft, irfft, dp
         real(kind=dp) :: eps = 1.0e-10_dp
 
         real(kind=dp) :: x(4) = [1, 2, 3, 4]
diff --git a/test/test_fftpack_qct.f90 b/test/test_fftpack_qct.f90
@@ -12,8 +12,7 @@ subroutine check(condition, msg)
     end subroutine check
 
     subroutine test_fftpack_qct
-        use fftpack, only: qct
-        use iso_fortran_env, only: dp => real64
+        use fftpack, only: qct, dp
         real(kind=dp) :: eps = 1.0e-10_dp
 
         real(kind=dp) :: x(3) = [9, -9, 3]
diff --git a/test/test_fftpack_rfft.f90 b/test/test_fftpack_rfft.f90
@@ -12,8 +12,7 @@ subroutine check(condition, msg)
     end subroutine check
 
     subroutine test_fftpack_rfft
-        use fftpack, only: rfft
-        use iso_fortran_env, only: dp => real64
+        use fftpack, only: rfft, dp
         real(kind=dp) :: eps = 1.0e-10_dp
 
         real(kind=dp) :: x(3) = [9, -9, 3]
diff --git a/test/test_fftpack_zfft.f90 b/test/test_fftpack_zfft.f90
@@ -12,8 +12,7 @@ subroutine check(condition, msg)
     end subroutine check
 
     subroutine test_fftpack_zfft()
-        use fftpack, only: zffti, zfftf, zfftb
-        use iso_fortran_env, only: dp => real64
+        use fftpack, only: zffti, zfftf, zfftb, dp
 
         complex(kind=dp) :: x(4) = [1, 2, 3, 4]
         real(kind=dp) :: w(31)
