Analyzer/PORT/bit_wrappers.f - view

Return to bit_wrappers.f CVS log

Up to [HallC] / Analyzer / PORT

File: [HallC] / Analyzer / PORT / bit_wrappers.f (download)
Revision: 1.3, Thu Nov 4 20:36:32 1999 UTC (24 years, 10 months ago) by saw
Branch: MAIN
CVS Tags: spring03, sep-26-2002, sep-25-2002, sep-24-2002, sep-09-2002, pionct, online04, online03, mduality, mar-24-2003, gep3, fpi2, emc, e01004, bigcal, baryon, aug-12-2003, apr-02-2003
Branch point for: online07, gep_online
Changes since 1.2: +9 -0 lines

Linux/G77 compatibility fixes - Add jieor function

*
*     Wrappers for F2C intrinsic functions that have different names
*     from standard f77s.
*
* $Log: bit_wrappers.f,v $
* Revision 1.3  1999/11/04 20:36:32  saw
* Linux/G77 compatibility fixes - Add jieor function
*
* Revision 1.2  1996/11/22 17:06:27  saw
* (SAW) Move trig routines to trig_wrappers.f
*
* Revision 1.1  1996/09/09 13:34:26  saw
* Initial revision
*
*
      integer*4 function jishft(a1,a2)
      integer*4 a1,a2
      if(a2.lt.0) then
         jishft = rshift(a1,-a2)         
      else
         jishft = lshift(a1,a2)
      endif
      return
      end

      integer*4 function jiand(a1,a2)
      integer*4 a1,a2
      jiand = and(a1,a2)
      return
      end

      integer*4 function jieor(a1,a2)
      integer*4 a1,a2
      jieor = xor(a1,a2)
      return
      end

      integer*4 function jibset(a1,a2)
      integer*4 a1,a2
      jibset = or(a1,lshift(1,a2))
      return
      end

      logical*4 function bjtest(a1,a2)
      integer*4 a1,a2
      bjtest = (and(a1,lshift(1,a2)).ne.0)
      return
      end

Analyzer/Replay: Mark Jones, Documents: Stephen Wood