你好，在fortran语言中的encode是怎么用的？有谁了解吗？求解释！

Question

最好可以解释一下encode(2,18,fname1(5:6))(10+is) 感激不尽！！
我是学地球物理的 现在在做毕业设计 遇到了这么一个跟kirchhoff偏移有关的程序！！谢谢了！如果真的帮忙了 我会继续加分 再次感谢！
真心恳求大家帮忙，解释一下计算机中encode在fortran中的用法，如果不知道的话就不用回答了！！谢谢！