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

/*     C Call to SAM in Fortran */

       int f_(float *);
main()
{
       char s[7];
       int b[3];
       float x;

       sam_(f_, &b[1], s, 7);
       x = b[1];
       printf(" %d %d %s \n ", b[1], f_(&x), s); 
}