1*59599516SKenneth E. Jansen #include <FCMangle.h> 2*59599516SKenneth E. Jansen #define flush FortranCInterface_GLOBAL(flush, FLUSH) 3*59599516SKenneth E. Jansen flush(int * junk)4*59599516SKenneth E. Jansen void flush(int* junk ){ return; } 5*59599516SKenneth E. Jansen 6