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