/* This gives the effect of subroutine exit(rc) integer*4 rc stop end * with the added side effect of supplying rc as the program's exit code. */#include"f2c.h"#undef abs#undef min#undef max#include <stdlib.h>externvoidf_exit(void);voidG77_exit_0(integer * rc){#ifdef NO_ONEXITf_exit();#endifexit(*rc);}