\hypertarget{historygetattr_8f90}{}\section{gtool/gtool\+\_\+history/historygetattr.f90 File Reference}
\label{historygetattr_8f90}\index{gtool/gtool\+\_\+history/historygetattr.\+f90@{gtool/gtool\+\_\+history/historygetattr.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{historygetattr_8f90_a97b21b900e8396ea41a96d749abd4825}{historygettattrchar0} (file, varname, attrname, value, flag\+\_\+mpi\+\_\+split, err)
\item 
subroutine \hyperlink{historygetattr_8f90_a33380722672e83152d0eec8dd086362c}{historygettattrint0} (file, varname, attrname, value, flag\+\_\+mpi\+\_\+split, err)
\item 
subroutine \hyperlink{historygetattr_8f90_a4204b045c7e41d5d62d7a4c246302c14}{historygettattrint1} (file, varname, attrname, value, flag\+\_\+mpi\+\_\+split, err)
\item 
subroutine \hyperlink{historygetattr_8f90_aa44ff4b74ea320482e810cf17fb89358}{historygettattrreal0} (file, varname, attrname, value, flag\+\_\+mpi\+\_\+split, err)
\item 
subroutine \hyperlink{historygetattr_8f90_aa6fe6ece5cd2785b1ccc9fd803c0195b}{historygettattrreal1} (file, varname, attrname, value, flag\+\_\+mpi\+\_\+split, err)
\item 
subroutine \hyperlink{historygetattr_8f90_ab7f04557eccb9713b1430c9dcf9b6bb7}{historygettattrdouble0} (file, varname, attrname, value, flag\+\_\+mpi\+\_\+split, err)
\item 
subroutine \hyperlink{historygetattr_8f90_a2dff46c2d9b931ae90c2d6e17c7bc100}{historygettattrdouble1} (file, varname, attrname, value, flag\+\_\+mpi\+\_\+split, err)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{historygetattr_8f90_a97b21b900e8396ea41a96d749abd4825}\label{historygetattr_8f90_a97b21b900e8396ea41a96d749abd4825}} 
\index{historygetattr.\+f90@{historygetattr.\+f90}!historygettattrchar0@{historygettattrchar0}}
\index{historygettattrchar0@{historygettattrchar0}!historygetattr.\+f90@{historygetattr.\+f90}}
\subsubsection{\texorpdfstring{historygettattrchar0()}{historygettattrchar0()}}
{\footnotesize\ttfamily subroutine historygettattrchar0 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{character($\ast$), intent(in)}]{attrname,  }\item[{character($\ast$), intent(out)}]{value,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 39 of file historygetattr.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+atmark, dc\+\_\+url\+::gt\+\_\+comma, dc\+\_\+error\+::gt\+\_\+enoturl, dc\+\_\+url\+::gt\+\_\+equal, dc\+\_\+url\+::gt\+\_\+plus, dc\+\_\+error\+::hst\+\_\+empinoaxisdata, dc\+\_\+string\+::joinchar(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.


\begin{DoxyCode}
39     \textcolor{comment}{!}
40                         \textcolor{comment}{!}
41     \textcolor{comment}{!== gtool4 データ内の変数の属性の取得}
42     \textcolor{comment}{!}
43     \textcolor{comment}{! gtool4 データおよびそのデータ内の変数に設定されている属性を取得します。}
44     \textcolor{comment}{!}
45     \textcolor{comment}{! 属性名 *attrname* の先頭にプラス "<b><tt>+</tt></b>" を付加する}
46     \textcolor{comment}{! 場合は、gtool4 データ自体の属性 (大域属性) として属性が取得されます。}
47     \textcolor{comment}{! この場合、*varname* は無視されますが、}
48     \textcolor{comment}{! その場合でも *varname* へはデータ内に存在する変数名を与えてください。}
49     \textcolor{comment}{!}
50     \textcolor{comment}{! 取得する属性が存在しない場合、以下の値が返ります。}
51     \textcolor{comment}{!}
52     \textcolor{comment}{! character :: "" (空文字)}
53     \textcolor{comment}{! real      :: netcdf\_f77#NF\_FILL\_FLOAT}
54     \textcolor{comment}{! real(DP)  :: netcdf\_f77#NF\_FILL\_DOUBLE}
55     \textcolor{comment}{! integer   :: netcdf\_f77#NF\_FILL\_INT}
56     \textcolor{comment}{!}
57     \textcolor{comment}{! *HistoryGetAttr* は複数のサブルーチンの総称名です。*value* には}
58     \textcolor{comment}{! いくつかの型を与えることが可能です。}
59     \textcolor{comment}{! 下記のサブルーチンを参照ください。}
60     \textcolor{comment}{!}
61     \textcolor{comment}{!}
62     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
63     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1get__attr}{get\_attr}, \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1close}{close}
64     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
65     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}
66     \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a3157f15c35d09732b55dfb0f4f52397d}{gt\_atmark}, \hyperlink{namespacedc__url_a61f457425e29d1452036669b43735790}{gt\_comma}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}, 
      \hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}, \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}, \hyperlink{namespacedc__url_a373b7d2195c21ebf1458e79ad72dce0d}{gt\_plus}
