Changeset 1279 for LMDZ4/trunk/libf/filtrez/mod_fft_mkl.F90
- Timestamp:
- Dec 10, 2009, 10:02:56 AM (15 years ago)
- Location:
- LMDZ4/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk
- Property svn:mergeinfo changed
/LMDZ4/branches/LMDZ4-dev merged: 1150-1162,1164-1193,1195-1231,1234-1235,1237-1240,1242-1274,1276
- Property svn:mergeinfo changed
-
LMDZ4/trunk/libf/filtrez/mod_fft_mkl.F90
r986 r1279 74 74 ierr = DftiSetValue(FFT_Handle,DFTI_PLACEMENT,DFTI_NOT_INPLACE) 75 75 ierr = DftiSetValue(FFT_Handle, DFTI_INPUT_DISTANCE, vsize+inc) 76 ierr = DftiSetValue(FFT_Handle, DFTI_OUTPUT_DISTANCE, vsize/2+1)76 ierr = DftiSetValue(FFT_Handle, DFTI_OUTPUT_DISTANCE, (vsize/2+1)*2) 77 77 ierr = DftiCommitDescriptor( FFT_Handle ) 78 78 ! Forward_handle(nb_vect)%IsAllocated=.TRUE. … … 114 114 ierr = DftiSetValue(FFT_Handle,DFTI_BACKWARD_SCALE,scale_factor) 115 115 ierr = DftiSetValue(FFT_Handle,DFTI_PLACEMENT,DFTI_NOT_INPLACE) 116 ierr = DftiSetValue(FFT_Handle, DFTI_INPUT_DISTANCE, vsize/2+1)116 ierr = DftiSetValue(FFT_Handle, DFTI_INPUT_DISTANCE, (vsize/2+1)*2) 117 117 ierr = DftiSetValue(FFT_Handle, DFTI_OUTPUT_DISTANCE, vsize+inc) 118 118 ierr = DftiCommitDescriptor( FFT_Handle )
Note: See TracChangeset
for help on using the changeset viewer.