\hypertarget{namespacedc__message}{}\section{dc\+\_\+message Module Reference}
\label{namespacedc__message}\index{dc\+\_\+message@{dc\+\_\+message}}
\subsection*{Data Types}
\begin{DoxyCompactItemize}
\item 
interface \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
\item 
interface \hyperlink{interfacedc__message_1_1messagesuppressmpi}{messagesuppressmpi}
\end{DoxyCompactItemize}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{namespacedc__message_abc966e084aa96fca01180263a1e895f4}{messagenotifyc} (level, where, message, i, r, d, L, n, c1, c2, c3, ca, rank\+\_\+mpi)
\item 
subroutine \hyperlink{namespacedc__message_a5b568e3a9ca3aebb3e6d3a27524974bb}{messagenotifyi} (number, where, message, i, r, d, L, n, c1, c2, c3, ca, rank\+\_\+mpi)
\item 
subroutine \hyperlink{namespacedc__message_a474f6a81b5ec502b79d311a245525d4d}{messagesuppressmpi0} (rank)
\item 
logical function \hyperlink{namespacedc__message_ac79b2be02e25d1634bc09b901ca6f90a}{invalid\+\_\+rank\+\_\+number} (rank\+\_\+mpi)
\end{DoxyCompactItemize}
\subsection*{Variables}
\begin{DoxyCompactItemize}
\item 
integer, save \hyperlink{namespacedc__message_a2fcfbdd3c3ff57b00ab0f78e8571f22d}{output\+\_\+rank} = -\/1
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{namespacedc__message_ac79b2be02e25d1634bc09b901ca6f90a}\label{namespacedc__message_ac79b2be02e25d1634bc09b901ca6f90a}} 
\index{dc\+\_\+message@{dc\+\_\+message}!invalid\+\_\+rank\+\_\+number@{invalid\+\_\+rank\+\_\+number}}
\index{invalid\+\_\+rank\+\_\+number@{invalid\+\_\+rank\+\_\+number}!dc\+\_\+message@{dc\+\_\+message}}
\subsubsection{\texorpdfstring{invalid\+\_\+rank\+\_\+number()}{invalid\_rank\_number()}}
{\footnotesize\ttfamily logical function dc\+\_\+message\+::invalid\+\_\+rank\+\_\+number (\begin{DoxyParamCaption}\item[{integer, intent(in), optional}]{rank\+\_\+mpi }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 205 of file dc\+\_\+message.\+f90.



Referenced by messagenotifyc(), and messagenotifyi().


\begin{DoxyCode}
205     \textcolor{keywordtype}{implicit none}
206     \textcolor{keywordtype}{integer}     , \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: rank\_mpi
207                                         \textcolor{comment}{! MPI 使用時に, ここで指定された}
208                                         \textcolor{comment}{! ランク数のノードでのみ}
209                                         \textcolor{comment}{! メッセージ出力を行います. }
210                                         \textcolor{comment}{! 負の値を与えた場合には, }
211                                         \textcolor{comment}{! 全てのノードで出力を行います. }
212                                         \textcolor{comment}{! }
213                                         \textcolor{comment}{! MPI を使用していない場合には}
214                                         \textcolor{comment}{! このオプションは無視されます. }
215                                         \textcolor{comment}{! }
216                                         \textcolor{comment}{! When MPI is used, messages are }
217                                         \textcolor{comment}{! output in only node that has}
218                                         \textcolor{comment}{! this runk number. }
219                                         \textcolor{comment}{! If negative value is given, }
220                                         \textcolor{comment}{! output is done on all nodes}
221                                         \textcolor{comment}{! }
222                                         \textcolor{comment}{! This option is ignored }
223                                         \textcolor{comment}{! if MPI is not used. }
224                                         \textcolor{comment}{! }
225   \textcolor{keywordflow}{continue}
226     result = .false.
227     \textcolor{keywordflow}{return}
\end{DoxyCode}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacedc__message_ac79b2be02e25d1634bc09b901ca6f90a_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacedc__message_abc966e084aa96fca01180263a1e895f4}\label{namespacedc__message_abc966e084aa96fca01180263a1e895f4}} 
\index{dc\+\_\+message@{dc\+\_\+message}!messagenotifyc@{messagenotifyc}}
\index{messagenotifyc@{messagenotifyc}!dc\+\_\+message@{dc\+\_\+message}}
\subsubsection{\texorpdfstring{messagenotifyc()}{messagenotifyc()}}
{\footnotesize\ttfamily subroutine dc\+\_\+message\+::messagenotifyc (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{level,  }\item[{character($\ast$), intent(in)}]{where,  }\item[{character($\ast$), intent(in)}]{message,  }\item[{integer, dimension(\+:), intent(in), optional}]{i,  }\item[{real, dimension(\+:), intent(in), optional}]{r,  }\item[{real(dp), dimension(\+:), intent(in), optional}]{d,  }\item[{logical, dimension(\+:), intent(in), optional}]{L,  }\item[{integer, dimension(\+:), intent(in), optional}]{n,  }\item[{character($\ast$), intent(in), optional}]{c1,  }\item[{character($\ast$), intent(in), optional}]{c2,  }\item[{character($\ast$), intent(in), optional}]{c3,  }\item[{character($\ast$), dimension(\+:), intent(in), optional}]{ca,  }\item[{integer, intent(in), optional}]{rank\+\_\+mpi }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 51 of file dc\+\_\+message.\+f90.



References dc\+\_\+types\+::dp, invalid\+\_\+rank\+\_\+number(), dc\+\_\+error\+::storeerror(), dc\+\_\+types\+::string, and dc\+\_\+error\+::usr\+\_\+errno.


\begin{DoxyCode}
51     \textcolor{comment}{!}
52     \textcolor{comment}{!=== メッセージの出力およびエラーによる終了}
53     \textcolor{comment}{!}
54     \textcolor{comment}{! メッセージを標準出力へ出力したい場合に用います。}
55     \textcolor{comment}{!}
56     \textcolor{comment}{! 文字型変数 where にはプログラム名 (サブルーチン名) など、}
57     \textcolor{comment}{! プログラム内のどこでメッセージを出力するのかを示すものを与えます。}
58     \textcolor{comment}{!}
59     \textcolor{comment}{! 文字型変数 message には、出力したい文字列を与えます。}
60     \textcolor{comment}{! オプション変数 i, r, d, L, s, n, c1, c2, c3 を付加する事も出来ます。}
61     \textcolor{comment}{! 詳細に関しては dc\_string#CPrintf を参照して下さい。}
62     \textcolor{comment}{!}
63     \textcolor{comment}{! 文字型変数 level は出力するメッセージの種類を決める引数で、}
64     \textcolor{comment}{! <b><tt>"W"</tt></b> (または<b><tt>"Warning"</tt></b>}
65     \textcolor{comment}{! など <b><tt>"W"</tt></b> で始まる文字)}
66     \textcolor{comment}{! を与える事で<b>警告</b>であることを、}
67     \textcolor{comment}{! <b><tt>"E"</tt></b> (または<b><tt>"Error"</tt></b>}
68     \textcolor{comment}{! など <b><tt>"E"</tt></b> で始まる文字) を与える事で}
69     \textcolor{comment}{! <b>エラー (メッセージ出力後プログラムを終了) </b>であることを、}
70     \textcolor{comment}{! それ以外の文字 (大抵は <b><tt>"M"</tt></b>}
71     \textcolor{comment}{! を与えることを想定しています)}
72     \textcolor{comment}{! を与える事で<b>通常のメッセージ</b>であることを指定します。}
73     \textcolor{comment}{! <b><tt>"E"</tt></b>を与えた場合はメッセージ出力後、プログラムを}
74     \textcolor{comment}{! 強制終了させます。エラーコードは dc\_error#USR\_ERRNO となります。}
75     \textcolor{comment}{!}
76     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}  \textcolor{keywordtype}{,only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
77     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string} \textcolor{keywordtype}{,only}: \hyperlink{interfacedc__string_1_1uchar}{uchar}, \hyperlink{interfacedc__string_1_1strhead}{strhead}, \hyperlink{interfacedc__string_1_1printf}{printf}, 
      \hyperlink{interfacedc__string_1_1cprintf}{cprintf}
78     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}  \textcolor{keywordtype}{,only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a06cf52d1f5684d6d92f7e92c2c1fd43a}{usr\_errno}
79     \textcolor{keywordtype}{implicit none}
80     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}          :: level \textcolor{comment}{! "E", "W", "M" のどれかを与える。}
81     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}          :: where \textcolor{comment}{! プログラム名、手続き名}
82     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}          :: message \textcolor{comment}{! メッセージ}
83     \textcolor{keywordtype}{integer}     , \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: i(:), n(:)
84     \textcolor{keywordtype}{real}        , \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: r(:)
85     \textcolor{keywordtype}{real(DP)}    , \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: d(:)
86     \textcolor{keywordtype}{logical}     , \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: l(:)
87     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: c1, c2, c3
88     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: ca(:)
89     \textcolor{keywordtype}{integer}     , \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: rank\_mpi
90                                         \textcolor{comment}{! MPI 使用時に, ここで指定された}
91                                         \textcolor{comment}{! ランク数のノードでのみ}
92                                         \textcolor{comment}{! メッセージ出力を行います. }
93                                         \textcolor{comment}{! 負の値を与えた場合には, }
94                                         \textcolor{comment}{! 全てのノードで出力を行います. }
95                                         \textcolor{comment}{! }
96                                         \textcolor{comment}{! MPI を使用していない場合には}
97                                         \textcolor{comment}{! このオプションは無視されます. }
98                                         \textcolor{comment}{! }
99                                         \textcolor{comment}{! When MPI is used, messages are }
100                                         \textcolor{comment}{! output in only node that has}
101                                         \textcolor{comment}{! this runk number. }
102                                         \textcolor{comment}{! If negative value is given, }
103                                         \textcolor{comment}{! output is done on all nodes}
104                                         \textcolor{comment}{! }
105                                         \textcolor{comment}{! This option is ignored }
106                                         \textcolor{comment}{! if MPI is not used. }
107                                         \textcolor{comment}{! }
108     \textcolor{keywordtype}{character(string)}        :: msg
109   \textcolor{keywordflow}{continue}
110     \textcolor{keywordflow}{if} ( invalid\_rank\_number( rank\_mpi ) ) \textcolor{keywordflow}{return}
111     \textcolor{keywordflow}{if} (   \hyperlink{interfacedc__string_1_1strhead}{strhead}(  \textcolor{stringliteral}{'ERROR'}, trim( \hyperlink{interfacedc__string_1_1uchar}{uchar}(level) )  )   ) \textcolor{keywordflow}{then}
112       msg = \hyperlink{interfacedc__string_1_1cprintf}{cprintf}(message, &
113         &           i=i, r=r, d=d, l=l, n=n, c1=c1, c2=c2, c3=c3, ca=ca)
114       \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(\hyperlink{namespacedc__error_a06cf52d1f5684d6d92f7e92c2c1fd43a}{usr\_errno}, \textcolor{keywordflow}{where}, cause\_c=msg)
115     \textcolor{keywordflow}{elseif} (   \hyperlink{interfacedc__string_1_1strhead}{strhead}(  \textcolor{stringliteral}{'WARNING'}, trim( \hyperlink{interfacedc__string_1_1uchar}{uchar}(level) )  )   ) \textcolor{keywordflow}{then}
116       msg = \hyperlink{interfacedc__string_1_1cprintf}{cprintf}(message, &
117         &           i=i, r=r, d=d, l=l, n=n, c1=c1, c2=c2, c3=c3, ca=ca)
118       msg=\textcolor{stringliteral}{' *** WARNING ['} // trim(where) // \textcolor{stringliteral}{'] ***  '}// trim(msg)
119       \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}(fmt=\textcolor{stringliteral}{'%c'}, c1=msg)
120     \textcolor{keywordflow}{else}
121       msg = \hyperlink{interfacedc__string_1_1cprintf}{cprintf}(message, &
122         &           i=i, r=r, d=d, l=l, n=n, c1=c1, c2=c2, c3=c3, ca=ca)
123       msg=\textcolor{stringliteral}{' *** MESSAGE ['} // trim(where) // \textcolor{stringliteral}{'] ***  '} // trim(msg)
124       \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}(fmt=\textcolor{stringliteral}{'%c'}, c1=msg)
125 \textcolor{keywordflow}{    endif}
126     \textcolor{keywordflow}{return}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacedc__message_abc966e084aa96fca01180263a1e895f4_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacedc__message_a5b568e3a9ca3aebb3e6d3a27524974bb}\label{namespacedc__message_a5b568e3a9ca3aebb3e6d3a27524974bb}} 
\index{dc\+\_\+message@{dc\+\_\+message}!messagenotifyi@{messagenotifyi}}
\index{messagenotifyi@{messagenotifyi}!dc\+\_\+message@{dc\+\_\+message}}
\subsubsection{\texorpdfstring{messagenotifyi()}{messagenotifyi()}}
{\footnotesize\ttfamily subroutine dc\+\_\+message\+::messagenotifyi (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{number,  }\item[{character($\ast$), intent(in)}]{where,  }\item[{character($\ast$), intent(in), optional}]{message,  }\item[{integer, dimension(\+:), intent(in), optional}]{i,  }\item[{real, dimension(\+:), intent(in), optional}]{r,  }\item[{real(dp), dimension(\+:), intent(in), optional}]{d,  }\item[{logical, dimension(\+:), intent(in), optional}]{L,  }\item[{integer, dimension(\+:), intent(in), optional}]{n,  }\item[{character($\ast$), intent(in), optional}]{c1,  }\item[{character($\ast$), intent(in), optional}]{c2,  }\item[{character($\ast$), intent(in), optional}]{c3,  }\item[{character($\ast$), dimension(\+:), intent(in), optional}]{ca,  }\item[{integer, intent(in), optional}]{rank\+\_\+mpi }\end{DoxyParamCaption})}



