--- source/xfft.f.orig	2008-08-03 00:36:52.000000000 -0700
+++ source/xfft.f	2008-08-03 00:37:06.000000000 -0700
@@ -514,7 +514,7 @@
       LOGICAL QHERM
       DOUBLE PRECISION XRCELL(9), MAPR
 C local
-!$    integer omp_get_max_threads, kmp_get_stacksize
+!$    integer omp_get_max_threads
       LOGICAL DONE
       DOUBLE PRECISION ZERO
       PARAMETER (ZERO=0.0D0)
@@ -537,7 +537,7 @@
       NBPP=1
 ! The following command is only relevant for the ifort compiler (if -openmp option is used).
 ! If your compiler is not ifort, and gives an error, just comment the next line out:
-!$      if (kmp_get_stacksize().lt.2**23) call kmp_set_stacksize(2**23)
+!       if (kmp_get_stacksize().lt.2**23) call kmp_set_stacksize(2**23)
 ! Explanation: the default KMP_STACKSIZE of ifort is 2**21 bytes (2Mb) for 32bit, 
 ! and 2**22 bytes (4Mb) for 64bit.
 ! This may be low for big structures, which leads to segmentation faults!
