|
Last change
on this file since 3567 was
2759,
checked in by aslmd, 2 years ago
|
|
adding unmodified code from WRFV3.0.1.1, expurged from useless data +1M size
|
|
File size:
470 bytes
|
| Line | |
|---|
| 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 | } |
|---|
Note: See
TracBrowser
for help on using the repository browser.