67     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, nf90\_enotvar, 
      \hyperlink{namespacedc__error_ac9383c449e0a61a04a809199b7fe284b}{hst\_empinoaxisdata}
68     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
69     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}
70     \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
71     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, 
      \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
72     \textcolor{keywordtype}{use }netcdf\textcolor{keywordtype}{, only}: nf90\_fill\_float, nf90\_fill\_double, nf90\_fill\_int
73     \textcolor{keywordtype}{implicit none}
74     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
75                                                   \textcolor{comment}{! netCDF ファイル名.}
76     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
77                                                   \textcolor{comment}{! 変数名.}
78     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: attrname
79                                                   \textcolor{comment}{! 属性の名称.}
80                               \textcolor{comment}{!}
81                               \textcolor{comment}{! "<b><tt>+</tt></b>" (プラス)}
82                               \textcolor{comment}{! を属性名の先頭につける場合には,}
83                               \textcolor{comment}{! 大域属性を取得します.}
84     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: value
85                                                   \textcolor{comment}{! 属性の値.}
86                               \textcolor{comment}{!}
87     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
88                                                   \textcolor{comment}{! MPI 使用時にこの引数に .true. を与えると,}
89                               \textcolor{comment}{! *file* 引数に "\_rankXXXXXX"}
90                               \textcolor{comment}{! (X は [0-9] の数値で, ノード番号を指す)}
91                               \textcolor{comment}{! を付加したファイル名を各ノードで読み込みます.}
92                               \textcolor{comment}{! 例えば, *file* に "input.nc" を与えた場合.}
93                               \textcolor{comment}{! ノード 0 では "input\_rank000000.nc",}
94                               \textcolor{comment}{! ノード 12 では "input\_rank000012.nc"}
95                               \textcolor{comment}{! を読み込みます.}
96                               \textcolor{comment}{! デフォルトは .false. です.}
97                               \textcolor{comment}{!}
98                               \textcolor{comment}{! When MPI is used, if ".true." is given,}
99                               \textcolor{comment}{! a filename that "\_rankXXXXXX"}
100                               \textcolor{comment}{! (X is [0-9] that indicates node number)}
101                               \textcolor{comment}{! is added to *file* argument is loaded}
102                               \textcolor{comment}{! on each node.}
103                               \textcolor{comment}{! For example, "input.nc" is given to *file*,}
104                               \textcolor{comment}{! "input\_rank000000.nc", "input\_rank000012.nc"}
105                               \textcolor{comment}{! are loaded on node 0 and node 12.}
106                               \textcolor{comment}{! Default value is ".false.".}
107                               \textcolor{comment}{!}
108     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
109                                                   \textcolor{comment}{! 例外処理用フラグ.}
110                               \textcolor{comment}{! デフォルトでは, この手続き内でエラーが}
111                               \textcolor{comment}{! 生じた場合, プログラムは強制終了します.}
112                               \textcolor{comment}{! 引数 *err* が与えられる場合,}
113                               \textcolor{comment}{! プログラムは強制終了せず, 代わりに}
114                               \textcolor{comment}{! *err* に .true. が代入されます.}
115                               \textcolor{comment}{!}
116                               \textcolor{comment}{! Exception handling flag.}
117                               \textcolor{comment}{! By default, when error occur in}
118                               \textcolor{comment}{! this procedure, the program aborts.}
119                               \textcolor{comment}{! If this *err* argument is given,}
120                               \textcolor{comment}{! .true. is substituted to *err* and}
121                               \textcolor{comment}{! the program does not abort.}
122     \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
123     \textcolor{keywordtype}{character(STRING)}:: file\_work, url
124     \textcolor{keywordtype}{integer}:: stat
125     \textcolor{keywordtype}{character(STRING)}:: cause\_c
126     \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryGetAttrChar0"}
127     \textcolor{comment}{!--}
128     \textcolor{keyword}{interface} \textcolor{comment}{! historyget.rb2f90 で定義されているものを使用}
129 \textcolor{keyword}{      function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
130         \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
131         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
132         \textcolor{keywordtype}{character(STRING)}:: result
133 \textcolor{keyword}{      end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
134 \textcolor{keyword}{    end interface}
135     \textcolor{comment}{!++}
136   \textcolor{keywordflow}{continue}
137     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, &
138       & \textcolor{stringliteral}{'file=<%c> varname=<%c> attrname=<%c>'}, &
139       & c1=trim(file), c2=trim(varname), c3=trim(attrname) )
140     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
141     cause\_c = \textcolor{stringliteral}{''}
142     \textcolor{comment}{! ファイル名の変更 (MPI 用)}
143     \textcolor{comment}{! Change filename (for MPI)}
144     \textcolor{comment}{!}
145     file\_work = file
146     \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
147       & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
148     \textcolor{comment}{! 変数 URL の作成}
149     \textcolor{comment}{! Create variable URL}
150     \textcolor{comment}{!}
151     url = \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}( file\_work, varname )
152     \textcolor{comment}{! ファイルオープン}
153     \textcolor{comment}{! File open}
154     \textcolor{comment}{!}
155     \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}( var, url, err = err )
156     \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
157       stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
158       cause\_c = url
159       \textcolor{keywordflow}{goto} 999
160 \textcolor{keywordflow}{    end if}
161     \textcolor{comment}{! デフォルト値の設定}
162     \textcolor{comment}{! Set default value}
163     \textcolor{comment}{!}
164     \textcolor{comment}{! 属性の取得}
165     \textcolor{comment}{! Get an attribute}
166     \textcolor{comment}{!}
167     \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get__attr}{get\_attr}( var, attrname, \textcolor{keywordtype}{value} &
168       & )
169     \textcolor{comment}{! ファイルオープン}
170     \textcolor{comment}{! File open}
171     \textcolor{comment}{!}
172     \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}( var )
173 999 \textcolor{keywordflow}{continue}
174     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c=cause\_c)
175     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historygetattr_8f90_a97b21b900e8396ea41a96d749abd4825_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historygetattr_8f90_ab7f04557eccb9713b1430c9dcf9b6bb7}\label{historygetattr_8f90_ab7f04557eccb9713b1430c9dcf9b6bb7}} 
\index{historygetattr.\+f90@{historygetattr.\+f90}!historygettattrdouble0@{historygettattrdouble0}}
\index{historygettattrdouble0@{historygettattrdouble0}!historygetattr.\+f90@{historygetattr.\+f90}}
\subsubsection{\texorpdfstring{historygettattrdouble0()}{historygettattrdouble0()}}
{\footnotesize\ttfamily subroutine historygettattrdouble0 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{character($\ast$), intent(in)}]{attrname,  }\item[{real(dp), intent(out)}]{value,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 513 of file historygetattr.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+atmark, dc\+\_\+url\+::gt\+\_\+comma, dc\+\_\+error\+::gt\+\_\+enoturl, dc\+\_\+url\+::gt\+\_\+equal, dc\+\_\+url\+::gt\+\_\+plus, dc\+\_\+error\+::hst\+\_\+empinoaxisdata, dc\+\_\+string\+::joinchar(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.


\begin{DoxyCode}
513     \textcolor{comment}{!}
514     \textcolor{comment}{!}
515     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
516     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1get__attr}{get\_attr}, \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1close}{close}
517     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
518     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}
519     \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a3157f15c35d09732b55dfb0f4f52397d}{gt\_atmark}, \hyperlink{namespacedc__url_a61f457425e29d1452036669b43735790}{gt\_comma}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}, 
      \hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}, \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}, \hyperlink{namespacedc__url_a373b7d2195c21ebf1458e79ad72dce0d}{gt\_plus}
