wrfv2_fire/external/io_netcdf/bitwise_operators.c

   1 #ifndef MS_SUA
   2 # include <stdio.h>
   3 # include <stdlib.h>
   4 #endif
   5
   6 /*
   7    bitwise OR operator called from Fortran, not
   8    assuming that the C return will be validly
   9    interpreted in Fortran
  10 */
  11
  12 #ifndef CRAY
  13 # ifdef NOUNDERSCORE
  14 #      define BITWISE_OR  bitwise_or
  15 # else
  16 #   ifdef F2CSTYLE
  17 #      define BITWISE_OR  bitwise_or__
  18 #   else
  19 #      define BITWISE_OR  bitwise_or_
  20 #   endif
  21 # endif
  22 #endif
  23
  24 void BITWISE_OR ( int * a , int * b , int * c )
  25 {
  26    *c = *a | *b;
  27 }