Search code examples
syntaxfortranfortran77unary-operator

Fortran, Meaning of Unary* operator in function calls?

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?

Solution

  • 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.