520     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, nf90\_enotvar, 
      \hyperlink{namespacedc__error_ac9383c449e0a61a04a809199b7fe284b}{hst\_empinoaxisdata}
521     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
522     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}
523     \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
524     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, 
      \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
525     \textcolor{keywordtype}{use }netcdf\textcolor{keywordtype}{, only}: nf90\_fill\_float, nf90\_fill\_double, nf90\_fill\_int
526     \textcolor{keywordtype}{implicit none}
527     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
528     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
529     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: attrname
530     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}:: value
531     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
532     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
533     \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
534     \textcolor{keywordtype}{character(STRING)}:: file\_work, url
535     \textcolor{keywordtype}{integer}:: stat
536     \textcolor{keywordtype}{character(STRING)}:: cause\_c
537     \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryGetAttrDouble0"}
538     \textcolor{comment}{!--}
539     \textcolor{keyword}{interface} \textcolor{comment}{! historyget.rb2f90 で定義されているものを使用}
540 \textcolor{keyword}{      function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
541         \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
542         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
543         \textcolor{keywordtype}{character(STRING)}:: result
544 \textcolor{keyword}{      end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
545 \textcolor{keyword}{    end interface}
546     \textcolor{comment}{!++}
547   \textcolor{keywordflow}{continue}
548     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, &
549       & \textcolor{stringliteral}{'file=<%c> varname=<%c> attrname=<%c>'}, &
550       & c1=trim(file), c2=trim(varname), c3=trim(attrname) )
551     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
552     cause\_c = \textcolor{stringliteral}{''}
553     \textcolor{comment}{! ファイル名の変更 (MPI 用)}
554     \textcolor{comment}{! Change filename (for MPI)}
555     \textcolor{comment}{!}
556     file\_work = file
557     \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
558       & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
559     \textcolor{comment}{! 変数 URL の作成}
560     \textcolor{comment}{! Create variable URL}
561     \textcolor{comment}{!}
562     url = \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}( file\_work, varname )
563     \textcolor{comment}{! ファイルオープン}
564     \textcolor{comment}{! File open}
565     \textcolor{comment}{!}
566     \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}( var, url, err = err )
567     \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
568       stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
569       cause\_c = url
570       \textcolor{keywordflow}{goto} 999
571 \textcolor{keywordflow}{    end if}
572     \textcolor{comment}{! デフォルト値の設定}
573     \textcolor{comment}{! Set default value}
574     \textcolor{comment}{!}
575     \textcolor{comment}{! 属性の取得}
576     \textcolor{comment}{! Get an attribute}
577     \textcolor{comment}{!}
578     \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get__attr}{get\_attr}( var, attrname, \textcolor{keywordtype}{value} &
579       & )
580     \textcolor{comment}{! ファイルオープン}
581     \textcolor{comment}{! File open}
582     \textcolor{comment}{!}
583     \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}( var )
584 999 \textcolor{keywordflow}{continue}
585     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c=cause\_c)
586     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historygetattr_8f90_ab7f04557eccb9713b1430c9dcf9b6bb7_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historygetattr_8f90_a2dff46c2d9b931ae90c2d6e17c7bc100}\label{historygetattr_8f90_a2dff46c2d9b931ae90c2d6e17c7bc100}} 
\index{historygetattr.\+f90@{historygetattr.\+f90}!historygettattrdouble1@{historygettattrdouble1}}
\index{historygettattrdouble1@{historygettattrdouble1}!historygetattr.\+f90@{historygetattr.\+f90}}
\subsubsection{\texorpdfstring{historygettattrdouble1()}{historygettattrdouble1()}}
{\footnotesize\ttfamily subroutine historygettattrdouble1 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{character($\ast$), intent(in)}]{attrname,  }\item[{real(dp), dimension(\+:), intent(out)}]{value,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 594 of file historygetattr.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+atmark, dc\+\_\+url\+::gt\+\_\+comma, dc\+\_\+error\+::gt\+\_\+enoturl, dc\+\_\+url\+::gt\+\_\+equal, dc\+\_\+url\+::gt\+\_\+plus, dc\+\_\+error\+::hst\+\_\+empinoaxisdata, dc\+\_\+string\+::joinchar(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.


\begin{DoxyCode}
594     \textcolor{comment}{!}
595     \textcolor{comment}{!}
596     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
597     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1get__attr}{get\_attr}, \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1close}{close}
598     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
599     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}
600     \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a3157f15c35d09732b55dfb0f4f52397d}{gt\_atmark}, \hyperlink{namespacedc__url_a61f457425e29d1452036669b43735790}{gt\_comma}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}, 
      \hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}, \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}, \hyperlink{namespacedc__url_a373b7d2195c21ebf1458e79ad72dce0d}{gt\_plus}
