home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / libF77 / getarg_.c < prev    next >
Encoding:
C/C++ Source or Header  |  1979-01-10  |  364 b   |  26 lines
  1. /*
  2.  * subroutine getarg(k, c)
  3.  * returns the kth unix command argument in fortran character
  4.  * variable argument c
  5. */
  6.  
  7. getarg_(n, s, ls)
  8. long int *n;
  9. char *s;
  10. long int ls;
  11. {
  12. extern int xargc;
  13. extern char **xargv;
  14. char *t;
  15. int i;
  16.  
  17. if(*n>0 && *n<xargc)
  18.     t = xargv[*n];
  19. else
  20.     t = "";
  21. for(i = 0; i<ls && *t!='\0' ; ++i)
  22.     *s++ = *t++;
  23. for( ; i<ls ; ++i)
  24.     *s++ = ' ';
  25. }
  26.