Fortran, Meaning of Unary* operator in function calls?

Question

I am attempting to make modifications to an old fortran code to get it to handle a slightly different binary input file format. In the process of doing this I have been encountering * used in a unary fashion. For example, this code found within a loop:

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

There are other cases as well but as far as I have seen / remember it is only in function calls. What is this doing?

Answer 1

I'm not a Fortran guy, but this question intrigued me, so I did some looking. It appears to be an alternate return specifier. The number after the asterisk is a label that can be used in place of a normal return, almost like catching an exception.