601     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, nf90\_enotvar, 
      \hyperlink{namespacedc__error_ac9383c449e0a61a04a809199b7fe284b}{hst\_empinoaxisdata}
602     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
603     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}
604     \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
605     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, 
      \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
606     \textcolor{keywordtype}{use }netcdf\textcolor{keywordtype}{, only}: nf90\_fill\_float, nf90\_fill\_double, nf90\_fill\_int
607     \textcolor{keywordtype}{implicit none}
608     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
609     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
610     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: attrname
611     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}:: \textcolor{keywordtype}{value}(:)
612     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
613     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
614     \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
615                         \textcolor{keywordtype}{real(DP)}:: \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}
616     \textcolor{keywordtype}{character(STRING)}:: file\_work, url
617     \textcolor{keywordtype}{integer}:: stat
618     \textcolor{keywordtype}{character(STRING)}:: cause\_c
619     \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryGetAttrDouble1"}
620     \textcolor{comment}{!--}
621     \textcolor{keyword}{interface} \textcolor{comment}{! historyget.rb2f90 で定義されているものを使用}
622 \textcolor{keyword}{      function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
623         \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
624         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
625         \textcolor{keywordtype}{character(STRING)}:: result
626 \textcolor{keyword}{      end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
627 \textcolor{keyword}{    end interface}
628     \textcolor{comment}{!++}
629   \textcolor{keywordflow}{continue}
630     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, &
631       & \textcolor{stringliteral}{'file=<%c> varname=<%c> attrname=<%c>'}, &
632       & c1=trim(file), c2=trim(varname), c3=trim(attrname) )
633     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
634     cause\_c = \textcolor{stringliteral}{''}
635     \textcolor{comment}{! ファイル名の変更 (MPI 用)}
636     \textcolor{comment}{! Change filename (for MPI)}
637     \textcolor{comment}{!}
638     file\_work = file
639     \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
640       & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
641     \textcolor{comment}{! 変数 URL の作成}
642     \textcolor{comment}{! Create variable URL}
643     \textcolor{comment}{!}
644     url = \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}( file\_work, varname )
645     \textcolor{comment}{! ファイルオープン}
646     \textcolor{comment}{! File open}
647     \textcolor{comment}{!}
648     \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}( var, url, err = err )
649     \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
650       stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
651       cause\_c = url
652       \textcolor{keywordflow}{goto} 999
653 \textcolor{keywordflow}{    end if}
654     \textcolor{comment}{! デフォルト値の設定}
655     \textcolor{comment}{! Set default value}
656     \textcolor{comment}{!}
657                                               \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default} = nf90\_fill\_double
658     \textcolor{comment}{! 属性の取得}
659     \textcolor{comment}{! Get an attribute}
660     \textcolor{comment}{!}
661     \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get__attr}{get\_attr}( var, attrname, \textcolor{keywordtype}{value} &
662                           & , \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default} &
663       & )
664     \textcolor{comment}{! ファイルオープン}
665     \textcolor{comment}{! File open}
666     \textcolor{comment}{!}
667     \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}( var )
668 999 \textcolor{keywordflow}{continue}
669     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c=cause\_c)
670     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historygetattr_8f90_a2dff46c2d9b931ae90c2d6e17c7bc100_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historygetattr_8f90_a33380722672e83152d0eec8dd086362c}\label{historygetattr_8f90_a33380722672e83152d0eec8dd086362c}} 
\index{historygetattr.\+f90@{historygetattr.\+f90}!historygettattrint0@{historygettattrint0}}
\index{historygettattrint0@{historygettattrint0}!historygetattr.\+f90@{historygetattr.\+f90}}
\subsubsection{\texorpdfstring{historygettattrint0()}{historygettattrint0()}}
{\footnotesize\ttfamily subroutine historygettattrint0 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{character($\ast$), intent(in)}]{attrname,  }\item[{integer, intent(out)}]{value,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 183 of file historygetattr.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+atmark, dc\+\_\+url\+::gt\+\_\+comma, dc\+\_\+error\+::gt\+\_\+enoturl, dc\+\_\+url\+::gt\+\_\+equal, dc\+\_\+url\+::gt\+\_\+plus, dc\+\_\+error\+::hst\+\_\+empinoaxisdata, dc\+\_\+string\+::joinchar(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.


\begin{DoxyCode}
183     \textcolor{comment}{!}
184     \textcolor{comment}{!}
185     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
186     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1get__attr}{get\_attr}, \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1close}{close}
187     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
188     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}
189     \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a3157f15c35d09732b55dfb0f4f52397d}{gt\_atmark}, \hyperlink{namespacedc__url_a61f457425e29d1452036669b43735790}{gt\_comma}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}, 
      \hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}, \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}, \hyperlink{namespacedc__url_a373b7d2195c21ebf1458e79ad72dce0d}{gt\_plus}
