00001 00002 /**************************************************************************** 00003 Fortran API for common LBDB functions 00004 ****************************************************************************/ 00005 00006 #include "charm++.h" 00007 #include "charm-api.h" 00008 00009 00010 #define flbturninstrumentoff FTN_NAME(FLBTURNINSTRUMENTOFF, flbturninstrumentoff) 00011 #define flbturninstrumenton FTN_NAME(FLBTURNINSTRUMENTON, flbturninstrumenton) 00012 00013 FLINKAGE void flbturninstrumenton() 00014 { 00015 LBTurnInstrumentOn(); 00016 } 00017 00018 FLINKAGE void flbturninstrumentoff() 00019 { 00020 LBTurnInstrumentOff(); 00021 } 00022
1.5.5