fe4da5cc |
1 | * |
2 | * $Id$ |
3 | * |
4 | * $Log$ |
5 | * Revision 1.1.1.1 1996/02/15 17:50:40 mclareni |
6 | * Kernlib |
7 | * |
8 | * |
9 | FUNCTION LOCB (AM) |
10 | C |
11 | C CERN PROGLIB# N101 LOCB .VERSION KERNMPW 1.00 891208 |
12 | C ORIG. 13/12/83 F.Carminati |
13 | C |
14 | DIMENSION AM(*) |
15 | |
16 | LOCB= %LOC (AM(1)) |
17 | END |