/* MIX1C.C - This C program calls a FORTRAN function to * compute the max of three numbers. * * Compile/Link: wcl /ml mix1c mix1f.obj /fe=mix1 * wcl386 mix1c mix1f.obj /fe=mix1 */ #include #pragma aux tmax3 "^"; long int tmax3( long int *, long int *, long int * ); void main() { long int result; long int i, j, k; i = -1; j = 12; k = 5; result = tmax3( &i, &j, &k ); printf( "Maximum is %ld\n", result ); }