你不截图，就用 doc 文件...你就不能直接发 .for 或者 .f90 源代码文件吗？为什么都喜欢转个弯呢？

arfa=asin(sqrt(lxdc**2+lydc**2)/LLdc) 

这一句的 arfa lxdc lydc  都是单变量，LLdc 是一个数组。

一个数组和两个单变量进行运算，结果储存在一个单变量里。

这个操作怎么做？逻辑上也做不了。其他的错误跟这个类似。

比如这句：mdc=pi*(WD(np)**2-nd(np)**2)/4*LLdc*rou(np)

use global_const_variables     
use global_system_variables
这两个module你没给出，所以我无法运行。

这个问题我下午已经解决了
你看了一下程序就知道了，厉害
高手就是高手
谢谢赐教哈..