From 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 Mon Sep 17 00:00:00 2001 From: Joe Hunkeler Date: Tue, 11 Aug 2015 16:51:37 -0400 Subject: Repatch (from linux) of OSX IRAF --- math/ieee/chap1/r2tx.f | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 math/ieee/chap1/r2tx.f (limited to 'math/ieee/chap1/r2tx.f') diff --git a/math/ieee/chap1/r2tx.f b/math/ieee/chap1/r2tx.f new file mode 100644 index 00000000..425c10f8 --- /dev/null +++ b/math/ieee/chap1/r2tx.f @@ -0,0 +1,18 @@ +c +c----------------------------------------------------------------------- +c subroutine: r2tx +c radix 2 iteration subroutine +c----------------------------------------------------------------------- +c + subroutine r2tx(nthpo, cr0, cr1, ci0, ci1) + dimension cr0(2), cr1(2), ci0(2), ci1(2) + do 10 k=1,nthpo,2 + r1 = cr0(k) + cr1(k) + cr1(k) = cr0(k) - cr1(k) + cr0(k) = r1 + fi1 = ci0(k) + ci1(k) + ci1(k) = ci0(k) - ci1(k) + ci0(k) = fi1 + 10 continue + return + end -- cgit