#include <stdio.h>
/* Use of a COMMON Block from Fortran */

// This is the layout of the common block in Fortran:
	typedef struct
	{
	int i; float r;
	} comv;

void *sam_c();

void mc()

{
    comv *p;

// Get address of common block from Fortran code.
	sam_c(&p);
	printf("C gets Common block /com/: %d %f \n ",p->i,p->r);
// Change the values in the common block.
        p->i = 457;
        p->r = 17.5;
	printf("C gives Common block /com/: %d %f \n ",p->i,p->r);
}