\hypertarget{sysdepabort_8f90}{}\section{sysdep/sysdepabort.f90 File Reference}
\label{sysdepabort_8f90}\index{sysdep/sysdepabort.\+f90@{sysdep/sysdepabort.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{sysdepabort_8f90_a5cf0bed0e6e1695cb0d25242bba2d46a}{sysdepabort} (string)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{sysdepabort_8f90_a5cf0bed0e6e1695cb0d25242bba2d46a}\label{sysdepabort_8f90_a5cf0bed0e6e1695cb0d25242bba2d46a}} 
\index{sysdepabort.\+f90@{sysdepabort.\+f90}!sysdepabort@{sysdepabort}}
\index{sysdepabort@{sysdepabort}!sysdepabort.\+f90@{sysdepabort.\+f90}}
\subsubsection{\texorpdfstring{sysdepabort()}{sysdepabort()}}
{\footnotesize\ttfamily subroutine sysdepabort (\begin{DoxyParamCaption}\item[{character(len = $\ast$), intent(in)}]{string }\end{DoxyParamCaption})}



Definition at line 34 of file sysdepabort.\+f90.



References dc\+\_\+trace\+::dbg\+\_\+scratch(), and gtvarsync().


\begin{DoxyCode}
34   \textcolor{comment}{!}
35   \textcolor{comment}{! この手続きは、引数 \_string\_ を装置 * に出力後、}
36   \textcolor{comment}{! プログラムを強制終了させます。}
37   \textcolor{comment}{! *AbortProgram* というのは総称名です。}
38   \textcolor{comment}{! 実際にはソースコードを簡単に見つけるため、}
39   \textcolor{comment}{! *SysdepAbort* というサブルーチン名を与えられています。}
40   \textcolor{comment}{! 多くの実装では終了コードをゼロ以外にしようと試みていますが、}
41   \textcolor{comment}{! それをあまり当てにするべきではありません。}
42   \textcolor{comment}{!}
43   \textcolor{comment}{! This procedure terminates program after \_string\_ is}
44   \textcolor{comment}{! outputted to unit "*".}
45   \textcolor{comment}{! *AbortProgram* is a generic name of a subroutine.}
46   \textcolor{comment}{! In fact, the subroutine was given another name *SysdepAbort*,}
47   \textcolor{comment}{! in order to make it easier to find the source code.}
48   \textcolor{comment}{! Though many implementations are trying to set exit code}
49   \textcolor{comment}{! other than zero, that should *not* be relied upon.}
50   \textcolor{comment}{!}
51   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{gtvarsync_8f90_a588ca6cb76c00f2024a19b46e97e8d3a}{gtvarsync}
52   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a68d91867a691b18089c97e05294c18b2}{dbg\_scratch}
53   \textcolor{keywordtype}{implicit none}
54   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(in)}:: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
55   \textcolor{keywordtype}{integer}  :: stat
56 \textcolor{keywordflow}{continue}
57   \textcolor{keyword}{write}(*, *) trim(\hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string})
58   \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a68d91867a691b18089c97e05294c18b2}{dbg\_scratch}(.false.)
59   \textcolor{keyword}{call }\hyperlink{gtvarsync_8f90_a588ca6cb76c00f2024a19b46e97e8d3a}{gtvarsync}(stat=stat)
60   \textcolor{comment}{!}
61   \textcolor{comment}{! Selected by Makefile using m4}
62   \textcolor{comment}{!}
63   \textcolor{comment}{! --- hitachi ---}
64   stop 3
65   stop \textcolor{stringliteral}{'failsafe'}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{sysdepabort_8f90_a5cf0bed0e6e1695cb0d25242bba2d46a_cgraph}
\end{center}
\end{figure}
