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.