190     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, nf90\_enotvar, 
      \hyperlink{namespacedc__error_ac9383c449e0a61a04a809199b7fe284b}{hst\_empinoaxisdata}
191     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
192     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}
193     \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
194     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, 
      \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
195     \textcolor{keywordtype}{use }netcdf\textcolor{keywordtype}{, only}: nf90\_fill\_float, nf90\_fill\_double, nf90\_fill\_int
196     \textcolor{keywordtype}{implicit none}
197     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
198     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
199     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: attrname
200     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}:: value
201     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
202     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
203     \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
204     \textcolor{keywordtype}{character(STRING)}:: file\_work, url
205     \textcolor{keywordtype}{integer}:: stat
206     \textcolor{keywordtype}{character(STRING)}:: cause\_c
207     \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryGetAttrInt0"}
208     \textcolor{comment}{!--}
209     \textcolor{keyword}{interface} \textcolor{comment}{! historyget.rb2f90 で定義されているものを使用}
210 \textcolor{keyword}{      function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
211         \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
212         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
213         \textcolor{keywordtype}{character(STRING)}:: result
214 \textcolor{keyword}{      end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
215 \textcolor{keyword}{    end interface}
216     \textcolor{comment}{!++}
217   \textcolor{keywordflow}{continue}
218     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, &
219       & \textcolor{stringliteral}{'file=<%c> varname=<%c> attrname=<%c>'}, &
220       & c1=trim(file), c2=trim(varname), c3=trim(attrname) )
221     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
222     cause\_c = \textcolor{stringliteral}{''}
223     \textcolor{comment}{! ファイル名の変更 (MPI 用)}
224     \textcolor{comment}{! Change filename (for MPI)}
225     \textcolor{comment}{!}
226     file\_work = file
227     \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
228       & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
229     \textcolor{comment}{! 変数 URL の作成}
230     \textcolor{comment}{! Create variable URL}
231     \textcolor{comment}{!}
232     url = \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}( file\_work, varname )
233     \textcolor{comment}{! ファイルオープン}
234     \textcolor{comment}{! File open}
235     \textcolor{comment}{!}
236     \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}( var, url, err = err )
237     \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
238       stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
239       cause\_c = url
240       \textcolor{keywordflow}{goto} 999
241 \textcolor{keywordflow}{    end if}
242     \textcolor{comment}{! デフォルト値の設定}
243     \textcolor{comment}{! Set default value}
244     \textcolor{comment}{!}
245     \textcolor{comment}{! 属性の取得}
246     \textcolor{comment}{! Get an attribute}
247     \textcolor{comment}{!}
248     \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get__attr}{get\_attr}( var, attrname, \textcolor{keywordtype}{value} &
249       & )
250     \textcolor{comment}{! ファイルオープン}
251     \textcolor{comment}{! File open}
252     \textcolor{comment}{!}
253     \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}( var )
254 999 \textcolor{keywordflow}{continue}
255     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c=cause\_c)
256     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historygetattr_8f90_a33380722672e83152d0eec8dd086362c_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historygetattr_8f90_a4204b045c7e41d5d62d7a4c246302c14}\label{historygetattr_8f90_a4204b045c7e41d5d62d7a4c246302c14}} 
\index{historygetattr.\+f90@{historygetattr.\+f90}!historygettattrint1@{historygettattrint1}}
\index{historygettattrint1@{historygettattrint1}!historygetattr.\+f90@{historygetattr.\+f90}}
\subsubsection{\texorpdfstring{historygettattrint1()}{historygettattrint1()}}
{\footnotesize\ttfamily subroutine historygettattrint1 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{character($\ast$), intent(in)}]{attrname,  }\item[{integer, dimension(\+:), intent(out)}]{value,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 264 of file historygetattr.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+atmark, dc\+\_\+url\+::gt\+\_\+comma, dc\+\_\+error\+::gt\+\_\+enoturl, dc\+\_\+url\+::gt\+\_\+equal, dc\+\_\+url\+::gt\+\_\+plus, dc\+\_\+error\+::hst\+\_\+empinoaxisdata, dc\+\_\+string\+::joinchar(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.


\begin{DoxyCode}
264     \textcolor{comment}{!}
265     \textcolor{comment}{!}
266     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
267     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1get__attr}{get\_attr}, \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1close}{close}
268     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
269     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}
270     \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a3157f15c35d09732b55dfb0f4f52397d}{gt\_atmark}, \hyperlink{namespacedc__url_a61f457425e29d1452036669b43735790}{gt\_comma}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}, 
      \hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}, \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}, \hyperlink{namespacedc__url_a373b7d2195c21ebf1458e79ad72dce0d}{gt\_plus}
