File: util-ops.f

package info (click to toggle)
xfoil 6.99.dfsg%2B1-1
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 8,776 kB
  • sloc: fortran: 43,375; ansic: 11,234; makefile: 379; pascal: 235; csh: 24
file content (17 lines) | stat: -rw-r--r-- 354 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
C--- Replacement functions for Fortran's that lack RSHIFT,LSHIFT,AND
C     Version 4.46 11/28/01

      INTEGER FUNCTION RSHIFT(I1,N)
      RSHIFT = ISHFT(I1,-N)
      RETURN
      END

      INTEGER FUNCTION LSHIFT(I1,N)
      LSHIFT = ISHFT(I1,N)
      RETURN
      END

      INTEGER FUNCTION AND(I1,I2)
      AND = IAND(I1,I2)
      RETURN
      END