Definition at line 130 of file dc\+\_\+message.\+f90.



References dc\+\_\+types\+::dp, invalid\+\_\+rank\+\_\+number(), dc\+\_\+error\+::storeerror(), and dc\+\_\+error\+::usr\+\_\+errno.


\begin{DoxyCode}
130     \textcolor{comment}{!}
131     \textcolor{comment}{!=== メッセージの出力およびエラーによる終了}
132     \textcolor{comment}{!}
133     \textcolor{comment}{! 基本的にもう一方の MessageNotify (または dc\_message#MessageNotifyC)}
134     \textcolor{comment}{! と同様ですが、こちらは第１引数に数値型変数}
135     \textcolor{comment}{! number をとります。この number はエラーコードとして、}
136     \textcolor{comment}{! そのまま dc\_error#StoreError に引き渡されます。}
137     \textcolor{comment}{! エラーコードに関しては (dc\_error を参照ください)}
138     \textcolor{comment}{!}
139     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}  \textcolor{keywordtype}{,only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
140     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string} \textcolor{keywordtype}{,only}: \hyperlink{interfacedc__string_1_1cprintf}{cprintf}
141     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}  \textcolor{keywordtype}{,only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a06cf52d1f5684d6d92f7e92c2c1fd43a}{usr\_errno}
142     \textcolor{keywordtype}{implicit none}
143     \textcolor{keywordtype}{integer},      \textcolor{keywordtype}{intent(in)}          :: \hyperlink{interfacedc__hash_1_1number}{number}    \textcolor{comment}{! エラーコード (dc\_error 参照)}
144     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}          :: where
145     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: message
146     \textcolor{keywordtype}{integer}     , \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: i(:), n(:)
147     \textcolor{keywordtype}{real}        , \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: r(:)
148     \textcolor{keywordtype}{real(DP)}    , \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: d(:)
149     \textcolor{keywordtype}{logical}     , \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: l(:)
150     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: c1, c2, c3
151     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: ca(:)
152     \textcolor{keywordtype}{integer}     , \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: rank\_mpi
153                                         \textcolor{comment}{! MPI 使用時に, ここで指定された}
154                                         \textcolor{comment}{! ランク数のノードでのみ}
155                                         \textcolor{comment}{! メッセージ出力を行います. }
156                                         \textcolor{comment}{! 負の値を与えた場合には, }
157                                         \textcolor{comment}{! 全てのノードで出力を行います. }
158                                         \textcolor{comment}{! }
159                                         \textcolor{comment}{! MPI を使用していない場合には}
160                                         \textcolor{comment}{! このオプションは無視されます. }
161                                         \textcolor{comment}{! }
162                                         \textcolor{comment}{! When MPI is used, messages are }
163                                         \textcolor{comment}{! output in only node that has}
164                                         \textcolor{comment}{! this runk number. }
165                                         \textcolor{comment}{! If negative value is given, }
166                                         \textcolor{comment}{! output is done on all nodes}
167                                         \textcolor{comment}{! }
168                                         \textcolor{comment}{! This option is ignored }
169                                         \textcolor{comment}{! if MPI is not used. }
170                                         \textcolor{comment}{! }
171   \textcolor{keywordflow}{continue}
172     \textcolor{keywordflow}{if} ( invalid\_rank\_number( rank\_mpi ) ) \textcolor{keywordflow}{return}
173     \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{present}(message)) \textcolor{keywordflow}{then}
174       \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(\hyperlink{interfacedc__hash_1_1number}{number}, where)
175     \textcolor{keywordflow}{else}
176       \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(\hyperlink{interfacedc__hash_1_1number}{number}, \textcolor{keywordflow}{where},  &
177         &             cause\_c=\hyperlink{interfacedc__string_1_1cprintf}{cprintf}( message, &
178         &             i=i, r=r, d=d, l=l, n=n, c1=c1, c2=c2, c3=c3, ca=ca )  )
179 \textcolor{keywordflow}{    endif}
180     \textcolor{keywordflow}{return}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacedc__message_a5b568e3a9ca3aebb3e6d3a27524974bb_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacedc__message_a474f6a81b5ec502b79d311a245525d4d}\label{namespacedc__message_a474f6a81b5ec502b79d311a245525d4d}} 
\index{dc\+\_\+message@{dc\+\_\+message}!messagesuppressmpi0@{messagesuppressmpi0}}
\index{messagesuppressmpi0@{messagesuppressmpi0}!dc\+\_\+message@{dc\+\_\+message}}
\subsubsection{\texorpdfstring{messagesuppressmpi0()}{messagesuppressmpi0()}}
{\footnotesize\ttfamily subroutine dc\+\_\+message\+::messagesuppressmpi0 (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{rank }\end{DoxyParamCaption})}



