27 lines
858 B
C
27 lines
858 B
C
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
//
|
|
// Giangi Sacco
|
|
// NASA Jet Propulsion Laboratory
|
|
// California Institute of Technology
|
|
// (C) 2009 All Rights Reserved
|
|
//
|
|
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
|
|
#ifndef StdOELFFortTrans_h
|
|
#define StdOELFFortTrans_h
|
|
|
|
#if defined(NEEDS_F77_TRANSLATION)
|
|
|
|
#if defined(F77EXTERNS_LOWERCASE_TRAILINGBAR)
|
|
#define write_err_f write_err_
|
|
#define write_log_f write_log_
|
|
#define write_out_f write_out_
|
|
#else
|
|
#error Unknown traslation for FORTRAN external symbols
|
|
#endif
|
|
|
|
#endif
|
|
|
|
#endif //StdOELFFortTrans_h
|