请高手帮忙将图中所给的方向图函数编程Fortran程序,谢谢1