271     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, nf90\_enotvar, 
      \hyperlink{namespacedc__error_ac9383c449e0a61a04a809199b7fe284b}{hst\_empinoaxisdata}
272     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
273     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}
274     \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
275     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, 
      \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
276     \textcolor{keywordtype}{use }netcdf\textcolor{keywordtype}{, only}: nf90\_fill\_float, nf90\_fill\_double, nf90\_fill\_int
277     \textcolor{keywordtype}{implicit none}
278     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
279     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
280     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: attrname
281     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}:: \textcolor{keywordtype}{value}(:)
282     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
283     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
284     \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
285                         \textcolor{keywordtype}{integer}:: \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}
286     \textcolor{keywordtype}{character(STRING)}:: file\_work, url
287     \textcolor{keywordtype}{integer}:: stat
288     \textcolor{keywordtype}{character(STRING)}:: cause\_c
289     \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryGetAttrInt1"}
290     \textcolor{comment}{!--}
291     \textcolor{keyword}{interface} \textcolor{comment}{! historyget.rb2f90 で定義されているものを使用}
292 \textcolor{keyword}{      function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
293         \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
294         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
295         \textcolor{keywordtype}{character(STRING)}:: result
296 \textcolor{keyword}{      end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
297 \textcolor{keyword}{    end interface}
298     \textcolor{comment}{!++}
299   \textcolor{keywordflow}{continue}
300     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, &
301       & \textcolor{stringliteral}{'file=<%c> varname=<%c> attrname=<%c>'}, &
302       & c1=trim(file), c2=trim(varname), c3=trim(attrname) )
303     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
304     cause\_c = \textcolor{stringliteral}{''}
305     \textcolor{comment}{! ファイル名の変更 (MPI 用)}
306     \textcolor{comment}{! Change filename (for MPI)}
307     \textcolor{comment}{!}
308     file\_work = file
309     \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
310       & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
311     \textcolor{comment}{! 変数 URL の作成}
312     \textcolor{comment}{! Create variable URL}
313     \textcolor{comment}{!}
314     url = \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}( file\_work, varname )
315     \textcolor{comment}{! ファイルオープン}
316     \textcolor{comment}{! File open}
317     \textcolor{comment}{!}
318     \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}( var, url, err = err )
319     \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
320       stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
321       cause\_c = url
322       \textcolor{keywordflow}{goto} 999
323 \textcolor{keywordflow}{    end if}
324     \textcolor{comment}{! デフォルト値の設定}
325     \textcolor{comment}{! Set default value}
326     \textcolor{comment}{!}
327                                               \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default} = nf90\_fill\_int
328     \textcolor{comment}{! 属性の取得}
329     \textcolor{comment}{! Get an attribute}
330     \textcolor{comment}{!}
331     \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get__attr}{get\_attr}( var, attrname, \textcolor{keywordtype}{value} &
332                           & , \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default} &
333       & )
334     \textcolor{comment}{! ファイルオープン}
335     \textcolor{comment}{! File open}
336     \textcolor{comment}{!}
337     \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}( var )
338 999 \textcolor{keywordflow}{continue}
339     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c=cause\_c)
340     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historygetattr_8f90_a4204b045c7e41d5d62d7a4c246302c14_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historygetattr_8f90_aa44ff4b74ea320482e810cf17fb89358}\label{historygetattr_8f90_aa44ff4b74ea320482e810cf17fb89358}} 
\index{historygetattr.\+f90@{historygetattr.\+f90}!historygettattrreal0@{historygettattrreal0}}
\index{historygettattrreal0@{historygettattrreal0}!historygetattr.\+f90@{historygetattr.\+f90}}
\subsubsection{\texorpdfstring{historygettattrreal0()}{historygettattrreal0()}}
{\footnotesize\ttfamily subroutine historygettattrreal0 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{character($\ast$), intent(in)}]{attrname,  }\item[{real, intent(out)}]{value,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 348 of file historygetattr.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+atmark, dc\+\_\+url\+::gt\+\_\+comma, dc\+\_\+error\+::gt\+\_\+enoturl, dc\+\_\+url\+::gt\+\_\+equal, dc\+\_\+url\+::gt\+\_\+plus, dc\+\_\+error\+::hst\+\_\+empinoaxisdata, dc\+\_\+string\+::joinchar(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.


\begin{DoxyCode}
348     \textcolor{comment}{!}
349     \textcolor{comment}{!}
350     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
351     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1get__attr}{get\_attr}, \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1close}{close}
352     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
353     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}
354     \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a3157f15c35d09732b55dfb0f4f52397d}{gt\_atmark}, \hyperlink{namespacedc__url_a61f457425e29d1452036669b43735790}{gt\_comma}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}, 
      \hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}, \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}, \hyperlink{namespacedc__url_a373b7d2195c21ebf1458e79ad72dce0d}{gt\_plus}
