求解嵌套非线性方程组，改程序，求助

fcode

你的代码问题比较多。

1.主程序中，少两个 End Do
2.我在 IMSL 里找到的 NEQNF 是 7 个参数，而你给了 9 个。且第一个参数应该为一个外部函数，你给的是 Zr(i)

你先改这两个问题吧。


另外，我很好奇，这代码是你自己书写的吗？
为什么要用 common 呢？而且还用了 pointer
一个很新潮的指针，和一个老掉牙的 common 语句，放一起真是...很另类