25 lines
787 B
C
25 lines
787 B
C
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
//
|
|
// Giangi Sacco
|
|
// NASA Jet Propulsion Laboratory
|
|
// California Institute of Technology
|
|
// (C) 2009 All Rights Reserved
|
|
//
|
|
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
|
|
#ifndef fortranSrcmoduleFortTrans_h
|
|
#define fortranSrcmoduleFortTrans_h
|
|
|
|
#if defined(NEEDS_F77_TRANSLATION)
|
|
|
|
#if defined(F77EXTERNS_LOWERCASE_TRAILINGBAR)
|
|
#define testImageSetGet_f testimagesetget_
|
|
#else
|
|
#error Unknown traslation for FORTRAN external symbols
|
|
#endif
|
|
|
|
#endif
|
|
|
|
#endif //fortranSrcmoduleFortTrans_h
|