blob: 121603eaa60efc395a3e03486e1aa08776bdd3f8 (
plain)
1
2
3
4
5
6
7
8
9
|
SUBROUTINE fftsg3d ( n, zout )
INTEGER, PARAMETER :: dp = SELECTED_REAL_KIND ( 14, 200 )
INTEGER, DIMENSION(*), INTENT(IN) :: n
COMPLEX(KIND=dp), DIMENSION(*), INTENT(INOUT) :: zout
INTEGER :: nx
nx = n ( 1 )
CALL mltfftsg ( zout, nx, nx )
END SUBROUTINE fftsg3d
|
