Go to the documentation of this file. 1 #ifndef SimTK_SimTKCOMMON_FORTRAN_H_ 2 #define SimTK_SimTKCOMMON_FORTRAN_H_ 54 #define SimTK_FORTRAN_STDCALL __stdcall 55 #define SimTK_FORTRAN(x,X) X 56 #define SimTK_FORTRAN_STRLEN_FOLLOWS_DECL ,int 57 #define SimTK_FORTRAN_STRLEN_FOLLOWS_CALL(n) ,n 58 #define SimTK_FORTRAN_STRLEN_ATEND_DECL // nothing 59 #define SimTK_FORTRAN_STRLEN_ATEND_CALL(n) 61 #define SimTK_FORTRAN_STDCALL 62 #define SimTK_FORTRAN(x,X) x ## _ 63 #define SimTK_FORTRAN_STRLEN_FOLLOWS_DECL // nothing 64 #define SimTK_FORTRAN_STRLEN_FOLLOWS_CALL(n) 65 #define SimTK_FORTRAN_STRLEN_ATEND_DECL ,int 66 #define SimTK_FORTRAN_STRLEN_ATEND_CALL(n) ,n 71 #ifdef SimTK_USE_ACML_LAPACK 73 #define SimTK_LAPACK_STDCALL __stdcall 74 #define SimTK_LAPACK(x,X) X 75 #define SimTK_LAPACK_STRLEN_FOLLOWS_DECL ,int 76 #define SimTK_LAPACK_STRLEN_FOLLOWS_CALL(n) ,n 77 #define SimTK_LAPACK_STRLEN_ATEND_DECL // nothing 78 #define SimTK_LAPACK_STRLEN_ATEND_CALL(n) 80 #define SimTK_LAPACK_STDCALL 81 #define SimTK_LAPACK(x,X) x ## _ 82 #define SimTK_LAPACK_STRLEN_FOLLOWS_DECL // nothing 83 #define SimTK_LAPACK_STRLEN_FOLLOWS_CALL(n) 84 #define SimTK_LAPACK_STRLEN_ATEND_DECL ,int 85 #define SimTK_LAPACK_STRLEN_ATEND_CALL(n) ,n 87 #else // default assumes we're using libSimTKlapack 88 #define SimTK_LAPACK_STDCALL 89 #define SimTK_LAPACK(x,X) x ## _ 90 #define SimTK_LAPACK_STRLEN_FOLLOWS_DECL // nothing 91 #define SimTK_LAPACK_STRLEN_FOLLOWS_CALL(n) 92 #define SimTK_LAPACK_STRLEN_ATEND_DECL ,int 93 #define SimTK_LAPACK_STRLEN_ATEND_CALL(n) ,n 105 #define SimTK_FORTRAN_INIT do {f_setsig(); f_init();} while(false) 108 #endif // SimTK_SimTKCOMMON_FORTRAN_H_