fixed headers for fortran an c

eth-cscs · Jan 7, 2021 · a1959bd · a1959bd
1 parent 0e5bf68
commit a1959bd
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 5 deletions.
diff --git a/include/spfft/spfft.f90 b/include/spfft/spfft.f90
@@ -351,7 +351,7 @@ integer(c_int) function spfft_transform_backward_ptr(transform, input, &
     use iso_c_binding
     type(c_ptr), value :: transform
     complex(c_double), dimension(*), intent(in) :: input
-    c_double, dimension(*), intent(out) :: output
+    real(c_double), dimension(*), intent(out) :: output
   end function
 
   integer(c_int) function spfft_transform_forward(transform, inputLocation, &
@@ -367,7 +367,7 @@ integer(c_int) function spfft_transform_forward_ptr(transform, input, &
                                   output, scaling) bind(C)
     use iso_c_binding
     type(c_ptr), value :: transform
-    c_double, dimension(*), intent(in) :: input
+    real(c_double), dimension(*), intent(in) :: input
     complex(c_double), dimension(*), intent(out) :: output
     integer(c_int), value :: scaling
   end function
@@ -570,7 +570,7 @@ integer(c_int) function spfft_float_transform_backward_ptr(transform, input, &
     use iso_c_binding
     type(c_ptr), value :: transform
     complex(c_float), dimension(*), intent(in) :: input
-    c_float, dimension(*), intent(out) :: output
+    real(c_float), dimension(*), intent(out) :: output
   end function
 
   integer(c_int) function spfft_float_transform_forward(transform, inputLocation, &
@@ -586,7 +586,7 @@ integer(c_int) function spfft_float_transform_forward_ptr(transform, input, &
                                   output, scaling) bind(C)
     use iso_c_binding
     type(c_ptr), value :: transform
-    c_float, dimension(*), intent(in) :: input
+    real(c_float), dimension(*), intent(in) :: input
     complex(c_float), dimension(*), intent(out) :: output
     integer(c_int), value :: scaling
   end function
@@ -719,7 +719,7 @@ integer(c_int) function spfft_float_multi_transform_backward_ptr(numTransforms,
     integer(c_int), value :: numTransforms
     type(c_ptr), value :: transforms
     type(c_ptr), value :: inputPointers
-    type(c_ptr), value :: outputLocations
+    type(c_ptr), value :: outputPointers
   end function
 
 end interface

diff --git a/include/spfft/types.h b/include/spfft/types.h
@@ -124,6 +124,7 @@ typedef enum SpfftProcessingUnitType SpfftProcessingUnitType;
 typedef enum SpfftTransformType SpfftTransformType;
 typedef enum SpfftIndexFormatType SpfftIndexFormatType;
 typedef enum SpfftScalingType SpfftScalingType;
+typedef enum SpfftExecType SpfftExecType;
 /*! \endcond */
 #endif  // cpp
 #endif