22 lines
734 B
C
22 lines
734 B
C
#ifndef FORTRAN_H
|
|
#define FORTRAN_H
|
|
|
|
#define TEST_FUNC_PROTOS(TYPE, SNAME) \
|
|
\
|
|
TYPE SNAME ## SecondElement( TYPE * matrix, int rows, int cols); \
|
|
|
|
TEST_FUNC_PROTOS(signed char , schar )
|
|
TEST_FUNC_PROTOS(unsigned char , uchar )
|
|
TEST_FUNC_PROTOS(short , short )
|
|
TEST_FUNC_PROTOS(unsigned short , ushort )
|
|
TEST_FUNC_PROTOS(int , int )
|
|
TEST_FUNC_PROTOS(unsigned int , uint )
|
|
TEST_FUNC_PROTOS(long , long )
|
|
TEST_FUNC_PROTOS(unsigned long , ulong )
|
|
TEST_FUNC_PROTOS(long long , longLong )
|
|
TEST_FUNC_PROTOS(unsigned long long, ulongLong)
|
|
TEST_FUNC_PROTOS(float , float )
|
|
TEST_FUNC_PROTOS(double , double )
|
|
|
|
#endif
|