home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / FORTRAN / F2C_SRC.ZIP / F2C / LIBF77 / S_STOP.C < prev    next >
Encoding:
C/C++ Source or Header  |  1991-06-10  |  257 b   |  20 lines
  1. #include "stdio.h"
  2. #include "f2c.h"
  3.  
  4. VOID s_stop(s, n)
  5. char *s;
  6. long int n;
  7. {
  8. int i;
  9.  
  10. if(n > 0)
  11.     {
  12.     fprintf(stderr, "STOP ");
  13.     for(i = 0; i<n ; ++i)
  14.         putc(*s++, stderr);
  15.     fprintf(stderr, " statement executed\n");
  16.     }
  17. f_exit();
  18. exit(0);
  19. }
  20.