Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!seismo!lll-lcc!ames!ucbcad!ucbvax!CUVMA.BITNET!POSTMAST
From: POSTMAST@CUVMA.BITNET
Newsgroups: comp.os.vms
Subject: Re:
Message-ID: <8707170441.AA14217@ucbvax.Berkeley.EDU>
Date: Mon, 13-Jul-87 08:27:00 EDT
Article-I.D.: ucbvax.8707170441.AA14217
Posted: Mon Jul 13 08:27:00 1987
Date-Received: Sat, 18-Jul-87 11:22:43 EDT
Sender: daemon@ucbvax.BERKELEY.EDU
Distribution: world
Organization: The ARPA Internet
Lines: 55


Your mail is being returned to you.
Reason for return is:
%MAIL-E-NOSUCHUSR, no such user MRGNAIR at node CUCCVX
Returned mail follows:
------------------------------
Received: From CUVMA(MAILER) by CUCCVX with RSCS id 3848
          for MRGNAIR@CUCCVX; Mon, 13-JUL-1987 06:15 EST
Received: from CUVMA.COLUMBIA.EDU by CUVMA.COLUMBIA.EDU (Mailer X1.24) with
 BSMTP id 3847; Mon, 13 Jul 87 06:18:02 EDT
Received: from CU20B.COLUMBIA.EDU by CUVMA.COLUMBIA.EDU on 07/13/87 at 06:18:01
 EDT
Received: from KL.SRI.Com by CU20B.COLUMBIA.EDU with TCP; Mon 13 Jul 87
 06:18:34-EDT
Received: from ucbvax.Berkeley.EDU by KL.SRI.COM with TCP; Sat 11 Jul 87
 12:56:05-PDT
Received: by ucbvax.Berkeley.EDU (5.58/1.27)
    id AA10527; Sat, 11 Jul 87 12:37:53 PDT
Received: from USENET by ucbvax.Berkeley.EDU with netnews
    for info-vax@kl.sri.com (info-vax@kl.sri.com)
    (contact usenet@ucbvax.Berkeley.EDU if you have questions)
Date: 11 Jul 87 12:59:55 GMT
From: ece-csc!ncrcae!ncr-sd!hp-sdd!ucsdhub!jack!man!crash!jeh@mcnc.org  (Jamie
 Hanrahan)
Organization: Crash TS, El Cajon, CA
Subject: Re: Help Request
Message-Id: <1368@crash.CTS.COM>
References: <8707110230.AA28524@ucbvax.Berkeley.EDU>
Sender: info-vax-request@kl.sri.com
To: info-vax@kl.sri.com

In article <8707110230.AA28524@ucbvax.Berkeley.EDU>,
  writes:
>%LOC also works for external procedure names.  The problem here is, that
>while the name of a function indicates where it begins, there is no real
>indication of where it ends.  About the best you can do is use the address
>of the next function defined in the same source file, ...

VAX-11 FORTRAN supports the ENTRY statement, which allows you to
define an alternate entry point within a procedure (subroutine or
function).  Thus, you can ...

    INTEGER*4 FUNCTION LOCKED_FUNC (ARG, ...)
    -
    -
    (declarations, code, etc.)
    -
    -
    ENTRY LOCKED_FUNC_END (ARG, ...)
    END

Then, in your routine to lock the routine, just use %LOC(LOCKED_FUNC)
and %LOC(LOCKED_FUNC_END) to get the addresses of the beginning and
end of the procedure.
------ End of forwarded mail by POSTMAST@CUVMA.