5 * Revision 1.1.1.1 1996/02/15 17:50:37 mclareni
9 #include "kerngen/pilot.h"
10 #if defined(CERNLIB_QMMPW)
11 #include "mpwgs/locf.F"
12 #elif defined(CERNLIB_QMSUN)
13 #include "sungs/locf.F"
14 #elif defined(CERNLIB_QMVAX)
15 #include "vaxgs/locf.F"
19 C CERN PROGLIB# N100 LOCF .VERSION KERNFOR 4.34 930114
21 C- This is a default which works on several machines
24 * Number of ADdress Units Per Word for Fortran
25 C and its logarithm base 2
26 PARAMETER (NADUPW=4, LADUPW=2)
29 LOCF = ISHFT (J, -LADUPW)