CODEWITHSUNDEEP
syntaxfortranfortran77unary-operator
James Matta
James Matta

Reputation: 1570

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?

Upvotes: 1

Views: 155

Answers (1)

Fred Larson
Fred Larson

Reputation: 62093

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.

Upvotes: 3

Related Questions