1SUBROUTINE S(zin)
2  COMPLEX(8), DIMENSION(3,3,3) :: zin
3  INTEGER :: m,n
4  CALL mltfftsg ( zin, m, n )
5END SUBROUTINE
6
7COMPLEX(8), DIMENSION(3,3,3) :: zin
8CALL s(zin)
9END
10
11