/* ** On certain operating systems, the FORTRAN compiler appends an underscore ** to subprogram names in its object namespace. Therefore, on such systems, ** a matching underscore must be appended to any C language references to the ** same subprogram names so that the linker can correctly resolve such ** references across the C <-> FORTRAN interface at link time. This needs ** to be done for any subprogram that is either: ** 1) a C function, or ** 2) a FORTRAN subprogram called from C */ #ifdef UNDERSCORE #define dbn_bufr dbn_bufr_ #define ut_prvs ut_prvs_ #define ut_wbfr ut_wbfr_ #endif /* ** Declare prototypes for ANSI C compatibility. This should be done for any ** subprogram that is either: ** 1) a C function, or ** 2) a FORTRAN subprogram called from C */ void dbn_bufr( char *, int *, unsigned char *, int *, int * ); void ut_prvs( const char *, size_t ); void ut_wbfr( int *, char *, int *, int *, size_t );