ports//math/blacs/work/BLACS_shared/TESTING/Cbt.h

#define ADD_     0
#define NOCHANGE 1
#define UPCASE   2

#ifdef UpCase
#define F77_CALL_C UPCASE
#endif

#ifdef NoChange
#define F77_CALL_C NOCHANGE
#endif

#ifdef Add_
#define F77_CALL_C ADD_
#endif

#ifndef F77_CALL_C
#define F77_CALL_C ADD_
#endif

syntax highlighted by Code2HTML, v. 0.9.1