\hypertarget{gtvardelattr_8f90}{}\section{gtdata/gtvardelattr.f90 File Reference}
\label{gtvardelattr_8f90}\index{gtdata/gtvardelattr.\+f90@{gtdata/gtvardelattr.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{gtvardelattr_8f90_a0cc4b5b3cca2d6ec446e400e20893531}{gtvardelattr} (var, name, err)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{gtvardelattr_8f90_a0cc4b5b3cca2d6ec446e400e20893531}\label{gtvardelattr_8f90_a0cc4b5b3cca2d6ec446e400e20893531}} 
\index{gtvardelattr.\+f90@{gtvardelattr.\+f90}!gtvardelattr@{gtvardelattr}}
\index{gtvardelattr@{gtvardelattr}!gtvardelattr.\+f90@{gtvardelattr.\+f90}}
\subsubsection{\texorpdfstring{gtvardelattr()}{gtvardelattr()}}
{\footnotesize\ttfamily subroutine gtvardelattr (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(inout)}]{var,  }\item[{character(len = $\ast$), intent(in)}]{name,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 14 of file gtvardelattr.\+f90.



References dc\+\_\+error\+::gt\+\_\+ebadvar, dc\+\_\+error\+::storeerror(), and gtdata\+\_\+internal\+\_\+map\+::var\+\_\+class().


\begin{DoxyCode}
14   \textcolor{comment}{!}
15   \textcolor{comment}{!== 属性の削除}
16   \textcolor{comment}{!}
17   \textcolor{comment}{! 変数 *var* の属性 *name* を削除します。}
18   \textcolor{comment}{!}
19   \textcolor{comment}{! 属性の削除時にエラーが生じた場合、メッセージを出力}
20   \textcolor{comment}{! してプログラムは強制終了します。*err* を与えてある場合には}
21   \textcolor{comment}{! の引数に .true. が返り、プログラムは終了しません。}
22   \textcolor{comment}{!}
23   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
24   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__map}{gtdata\_internal\_map}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}, vtb\_class\_netcdf, vtb\_class\_memory
25   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1del__attr}{del\_attr}
26   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
27   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__memory__generic}{gtdata\_memory\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1del__attr}{del\_attr}
28   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__memory__types}{gtdata\_memory\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__memory__types_1_1gd__mem__variable}{gd\_mem\_variable}
29   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a034d52028a635fe01d2ec4a960c5441c}{gt\_ebadvar}, \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}
30   \textcolor{keywordtype}{implicit none}
31   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}), \textcolor{keywordtype}{intent(inout)}:: var
32   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(in)}:: name
33   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
34   \textcolor{keywordtype}{integer}:: \textcolor{keywordtype}{class}, cid
35 \textcolor{keywordflow}{continue}
36   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}(var, \textcolor{keywordtype}{class}, cid)
37   \textcolor{keywordflow}{if} (\textcolor{keywordtype}{class} == vtb\_class\_netcdf) \textcolor{keywordflow}{then}
38     \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1del__attr}{del\_attr}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}(cid), name, err)
39   \textcolor{keywordflow}{else} \textcolor{keywordflow}{if} (\textcolor{keywordtype}{class} == vtb\_class\_memory) \textcolor{keywordflow}{then}
40     \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1del__attr}{del\_attr}(\hyperlink{structgtdata__memory__types_1_1gd__mem__variable}{gd\_mem\_variable}(cid), name, err)
41   \textcolor{keywordflow}{else}
42     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(\hyperlink{namespacedc__error_a034d52028a635fe01d2ec4a960c5441c}{gt\_ebadvar}, \textcolor{stringliteral}{'GTVarDelAttr'}, err)
43 \textcolor{keywordflow}{  endif}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvardelattr_8f90_a0cc4b5b3cca2d6ec446e400e20893531_cgraph}
\end{center}
\end{figure}
