From 171662ba507236f5a7adb8646edc5ffea0a14785 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Wed, 20 Dec 2023 21:07:57 -0500
Subject: [PATCH] Minor cleanup in cfom.f90.  (But maybe dd is being altered,
 elsewhere, in symspec?)

---
 qmap/libqmap/cfom.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/qmap/libqmap/cfom.f90 b/qmap/libqmap/cfom.f90
index d44ebd538..e58f005b4 100644
--- a/qmap/libqmap/cfom.f90
+++ b/qmap/libqmap/cfom.f90
@@ -7,7 +7,7 @@ subroutine cfom(dd,k0,k,ndop0)
   real*8 twopi,dphi
   logical first
   data first/.true./
-  save
+  save twopi,w,first
 
   if(first) then
      twopi=8.d0*atan(1.d0)
@@ -20,10 +20,10 @@ subroutine cfom(dd,k0,k,ndop0)
   wstep=cmplx(cos(dphi),sin(dphi))
 
   do j=k0+1,k
-     w=w*wstep
      c=w*cmplx(dd(1,j),dd(2,j))
      dd(1,j)=real(c)
      dd(2,j)=aimag(c)
+     w=w*wstep
   enddo
 
   return