home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sharew / f_2_c / libf77 / getarg_.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-06-10  |  442 b   |  28 lines
  1. #include "f2c.h"
  2.  
  3. /*
  4.  * subroutine getarg(k, c)
  5.  * returns the kth unix command argument in fortran character
  6.  * variable argument c
  7. */
  8.  
  9. VOID getarg_(n, s, ls)
  10. long int *n;
  11. register char *s;
  12. long int ls;
  13. {
  14. extern int xargc;
  15. extern char **xargv;
  16. register char *t;
  17. register int i;
  18.  
  19. if(*n>=0 && *n<xargc)
  20.     t = xargv[*n];
  21. else
  22.     t = "";
  23. for(i = 0; i<ls && *t!='\0' ; ++i)
  24.     *s++ = *t++;
  25. for( ; i<ls ; ++i)
  26.     *s++ = ' ';
  27. }
  28.