118 lines
7.4 KiB
C
118 lines
7.4 KiB
C
|
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
||
|
//
|
||
|
// Giangi Sacco
|
||
|
// NASA Jet Propulsion Laboratory
|
||
|
// California Institute of Technology
|
||
|
// (C) 2009 All Rights Reserved
|
||
|
//
|
||
|
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
||
|
|
||
|
|
||
|
#ifndef LineAccessormoduleFortTrans_h
|
||
|
#define LineAccessormoduleFortTrans_h
|
||
|
|
||
|
#if defined(NEEDS_F77_TRANSLATION)
|
||
|
|
||
|
#if defined(F77EXTERNS_LOWERCASE_TRAILINGBAR)
|
||
|
#define LineAccessor_f lineaccessor_
|
||
|
#define getElements_f getelements_
|
||
|
#define getFileLength_f getfilelength_
|
||
|
#define getFileWidth_f getfilewidth_
|
||
|
#define getLineAccessorObject_f getlineaccessorobject_
|
||
|
#define getLineSequential_f getlinesequential_
|
||
|
#define getMachineEndianness_f getmachineendianness_
|
||
|
#define getSequentialElements_f getsequentialelements_
|
||
|
#define printAvailableDataTypesAndSizes_f printavailabledatatypesandsizes_
|
||
|
#define printObjectInfo_f printobjectinfo_
|
||
|
#define setChangeBandScheme_f setchangebandscheme_
|
||
|
#define setConvertFileEndianness_f setconvertfileendianness_
|
||
|
#define setElements_f setelements_
|
||
|
#define setFinalizeLineAccessor_f setfinalizelineaccessor_
|
||
|
#define setInitLineAccessor_f setinitlineaccessor_
|
||
|
#define setInitSequentialAccessor_f setinitsequentialaccessor_
|
||
|
#define setLineSequential_f setlinesequential_
|
||
|
#define setSequentialElements_f setsequentialelements_
|
||
|
#elif defined(F77EXTERNS_NOTRAILINGBAR)
|
||
|
#define LineAccessor_f LineAccessor
|
||
|
#define getElements_f getElements
|
||
|
#define getFileLength_f getFileLength
|
||
|
#define getFileWidth_f getFileWidth
|
||
|
#define getLineAccessorObject_f getLineAccessorObject
|
||
|
#define getLineSequential_f getLineSequential
|
||
|
#define getMachineEndianness_f getMachineEndianness
|
||
|
#define getSequentialElements_f getSequentialElements
|
||
|
#define printAvailableDataTypesAndSizes_f printAvailableDataTypesAndSizes
|
||
|
#define printObjectInfo_f printObjectInfo
|
||
|
#define setChangeBandScheme_f setChangeBandScheme
|
||
|
#define setConvertFileEndianness_f setConvertFileEndianness
|
||
|
#define setElements_f setElements
|
||
|
#define setFinalizeLineAccessor_f setFinalizeLineAccessor
|
||
|
#define setInitLineAccessor_f setInitLineAccessor
|
||
|
#define setInitSequentialAccessor_f setInitSequentialAccessor
|
||
|
#define setLineSequential_f setLineSequential
|
||
|
#define setSequentialElements_f setSequentialElements
|
||
|
#elif defined(F77EXTERNS_EXTRATRAILINGBAR)
|
||
|
#define LineAccessor_f LineAccessor__
|
||
|
#define getElements_f getElements__
|
||
|
#define getFileLength_f getFileLength__
|
||
|
#define getFileWidth_f getFileWidth__
|
||
|
#define getLineAccessorObject_f getLineAccessorObject__
|
||
|
#define getLineSequential_f getLineSequential__
|
||
|
#define getMachineEndianness_f getMachineEndianness__
|
||
|
#define getSequentialElements_f getSequentialElements__
|
||
|
#define printAvailableDataTypesAndSizes_f printAvailableDataTypesAndSizes__
|
||
|
#define printObjectInfo_f printObjectInfo__
|
||
|
#define setChangeBandScheme_f setChangeBandScheme__
|
||
|
#define setConvertFileEndianness_f setConvertFileEndianness__
|
||
|
#define setElements_f setElements__
|
||
|
#define setFinalizeLineAccessor_f setFinalizeLineAccessor__
|
||
|
#define setInitLineAccessor_f setInitLineAccessor__
|
||
|
#define setInitSequentialAccessor_f setInitSequentialAccessor__
|
||
|
#define setLineSequential_f setLineSequential__
|
||
|
#define setSequentialElements_f setSequentialElements__
|
||
|
#elif defined(F77EXTERNS_UPPERCASE_NOTRAILINGBAR)
|
||
|
#define LineAccessor_f LINEACCESSOR
|
||
|
#define getElements_f GETELEMENTS
|
||
|
#define getFileLength_f GETFILELENGTH
|
||
|
#define getFileWidth_f GETFILEWIDTH
|
||
|
#define getLineAccessorObject_f GETLINEACCESSOROBJECT
|
||
|
#define getLineSequential_f GETLINESEQUENTIAL
|
||
|
#define getMachineEndianness_f GETMACHINEENDIANNESS
|
||
|
#define getSequentialElements_f GETSEQUENTIALELEMENTS
|
||
|
#define printAvailableDataTypesAndSizes_f PRINTAVAILABLEDATATYPESANDSIZES
|
||
|
#define printObjectInfo_f PRINTOBJECTINFO
|
||
|
#define setChangeBandScheme_f SETCHANGEBANDSCHEME
|
||
|
#define setConvertFileEndianness_f SETCONVERTFILEENDIANNESS
|
||
|
#define setElements_f SETELEMENTS
|
||
|
#define setFinalizeLineAccessor_f SETFINALIZELINEACCESSOR
|
||
|
#define setInitLineAccessor_f SETINITLINEACCESSOR
|
||
|
#define setInitSequentialAccessor_f SETINITSEQUENTIALACCESSOR
|
||
|
#define setLineSequential_f SETLINESEQUENTIAL
|
||
|
#define setSequentialElements_f SETSEQUENTIALELEMENTS
|
||
|
#elif defined(F77EXTERNS_COMPAQ_F90)
|
||
|
#define LineAccessor_f LineAccessor_
|
||
|
#define getElements_f getElements_
|
||
|
#define getFileLength_f getFileLength_
|
||
|
#define getFileWidth_f getFileWidth_
|
||
|
#define getLineAccessorObject_f getLineAccessorObject_
|
||
|
#define getLineSequential_f getLineSequential_
|
||
|
#define getMachineEndianness_f getMachineEndianness_
|
||
|
#define getSequentialElements_f getSequentialElements_
|
||
|
#define printAvailableDataTypesAndSizes_f printAvailableDataTypesAndSizes_
|
||
|
#define printObjectInfo_f printObjectInfo_
|
||
|
#define setChangeBandScheme_f setChangeBandScheme_
|
||
|
#define setConvertFileEndianness_f setConvertFileEndianness_
|
||
|
#define setElements_f setElements_
|
||
|
#define setFinalizeLineAccessor_f setFinalizeLineAccessor_
|
||
|
#define setInitLineAccessor_f setInitLineAccessor_
|
||
|
#define setInitSequentialAccessor_f setInitSequentialAccessor_
|
||
|
#define setLineSequential_f setLineSequential_
|
||
|
#define setSequentialElements_f setSequentialElements_
|
||
|
#else
|
||
|
#error Unknown traslation for FORTRAN external symbols
|
||
|
#endif
|
||
|
|
||
|
#endif
|
||
|
|
||
|
#endif //LineAccessormoduleFortTrans_h
|