?? mfftrp.f
字號(hào):
SUBROUTINE MFFTRP(NN,RW)** THIS ROUTINE PREPARES THE PHASE FACTOR TABLES TO BE USED IN THE* POST-PROCESSING PHASE IN REAL TRANSFORMS, I.E. R2FFT AND R3FFT.** THE DEFINITION OF PHASE FACTORS WE USE IS THE FOLLOWING** RW(IV) = -I*EXP(-I*2*PI/NN*IV)** WHERE THE SYMBOLS ARE:** I: IMAGINARY UNIT* NN : NUMBER OF REAL ELEMENTS* IV: RUNNING INDEX FROM 0 TO NN-1**** COMPLEX RW(0:*)** PI2=8*ATAN(1.) PHASE=PI2/NN RW(0)=(0.,-1.)** DO 10 I=1,NN-1 RW(I)=CMPLX(-SIN(I*PHASE),-COS(I*PHASE)) 10 CONTINUE** END
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -