fe4da5cc |
1 | * |
2 | * $Id$ |
3 | * |
4 | * $Log$ |
5 | * Revision 1.1.1.1 1996/02/15 17:50:39 mclareni |
6 | * Kernlib |
7 | * |
8 | * |
9 | FUNCTION LOCB (IVAR) |
10 | C |
11 | C CERN PROGLIB# N100 LOCB .VERSION KERNVAX 2.40 930204 |
12 | C ORIG. 92/07/13 Miguel Marquina |
13 | C |
14 | DIMENSION IVAR(9) |
15 | |
16 | LOCB = %LOC(IVAR) |
17 | END |