#include <stdio.h>

/* put in funciton prototyptes */

void sub3_(int *i);

/* implement the prototype 
   NOTE THAT FORTRAN PASSES POINTERS AND NOT VALUES*/
void sub3_(int *val)
{
	printf("\tsub3_(%d) called from FORTRAN\n",*val);
}