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