2.9BSD/usr/src/lib/libF77/system_.c

/* Fortran system call PLWard 3/20/80 */
int system_(cmd,returns)
     char cmd[];
     int *returns;
{
     *returns = system(cmd);
}