From e7d47f99dab0a034e2feed7779eef69af497d51a Mon Sep 17 00:00:00 2001
From: giannozz <giannozz@c92efa57-630b-4861-b058-cf58834340f0>
Date: Tue, 14 Feb 2006 14:44:15 +0000
Subject: [PATCH] Wrapper for serial 3d fft no longer needed

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@2814 c92efa57-630b-4861-b058-cf58834340f0
---
 PWCOND/cft3sp.f90 | 24 ------------------------
 1 file changed, 24 deletions(-)
 delete mode 100644 PWCOND/cft3sp.f90

diff --git a/PWCOND/cft3sp.f90 b/PWCOND/cft3sp.f90
deleted file mode 100644
index fffa9fb08..000000000
--- a/PWCOND/cft3sp.f90
+++ /dev/null
@@ -1,24 +0,0 @@
-!
-! Copyright (C) 2003 A. Smogunov 
-! This file is distributed under the terms of the
-! GNU General Public License. See the file `License'
-! in the root directory of the present distribution,
-! or http://www.gnu.org/copyleft/gpl.txt .
-!
-!----------------------------------------------------------------------
-subroutine cft3sp (f,n1,n2,n3,nx1,nx2,nx3,sign)
-!----------------------------------------------------------------------
-!
-! Just usual FFT (even in MPI running)
-!
-  implicit none
-  integer :: n1, n2, n3, nx1, nx2, nx3, sign
-  complex(kind(0.d0)) ::  f(nx1*nx2*nx3)
-
-  if (sign.eq.1) then
-     call cft_3(f,n1,n2,n3,nx1,nx2,nx3,2, 1)
-  else if (sign.eq.-1) then
-     call cft_3(f,n1,n2,n3,nx1,nx2,nx3,2,-1)
-  endif
-  return
-end subroutine cft3sp