hdiff output

r33310/DSOFT.f90 2017-09-15 02:30:09.279013216 +0100 r33309/DSOFT.f90 2017-09-15 02:30:09.503016200 +0100
216: 216: 
217: 217: 
218: CALL SETBANDWIDTH(BANDWIDTH)218: CALL SETBANDWIDTH(BANDWIDTH)
219: 219: 
220: CALL DFFTW_PLAN_DFT_1D(PLAN, (2*BANDWIDTH), IN1D, OUT1D, FFTW_FORWARD, FFTW_ESTIMATE)220: CALL DFFTW_PLAN_DFT_1D(PLAN, (2*BANDWIDTH), IN1D, OUT1D, FFTW_FORWARD, FFTW_ESTIMATE)
221: 221: 
222: ! Do FFT on axis 1222: ! Do FFT on axis 1
223: DO K1=1,2*BANDWIDTH223: DO K1=1,2*BANDWIDTH
224:     DO K2=1,2*BANDWIDTH224:     DO K2=1,2*BANDWIDTH
225:         DO K3=1,2*BANDWIDTH225:         DO K3=1,2*BANDWIDTH
226:             IN1D(K3) = CMPLX(INPUT(K3,K2,K1),0.D0, SELECTED_REAL_KIND(15,307))226:             IN1D(K3) = CMPLX(INPUT(K3,K2,K1),0.D0, 16)
227:         ENDDO227:         ENDDO
228:         CALL DFFTW_EXECUTE_(PLAN, IN1D, OUT1D)228:         CALL DFFTW_EXECUTE_(PLAN, IN1D, OUT1D)
229:         DO K3=1,2*BANDWIDTH229:         DO K3=1,2*BANDWIDTH
230:             TEMP(K3,K2,K1) = OUT1D(K3)230:             TEMP(K3,K2,K1) = OUT1D(K3)
231:         ENDDO231:         ENDDO
232:     ENDDO232:     ENDDO
233: ENDDO233: ENDDO
234: 234: 
235: ! Do FFT on axis 3235: ! Do FFT on axis 3
236: DO K1=1,2*BANDWIDTH236: DO K1=1,2*BANDWIDTH


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0