Changed dp => real64 to dp = kind(1.0d0)

hsnyder · hsnyder · commit fae8d4cf4995 · 2021-09-08T17:53:36.000-04:00
diff --git a/src/fftpack.f90 b/src/fftpack.f90
@@ -1,8 +1,8 @@
 module fftpack
 
-    use, intrinsic :: iso_fortran_env, only: dp => real64
     implicit none
     private
+    integer, parameter :: dp = kind(1.0d0)
 
     public :: zffti, zfftf, zfftb
     public :: fft, ifft
diff --git a/test/test_fftpack_dcosq.f90 b/test/test_fftpack_dcosq.f90
@@ -13,7 +13,7 @@ end subroutine check
 
     subroutine test_fftpack_dcosq_real
         use fftpack, only: dcosqi, dcosqf, dcosqb
-        use iso_fortran_env, only: dp => real64
+        integer,parameter :: dp = kind(1.0d0)
         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
@@ -13,7 +13,7 @@ end subroutine check
 
     subroutine test_fftpack_dfft()
         use fftpack, only: dffti, dfftf, dfftb
-        use iso_fortran_env, only: dp => real64
+        integer,parameter :: dp = kind(1.0d0)
 
         real(kind=dp) :: x(4)
         real(kind=dp) :: w(31)
diff --git a/test/test_fftpack_dzfft.f90 b/test/test_fftpack_dzfft.f90
@@ -13,7 +13,7 @@ end subroutine check
 
     subroutine test_fftpack_dzfft
         use fftpack, only: dzffti, dzfftf, dzfftb
-        use iso_fortran_env, only: dp => real64
+        integer,parameter :: dp = kind(1.0d0)
 
         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
@@ -13,7 +13,7 @@ end subroutine check
 
     subroutine test_fftpack_fft
         use fftpack, only: fft
-        use iso_fortran_env, only: dp => real64
+        integer,parameter :: dp = kind(1.0d0)
         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
@@ -14,7 +14,7 @@ end subroutine check
 
     subroutine test_fftpack_fftshift_complex
         use fftpack, only: fftshift
-        use iso_fortran_env, only: dp => real64
+        integer,parameter :: dp = kind(1.0d0)
 
         complex(kind=dp) :: xeven(4) = [1, 2, 3, 4]
         complex(kind=dp) :: xodd(5) = [1, 2, 3, 4, 5]
@@ -28,7 +28,7 @@ end subroutine test_fftpack_fftshift_complex
 
     subroutine test_fftpack_fftshift_real
         use fftpack, only: fftshift
-        use iso_fortran_env, only: dp => real64
+        integer,parameter :: dp = kind(1.0d0)
 
         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
@@ -13,7 +13,7 @@ end subroutine check
 
     subroutine test_fftpack_ifft
         use fftpack, only: fft, ifft
-        use iso_fortran_env, only: dp => real64
+        integer,parameter :: dp = kind(1.0d0)
         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
@@ -14,7 +14,7 @@ end subroutine check
 
     subroutine test_fftpack_ifftshift_complex
         use fftpack, only: ifftshift
-        use iso_fortran_env, only: dp => real64
+        integer,parameter :: dp = kind(1.0d0)
         integer :: i
 
         complex(kind=dp) :: xeven(4) = [3, 4, 1, 2]
@@ -29,7 +29,7 @@ end subroutine test_fftpack_ifftshift_complex
 
     subroutine test_fftpack_ifftshift_real
         use fftpack, only: ifftshift
-        use iso_fortran_env, only: dp => real64
+        integer,parameter :: dp = kind(1.0d0)
         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
@@ -13,7 +13,7 @@ end subroutine check
 
     subroutine test_fftpack_iqct
         use fftpack, only: qct, iqct
-        use iso_fortran_env, only: dp => real64
+        integer,parameter :: dp = kind(1.0d0)
         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
@@ -13,7 +13,7 @@ end subroutine check
 
     subroutine test_fftpack_irfft
         use fftpack, only: rfft, irfft
-        use iso_fortran_env, only: dp => real64
+        integer,parameter :: dp = kind(1.0d0)
         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
@@ -13,7 +13,7 @@ end subroutine check
 
     subroutine test_fftpack_qct
         use fftpack, only: qct
-        use iso_fortran_env, only: dp => real64
+        integer,parameter :: dp = kind(1.0d0)
         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
@@ -13,7 +13,7 @@ end subroutine check
 
     subroutine test_fftpack_rfft
         use fftpack, only: rfft
-        use iso_fortran_env, only: dp => real64
+        integer,parameter :: dp = kind(1.0d0)
         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
@@ -13,7 +13,7 @@ end subroutine check
 
     subroutine test_fftpack_zfft()
         use fftpack, only: zffti, zfftf, zfftb
-        use iso_fortran_env, only: dp => real64
+        integer,parameter :: dp = kind(1.0d0)
 
         complex(kind=dp) :: x(4) = [1, 2, 3, 4]
         real(kind=dp) :: w(31)
