home *** CD-ROM | disk | FTP | other *** search
/ Voyagers to the Outer Planets 2: Uranus / VoyagestotheOuterPlanetsVol2.cdr / software / btest.for next >
Text File  |  1988-09-14  |  1KB  |  30 lines
  1.       FUNCTION BTEST(IVAL,IBIT)
  2. C***************************************************************************
  3. C
  4. C_TITLE BTEST - test for bit turned on or off
  5. C
  6. C_ARGS   
  7.       LOGICAL   BTEST
  8.       INTEGER*4 IVAL
  9.       INTEGER*4 IBIT
  10. C
  11. C_DESCR This function emulates the VAX/VMS system function for extracting
  12. C       bit information from an integer long word. The function tests
  13. C       the bit value at location 'bit' in the longword 'ival'. 
  14. C         btest = .true.  if the bit is turned on
  15. C         btest = .false. if the bit is turned off
  16. C
  17. C       The routine should be used only by non VAX/VMS users. The least
  18. C       significant bit is bit 0, the most significant bit is bit 31.
  19. C       The routine uses the Fortran system modulus routine 'mod'.
  20. C
  21. C_HIST 01-Mar-88 Eric Eliason USGS, Flagstaff, Original verison
  22. C*****************************************************************************
  23.        INTEGER*4 IWORK
  24.        BTEST = .FALSE.
  25.        IF (IBIT.GT.31.OR.IBIT.LT.0) RETURN
  26.        IWORK = MOD(IVAL/(2**IBIT),2)
  27.        IF (IWORK.EQ.1) BTEST = .TRUE.
  28.        RETURN
  29.        END
  30.