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