1 saw   1.1 *
 2           *     Wrappers for F2C intrinsic functions that have different names
 3           *     from standard f77s.
 4           *

 5 saw   1.2 * $Log: bit_wrappers.f,v $

 6 saw   1.3 * Revision 1.2  1996/11/22 17:06:27  saw
 7           * (SAW) Move trig routines to trig_wrappers.f
 8           *

 9 saw   1.2 * Revision 1.1  1996/09/09 13:34:26  saw
10           * Initial revision

11 saw   1.1 *
12           *
13                 integer*4 function jishft(a1,a2)
14                 integer*4 a1,a2
15                 if(a2.lt.0) then
16                    jishft = rshift(a1,-a2)         
17                 else
18                    jishft = lshift(a1,a2)
19                 endif
20                 return
21                 end
22           
23                 integer*4 function jiand(a1,a2)
24                 integer*4 a1,a2
25                 jiand = and(a1,a2)

26 saw   1.3       return
27                 end
28           
29                 integer*4 function jieor(a1,a2)
30                 integer*4 a1,a2
31                 jieor = xor(a1,a2)

32 saw   1.1       return
33                 end
34           
35                 integer*4 function jibset(a1,a2)
36                 integer*4 a1,a2
37                 jibset = or(a1,lshift(1,a2))
38                 return
39                 end
40           
41                 logical*4 function bjtest(a1,a2)
42                 integer*4 a1,a2
43                 bjtest = (and(a1,lshift(1,a2)).ne.0)
44                 return
45                 end
46