~ubuntu-branches/ubuntu/karmic/python-scipy/karmic

« back to all changes in this revision

Viewing changes to Lib/fftpack/dfftpack/zffti.f

  • Committer: Bazaar Package Importer
  • Author(s): Daniel T. Chen (new)
  • Date: 2005-03-16 02:15:29 UTC
  • Revision ID: james.westby@ubuntu.com-20050316021529-xrjlowsejs0cijig
Tags: upstream-0.3.2
ImportĀ upstreamĀ versionĀ 0.3.2

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
      SUBROUTINE ZFFTI (N,WSAVE)
 
2
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
 
3
      DIMENSION       WSAVE(1)
 
4
      IF (N .EQ. 1) RETURN
 
5
      IW1 = N+N+1
 
6
      IW2 = IW1+N+N
 
7
      CALL ZFFTI1 (N,WSAVE(IW1),WSAVE(IW2))
 
8
      RETURN
 
9
      END