📄 mfftz0.f
字号:
SUBROUTINE MFFTZ0(W1,ISE1,NE,W2,ISE2)**** PURPOSE : VECTOR COPY ROUTINE* PARAMETERS :* W1 : VECTOR TO BE COPIED* ISE1: STRIDE OF W1* NE : NUMBER OF ELEMENTS* W2 : DESTINATION VECTOR* ISE2: STRIDE OF W2 INTEGER W1(0:*),W2(0:*) J=0 DO 1 I=0,(NE-1)*ISE1,ISE1 W2(J)=W1(I) J=J+ISE21 CONTINUE END
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -