Commit ea14cc39 authored by Carlo Cavazzoni's avatar Carlo Cavazzoni
Browse files

- adding interface to interpolate subroutines

parent 9c2e6642
...@@ -13,7 +13,7 @@ MODULE fft_interfaces ...@@ -13,7 +13,7 @@ MODULE fft_interfaces
PRIVATE PRIVATE
PUBLIC :: fwfft, invfft PUBLIC :: fwfft, invfft, fft_interpolate
INTERFACE invfft INTERFACE invfft
...@@ -53,5 +53,29 @@ MODULE fft_interfaces ...@@ -53,5 +53,29 @@ MODULE fft_interfaces
END SUBROUTINE fwfft_y END SUBROUTINE fwfft_y
END INTERFACE END INTERFACE
INTERFACE fft_interpolate
!! fft_interpolate is the interface to utility that fourier interpolate
!! real/complex arrays between two grids
SUBROUTINE fft_interpolate_real( dfft_in, v_in, dfft_out, v_out )
USE fft_param, ONLY :DP
USE fft_types, ONLY: fft_type_descriptor
IMPLICIT NONE
TYPE(fft_type_descriptor), INTENT(IN) :: dfft_in, dfft_out
REAL(DP), INTENT(IN) :: v_in(:)
REAL(DP), INTENT(OUT) :: v_out(:)
END SUBROUTINE fft_interpolate_real
!
SUBROUTINE fft_interpolate_complex( dfft_in, v_in, dfft_out, v_out )
USE fft_param, ONLY :DP
USE fft_types, ONLY: fft_type_descriptor
IMPLICIT NONE
TYPE(fft_type_descriptor), INTENT(IN) :: dfft_in, dfft_out
COMPLEX(DP), INTENT(IN) :: v_in(:)
COMPLEX(DP), INTENT(OUT) :: v_out(:)
END SUBROUTINE fft_interpolate_complex
END INTERFACE
END MODULE fft_interfaces END MODULE fft_interfaces
!=---------------------------------------------------------------------------=! !=---------------------------------------------------------------------------=!
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment