Return to bit_wrappers.f CVS log

Up to [HallC] / Analyzer / PORT

Initial revision

*
*     Wrappers for F2C intrinsic functions that have different names
*     from standard f77s.
*
* $Log: bit_wrappers.f,v $
* Revision 1.1  1996/09/09 13:34:26  saw
* Initial revision
*
*
      integer*4 function time()
*
*     To be done
*
      time = 0
      return
      end

      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 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

      real*4 function sind(x)
      real*4 x
      sind = sin(x*3.1415926535/180)
      return
      end

      real*4 function cosd(x)
      real*4 x
      cosd = cos(x*3.1415926535/180)
      return
      end

      real*4 function tand(x)
      real*4 x
      tand = tan(x*3.1415926535/180)
      return
      end