菜鸟一个，一个简单的程序 竟然有31个错误，求大神指教

fcode

错误太多了，没法改。

read Ht,hli
需要改成 read(*,*) Ht,hli，其他类似

在 sub_di 函数里。W 被定义为外部的函数。那么就不能 call W(Ci,Rl,Rv)，因为 call 是对子例行程序。

先改了这两条。然后上新的代码。