1 #ifndef _DYLIB_FORTRAN_H 2 #define _DYLIB_FORTRAN_H 59 #define f_chr(zz_ptr,zz_ndx,zz_strsze) (*(zz_ptr+((zz_ndx)-1)*(zz_strsze))) 60 #define f_arr1(zz_ptr,zz_ndx) (*(zz_ptr+(zz_ndx)-1)) 61 #define f_arr2(zz_ptr,zz_row,zz_col,zz_collen) \ 62 (*(zz_ptr+((zz_col)-1)*(zz_collen)+((zz_row)-1))) 79 #define ftnargINTEGER ((integer) 1) 80 #define ftnargDOUBLE_PRECISION ((integer) 2) 81 #define ftnargCHARACTER ((integer) 3) 82 #define ftnargVARNAME ((integer) 4) 83 #define ftnargCONNAME ((integer) 5) 84 #define ftnargEND ((integer) 6)
integer double_precision_code