blob: 42b9b0572231de6f5c9072e8e632a1e0c6b28405 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
--- 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!
|