355     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, nf90\_enotvar, 
      \hyperlink{namespacedc__error_ac9383c449e0a61a04a809199b7fe284b}{hst\_empinoaxisdata}
356     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
357     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}
358     \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
359     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, 
      \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
360     \textcolor{keywordtype}{use }netcdf\textcolor{keywordtype}{, only}: nf90\_fill\_float, nf90\_fill\_double, nf90\_fill\_int
361     \textcolor{keywordtype}{implicit none}
362     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
363     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
364     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: attrname
365     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(out)}:: value
366     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
367     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
368     \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
369     \textcolor{keywordtype}{character(STRING)}:: file\_work, url
370     \textcolor{keywordtype}{integer}:: stat
371     \textcolor{keywordtype}{character(STRING)}:: cause\_c
372     \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryGetAttrReal0"}
373     \textcolor{comment}{!--}
374     \textcolor{keyword}{interface} \textcolor{comment}{! historyget.rb2f90 で定義されているものを使用}
375 \textcolor{keyword}{      function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
376         \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
377         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
378         \textcolor{keywordtype}{character(STRING)}:: result
379 \textcolor{keyword}{      end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
380 \textcolor{keyword}{    end interface}
381     \textcolor{comment}{!++}
382   \textcolor{keywordflow}{continue}
383     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, &
384       & \textcolor{stringliteral}{'file=<%c> varname=<%c> attrname=<%c>'}, &
385       & c1=trim(file), c2=trim(varname), c3=trim(attrname) )
386     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
387     cause\_c = \textcolor{stringliteral}{''}
388     \textcolor{comment}{! ファイル名の変更 (MPI 用)}
389     \textcolor{comment}{! Change filename (for MPI)}
390     \textcolor{comment}{!}
391     file\_work = file
392     \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
393       & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
394     \textcolor{comment}{! 変数 URL の作成}
395     \textcolor{comment}{! Create variable URL}
396     \textcolor{comment}{!}
397     url = \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}( file\_work, varname )
398     \textcolor{comment}{! ファイルオープン}
399     \textcolor{comment}{! File open}
400     \textcolor{comment}{!}
401     \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}( var, url, err = err )
402     \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
403       stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
404       cause\_c = url
405       \textcolor{keywordflow}{goto} 999
406 \textcolor{keywordflow}{    end if}
407     \textcolor{comment}{! デフォルト値の設定}
408     \textcolor{comment}{! Set default value}
409     \textcolor{comment}{!}
410     \textcolor{comment}{! 属性の取得}
411     \textcolor{comment}{! Get an attribute}
412     \textcolor{comment}{!}
413     \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get__attr}{get\_attr}( var, attrname, \textcolor{keywordtype}{value} &
414       & )
415     \textcolor{comment}{! ファイルオープン}
416     \textcolor{comment}{! File open}
417     \textcolor{comment}{!}
418     \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}( var )
419 999 \textcolor{keywordflow}{continue}
420     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c=cause\_c)
421     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historygetattr_8f90_aa44ff4b74ea320482e810cf17fb89358_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historygetattr_8f90_aa6fe6ece5cd2785b1ccc9fd803c0195b}\label{historygetattr_8f90_aa6fe6ece5cd2785b1ccc9fd803c0195b}} 
\index{historygetattr.\+f90@{historygetattr.\+f90}!historygettattrreal1@{historygettattrreal1}}
\index{historygettattrreal1@{historygettattrreal1}!historygetattr.\+f90@{historygetattr.\+f90}}
\subsubsection{\texorpdfstring{historygettattrreal1()}{historygettattrreal1()}}
{\footnotesize\ttfamily subroutine historygettattrreal1 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{file,  }\item[{character($\ast$), intent(in)}]{varname,  }\item[{character($\ast$), intent(in)}]{attrname,  }\item[{real, dimension(\+:), intent(out)}]{value,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 429 of file historygetattr.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), file\+\_\+rename\+\_\+mpi(), dc\+\_\+url\+::gt\+\_\+atmark, dc\+\_\+url\+::gt\+\_\+comma, dc\+\_\+error\+::gt\+\_\+enoturl, dc\+\_\+url\+::gt\+\_\+equal, dc\+\_\+url\+::gt\+\_\+plus, dc\+\_\+error\+::hst\+\_\+empinoaxisdata, dc\+\_\+string\+::joinchar(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.


\begin{DoxyCode}
429     \textcolor{comment}{!}
430     \textcolor{comment}{!}
431     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
432     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1get__attr}{get\_attr}, \hyperlink{interfacegtdata__generic_1_1open}{open}, \hyperlink{interfacegtdata__generic_1_1close}{close}
433     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
434     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}
435     \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a3157f15c35d09732b55dfb0f4f52397d}{gt\_atmark}, \hyperlink{namespacedc__url_a61f457425e29d1452036669b43735790}{gt\_comma}, \hyperlink{namespacedc__url_a7136bff4d1b5152ca579575eb6a99f75}{gt\_equal}, 
      \hyperlink{interfacedc__url_1_1urlsplit}{urlsplit}, \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}, \hyperlink{namespacedc__url_a373b7d2195c21ebf1458e79ad72dce0d}{gt\_plus}
