Question

我正在尝试修改旧的fortran代码，以使其处理稍微不同的二进制输入文件格式。在这样做的过程中，我一直在遇到*以一元的方式使用。例如，在循环中找到此代码：

          CALL EVENT1(QDRBUF(IPNTR+EVTHSZ),EVTSIZ,EVTID,                
     -                                            *11000,*10000,*80000)

还有其他情况，但就我所见/记得它只在函数调用中。这是做什么的？

Answer 1

我不是Fortran的家伙，但这个问题引起了我的兴趣，所以我做了一些寻找。它似乎是alternate return specifier。星号后面的数字是一个标签，可用于代替正常的返回，几乎就像捕捉异常一样。