test_zbesi中调用的zbesi的参数类型及个数和子例程中的zbesi不符。另外子例程test_zbesi中并没有用到bi（至少少代码中没有用到），程序流程就是显示的那样吗？
第一种办法，use module，在过程或主程序声明use module要放在implicit none前面
