\hypertarget{sysdeparg_8f90}{}\section{sysdep/sysdeparg.f90 File Reference}
\label{sysdeparg_8f90}\index{sysdep/sysdeparg.\+f90@{sysdep/sysdeparg.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
integer function \hyperlink{sysdeparg_8f90_a73f7569571f2308370f18694422da02d}{sysdepargcount} ()
\item 
subroutine \hyperlink{sysdeparg_8f90_a15dbaab23e370650f4a5e4f1a401b616}{sysdepargget} (idx\+\_\+given, result)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{sysdeparg_8f90_a73f7569571f2308370f18694422da02d}\label{sysdeparg_8f90_a73f7569571f2308370f18694422da02d}} 
\index{sysdeparg.\+f90@{sysdeparg.\+f90}!sysdepargcount@{sysdepargcount}}
\index{sysdepargcount@{sysdepargcount}!sysdeparg.\+f90@{sysdeparg.\+f90}}
\subsubsection{\texorpdfstring{sysdepargcount()}{sysdepargcount()}}
{\footnotesize\ttfamily integer function sysdepargcount (\begin{DoxyParamCaption}{ }\end{DoxyParamCaption})}



Definition at line 35 of file sysdeparg.\+f90.



Referenced by dc\+\_\+args\+::buildargtable(), and sysdepargget().


\begin{DoxyCode}
35   \textcolor{comment}{!}
36   \textcolor{comment}{! この手続きは, コマンドライン引数の数を返します. }
37   \textcolor{comment}{! F95 以前の処理系では Fortran90/95 規格外の <b>IARGC()</b>}
38   \textcolor{comment}{! 関数により実装され, F2003 に対応する処理系では }
39   \textcolor{comment}{! COMMAND\_ARGUMENT\_COUNT 関数によって実装されます. }
40   \textcolor{comment}{!}
41   \textcolor{comment}{! Get the number of commandline arguments.}
42   \textcolor{comment}{! In F95, it is implemented by nonstandard built-in}
43   \textcolor{comment}{! function <b>IARGC()</b>. }
44   \textcolor{comment}{! In F2003, it is implemented by standard built-in}
45   \textcolor{comment}{! function <b>COMMAND\_ARGUMENT\_COUNT()</b>. }
46   \textcolor{comment}{!}
47   \textcolor{keywordtype}{implicit none}
48   \textcolor{comment}{!}
49   \textcolor{comment}{! Selected by Makefile using Ruby}
50   \textcolor{comment}{!}
51   result = command\_argument\_count()
\end{DoxyCode}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{sysdeparg_8f90_a73f7569571f2308370f18694422da02d_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{sysdeparg_8f90_a15dbaab23e370650f4a5e4f1a401b616}\label{sysdeparg_8f90_a15dbaab23e370650f4a5e4f1a401b616}} 
\index{sysdeparg.\+f90@{sysdeparg.\+f90}!sysdepargget@{sysdepargget}}
\index{sysdepargget@{sysdepargget}!sysdeparg.\+f90@{sysdeparg.\+f90}}
\subsubsection{\texorpdfstring{sysdepargget()}{sysdepargget()}}
{\footnotesize\ttfamily subroutine sysdepargget (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{idx\+\_\+given,  }\item[{character(len = $\ast$), intent(out)}]{result }\end{DoxyParamCaption})}



Definition at line 55 of file sysdeparg.\+f90.



References sysdepargcount().



Referenced by dc\+\_\+args\+::buildargtable().


\begin{DoxyCode}
55   \textcolor{comment}{!}
56   \textcolor{comment}{! この手続きはコマンドライン引数のうち、*index* (*idx\_given*)}
57   \textcolor{comment}{! 番目の値を *value* (*result*) に返します。}
58   \textcolor{comment}{!}
59   \textcolor{comment}{! *index* が引数の数よりも大きい場合、*value* には空文字}
60   \textcolor{comment}{! が返ります。*index* が負の場合には、後方からの順番になります。}
61   \textcolor{comment}{! すなわち、-1 ならば最後の引数が返ります。}
62   \textcolor{comment}{!}
63   \textcolor{comment}{! ほとんどの処理系では Fortran90/95 規格外の <b>GETARGC()</b>}
64   \textcolor{comment}{! 関数により実装されます。}
65   \textcolor{comment}{!}
66   \textcolor{comment}{! gets the *index*th (*idx\_given*th) commandline argument}
67   \textcolor{comment}{! to *value* (*result*).}
68   \textcolor{comment}{!}
69   \textcolor{comment}{! If *index* is more than the number of arguments,}
70   \textcolor{comment}{! *value* will be filled with blank.}
71   \textcolor{comment}{! If *index* is negative, *index*th argument in reverse}
72   \textcolor{comment}{! is return to *value*. In other words, if *index* = -1,}
73   \textcolor{comment}{! the last argument is returned.}
74   \textcolor{comment}{!}
75   \textcolor{comment}{! Most typically, it is implemented by nonstandard built-in}
76   \textcolor{comment}{! subroutine <b>GETARG()</b>.}
77   \textcolor{comment}{!}
78   \textcolor{keywordtype}{implicit none}
79   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: idx\_given
80   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(out)}:: result
81   \textcolor{keywordtype}{integer}:: idx
82   \textcolor{keywordtype}{integer}:: argc
83   \textcolor{keyword}{interface}
84 \textcolor{keyword}{    integer }\textcolor{keyword}{function }\hyperlink{sysdeparg_8f90_a73f7569571f2308370f18694422da02d}{sysdepargcount}()
85 \textcolor{keyword}{    end function }\hyperlink{sysdeparg_8f90_a73f7569571f2308370f18694422da02d}{sysdepargcount}
86 \textcolor{keyword}{  end interface}
87 \textcolor{keywordflow}{continue}
88   argc = \hyperlink{sysdeparg_8f90_a73f7569571f2308370f18694422da02d}{sysdepargcount}()
89   \textcolor{keywordflow}{if} (idx\_given < 0) \textcolor{keywordflow}{then}
90     idx = argc + 1 + idx\_given
91   \textcolor{keywordflow}{else}
92     idx = idx\_given
93 \textcolor{keywordflow}{  endif}
94   \textcolor{keywordflow}{if} (idx > argc) \textcolor{keywordflow}{then}
95     result = \textcolor{stringliteral}{""}
96   \textcolor{keywordflow}{else}
97   \textcolor{comment}{!}
98   \textcolor{comment}{! Selected by Makefile using Ruby}
99   \textcolor{comment}{!}
100   \textcolor{keyword}{call }get\_command\_argument(idx, result)
101 \textcolor{keywordflow}{  endif}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=277pt]{sysdeparg_8f90_a15dbaab23e370650f4a5e4f1a401b616_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{sysdeparg_8f90_a15dbaab23e370650f4a5e4f1a401b616_icgraph}
\end{center}
\end{figure}
