Inicio Explorar Axuda
Rexistro Iniciar sesión
lij
/
PS_Method_CCS_test
1
0
Fork 0
Ficheiros Incidencias 0 Pull Requests 0 Wiki
Rama: master
Ramas Etiquetas
PS_Method_CC...
/
libf2c
/
qbitshft.c

qbitshft.c 258 B
Permalink Histórico Raw

1234567891011121314151617 
  1. #include "f2c.h"
    2. 

  2. #ifdef __cplusplus
    3. 

  3. extern "C" {
    4. 

  4. #endif
    5. 

  5. 

  6.  longint
    7. 

  7. #ifdef KR_headers
    8. 

  8. qbit_shift(a, b) longint a; integer b;
    9. 

  9. #else
    10. 

  10. qbit_shift(longint a, integer b)
    11. 

  11. #endif
    12. 

  12. {
    13. 

  13. 	return b >= 0 ? a << b : (longint)((ulongint)a >> -b);
    14. 

  14. 	}
    15. 

  15. #ifdef __cplusplus
    16. 

  16. }
    17. 

  17. #endif
    18.