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