public
/
Ack-5.5.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Pristine Ack-5.5
[Ack-5.5.git]
/
lang
/
fortran
/
lib
/
libF77
/
getarg_.c
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
}