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           * Revision 1.1  1996/09/09 13:34:26  saw
 7           * Initial revision

 8 saw   1.1 *
 9           *
10                 integer*4 function jishft(a1,a2)
11                 integer*4 a1,a2
12                 if(a2.lt.0) then
13                    jishft = rshift(a1,-a2)         
14                 else
15                    jishft = lshift(a1,a2)
16                 endif
17                 return
18                 end
19           
20                 integer*4 function jiand(a1,a2)
21                 integer*4 a1,a2
22                 jiand = and(a1,a2)
23                 return
24                 end
25           
26                 integer*4 function jibset(a1,a2)
27                 integer*4 a1,a2
28                 jibset = or(a1,lshift(1,a2))
29 saw   1.1       return
30                 end
31           
32                 logical*4 function bjtest(a1,a2)
33                 integer*4 a1,a2
34                 bjtest = (and(a1,lshift(1,a2)).ne.0)
35                 return
36                 end
37