ssantisi
/
simulacion-permeabilidad
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
main
improvement-multiple_buffers
migrate_fortran
milestone_5
milestone_5_without_improvements-logs
milestone_5_without_improvements
improvement-remove_generate_array-logs
improvement-remove_generate_array
improvement-file_array-logs
improvement-file_array
improvement-double_with_dirty_mmap_fork
improvement-double_with_dirty_mmap
improvement-double_with_dirty_flag-logs
improvement-double_with_dirty_flag_bis
improvement-double_with_dirty_flag
improvement-double_buffer_array-logs
improvement-double_buffer_array
improvement-chunk_array-logs
improvement-chunk_array
milestone_2
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '7b104e9ef9'
${ noResults }
simulacion-permeabilidad/tools/connec/libf2c/qbitshft.c

18 lines
258 B
C
Raw Blame History

#include "f2c.h"
#ifdef __cplusplus
extern "C" {
#endif
longint
#ifdef KR_headers
qbit_shift(a, b) longint a; integer b;
#else
qbit_shift(longint a, integer b)
#endif
{
return b >= 0 ? a << b : (longint)((ulongint)a >> -b);
}
#ifdef __cplusplus
}
#endif
Reference in New Issue View Git Blame Copy Permalink