436     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, nf90\_enotvar, 
      \hyperlink{namespacedc__error_ac9383c449e0a61a04a809199b7fe284b}{hst\_empinoaxisdata}
437     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
438     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}
439     \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
440     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, 
      \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
441     \textcolor{keywordtype}{use }netcdf\textcolor{keywordtype}{, only}: nf90\_fill\_float, nf90\_fill\_double, nf90\_fill\_int
442     \textcolor{keywordtype}{implicit none}
443     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
444     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
445     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: attrname
446     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(out)}:: \textcolor{keywordtype}{value}(:)
447     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
448     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
449     \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
450                         \textcolor{keywordtype}{real}:: \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}
451     \textcolor{keywordtype}{character(STRING)}:: file\_work, url
452     \textcolor{keywordtype}{integer}:: stat
453     \textcolor{keywordtype}{character(STRING)}:: cause\_c
454     \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryGetAttrReal1"}
455     \textcolor{comment}{!--}
456     \textcolor{keyword}{interface} \textcolor{comment}{! historyget.rb2f90 で定義されているものを使用}
457 \textcolor{keyword}{      function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file ) \textcolor{keyword}{result}(result)
458         \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
459         \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: file
460         \textcolor{keywordtype}{character(STRING)}:: result
461 \textcolor{keyword}{      end function }\hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}
462 \textcolor{keyword}{    end interface}
463     \textcolor{comment}{!++}
464   \textcolor{keywordflow}{continue}
465     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, &
466       & \textcolor{stringliteral}{'file=<%c> varname=<%c> attrname=<%c>'}, &
467       & c1=trim(file), c2=trim(varname), c3=trim(attrname) )
468     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
469     cause\_c = \textcolor{stringliteral}{''}
470     \textcolor{comment}{! ファイル名の変更 (MPI 用)}
471     \textcolor{comment}{! Change filename (for MPI)}
472     \textcolor{comment}{!}
473     file\_work = file
474     \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split ) ) &
475       & file\_work = \hyperlink{historyget_8f90_ac4b2dafd9b8c07eb817059759c8feaab}{file\_rename\_mpi}( file\_work )
476     \textcolor{comment}{! 変数 URL の作成}
477     \textcolor{comment}{! Create variable URL}
478     \textcolor{comment}{!}
479     url = \hyperlink{interfacedc__url_1_1urlmerge}{urlmerge}( file\_work, varname )
480     \textcolor{comment}{! ファイルオープン}
481     \textcolor{comment}{! File open}
482     \textcolor{comment}{!}
483     \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1open}{open}( var, url, err = err )
484     \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(err) ) \textcolor{keywordflow}{then}
485       stat = \hyperlink{namespacedc__error_ad6ef0d20c032c372fa91a2abee01816a}{gt\_enoturl}
486       cause\_c = url
487       \textcolor{keywordflow}{goto} 999
488 \textcolor{keywordflow}{    end if}
489     \textcolor{comment}{! デフォルト値の設定}
490     \textcolor{comment}{! Set default value}
491     \textcolor{comment}{!}
492                                               \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default} = nf90\_fill\_float
493     \textcolor{comment}{! 属性の取得}
494     \textcolor{comment}{! Get an attribute}
495     \textcolor{comment}{!}
496     \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get__attr}{get\_attr}( var, attrname, \textcolor{keywordtype}{value} &
497                           & , \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default} &
498       & )
499     \textcolor{comment}{! ファイルオープン}
500     \textcolor{comment}{! File open}
501     \textcolor{comment}{!}
502     \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1close}{close}( var )
503 999 \textcolor{keywordflow}{continue}
504     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c=cause\_c)
505     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historygetattr_8f90_aa6fe6ece5cd2785b1ccc9fd803c0195b_cgraph}
\end{center}
\end{figure}
