system_ X
1: /* Fortran system call PLWard 3/20/80 */ 2: int system_(cmd,returns) 3: char cmd[]; 4: int *returns; 5: { 6: *returns = system(cmd); 7: }