5 * Revision 1.1.1.1 1996/02/15 17:49:44 mclareni
9 #include "kerngen/pilot.h"
10 #if defined(CERNLIB_QMDOS)
11 #include "dosgs/ibits.F"
12 #elif defined(CERNLIB_QMLNX)
13 #include "lnxgs/ibits.F"
14 #elif !defined(CERNLIB_QMILSTD)
17 C CERN PROGLIB# M441 IBITS .VERSION KERNFOR 4.16 870601
18 C ORIG. 01/03/85 M.METCALF
20 C FORTRAN VERSION OF MIL-STD-1753 FUNCTION IBITS
21 C N IS THE RIGHTMOST BIT OF THE REQUIRED FIELD
22 C L IS THE LENGTH OF THE REQUIRED FIELD
24 #include "kerngen/wordsize.inc"
26 IBITS = ISHFT(ISHFT(I, NBITPW-L-N), L-NBITPW)