blob: d3cc3beaec5d1c4ebd1b4d15ba1e0ec1d6218886 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# LOCVA -- Return the address (in CHAR units) of a variable.
int procedure locva (variable)
int variable # data object to be addressed
int address
begin
call zlocva (variable, address)
return (address)
end
|