Definition at line 183 of file dc\+\_\+message.\+f90.



References output\+\_\+rank.


\begin{DoxyCode}
183     \textcolor{keywordtype}{implicit none}
184     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: rank
185                                         \textcolor{comment}{! 出力するノードのランク数. }
186                                         \textcolor{comment}{! }
187                                         \textcolor{comment}{! ここに指定されたランク数以外の}
188                                         \textcolor{comment}{! ノードでの出力は抑止されます. }
189                                         \textcolor{comment}{! }
190                                         \textcolor{comment}{! MPI を使用していない場合には}
191                                         \textcolor{comment}{! サブルーチンは無効です. }
192                                         \textcolor{comment}{! }
193                                         \textcolor{comment}{! Number of rank of an node that output. }
194                                         \textcolor{comment}{! }
195                                         \textcolor{comment}{! Output on nodes that do not have }
196                                         \textcolor{comment}{! this rank number is suppressed. }
197                                         \textcolor{comment}{! }
198                                         \textcolor{comment}{! This subroutine is ignored, }
199                                         \textcolor{comment}{! if MPI is not used. }
200                                         \textcolor{comment}{! }
201   \textcolor{keywordflow}{continue}
202     output\_rank = rank
\end{DoxyCode}


\subsection{Variable Documentation}
\mbox{\Hypertarget{namespacedc__message_a2fcfbdd3c3ff57b00ab0f78e8571f22d}\label{namespacedc__message_a2fcfbdd3c3ff57b00ab0f78e8571f22d}} 
\index{dc\+\_\+message@{dc\+\_\+message}!output\+\_\+rank@{output\+\_\+rank}}
\index{output\+\_\+rank@{output\+\_\+rank}!dc\+\_\+message@{dc\+\_\+message}}
\subsubsection{\texorpdfstring{output\+\_\+rank}{output\_rank}}
{\footnotesize\ttfamily integer, save dc\+\_\+message\+::output\+\_\+rank = -\/1\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 47 of file dc\+\_\+message.\+f90.



Referenced by messagesuppressmpi0().


\begin{DoxyCode}
47   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{save}:: output\_rank = -1
\end{DoxyCode}
