#include <stdio.h>
// Function prototypes to wrapper routines to be called from C/
int c_f ( float ) ;
int c_sam( int ( c_f ) ( float ) , int , char [] ) ;
int main ( )
{
char s[8] ; // String is one entry longer for null ending /
int b[3] ;
float x ;
// Fortran wrapper routine c_sam calls sam /
c_sam( c_f , &b [1] , s ) ;
x = b [1] ;
printf ( "%5d%5d %7s \n" , b [1] , c_f(&x) , s ) ;
return 0 ;
}