Skip to content

AFNI/NIfTI Server

Sections
Personal tools
You are here: Home » AFNI » Documentation
 

Doxygen Source Code Documentation

Main Page   Alphabetical List   Data Structures   File List   Data Fields   Globals   Search  

getarg_.c

Go to the documentation of this file.
00001 #include "f2c.h"
00002 
00003 /*
00004  * subroutine getarg(k, c)
00005  * returns the kth unix command argument in fortran character
00006  * variable argument c
00007 */
00008 
00009 #ifdef KR_headers
00010 VOID getarg_(n, s, ls) ftnint *n; register char *s; ftnlen ls;
00011 #else
00012 void getarg_(ftnint *n, register char *s, ftnlen ls)
00013 #endif
00014 {
00015 extern int xargc;
00016 extern char **xargv;
00017 register char *t;
00018 register int i;
00019 
00020 if(*n>=0 && *n<xargc)
00021         t = xargv[*n];
00022 else
00023         t = "";
00024 for(i = 0; i<ls && *t!='\0' ; ++i)
00025         *s++ = *t++;
00026 for( ; i<ls ; ++i)
00027         *s++ = ' ';
00028 }
 
Powered by Plone

This site conforms to the following standards: