From 291bd5d3dc307dc3c3fb239d92653906ec91bce2 Mon Sep 17 00:00:00 2001
From: Hajime Yoshimori <yoshimori-hj@yse.co.jp>
Date: Mon, 8 Jul 2024 11:46:52 +0900
Subject: [PATCH] cufftExecZ2D is double

---
 cufft.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/cufft.f90 b/cufft.f90
index 1c46eb3..ecc7c0c 100644
--- a/cufft.f90
+++ b/cufft.f90
@@ -291,9 +291,9 @@ end function cufftExecD2Z
      integer(c_int) function cufftExecZ2D (plan, idata, odata) &
          bind (c, name="cufftExecZ2D")
        import
-       complex(c_float), dimension(*) :: idata
+       complex(c_double), dimension(*) :: idata
        integer(c_int), value :: plan
-       real(c_float), dimension(*) :: odata
+       real(c_double), dimension(*) :: odata
      end function cufftExecZ2D
 
   end interface