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
PRIVATE
PUBLIC :: fwfft, invfft
PUBLIC :: fwfft, invfft, fft_interpolate
INTERFACE invfft
......@@ -53,5 +53,29 @@ MODULE fft_interfaces
END SUBROUTINE fwfft_y
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
!=---------------------------------------------------------------------------=!
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