#include <stdio.h>
#include <math.h>

/*     C call of Fortran routines via communication routines */

       int c_f(float *);
       int c_sam(int (*c_f)(), 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(" %d %d %s \n ", b[1], c_f(&x), s); 
       return 0;
}