各位大大，小妹我正在用visual fortran写鲸鱼算法
但，已碰壁两个多月
真的希望能够有神人可以点通我这梦中人
目前只希望能够把简单的主程式先跑出值后再带题目进去
—-主程式—-
https://i.imgur.com/haAXihw.jpg
其中，除错部分没有出错，
但执行却跑出一个视窗
https://i.imgur.com/0cUdVhx.jpg
想请问神人，能够怎么样修改一下程式呢？
我先跪了，谢谢能够解答我疑惑的大大们

指数函数exp(1)看起来好像exp(l)原本就是exp(l)吧如楼上所说，试试在内层的do loop最后把i,j，x_(I,j)值写出来，compiler时则加上 /CB 选项(check bounds)，若有问题compiler会过，但执行时会停在出错处compile

PGbest 没有给初始值，GROUP 及 NVAR 应宣告为 integer因为里面的实变量都是以real（kind=8）型态运算，参与计算的数字也要以double precision 形式较好，如 1 改为1.0d0不然像1/2会得到0，1.0/2.0才会得到0.51.0d0也可以写成1.0_8

我把pbest的值加上去了，但您说的group,nvar要宣告成整数，我尝试过了，还是一样的问题

反正他是说 array bounds exceeded就一行一行write 看看是哪一个变量的index超出

是exp(L)没错哦，好的，谢谢！我后来开file把数据放进去之后就跑的出来数据了！感谢你耐心的解答！

你的程式码没有缩排，令人看得很辛苦。