Added a header file and fortran function prototype