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