| 123456789101112131415161718192021 |
- --- 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!
|
