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