#include <stdio.h>

/* Procedure implemented in Fortran.  */
void get_values (void (*)(double));

/* Call-back routine we want called from Fortran.  */
void print_it (double x){
  printf ("Number is %f.\n", x);
}

int main(){
    /* Call Fortran routine and pass call-back to it.  */
   get_values (&print_it);
   return 0;

}