/* c main routine for program using fortran i/o */
/* specific to Green Hills' i860 C anf FORTRAN, version 1.8.5 */

extern void (*initfmt)();
extern void (*initrec)();
extern void (*uninitrec)();

int main(argc,argv)
int argc;
char *argv[];
{
    int rc;
    extern _p_pcn_main();
    if (initfmt)
	(*initfmt)();
    if (initrec)
	(*initrec)();
    rc = _p_pcn_main(argc,argv);
    if (uninitrec)
	(*uninitrec)();
    return(rc);
}