| 查看: 348 | 回复: 0 | ||
[求助]
放在循环里的数组越界了，求帮忙
|
|
数组放在左边没有越界，放在等式右边就出现了越界。上传的图片中前面用来测试的y(k)好好的，循环里就有问题了，求大神帮忙 subroutine wfft(y,forback) use fft_mod implicit none real*8,parameter :: pi=3.141592654_DP complex*16,intent(inout) :: y(  integer,intent(in) :: forback real*8 :: e integer :: N2,N,k,ktem,kN complex*16 W,temp integer,external :: reverse N=size(y) N2=N kN=N/2 k=0 e=forback*2.0_DP*pi/N W=exp(cmplx(0.0_DP,e)) do k=1,kN,1 y(k)=cmplx(real(y(k)),0.0_DP) write(*,*) k,real(Y(k)) enddo do N2=N2/2 if(N2<1)exit do k=1,kN write(*,*) k,kN,k+kN,y(k) temp=W**(reverse(k))*y(k+KN) y(k+kN)=y(k)-temp y(k)=y(k)+temp enddo enddo endsubroutine  _7P4OEAHC(UFOUR8$Z%~R`4.png  2L1Y{@@TDQ%Z056K0N%[IOC.png |
回复此楼» 猜你喜欢
AI论文写作工具：是科研加速器还是学术作弊器？
已经有4人回复
-
寻求一种能扛住强氧化性腐蚀性的容器密封件
已经有7人回复
-
到新单位后，换了新的研究方向，没有团队，持续积累2区以上论文，能申请到面上吗
已经有8人回复
-
申请2026年博士
已经有6人回复
-
请问哪里可以有青B申请的本子可以借鉴一下。
已经有5人回复
-
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入
已经有5人回复
-
2025冷门绝学什么时候出结果
已经有7人回复
-
请问有评职称，把科研教学业绩算分排序的高校吗
已经有6人回复
-
Bioresource Technology期刊，第一次返修的时候被退回好几次了
已经有7人回复
-
请问下大家为什么这个铃木偶联几乎不反应呢
已经有5人回复
